-redef class NativeString
- private fun get_environ: NativeString `{ return getenv(self); `}
- private fun setenv(value: NativeString) `{ setenv(self, value, 1); `}
+redef class CString
+ private fun get_environ: CString `{ return getenv(self); `}
+ private fun setenv(value: CString) `{
+#ifdef _WIN32
+ _putenv_s(self, value);
+#else
+ setenv(self, value, 1);
+#endif
+ `}