bug 3598
[scilab.git] / scilab / modules / fileio / macros / cd.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function path=cd(path)
11   if argn(2)==1 then
12     if type(path) <> 10 then 
13       error(999,msprintf(_("%s: Wrong type for input argument #%d: A string expected.\n"),'cd',1));
14     end 
15         path=stripblanks(path)
16     if or(path==['PWD' 'SCIHOME']) then path=evstr(path),end
17     if MSDOS then 
18       if or(path==['WSCI']) then path=evstr(path),end
19     end
20     if or(path==['SCI' '~' 'TMPDIR' 'home' ]) path=path+'/',end
21     
22     if or(path==['/' '\' '..']) then
23       chdir(path)
24     else
25       if ~isdir(path) then
26         error(msprintf(gettext("%s: Cannot go to directory %s\n"),'cd',path),998);
27       end
28       chdir(path)
29     end 
30   else 
31     chdir(home);
32   end
33   path=pwd();
34 endfunction