Mercurial > hg > octave-max
diff scripts/miscellaneous/copyfile.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 20 Jan 2011 17:35:29 -0500 |
| parents | fd0a3ac60b0e |
| children | 11faa69c4eaa |
line wrap: on
line diff
--- a/scripts/miscellaneous/copyfile.m +++ b/scripts/miscellaneous/copyfile.m @@ -74,7 +74,7 @@ if (length(f1) > 1 && ! isdir) error ("copyfile: when copying multiple files, second argument must be a directory"); endif - + ## Protect the file name(s). f1 = glob (f1); if (isempty (f1)) @@ -88,11 +88,11 @@ while (! isempty(f1)) p1 = sprintf ("\"%s\" ", f1{1}); f1(1) = []; - while (!isempty (f1) && (length(p1) + length(f1{1}) + l2 < + while (!isempty (f1) && (length(p1) + length(f1{1}) + l2 < max_cmd_line)) p1 = sprintf ("%s\"%s\" ", p1, f1{1}); f1(1) = []; - endwhile + endwhile if (ispc () && ! isunix () && ! isempty (file_in_path (getenv ("PATH"), "cp.exe")))