octave: scripts/miscellaneous/mkdir.m annotate

annotate scripts/miscellaneous/mkdir.m @ 27923:bd51beb6205e

update formatting of copyright notices * Use <https://octave.org/copyright/> instead of <https://octave.org/COPYRIGHT.html/>. * For consistency with other comments in the Octave sources, use C++-style comments for copyright blocks in C and C++ files. * Use delimiters above and below copyright blocks that are appropriate for the language used in the file. * Eliminate extra spacing inside copyright blocks. * lex.ll (looks_like_copyright): Also allow newlines and carriage returns before the word "Copyright". * scripts/mk-doc.pl (gethelp): Also skip empty comment lines. * bp-table.cc, type.m: Adjust tests.

author	John W. Eaton <jwe@octave.org>
date	Wed, 08 Jan 2020 11:59:41 -0500
parents	1891570abac8
children	4563c23597dd

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
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	72 [status, msg, msgid] = mkdir_recur (parent, [dirname, ext]);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	73
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	74 endfunction
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	75
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	76 ## 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	77 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	78
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	79 status = 1;
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	80
26590 7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	81 if (isempty (parent))
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	82 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	83 endif
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	84
25781 e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489) Rik <rik@octave.org> parents: 25054 diff changeset	85 if (! isfolder (parent))
21696 b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	86 [grandparent, name, ext] = fileparts (parent);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	87 [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	88 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	89
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	90 if (status)
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	91 [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	92 endif
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	93
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	94 endfunction
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
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	97 %!test
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	98 %! dir1 = tempname ();
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	99 %! dir2 = "%_unlikely_name_%";
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	100 %! dir = fullfile (dir1, dir2);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	101 %! unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	102 %! status = mkdir (dir);
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	103 %! assert (status);
25781 e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489) Rik <rik@octave.org> parents: 25054 diff changeset	104 %! assert (isfolder (dir));
21696 b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	105 %! unwind_protect_cleanup
21937 55f7de37b618 maint: Strip trailing whitespace from source files. John W. Eaton <jwe@octave.org> parents: 21696 diff changeset	106 %! 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	107 %! rmdir (dir1, "s");
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	108 %! end_unwind_protect
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	109
24659 13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	110 %!test <*53031>
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	111 %! HOME = getenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	112 %! tmp_dir = tempname ();
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	113 %! unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	114 %! mkdir (tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	115 %! setenv ("HOME", tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	116 %! status = mkdir ("~/subdir");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	117 %! assert (status);
25781 e04c56bbbace isdir.m: Make m-file a legacy function (bug #54489) Rik <rik@octave.org> parents: 25054 diff changeset	118 %! 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	119 %! unwind_protect_cleanup
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	120 %! rmdir (fullfile (tmp_dir, "subdir"));
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	121 %! rmdir (tmp_dir);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	122 %! if (isempty (HOME))
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	123 %! unsetenv ("HOME");
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	124 %! else
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	125 %! setenv ("HOME", HOME);
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	126 %! endif
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	127 %! end_unwind_protect
13d7fdaad391 mkdir: restore tilde expansion of directory argument (bug #53031) Mike Miller <mtmiller@octave.org> parents: 24534 diff changeset	128
26590 7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	129 %!test <*55540>
7f58079955b3 mkdir.m: Prevent exceeding max recursion limit on bad input (bug #55540). Rik <rik@octave.org> parents: 26376 diff changeset	130 %! 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	131
21696 b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	132 ## Test input validation
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	133 %!error mkdir ()
b8c05cc524ef mkdir.m: new script to implement recursive mkdir (bug #30650). Lachlan Andrew <lachlanbis@gmail.com> parents: diff changeset	134 %!error mkdir ("a", "b", "c")

Mercurial > octave

annotate scripts/miscellaneous/mkdir.m @ 27923:bd51beb6205e