From: Alexis Laferrière <alexis.laf@xymus.net>
Date: Tue, 4 Sep 2012 11:13:12 +0000 (-0400)
Subject: lib: adds setenv to environ module
X-Git-Tag: v0.6~320
X-Git-Url: http://nitlanguage.org

lib: adds setenv to environ module

Signed-off-by: Alexis Laferrière <alexis.laf@xymus.net>
---

diff --git a/lib/standard/environ.nit b/lib/standard/environ.nit
index f24d7bf..939c9a8 100644
--- a/lib/standard/environ.nit
+++ b/lib/standard/environ.nit
@@ -32,8 +32,10 @@ redef class String
 			return ""
 		end
 	end
+	fun setenv( v : String ) do to_cstring.setenv( v.to_cstring )
 end
 
 redef class NativeString
 	private fun get_environ: NativeString is extern "string_NativeString_NativeString_get_environ_0"
+	private fun setenv( v : NativeString ) is extern "string_NativeString_NativeString_setenv_1"
 end
diff --git a/lib/standard/environ_nit.h b/lib/standard/environ_nit.h
index 9fdc203..1938065 100644
--- a/lib/standard/environ_nit.h
+++ b/lib/standard/environ_nit.h
@@ -16,5 +16,6 @@
 #include <stdlib.h>
 
 #define string_NativeString_NativeString_get_environ_0(self) getenv(self)
+#define string_NativeString_NativeString_setenv_1(self,v) setenv(self,v, 1)
 
 #endif