Mercurial > octave

annotate scripts/miscellaneous/mkdir.m @ 30211:54520422f056

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
simplify mkdir and allow it to create parent directory (bug #61166) * mkdir.m: Always perform tilde expansion on parent. If both parent and dirname are supplied, use fullfile to concatentate with dirname. Recursively create all directories. * system.tst: New test.
author John W. Eaton <jwe@octave.org>
date Fri, 24 Sep 2021 10:46:49 -0400
parents 7854d5752dd2
children 6ed1f02621e2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ########################################################################
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 ##
29358
0a5b15007766 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 28066
diff changeset
3 ## Copyright (C) 2012-2021 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26590
diff changeset
4 ##
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 ## distribution or <https://octave.org/copyright/>.
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
7 ##
24929
996c30831e1a mkdir.m: Fix GPL header block to match rest of Octave.
Rik <rik@octave.org>
parents: 24659
diff changeset
8 ## Octave is free software: you can redistribute it and/or modify it
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
9 ## under the terms of the GNU General Public License as published by
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 23220
diff changeset
10 ## the Free Software Foundation, either version 3 of the License, or
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
11 ## (at your option) any later version.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
12 ##
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22299
diff changeset
13 ## Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22299
diff changeset
14 ## WITHOUT ANY WARRANTY; without even the implied warranty of
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
15 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
16 ## GNU General Public License for more details.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
17 ##
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
18 ## You should have received a copy of the GNU General Public License
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22299
diff changeset
19 ## along with Octave; see the file COPYING. If not, see
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 23220
diff changeset
20 ## <https://www.gnu.org/licenses/>.
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
21 ##
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
22 ########################################################################
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
23
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
24 ## -*- texinfo -*-
25040
328518881291 Add command forms to documentation of copyfile, mkdir, movefile.
Rik <rik@octave.org>
parents: 24929
diff changeset
25 ## @deftypefn {} {} mkdir @var{dirname}
328518881291 Add command forms to documentation of copyfile, mkdir, movefile.
Rik <rik@octave.org>
parents: 24929
diff changeset
26 ## @deftypefnx {} {} mkdir @var{parent} @var{dirname}
328518881291 Add command forms to documentation of copyfile, mkdir, movefile.
Rik <rik@octave.org>
parents: 24929
diff changeset
27 ## @deftypefnx {} {} mkdir (@var{dirname})
328518881291 Add command forms to documentation of copyfile, mkdir, movefile.
Rik <rik@octave.org>
parents: 24929
diff changeset
28 ## @deftypefnx {} {} mkdir (@var{parent}, @var{dirname})
22299
9fc91bb2aec3 doc: grammarcheck documentation for 4.2 release.
Rik <rik@octave.org>
parents: 21937
diff changeset
29 ## @deftypefnx {} {[@var{status}, @var{msg}, @var{msgid}] =} mkdir (@dots{})
25040
328518881291 Add command forms to documentation of copyfile, mkdir, movefile.
Rik <rik@octave.org>
parents: 24929
diff changeset
30 ## Create a directory named @var{dirname} in the directory @var{parent},
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
31 ## creating any intermediate directories if necessary.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
32 ##
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
33 ## If @var{dirname} is a relative path, and no @var{parent} directory is
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
34 ## specified, then the present working directory is used.
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
35 ##
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
36 ## If successful, @var{status} is 1, and @var{msg} and @var{msgid} are empty
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
37 ## strings (""). Otherwise, @var{status} is 0, @var{msg} contains a
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
38 ## system-dependent error message, and @var{msgid} contains a unique message
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
39 ## identifier.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
40 ##
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
41 ## When creating a directory permissions will be set to
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
42 ## @w{@code{0777 - UMASK}}.
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
43 ##
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
44 ## @seealso{rmdir, pwd, cd, umask}
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
45 ## @end deftypefn
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
46
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
47 ## There is/was a bug in gnulib's mkdir-p module under Windows.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
48 ## This file is a workaround until that is fixed and the fix incorporated
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
49 ## into Octave.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
50
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
51 function [status, msg, msgid] = mkdir (parent, dirname)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
52
28789
28de41192f3c Eliminate unneeded verification of nargin, nargout in m-files.
Rik <rik@octave.org>
parents: 28087
diff changeset
53 if (nargin < 1)
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
54 print_usage ();
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
55 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
56
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
57 parent = tilde_expand (parent);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
58
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
59 if (nargin == 1)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
60 dirname = parent;
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
61 else
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
62 dirname = fullfile (parent, dirname);
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
63 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
64
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
65 dirname = make_absolute_filename (dirname);
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
66
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
67 ## Move leading directory names from dirname to parent
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
68 [parent, dirname, ext] = fileparts (dirname);
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
69
28062
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
70 [sts, msg, msgid] = mkdir_recur (parent, [dirname, ext]);
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
71
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
72 if (nargout == 0)
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
73 if (! sts)
28066
977793472fc9 mkdir.m: Use standard error message syntax when nargout == 0 (bug #57830)
Rik <rik@octave.org>
parents: 28062
diff changeset
74 error ("mkdir: operation failed: %s", msg);
28062
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
75 endif
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
76 else
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
77 status = sts;
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
78 endif
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
79
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
80 endfunction
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
81
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
82 ## Recursively make directories until parent/dirname can be created.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
83 function [status, msg, msgid] = mkdir_recur (parent, dirname)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
84
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
85 status = 1;
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
86
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
87 if (isempty (parent))
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
88 error ("mkdir: invalid PARENT");
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
89 endif
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
90
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
91 if (! isfolder (parent))
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
92 [grandparent, name, ext] = fileparts (parent);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
93 [status, msg, msgid] = mkdir_recur (grandparent, [name, ext]);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
94 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
95
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
96 if (status)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
97 [status, msg, msgid] = __mkdir__ (parent, dirname);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
98 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
99
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
100 endfunction
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
101
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
102
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
103 %!test
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
104 %! dir1 = tempname ();
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
105 %! dir2 = "%_unlikely_name_%";
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
106 %! dir = fullfile (dir1, dir2);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
107 %! unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
108 %! status = mkdir (dir);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
109 %! assert (status);
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
110 %! assert (isfolder (dir));
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
111 %! unwind_protect_cleanup
21937
55f7de37b618 maint: Strip trailing whitespace from source files.
John W. Eaton <jwe@octave.org>
parents: 21696
diff changeset
112 %! confirm_recursive_rmdir (false, "local");
28087
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 28066
diff changeset
113 %! sts = rmdir (dir1, "s");
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
114 %! end_unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
115
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
116 %!test <*53031>
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
117 %! HOME = getenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
118 %! tmp_dir = tempname ();
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
119 %! unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
120 %! mkdir (tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
121 %! setenv ("HOME", tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
122 %! status = mkdir ("~/subdir");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
123 %! assert (status);
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
124 %! assert (isfolder (fullfile (tmp_dir, "subdir")));
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
125 %! unwind_protect_cleanup
28087
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 28066
diff changeset
126 %! sts = rmdir (fullfile (tmp_dir, "subdir"));
9cb04a9e81ec rmdir: throw an error if operation fails and nargout == 0 (bug #57830).
Rik <rik@octave.org>
parents: 28066
diff changeset
127 %! sts = rmdir (tmp_dir);
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
128 %! if (isempty (HOME))
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
129 %! unsetenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
130 %! else
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
131 %! setenv ("HOME", HOME);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
132 %! endif
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
133 %! end_unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
134
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
135 %!test <*55540>
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
136 %! fail ('mkdir ("__%hello%__", "world")', "invalid PARENT");
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
137
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
138 ## Test input validation
28896
90fea9cc9caa test: Add expected error message <Invalid call> to BIST tests for nargin.
Rik <rik@octave.org>
parents: 28789
diff changeset
139 %!error <Invalid call> mkdir ()