bug 3598
[scilab.git] / scilab / modules / fileio / macros / ls.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA - Serge STEER
3 // Copyright (C) INRIA - Allan CORNET
4 // Copyright (C) INRIA - Sylvestre LEDRU
5 //
6 // This file must be used under the terms of the CeCILL.
7 // This source file is licensed as described in the file COPYING, which
8 // you should have received as part of this distribution.  The terms
9 // are also available at    
10 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11
12 function files=ls(varargin)
13         
14         // interface to ls
15         
16         opts=[];
17         
18         if size(varargin)==0 then
19                 path = "./";
20         else
21                 path = varargin(1);
22                 if type(path) <> 10 then 
23       error(999,msprintf(_("%s: Wrong type for input argument #%d: A string expected.\n"),'ls',1));
24     end 
25                 for k=2:size(varargin)
26                         opts = [opts varargin(k)];
27                 end
28         end
29         
30         if size(opts,'*')<>0 then
31                 warning(msprintf(gettext("%s: Options ignored.\n"),"ls"));
32         end
33         
34         if or(path==['PWD' 'SCIHOME']) then path=evstr(path),end
35         
36         if MSDOS then 
37     if or(path==['WSCI']) then path=evstr(path),end
38   end
39   if or(path==['SCI' '~' 'TMPDIR' 'home' ]) path=path+'/',end
40         
41         // dir returns names without the dirname
42         files = listfiles(path);
43         
44 endfunction