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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-04-09 00:34:09 -05:00
parent de62740f75 b17c39f24f
commit 10f8a32e25
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)
{
F_CHAR *key = unbox_u16_string();
REGISTER_C_STRING(key);
F_CHAR *value = unbox_u16_string();
UNREGISTER_C_STRING(key);
SetEnvironmentVariable(key, value);
}
DEFINE_PRIMITIVE(unset_os_env)
{
F_CHAR *key = unbox_u16_string();
SetEnvironmentVariable(key, NULL);
}
DEFINE_PRIMITIVE(set_os_envs) DEFINE_PRIMITIVE(set_os_envs)
{ {
not_implemented_error(); not_implemented_error();