Mercurial > octave-dspies
view scripts/miscellaneous/ls.m @ 19010:3fb030666878 draft default tip dspies
Added special-case logical-indexing function
* logical-index.h (New file) : Logical-indexing function. May be called on
octave_value types via call_bool_index
* nz-iterators.h : Add base-class nz_iterator for iterator types. Array has
template bool for whether to internally store row-col or compute on the fly
Add skip_ahead method which skips forward to the next nonzero after its
argument
Add flat_index for computing octave_idx_type index of current position (with
assertion failure in the case of overflow)
Move is_zero to separate file
* ov-base-diag.cc, ov-base-mat.cc, ov-base-sparse.cc, ov-perm.cc
(do_index_op): Add call to call_bool_index in logical-index.h
* Array.h : Move forward-declaration for array_iterator to separate header file
* dim-vector.cc (dim_max): Refers to idx-bounds.h (max_idx)
* array-iter-decl.h (New file): Header file for forward declaration of
array-iterator
* direction.h : Add constants fdirc and bdirc to avoid having to reconstruct
them
* dv-utils.h, dv-utils.cc (New files) :
Utility functions for querying and constructing dim-vectors
* idx-bounds.h (New file) :
Utility constants and functions for determining whether things will overflow
the maximum allowed bounds
* interp-idx.h (New function : to_flat_idx) : Converts row-col pair to linear
index of octave_idx_type
* is-zero.h (New file) : Function for determining whether an element is zero
* logical-index.tst : Add tests for correct return-value dimensions and large
sparse matrix behavior
author | David Spies <dnspies@gmail.com> |
---|---|
date | Fri, 25 Jul 2014 13:39:31 -0600 |
parents | b517b08d2e24 |
children |
line wrap: on
line source
## 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 ()) idx = ! strncmp (args, '/', 1); ## Enclose paths, potentially having spaces, in double quotes: args(idx) = strcat ('"', args(idx), '"'); ## shell (cmd.exe) on MinGW uses '^' as escape character args = regexprep (args, '([^\w.*?])', '^$1'); else ## Escape any special characters in filename 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)