Mercurial > octave-antonio
diff scripts/miscellaneous/gzip.m @ 12499:a3019189ac51
Improve file archiving functions (gzip, bzip2, zip, unpack)
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Thu, 03 Mar 2011 11:59:05 -0800 |
parents | c792872f8942 |
children | 8f2056646dba |
line wrap: on
line diff
--- a/scripts/miscellaneous/gzip.m Thu Mar 03 09:46:00 2011 -0800 +++ b/scripts/miscellaneous/gzip.m Thu Mar 03 11:59:05 2011 -0800 @@ -28,21 +28,22 @@ ## @end deftypefn function entries = gzip (varargin) - if (nargin == 1 || nargin == 2) && (nargout <= 1) - if nargout == 0 - __xzip__ ("gzip", "gz", "gzip -r %s", varargin{:}); - else - entries = __xzip__ ("gzip", "gz", "gzip -r %s", varargin{:}); - endif - else + if (nargin != 1 && nargin != 2) || (nargout > 1) print_usage (); endif + + if (nargout == 0) + __xzip__ ("gzip", "gz", "gzip -r %s", varargin{:}); + else + entries = __xzip__ ("gzip", "gz", "gzip -r %s", varargin{:}); + endif + endfunction %!error <Invalid call to gzip. Correct usage is> gzip("1", "2", "3"); %!error <Invalid call to gzip. Correct usage is> gzip(); %!error <output directory does not exist> gzip("1", tmpnam); -%!error <expecting FILES to be a character array> gzip(1); +%!error <FILES must be a character array or cellstr> gzip(1); %!xtest %! # test gzip together with gunzip %! unwind_protect