Add a error message when get_function_path has not input argument and fix test win...
[scilab.git] / 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-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: A 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: A 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