Mercurial > octave
view scripts/miscellaneous/zip.m @ 31237:e3016248ca5d
uifigure.m: Call set () only if varargin is not empty (bug #63088)
* uifigure.m: Call set () only if varargin is not empty.
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Wed, 21 Sep 2022 09:55:32 -0400 |
parents | 796f54d4ddbf |
children | 597f3ee61a48 |
line wrap: on
line source
######################################################################## ## ## Copyright (C) 2006-2022 The Octave Project Developers ## ## See the file COPYRIGHT.md in the top-level directory of this ## distribution or <https://octave.org/copyright/>. ## ## This file is part of Octave. ## ## Octave is free software: you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation, either version 3 of the License, or ## (at your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## GNU General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <https://www.gnu.org/licenses/>. ## ######################################################################## ## -*- texinfo -*- ## @deftypefn {} {@var{filelist} =} zip (@var{zipfile}, @var{files}) ## @deftypefnx {} {@var{filelist} =} zip (@var{zipfile}, @var{files}, @var{rootdir}) ## Compress the list of files and directories specified in @var{files} into the ## ZIP archive @var{zipfile}. ## ## @var{files} is a character array or cell array of strings. Shell ## wildcards in the filename such as @samp{*} or @samp{?} are accepted and ## expanded. Directories are recursively traversed and all files are ## compressed and added to the archive. ## ## If @var{rootdir} is defined then any files without absolute pathnames are ## located relative to @var{rootdir} rather than the current directory. ## ## The optional output @var{filelist} is a list of the files that were included ## in the archive. ## @seealso{unzip, unpack, bzip2, gzip, tar} ## @end deftypefn function filelist = zip (zipfile, files, rootdir = ".") if (nargin < 2) print_usage (); endif if (! ischar (zipfile)) error ("zip: ZIPFILE must be a string"); elseif (ischar (files)) files = cellstr (files); elseif (! iscellstr (files)) error ("zip: FILES must be a character array or cellstr"); endif rootdir = tilde_expand (rootdir); zipfile = make_absolute_filename (zipfile); ## FIXME: This is a lot of processing that could be done by the shell ## if Octave had a way to call system without passing a single string. ## Escape bad shell characters files = regexprep (files, "([|&;<>()$`\\'\" ])", '\\$1'); files = sprintf (' %s', files{:}); # convert to space separated list zipfile = regexprep (zipfile, "'", "\\'"); # escape single quotes cmd = sprintf ("zip -r '%s' %s", zipfile, files); if (ispc () && ! isunix ()) cmd = strrep (cmd, '\', '/'); endif origdir = pwd (); cd (rootdir); [status, output] = system (cmd); cd (origdir); if (status) error ("zip: zip failed with exit status = %d", status); endif if (nargout > 0) cmd = sprintf ("unzip -Z -1 '%s'", zipfile); [status, filelist] = system (cmd); if (status) error ("zip: zipinfo failed with exit status = %d", status); endif filelist = ostrsplit (filelist, "\r\n", true); endif endfunction ## FIXME: This test may fail if the zip or unzip command is not installed. ## If this test fails, it might be better to change it into a testif ## with a runtime condition on the zip and unzip programs. %!test %! ## test zip together with unzip %! unwind_protect %! filename = tempname (); %! tmp_var = pi; %! save (filename, "tmp_var"); %! dirname = tempname (); %! mkdir (dirname); %! zipfile = tempname (); %! [~, basename, ext] = fileparts (filename); %! filelist = zip (zipfile, [basename ext], tempdir); %! filelist = filelist{1}; %! if (! strcmp (filelist, [basename ext])) %! error ("zip archive does not contain expected name!"); %! endif %! if (! exist ([zipfile ".zip"], "file")) %! error ("zip file cannot be found!"); %! endif %! unzip ([zipfile ".zip"], dirname); %! fid = fopen (filename, "rb"); %! assert (fid >= 0); %! orig_data = fread (fid); %! fclose (fid); %! fid = fopen ([dirname filesep basename ext], "rb"); %! assert (fid >= 0); %! new_data = fread (fid); %! fclose (fid); %! if (orig_data != new_data) %! error ("unzipped file not equal to original file!"); %! endif %! unwind_protect_cleanup %! sts = unlink (filename); %! sts = unlink ([dirname, filesep, basename, ext]); %! sts = unlink (zipfile); %! sts = unlink ([zipfile ".zip"]); %! sts = rmdir (dirname); %! end_unwind_protect ## Test input validation %!error <Invalid call> zip () %!error <Invalid call> zip (1) %!error <ZIPFILE must be a string> zip (1, "foobar") %!error <FILES must be a character array or cellstr> zip ("foobar", 1)