diff src/file-io.cc @ 2936:87cb7614257d

[project @ 1997-05-06 05:46:00 by jwe]
author jwe
date Tue, 06 May 1997 05:46:00 +0000
parents 66ef74ee5d9f
children 38de16594cb4
line wrap: on
line diff
--- a/src/file-io.cc
+++ b/src/file-io.cc
@@ -1274,13 +1274,21 @@
 }
 
 DEFUN (tmpnam, args, ,
- "tmpnam ()\n\
+ "tmpnam (DIR, PREFIX)\n\
 Return unique temporary file name.")
 {
   octave_value retval;
 
-  if (args.length () == 0)
-    retval = file_ops::tempnam ();
+  int len = args.length ();
+
+  if (len < 3)
+    {
+      string dir = len > 0 ? args(0).string_value () : string ();
+      string pfx = len > 1 ? args(1).string_value () : string ("oct-");
+
+      if (! error_state)
+	retval = file_ops::tempnam (dir, pfx);
+    }
   else
     print_usage ("tmpnam");