octave_packages/m/miscellaneous/ls_command.m

   1 ## Copyright (C) 2006-2012 John W. Eaton
   2 ##
   3 ## This file is part of Octave.
   4 ##
   5 ## Octave is free software; you can redistribute it and/or modify it
   6 ## under the terms of the GNU General Public License as published by
   7 ## the Free Software Foundation; either version 3 of the License, or (at
   8 ## your option) any later version.
   9 ##
  10 ## Octave is distributed in the hope that it will be useful, but
  11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 ## General Public License for more details.
  14 ##
  15 ## You should have received a copy of the GNU General Public License
  16 ## along with Octave; see the file COPYING.  If not, see
  17 ## <http://www.gnu.org/licenses/>.
  18
  19 ## -*- texinfo -*-
  20 ## @deftypefn  {Function File} {@var{val} =} ls_command ()
  21 ## @deftypefnx {Function File} {@var{old_val} =} ls_command (@var{new_val})
  22 ## Query or set the shell command used by Octave's @code{ls} command.
  23 ## @seealso{ls}
  24 ## @end deftypefn
  25
  26 ## Author: jwe
  27
  28 function old_cmd = ls_command (cmd)
  29
  30   global __ls_command__;
  31
  32   if (isempty (__ls_command__))
  33     ## MinGW uses different ls_command
  34     if (ispc () && ! isunix ()
  35         && isempty (file_in_path (getenv ("PATH"), "ls")))
  36       __ls_command__ = "dir /D";
  37     else
  38       __ls_command__ = "ls -C";
  39     endif
  40   endif
  41
  42   if (nargin == 0 || nargin == 1)
  43
  44     old_cmd = __ls_command__;
  45
  46     if (nargin == 1)
  47       if (ischar (cmd))
  48         __ls_command__ = cmd;
  49       else
  50         error ("ls_command: expecting argument to be a character string");
  51       endif
  52     endif
  53
  54   endif
  55
  56 endfunction
  57
  58
  59 %!test
  60 %! cmd = ls_command ();
  61 %! assert (ischar (cmd));
  62 %! if (ispc () && ! isunix ())
  63 %!   assert (cmd(1:3), "dir");
  64 %! else
  65 %!   assert (cmd(1:2), "ls");
  66 %! endif
  67