Reorganization
[scilab.git] / scilab / modules / functions / macros / get_function_path.sci
1 function path=get_function_path(name)
2 libname=whereis(name)
3 if libname==[] then
4   warning(" """+name +'"" is not a library function')
5   path=[]
6 else
7   execstr('t=string('+libname+')')
8   path=t(1)+name+'.sci'
9   if strindex(path,['SCI/','SCI\'])==1 then
10     path=SCI+part(path,4:length(path))
11   end
12   if fileinfo(path)==[] then
13     warning(" there is no file named "+name+".sci in the library directory "..
14               +t(1))
15     path=[]
16   end
17 end
18 endfunction
19