# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1210000802 14400
# Node ID 84a7f00586aa2cb64cc8b825ff80f37ccd4401c6
# Parent  8e14a01ffe9f3d59e813e1ea579e6819f54c177a
Alias setenv to putenv. Allow single arg to putenv

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-05  David Bateman  <dbateman@free.fr>
+
+	* sysdep.cc (Fputenv): Allow single arg. Alias to setenv.
+
 2008-05-05  John W. Eaton  <jwe@octave.org>
 
 	* input.cc (Fre_read_readline_init_file): New function.
diff --git a/src/sysdep.cc b/src/sysdep.cc
--- a/src/sysdep.cc
+++ b/src/sysdep.cc
@@ -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?