Update of localization
[scilab.git] / scilab / modules / functions / macros / get_function_path.sci
1
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) INRIA
4 //
5 // This file must be used under the terms of the CeCILL.
6 // This source file is licensed as described in the file COPYING, which
7 // you should have received as part of this distribution.  The terms
8 // are also available at
9 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10
11 function path=get_function_path(name)
12 libname=whereis(name)
13 if libname==[] then
14   warning(" """+name +'"" is not a library function')
15   path=[]
16 else
17   execstr('t=string('+libname+')')
18   path=t(1)+name+'.sci'
19   if strindex(path,['SCI/','SCI\'])==1 then
20     path=SCI+part(path,4:length(path))
21   end
22   if fileinfo(path)==[] then
23     warning(msprintf(gettext("%s: There is no file named %s.sci in the library directory %s.\n"),"get_function_path",name,t(1)))
24     path=[]
25   end
26 end
27 endfunction
28