windows environment variables
parent
1da97fe13e
commit
d1cc5cc650
|
@ -217,17 +217,17 @@ void sleep_millis(DWORD msec)
|
||||||
|
|
||||||
DEFINE_PRIMITIVE(set_os_env)
|
DEFINE_PRIMITIVE(set_os_env)
|
||||||
{
|
{
|
||||||
char *key = unbox_char_string();
|
F_CHAR *key = unbox_u16_string();
|
||||||
REGISTER_C_STRING(key);
|
REGISTER_C_STRING(key);
|
||||||
char *value = unbox_char_string();
|
F_CHAR *value = unbox_u16_string();
|
||||||
UNREGISTER_C_STRING(key);
|
UNREGISTER_C_STRING(key);
|
||||||
SetEnvironmentVariable(key, value);
|
SetEnvironmentVariable(key, value);
|
||||||
}
|
}
|
||||||
|
|
||||||
DEFINE_PRIMITIVE(unset_os_env)
|
DEFINE_PRIMITIVE(unset_os_env)
|
||||||
{
|
{
|
||||||
char *key = unbox_char_string();
|
F_CHAR *key = unbox_u16_string();
|
||||||
SetEnvironmentVariable(key, f);
|
SetEnvironmentVariable(key, NULL);
|
||||||
}
|
}
|
||||||
|
|
||||||
DEFINE_PRIMITIVE(set_os_envs)
|
DEFINE_PRIMITIVE(set_os_envs)
|
||||||
|
|
Loading…
Reference in New Issue