// and continues to be available under such terms.
// For more information, see the COPYING file which you should have received
// along with this program.
-// === LICENSE_END ===
function path = get_function_path(name)
end
if type(name) <> 10 then
- error(999,msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
+ error(msprintf(_("%s: Wrong type for input argument #%d: string expected.\n"),"get_function_path",1));
end
if size(name,"*") <> 1 then
- error(999,msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
+ error(msprintf(_("%s: Wrong size for input argument #%d: string expected.\n"),"get_function_path",1));
end
libname = whereis(name);
- if libname <> [] then
+ if libname <> [] & libname <> "script" & type(evstr(name))==13 then
for i = 1:size(libname,"*")
[funcnames, pathlib] = libraryinfo(libname(i));
path = [path ; fullfile(pathlib, name + ".sci")];