Mercurial > hg > octave-lyh
annotate scripts/general/isdir.m @ 15202:f3b5cadfd6d5
fix missing semicolons in various .m files
* playaudio.m, accumarray.m, accumdim.m, bicubic.m, narginchk.m,
nargoutchk.m, nthargout.m, image.m, pkg.m, colorbar.m, hdl2struct.m,
legend.m, plotyy.m, private/__go_draw_axes__.m,
private/__print_parse_opts__.m, shrinkfaces.m, pchip.m, polyval.m,
rundemos.m: Fix lines with missing semicolons.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sun, 19 Aug 2012 10:50:40 -0400 |
parents | f3d52523cde1 |
children | 1c89599167a6 |
rev | line source |
---|---|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
12795
diff
changeset
|
1 ## Copyright (C) 2004-2012 Alois Schloegl |
5820 | 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 | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
5820 | 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 | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
5820 | 18 |
19 ## -*- texinfo -*- | |
20 ## @deftypefn {Function File} {} isdir (@var{f}) | |
21 ## Return true if @var{f} is a directory. | |
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
7017
diff
changeset
|
22 ## @seealso{is_absolute_filename, is_rooted_relative_filename} |
5820 | 23 ## @end deftypefn |
24 | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11431
diff
changeset
|
25 function retval = isdir (f) |
12604
132c89bb44e3
maint: Refactor general/isXXX.m scripts to put input validation first.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
26 if (nargin != 1) |
5820 | 27 print_usage ("isdir"); |
28 endif | |
12604
132c89bb44e3
maint: Refactor general/isXXX.m scripts to put input validation first.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
29 |
132c89bb44e3
maint: Refactor general/isXXX.m scripts to put input validation first.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
30 ## Exist returns an integer but isdir should return a logical. |
132c89bb44e3
maint: Refactor general/isXXX.m scripts to put input validation first.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
31 retval = (exist (f, "dir") == 7); |
132c89bb44e3
maint: Refactor general/isXXX.m scripts to put input validation first.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
32 |
5820 | 33 endfunction |
12795
9e7ebbaf69ff
codesprint: new tests for files in scripts/general directory
John W. Eaton <jwe@octave.org>
parents:
12604
diff
changeset
|
34 |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
35 %!assert (isdir (pwd ())) |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
36 %!assert (! isdir ("this is highly unlikely to be a directory name")) |
12795
9e7ebbaf69ff
codesprint: new tests for files in scripts/general directory
John W. Eaton <jwe@octave.org>
parents:
12604
diff
changeset
|
37 |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
38 %!error isdir () |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
39 %!error isdir (1, 2) |
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
40 |