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

add set-os-env, unset-os-env

db4
Doug Coleman 2008-04-08 23:08:11 -05:00
parent 94863d980d
commit 6c5935a3b0
5 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/bootstrap/primitives.factor
View File

@ -732,6 +732,8 @@ define-builtin
{ "set-innermost-frame-quot" "kernel.private" } { "set-innermost-frame-quot" "kernel.private" }
{ "call-clear" "kernel" } { "call-clear" "kernel" }
{ "(os-envs)" "system.private" } { "(os-envs)" "system.private" }
{ "set-os-env" "system" }
{ "unset-os-env" "system" }
{ "(set-os-envs)" "system.private" } { "(set-os-envs)" "system.private" }
{ "resize-byte-array" "byte-arrays" } { "resize-byte-array" "byte-arrays" }
{ "resize-bit-array" "bit-arrays" } { "resize-bit-array" "bit-arrays" }

4
core/inference/known-words/known-words.factor
View File

@ -587,6 +587,10 @@ set-primitive-effect
\ (os-envs) { } { array } <effect> set-primitive-effect \ (os-envs) { } { array } <effect> set-primitive-effect
\ set-os-env { string string } { } <effect> set-primitive-effect
\ unset-os-env { string } { } <effect> set-primitive-effect
\ (set-os-envs) { array } { } <effect> set-primitive-effect \ (set-os-envs) { array } { } <effect> set-primitive-effect
\ do-primitive [ \ do-primitive no-effect ] "infer" set-word-prop \ do-primitive [ \ do-primitive no-effect ] "infer" set-word-prop

15
vm/os-unix.c
View File

@ -103,6 +103,21 @@ DEFINE_PRIMITIVE(os_envs)
dpush(result); dpush(result);
} }
DEFINE_PRIMITIVE(set_os_env)
{
char *key = unbox_char_string();
REGISTER_C_STRING(key);
char *value = unbox_char_string();
UNREGISTER_C_STRING(key);
setenv(key, value, 1);
}
DEFINE_PRIMITIVE(unset_os_env)
{
char *key = unbox_char_string();
unsetenv(key);
}
DEFINE_PRIMITIVE(set_os_envs) DEFINE_PRIMITIVE(set_os_envs)
{ {
F_ARRAY *array = untag_array(dpop()); F_ARRAY *array = untag_array(dpop());

2
vm/primitives.c
View File

@ -182,6 +182,8 @@ void *primitives[] = {
primitive_set_innermost_stack_frame_quot, primitive_set_innermost_stack_frame_quot,
primitive_call_clear, primitive_call_clear,
primitive_os_envs, primitive_os_envs,
primitive_set_os_env,
primitive_unset_os_env,
primitive_set_os_envs, primitive_set_os_envs,
primitive_resize_byte_array, primitive_resize_byte_array,
primitive_resize_bit_array, primitive_resize_bit_array,

2
vm/run.h
View File

@ -249,6 +249,8 @@ DECLARE_PRIMITIVE(setenv);
DECLARE_PRIMITIVE(exit); DECLARE_PRIMITIVE(exit);
DECLARE_PRIMITIVE(os_env); DECLARE_PRIMITIVE(os_env);
DECLARE_PRIMITIVE(os_envs); DECLARE_PRIMITIVE(os_envs);
DECLARE_PRIMITIVE(set_os_env);
DECLARE_PRIMITIVE(unset_os_env);
DECLARE_PRIMITIVE(set_os_envs); DECLARE_PRIMITIVE(set_os_envs);
DECLARE_PRIMITIVE(eq); DECLARE_PRIMITIVE(eq);
DECLARE_PRIMITIVE(millis); DECLARE_PRIMITIVE(millis);