Mercurial > octave

annotate scripts/miscellaneous/mkdir.m @ 30239:120e878f343f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mkdir.m: issue a warning if DIR already exists (bug #61338) * mkdir.m: When nargout==0, check status message and report a warning if "directory exists" message found.
author Rik <rik@octave.org>
date Wed, 13 Oct 2021 08:05:14 -0700
parents 6ed1f02621e2
children ba4aebad10d1
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);
30239
120e878f343f mkdir.m: issue a warning if DIR already exists (bug #61338)
Rik <rik@octave.org>
parents: 30214
diff changeset
75 elseif (strcmp (msg, "directory exists"))
120e878f343f mkdir.m: issue a warning if DIR already exists (bug #61338)
Rik <rik@octave.org>
parents: 30214
diff changeset
76 warning ("mkdir: directory exists\n");
28062
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
77 endif
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
78 else
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
79 status = sts;
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
80 endif
21696
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 endfunction
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
83
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
84 ## 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
85 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
86
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
87 status = 1;
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
88
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
89 if (isempty (parent))
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
90 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
91 endif
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
92
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
93 if (! isfolder (parent))
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
94 [grandparent, name, ext] = fileparts (parent);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
95 [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
96 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
97
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
98 if (status)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
99 [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
100 endif
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 endfunction
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
103
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
104
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
105 %!test
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
106 %! dir1 = tempname ();
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
107 %! dir2 = "%_unlikely_name_%";
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
108 %! dir = fullfile (dir1, dir2);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
109 %! unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
110 %! status = mkdir (dir);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
111 %! assert (status);
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
112 %! assert (isfolder (dir));
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
113 %! unwind_protect_cleanup
21937
55f7de37b618 maint: Strip trailing whitespace from source files.
John W. Eaton <jwe@octave.org>
parents: 21696
diff changeset
114 %! 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
115 %! sts = rmdir (dir1, "s");
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
116 %! end_unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
117
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
118 %!test <*53031>
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
119 %! HOME = getenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
120 %! tmp_dir = tempname ();
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
121 %! unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
122 %! mkdir (tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
123 %! setenv ("HOME", tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
124 %! status = mkdir ("~/subdir");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
125 %! assert (status);
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
126 %! 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
127 %! 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
128 %! 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
129 %! sts = rmdir (tmp_dir);
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
130 %! if (isempty (HOME))
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
131 %! unsetenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
132 %! else
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
133 %! setenv ("HOME", HOME);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
134 %! endif
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
135 %! end_unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
136
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
137 ## 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
138 %!error <Invalid call> mkdir ()