Mercurial > forge

changeset 2670:8549e9aa5fbb octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Exists already in octave.
author sis-sou
date Thu, 12 Oct 2006 21:14:16 +0000
parents 0c363d6d472d
children 0582de6ef41c
files main/miscellaneous/inst/unzip.m
diffstat 1 files changed, 0 insertions(+), 32 deletions(-) [+]
line wrap: on
line diff
--- a/main/miscellaneous/inst/unzip.m	Thu Oct 12 20:28:49 2006 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,32 +0,0 @@
-function unzip(zipfile)
-	
-  if (nargin == 1)
-
-
-    if (ischar (zipfile))
-
-      cmd = sprintf ("unzip %s ", zipfile);
-
-      [status, output] = system (cmd);
-
-      if (status == 0)
-	if (nargout > 0)
-	  if (output(end) == "\n")
-	    output(end) = [];
-	  endif
-          entries = cellstr (split (output, "\n"));
-	  entries = entries';
-	endif
-      else
-	error ("unzip: unzip exited with status = %d", status);
-      endif
-    
-    else
-      error ("unzip: expecting an argument to be character strings");
-    endif
-
-  else
-		usage(" unzip(zipfiles)");
-  endif
-
-endfunction
\ No newline at end of file