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