Implement setting environment variables

ghcjs · Oct 21, 2014 · a924cea · a924cea
1 parent 5e11d33
commit a924cea
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/environment.js b/src/environment.js
@@ -143,6 +143,25 @@ function h$getenv(name, name_off) {
     return null;
 }
 
+function h$putenv(name, name_off) {
+    TRACE_ENV("putenv");
+#ifndef GHCJS_BROWSER
+    if(h$isNode) {
+        var nv = h$decodeUtf8z(name, name_off).split('=', 2);
+        if(nv.length !== 2) return 0;
+        var n = nv[0];
+        var v = nv[1];
+        if (v !== '') {
+            process.env[n] = v;
+        }
+        else {
+            delete process.env[n];
+        }
+    }
+#endif
+    return 0;
+}
+
 function h$errorBelch() {
   h$log("### errorBelch: do we need to handle a vararg function here?");
 }