Mercurial > hg > octave-max

changeset 4266:1086ac09a411

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-01-03 06:22:54 by jwe]
author jwe
date Fri, 03 Jan 2003 06:22:55 +0000
parents 48897c78c52b
children 7cd865a8c815
files scripts/ChangeLog scripts/miscellaneous/fileparts.m scripts/miscellaneous/fullfile.m scripts/miscellaneous/tempdir.m scripts/miscellaneous/tempname.m src/ChangeLog src/dirfns.cc
diffstat 7 files changed, 84 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,5 +1,9 @@
 2003-01-03  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
+	* miscellaneous/tempname.m: New file.
+
+	* miscellaneous/tempdir.m: New file.
+
 	* miscellaneous/fullfile.m: New file.
 
 2003-01-02  John W. Eaton  <jwe@bevo.che.wisc.edu>
--- a/scripts/miscellaneous/fileparts.m
+++ b/scripts/miscellaneous/fileparts.m
@@ -18,7 +18,7 @@
 ## 02111-1307, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Built-in Function} {[@var{dir}, @var{name}, @var{ext}, @var{ver}]} fnmatch (@var{filename})
+## @deftypefn {Built-in Function} {[@var{dir}, @var{name}, @var{ext}, @var{ver}] =} fileparts (@var{filename})
 ## Return the directory, name, extension, and version components of
 ## @var{filename}.
 ## @end deftypefn
--- a/scripts/miscellaneous/fullfile.m
+++ b/scripts/miscellaneous/fullfile.m
@@ -18,7 +18,7 @@
 ## 02111-1307, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Built-in Function} {[@var{dir}, @var{name}, @var{ext}, @var{ver}]} fnmatch (@var{filename})
+## @deftypefn {Built-in Function} {[@var{dir}, @var{name}, @var{ext}, @var{ver}] =} fullfile (@var{filename})
 ## Return the directory, name, extension, and version components of
 ## @var{filename}.
 ## @end deftypefn
new file mode 100644
--- /dev/null
+++ b/scripts/miscellaneous/tempdir.m
@@ -0,0 +1,33 @@
+## Copyright (C) 2003 John W. Eaton
+##
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2, or (at your option)
+## any later version.
+##
+## Octave is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with Octave; see the file COPYING.  If not, write to the Free
+## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+## 02111-1307, USA.
+
+## -*- texinfo -*-
+## @deftypefn {Built-in Function} {[@var{dir}, @var{name}, @var{ext}, @var{ver}] =} fullfile (@var{filename})
+## Return the directory, name, extension, and version components of
+## @var{filename}.
+## @end deftypefn
+
+function dirname = tempdir ()
+
+  dirname = getenv ("TMPDIR");
+  if (length (dirname) == 0)
+    dirname = P_tmpdir;
+  endif
+
+endfunction
new file mode 100644
--- /dev/null
+++ b/scripts/miscellaneous/tempname.m
@@ -0,0 +1,29 @@
+## Copyright (C) 2003 John W. Eaton
+##
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2, or (at your option)
+## any later version.
+##
+## Octave is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with Octave; see the file COPYING.  If not, write to the Free
+## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+## 02111-1307, USA.
+
+## -*- texinfo -*-
+## @deftypefn {Built-in Function} {filename = } tempname ()
+## This function is an alias for @code{tmpnam}.
+## @end deftypefn
+
+function filename = tempname ()
+
+  filename = tmpnam ();
+
+endfunction
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-03  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* dirfns.cc (symbols_of_dirfns): Install new built-in constant
+	P_tmpdir.
+
 2003-01-02  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* dirfns.cc (symbols_of_dirfns): New function.
--- a/src/dirfns.cc
+++ b/src/dirfns.cc
@@ -648,6 +648,17 @@
 of this variable is system dependent.\n\
 @end defvr");
 
+#if ! defined (P_tmpdir)
+#define P_tmpdir "/tmp"
+#endif
+
+  DEFCONSTX ("P_tmpdir", SBV_P_tmpdir, P_tmpdir,
+    "-*- texinfo -*-\n\
+@defvr {Built-in Variable} P_tmpdir\n\
+The default name of the directory for temporary files on this system.\n\
+of this variable is system dependent.\n\
+@end defvr");
+
 }
 
 /*