Mercurial > octave-nkf
view scripts/miscellaneous/zip.m @ 19292:a4e993343e93
Overhaul the archive family (bzip2, gzip, zip, tar) of m-files.
* NEWS: Announce changes to archive family of functions.
* bunzip2.m: Redo docstring. Use common variable names between docstring and
function. Remove file from test statistics. Default to placing uncompressed
files in same directory as the compressed one.
* bzip2.m: Redo docstring. Use common variable names between docstring and
function. Add extensive BIST test.
* gunzip.m: Redo docstring. Use common variable names between docstring and
function. Remove file from test statistics. Default to placing uncompressed
files in same directory as the compressed one.
* gzip.m: Redo docstring. Remove input validation test that is no longer
applicable.
* __xzip__.m: Create output directory if it is named, but does not yet exist.
Check return code of mkdir and issue an error if it is unsuccesful. Use the
caller's name (gzip or bzip2) in error messages. Rename subfunction myfileparts
to fname_only for slightly more clarity. Add FIXME note that compression of
directories does not work.
* tar.m: Redo docstring. Use common variable names between docstring and
function. Add extensive BIST test.
* untar.m: Redo docstring. Use common variable names between docstring and
function. Remove file from test statistics. Default to placing uncompressed
files in same directory as the compressed one.
* unzip.m: Redo docstring. Use common variable names between docstring and
function. Remove file from test statistics. Default to placing uncompressed
files in same directory as the zip archive.
* zip.m: Redo docstring. Use common variable names between docstring and
function. Add extensive BIST test.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 17 Oct 2014 10:45:25 -0700 |
parents | d63878346099 |
children | db92e7e28e1f |
line wrap: on
line source
## Copyright (C) 2006-2013 Sylvain Pelissier ## ## 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 ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {@var{filelist} =} zip (@var{zipfile}, @var{files}) ## @deftypefnx {Function File} {@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 ## Author: Sylvain Pelissier <sylvain.pelissier@gmail.com> function filelist = zip (zipfile, files, rootdir = ".") if (nargin < 2 || nargin > 3) 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); cmd = sprintf ("cd %s; zip -r %s %s", rootdir, zipfile, sprintf (" %s", files{:})); [status, output] = system (cmd); if (status) error ("zip: zip failed with exit status = %d", status); endif if (nargout > 0) cmd = ["unzip -Z -1 " zipfile]; [status, filelist] = system (cmd); if (status) error ("zip: zipinfo failed with exit status = %d", status); endif if (filelist(end) == "\n") filelist(end) = []; endif filelist = ostrsplit (filelist, "\n"); endif endfunction %!xtest %! ## 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 %! delete (filename); %! delete ([dirname, filesep, basename, extension]); %! rmdir (dirname); %! end_unwind_protect ## Test input validation %!error zip () %!error zip (1) %!error zip (1,2,3,4) %!error <ZIPFILE must be a string> zip (1, "foobar") %!error <FILES must be a character array or cellstr> zip ("foobar", 1)