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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
## Copyright (C) 2006-2013 John W. Eaton
##
## This file is part of Octave.
##
## Octave is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or (at
## your option) any later version.
##
## Octave is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with Octave; see the file COPYING. If not, see
## <http://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {Command} {} ls
## @deftypefnx {Command} {} ls filenames
## @deftypefnx {Command} {} ls options
## @deftypefnx {Command} {} ls options filenames
## List directory contents. For example:
##
## @example
## @group
## ls -l
## @print{} total 12
## @print{} -rw-r--r-- 1 jwe users 4488 Aug 19 04:02 foo.m
## @print{} -rw-r--r-- 1 jwe users 1315 Aug 17 23:14 bar.m
## @end group
## @end example
##
## The @code{dir} and @code{ls} commands are implemented by calling your
## system's directory listing command, so the available options will vary
## from system to system.
##
## Filenames are subject to shell expansion if they contain any wildcard
## characters @samp{*}, @samp{?}, @samp{[]}. If you want to find a
## literal example of a wildcard character you must escape it using the
## backslash operator @samp{\}.
## @seealso{dir, readdir, glob, what, stat, filesep, ls_command}
## @end deftypefn
## Author: jwe
function retval = ls (varargin)
global __ls_command__;
if (isempty (__ls_command__) || ! ischar (__ls_command__))
## Initialize value for __ls_command__.
ls_command ();
endif
if (! iscellstr (varargin))
error ("ls: all arguments must be character strings");
endif
if (nargin > 0)
args = tilde_expand (varargin);
if (ispc () && ! isunix ())
## shell (cmd.exe) on MinGW uses '^' as escape character
args = regexprep (args, '([^\w.*? -])', '^$1');
else
args = regexprep (args, '([^\w.*?-])', '\\$1');
endif
args = sprintf ("%s ", args{:});
else
args = "";
endif
cmd = sprintf ("%s %s", __ls_command__, args);
if (page_screen_output () || nargout > 0)
[status, output] = system (cmd);
if (status != 0)
error ("ls: command exited abnormally with status %d\n", status);
elseif (nargout == 0)
puts (output);
elseif (isempty (output))
retval = "";
else
retval = strvcat (regexp (output, '\S+', 'match'){:});
endif
else
## Just let the output flow if the pager is off. That way the
## output from things like "ls -R /" will show up immediately and
## we won't have to buffer all the output.
system (cmd);
endif
endfunction
%!test
%! list = ls ();
%! assert (ischar (list));
%! assert (! isempty (list));
%!error ls (1)
|
