Mercurial > hg > octave-lyh

comparison scripts/miscellaneous/untar.m @ 11469:c776f063fefe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Overhaul m-script files to use common variable name between code and documentation.
author Rik <octave@nomad.inbox5.com>
date Sun, 09 Jan 2011 12:41:21 -0800
parents eb63fbe60fab
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11468:e1edf0ba3bcb 11469:c776f063fefe
24 ## @end deftypefn 24 ## @end deftypefn
25 25
26 ## Author: Søren Hauberg <hauberg@gmail.com> 26 ## Author: Søren Hauberg <hauberg@gmail.com>
27 ## Adapted-By: jwe, Bill Denney 27 ## Adapted-By: jwe, Bill Denney
28 28
29 function varargout = untar (files, outputdir) 29 function varargout = untar (tarfile, dir = ".")
30 30
31 if (! (nargin == 1 || nargin == 2)) 31 if (nargin != 1 && nargin != 2)
32 print_usage (); 32 print_usage ();
33 endif
34
35 if (nargin == 1)
36 outputdir = ".";
37 endif 33 endif
38 34
39 if (nargout > 0) 35 if (nargout > 0)
40 varargout = cell (1, nargout); 36 varargout = cell (1, nargout);
41 [varargout{:}] = unpack (files, outputdir, mfilename ()); 37 [varargout{:}] = unpack (tarfile, dir, mfilename ());
42 else 38 else
43 unpack (files, outputdir, mfilename ()); 39 unpack (tarfile, dir, mfilename ());
44 endif 40 endif
45 41
46 endfunction 42 endfunction