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 // This file must be used under the terms of the CeCILL.
   7 // This source file is licensed as described in the file COPYING, which
   8 // you should have received as part of this distribution.  The terms
   9 // are also available at
  10 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
  11
  12 function path = get_function_path(name)
  13
  14     path = [];
  15     rhs = argn(2);
  16
  17     if rhs == 0 then
  18         error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"), "get_function_path", 1));
  19     end
  20
  21     if type(name) <> 10 then
  22         error(999,msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
  23     end
  24
  25     if size(name,"*") <> 1 then
  26         error(999,msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
  27     end
  28
  29     libname = whereis(name);
  30
  31     if libname <> [] then
  32         for i = 1:size(libname,"*")
  33             [funcnames, pathlib] = libraryinfo(libname(i));
  34             path = [path ; pathlib + name + ".sci"];
  35         end
  36         path = pathconvert(path,%F);
  37     end
  38
  39 endfunction