# HG changeset patch
# User jwe
# Date 820993205 0
# Node ID 6bb0c67bbf2483edd664c97b4861e55e888d8842
# Parent  1eb115526def9a3851db8323d5dcb6eea939570f
[project @ 1996-01-07 05:40:05 by jwe]

diff --git a/src/sysdep.cc b/src/sysdep.cc
--- a/src/sysdep.cc
+++ b/src/sysdep.cc
@@ -558,6 +558,46 @@
   return retval;
 }
 
+// XXX FIXME XXX -- this should be smart, like the xputenv function in
+// the kpathsea library.
+
+DEFUN ("putenv", Fputenv, Sputenv, 10,
+  "putenv (VAR, VALUE): define environment variable VAR=VALUE")
+{
+  Octave_object retval;
+
+  int nargin = args.length ();
+
+  if (nargin == 2)
+    {
+      const char *var = args(0).string_value (); 
+
+      if (! error_state)
+	{
+	  const char *val = args(1).string_value (); 
+
+	  if (! error_state)
+	    {
+	      int buflen = strlen (var) + strlen (val) + 2;
+
+	      char *buf = new char [buflen];
+
+	      sprintf (buf, "%s=%s", var, val);
+
+	      putenv (buf);
+	    }
+	  else
+	    error ("putenv: second argument should be a string");
+	}
+      else
+	error ("putenv: first argument should be a string");
+    }
+  else
+    print_usage ("putenv");
+
+  return retval;
+}
+
 DEFUN ("kbhit", Fkbhit, Skbhit, 00,
   "kbhit: get a single character from the terminal")
 {