Localization (fileio)
[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         path=stripblanks(path)
13     if or(path==['PWD' 'SCIHOME']) then path=evstr(path),end
14     if MSDOS then 
15       if or(path==['WSCI']) then path=evstr(path),end
16     end
17     if or(path==['SCI' '~' 'TMPDIR' 'home' ]) path=path+'/',end
18     
19     if or(path==['/' '\' '..']) then
20       chdir(path)
21     else
22       if ~isdir(path) then
23         error(msprintf(gettext("%s: Cannot go to directory %s\n"),'cd',path),998);
24       end
25       chdir(path)
26     end 
27   else 
28     chdir(home);
29   end
30   path=pwd();
31 endfunction