octave: scripts/miscellaneous/mkdir.m annotate

annotate scripts/miscellaneous/mkdir.m @ 28062:4563c23597dd

mkdir.m: Don't return status when no output requested (bug #57799). * mkdir.m: Call subfunction mkdir_recur, but store the status result in temporary variable "sts". If no outputs are requested (nargout == 0) then check "sts" and issue an error if operation failed. If output requested then assign output "status" the value of "sts".

author	Rik <rik@octave.org>
date	Fri, 14 Feb 2020 07:31:16 -0800
parents	bd51beb6205e
children	977793472fc9

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 ##
27919 1891570abac8 update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 27918 diff changeset	3 ## Copyright (C) 2012-2020 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
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	53 if (nargin < 1 \|\| nargin > 2)
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
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	57 if (nargin == 1)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	58 dirname = parent;
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	59
24659 13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	60 if (is_absolute_filename (tilde_expand (dirname)))
21696 b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	61 parent = "";
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	62 else
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	63 parent = [pwd(), filesep];
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 else
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	66 parent = [parent, filesep];
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	67 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	68
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	69 ## Move leading directory names from dirname to parent
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	70 [parent, dirname, ext] = fileparts ([parent, dirname]);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	71
28062 4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799). Rik <rik@octave.org> parents: 27923 diff changeset	72 [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	73
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799). Rik <rik@octave.org> parents: 27923 diff changeset	74 if (nargout == 0)
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799). Rik <rik@octave.org> parents: 27923 diff changeset	75 if (! sts)
4563c23597dd mkdir.m: Don't return status when no output requested (bug #57799). Rik <rik@octave.org> parents: 27923 diff changeset	76 error ("mkdir: failed to create directory");
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");
21696 b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	115 %! rmdir (dir1, "s");
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
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	128 %! rmdir (fullfile (tmp_dir, "subdir"));
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	129 %! rmdir (tmp_dir);
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
26590 7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	137 %!test <*55540>
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	138 %! 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	139
21696 b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	140 ## Test input validation
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	141 %!error mkdir ()
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	142 %!error mkdir ("a", "b", "c")

Mercurial > octave

annotate scripts/miscellaneous/mkdir.m @ 28062:4563c23597dd