Mercurial > octave-nkf
diff src/sysdep.cc @ 7759:84a7f00586aa
Alias setenv to putenv. Allow single arg to putenv
| author | David Bateman <dbateman@free.fr> |
|---|---|
| date | Mon, 05 May 2008 11:20:02 -0400 |
| parents | 2eb392d058bb |
| children | 0ef13e15319b |
line wrap: on
line diff
--- a/src/sysdep.cc Mon May 05 03:21:52 2008 -0400 +++ b/src/sysdep.cc Mon May 05 11:20:02 2008 -0400 @@ -623,6 +623,7 @@ DEFUN (putenv, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} putenv (@var{var}, @var{value})\n\ +@deftypefnx {Built-in Function} {} setenv (@var{var}, @var{value})\n\ Set the value of the environment variable @var{var} to @var{value}.\n\ @end deftypefn") { @@ -630,13 +631,14 @@ int nargin = args.length (); - if (nargin == 2) + if (nargin == 2 || nargin == 1) { std::string var = args(0).string_value (); if (! error_state) { - std::string val = args(1).string_value (); + std::string val = (nargin == 2 + ? args(1).string_value () : std::string ()); if (! error_state) octave_env::putenv (var, val); @@ -651,6 +653,7 @@ return retval; } +DEFALIAS (setenv, putenv); // FIXME -- perhaps kbhit should also be able to print a prompt?