scilab/modules/functions/macros/get_function_path.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) INRIA
   3 // Copyright (C) DIGITEO - 2009-2010 - Allan CORNET
   4 // Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS
   5 //
   6 // Copyright (C) 2012 - 2016 - Scilab Enterprises
   7 //
   8 // This file is hereby licensed under the terms of the GNU GPL v2.0,
   9 // pursuant to article 5.3.4 of the CeCILL v.2.1.
  10 // This file was originally licensed under the terms of the CeCILL v2.1,
  11 // and continues to be available under such terms.
  12 // For more information, see the COPYING file which you should have received
  13 // along with this program.
  14
  15 function path = get_function_path(name)
  16
  17     path = [];
  18     rhs = argn(2);
  19
  20     if rhs == 0 then
  21         error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"), "get_function_path", 1));
  22     end
  23
  24     if type(name) <> 10 then
  25         error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
  26     end
  27
  28     if size(name,"*") <> 1 then
  29         error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
  30     end
  31
  32     libname = whereis(name);
  33
  34     if libname <> [] & libname <> "script" & type(evstr(name))==13 then
  35         for i = 1:size(libname,"*")
  36             [funcnames, pathlib] = libraryinfo(libname(i));
  37             path = [path ; fullfile(pathlib, name + ".sci")];
  38         end
  39         path = pathconvert(path,%F);
  40     end
  41
  42 endfunction