/usr/share/freemat/toolbox/util/path.m is in freemat-data 4.0-5build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | % PATH PATH Get or Set FreeMat Path
%
% Usage
%
% The path routine has one of the following syntaxes. In the first form
%
% x = path
%
% path simply returns the current path. In the second, the current path
% is replaced by the argument string 'thepath'
%
% path('thepath')
%
% In the third form, a new path is appended to the current search path
%
% path(path,'newpath')
%
% In the fourth form, a new path is prepended to the current search path
%
% path('newpath',path)
%
% In the final form, the path command prints out the current path
%
% path
%
% Copyright (c) 2002-2006 Samit Basu
% Licensed under the GPL
function x = path(a,b)
if (strcmp(computer,'PCWIN'))
pathdiv = ';';
else
pathdiv = ':';
end
if ((nargout == 0) && (nargin == 0))
a = getpath;
b = strfind(a,pathsep);
n = 1;
for i=1:numel(b)
printf('%s\n',a(n:(b(i)-1)));
n = b(i)+1;
end
printf('%s\n',a((b(end)+1):end));
return;
end
if (nargout == 1)
x = getpath;
else
x = [];
end
if (nargin == 1)
setpath(a);
elseif (nargin == 2)
setpath([a,pathsep,b]);
end
|