Mercurial > hg > octave-terminal
changeset 6115:bade9ff1814b
[project @ 2006-10-27 17:58:06 by jwe]
author | jwe |
---|---|
date | Fri, 27 Oct 2006 17:58:06 +0000 |
parents | a0dafb51dd06 |
children | b64fb24bf4a0 |
files | scripts/miscellaneous/dir.m scripts/miscellaneous/ls.m scripts/miscellaneous/ls_command.m |
diffstat | 3 files changed, 136 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/miscellaneous/dir.m +++ b/scripts/miscellaneous/dir.m @@ -45,6 +45,8 @@ ## Author: jwe +## PKG_ADD: mark_as_command dir + ## FIXME -- this is quite slow for large directories, so perhaps ## it should be converted to C++.
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/ls.m @@ -0,0 +1,77 @@ +## Copyright (C) 2006 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 2, 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, write to the Free +## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +## 02110-1301, USA. + +## -*- texinfo -*- +## @deffn {Command} ls options +## List directory contents. For example, +## +## @example +## 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 example +## +## The @code{dir} and @code{ls} commands are implemented by calling your +## system's directory listing command, so the available options may vary +## from system to system. +## @seealso{dir, stat, readdir, glob, filesep, ls_command} +## @end deffn + +## Author: jwe + +## PKG_ADD: mark_as_command ls + +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)) + + args = tilde_expand (varargin); + + cmd = sprintf ("%s ", __ls_command__, args{:}); + + if (page_screen_output ()) + + [status, output] = system (cmd); + + if (status == 0) + puts (output); + else + error ("ls: command exited abnormally with status %d", status); + 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 + + else + error ("ls: expecting all arguments to be character strings"); + endif + +endfunction
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/ls_command.m @@ -0,0 +1,57 @@ +## Copyright (C) 2006 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 2, 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, write to the Free +## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +## 02110-1301, USA. + +## -*- texinfo -*- +## @deftypefn {Function File} {[@var{old_cmd} =} ls_command (@var{cmd}) +## Set or return the shell command used by Octave's @code{ls} command. +## The value of @var{cmd} must be a character string. +## With no arguments, simply return the previous value. +## @seealso{ls} +## @end deftypefn + +## Author: jwe + +function old_cmd = ls_command (cmd) + + global __ls_command__; + + if (isempty (__ls_command__)) + ## FIXME -- ispc and isunix both return true for Cygwin. Should they? + if (ispc () && ! isunix () && isempty (file_in_path (EXEC_PATH, "ls"))) + __ls_command__ = "cmd /C dir /w"; + else + __ls_command__ = "ls -C"; + endif + endif + + if (nargin == 0 || nargin == 1) + + old_cmd = __ls_command__; + + if (nargin == 1) + if (ischar (cmd)) + __ls_command__ = cmd; + else + error ("ls_command: expecting argument to be a character string"); + endif + endif + + endif + +endfunction