Mercurial > octave

annotate scripts/miscellaneous/mkdir.m @ 30241:ba4aebad10d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Return logical status variable from file functions for Matlab compatibility. * NEWS: Announce change. * dirfns.cc (Frmdir): Update documentation. Change return status to true/false rather than 1.0/0.0. * copyfile.m: Update documentation. Change internal variable "sts" to logical variable. Change any assignments to status to true/false. * movefile.m: Update documentation. Change internal variable "sts" to logical variable. Change any assignments to status to true/false. * mkdir.m: Update documentation. * mkdir.m (mkdir_recur): Change internal variable "status" to logical.
author Rik <rik@octave.org>
date Wed, 13 Oct 2021 10:36:20 -0700
parents 120e878f343f
children 796f54d4ddbf
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 ##
30241
ba4aebad10d1 Return logical status variable from file functions for Matlab compatibility.
Rik <rik@octave.org>
parents: 30239
diff changeset
36 ## If successful, @var{status} is logical 1, and @var{msg}, @var{msgid} are
ba4aebad10d1 Return logical status variable from file functions for Matlab compatibility.
Rik <rik@octave.org>
parents: 30239
diff changeset
37 ## empty character strings (""). Otherwise, @var{status} is logical 0,
ba4aebad10d1 Return logical status variable from file functions for Matlab compatibility.
Rik <rik@octave.org>
parents: 30239
diff changeset
38 ## @var{msg} contains a system-dependent error message, and @var{msgid}
ba4aebad10d1 Return logical status variable from file functions for Matlab compatibility.
Rik <rik@octave.org>
parents: 30239
diff changeset
39 ## contains a unique message identifier. Note that the status code is exactly
ba4aebad10d1 Return logical status variable from file functions for Matlab compatibility.
Rik <rik@octave.org>
parents: 30239
diff changeset
40 ## opposite that of the @code{system} command.
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
41 ##
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
42 ## 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
43 ## @w{@code{0777 - UMASK}}.
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
44 ##
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
45 ## @seealso{rmdir, pwd, cd, umask}
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
46 ## @end deftypefn
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
47
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
48 ## 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
49 ## 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
50 ## into Octave.
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
51
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
52 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
53
28789
28de41192f3c Eliminate unneeded verification of nargin, nargout in m-files.
Rik <rik@octave.org>
parents: 28087
diff changeset
54 if (nargin < 1)
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
55 print_usage ();
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
56 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
57
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
58 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
59
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
60 if (nargin == 1)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
61 dirname = parent;
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
62 else
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
63 dirname = fullfile (parent, dirname);
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
64 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
65
30211
54520422f056 simplify mkdir and allow it to create parent directory (bug #61166)
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
66 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
67
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
68 ## 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
69 [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
70
28062
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
71 [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
72
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
73 if (nargout == 0)
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
74 if (! sts)
28066
977793472fc9 mkdir.m: Use standard error message syntax when nargout == 0 (bug #57830)
Rik <rik@octave.org>
parents: 28062
diff changeset
75 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
76 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
77 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
78 endif
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
79 else
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
80 status = sts;
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799).
Rik <rik@octave.org>
parents: 27923
diff changeset
81 endif
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
82
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
83 endfunction
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 ## 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
86 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
87
30241
ba4aebad10d1 Return logical status variable from file functions for Matlab compatibility.
Rik <rik@octave.org>
parents: 30239
diff changeset
88 status = true;
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
89
26590
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
90 if (isempty (parent))
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
91 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
92 endif
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540).
Rik <rik@octave.org>
parents: 26376
diff changeset
93
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
94 if (! isfolder (parent))
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
95 [grandparent, name, ext] = fileparts (parent);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
96 [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
97 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
98
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
99 if (status)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
100 [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
101 endif
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 endfunction
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
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
106 %!test
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
107 %! dir1 = tempname ();
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
108 %! dir2 = "%_unlikely_name_%";
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
109 %! dir = fullfile (dir1, dir2);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
110 %! unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
111 %! status = mkdir (dir);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
112 %! assert (status);
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
113 %! assert (isfolder (dir));
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
114 %! unwind_protect_cleanup
21937
55f7de37b618 maint: Strip trailing whitespace from source files.
John W. Eaton <jwe@octave.org>
parents: 21696
diff changeset
115 %! 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
116 %! sts = rmdir (dir1, "s");
21696
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
117 %! end_unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650).
Lachlan Andrew <lachlanbis@gmail.com>
parents:
diff changeset
118
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
119 %!test <*53031>
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
120 %! HOME = getenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
121 %! tmp_dir = tempname ();
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
122 %! unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
123 %! mkdir (tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
124 %! setenv ("HOME", tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
125 %! status = mkdir ("~/subdir");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
126 %! assert (status);
25781
e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489)
Rik <rik@octave.org>
parents: 25054
diff changeset
127 %! 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
128 %! 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
129 %! 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
130 %! sts = rmdir (tmp_dir);
24659
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
131 %! if (isempty (HOME))
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
132 %! unsetenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
133 %! else
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
134 %! setenv ("HOME", HOME);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
135 %! endif
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
diff changeset
136 %! end_unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031)
Mike Miller <mtmiller@octave.org>
parents: 24534
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 ()