Mercurial > hg > octave-lojdl
changeset 4266:1086ac09a411
[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"); + } /*