steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

set-os-env on windows

db4
Doug Coleman 2008-04-08 23:35:28 -05:00
parent a82794a719
commit c19505cd84
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
vm/os-windows.c
View File

@ -215,6 +215,21 @@ void sleep_millis(DWORD msec)
Sleep(msec); Sleep(msec);
} }
DEFINE_PRIMITIVE(set_os_env)
{
char *key = unbox_char_string();
REGISTER_C_STRING(key);
char *value = unbox_char_string();
UNREGISTER_C_STRING(key);
SetEnvironmentVariable(key, value);
}
DEFINE_PRIMITIVE(unset_os_env)
{
char *key = unbox_char_string();
SetEnvironmentVariable(key, f);
}
DEFINE_PRIMITIVE(set_os_envs) DEFINE_PRIMITIVE(set_os_envs)
{ {
not_implemented_error(); not_implemented_error();