1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: assocs combinators kernel sequences splitting system
4 vocabs init vocabs.loader ;
7 HOOK: os-env os ( key -- value )
9 HOOK: set-os-env os ( value key -- )
11 HOOK: unset-os-env os ( key -- )
13 HOOK: (os-envs) os ( -- seq )
15 HOOK: (set-os-envs) os ( seq -- )
17 : change-os-env ( key quot -- )
18 [ [ os-env ] keep ] dip dip set-os-env ; inline
20 : os-envs ( -- assoc )
21 (os-envs) [ "=" split1 ] H{ } map>assoc ;
23 : set-os-envs ( assoc -- )
24 [ "=" glue ] { } assoc>map (set-os-envs) ;
27 { [ os unix? ] [ "environment.unix" require ] }
28 { [ os windows? ] [ "environment.windows" require ] }
34 os windows? ";" ":" ? split
35 [ add-vocab-root ] each
37 ] "environment" add-startup-hook