Mercurial > hg > octave-lyh
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");