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 (file)
--- 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 (file)
--- 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