Mercurial > octave-nkf

diff scripts/miscellaneous/unpack.m @ 7540:3422f39573b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strcat.m: Matlab compatibility, with cstrcat.m replacing conventional strcat.m.
author Ben Abbott <bpabbott@mac.com>
date Thu, 28 Feb 2008 02:41:19 -0500
parents 3feb6e9643cd
children dc62132651db
line wrap: on
line diff
--- a/scripts/miscellaneous/unpack.m	Thu Feb 28 02:17:05 2008 -0500
+++ b/scripts/miscellaneous/unpack.m	Thu Feb 28 02:41:19 2008 -0500
@@ -60,7 +60,7 @@
 	[tmppathstr, tmpname, tmpext] = fileparts (name);
 	if (strcmpi (tmpext, ".tar"))
 	  name = tmpname;
-	  ext = strcat (tmpext, ext);
+	  ext = cstrcat (tmpext, ext);
 	endif
       endif
 
@@ -71,7 +71,7 @@
 	urlfile = file;
 	## FIXME -- should we name the file that we download with the
 	## same file name as the url requests?
-	tmpfile = strcat (tmpnam (), ext);
+	tmpfile = cstrcat (tmpnam (), ext);
 	[file, success, msg] = urlwrite (urlfile, tmpfile);
 	if (! success)
 	  error ("unpack: could not get \"%s\": %s", urlfile, msg);
@@ -172,7 +172,7 @@
 
   unwind_protect
     cd (directory);
-    [status, output] = system (sprintf (strcat (command, " 2>&1"), file));
+    [status, output] = system (sprintf (cstrcat (command, " 2>&1"), file));
   unwind_protect_cleanup
     cd (origdir);
   end_unwind_protect