1## Copyright (C) 2004, 2006, 2007 Alois Schloegl 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} {} isdir (@var{f}) 21## Return true if @var{f} is a directory. 22## @end deftypefn 23 24function t = isdir (x) 25 if (nargin == 1) 26 ## Exist returns an integer but isdir should return a logical. 27 t = exist (x, "dir") == 7; 28 else 29 print_usage ("isdir"); 30 endif 31endfunction 32