basis/environment/environment.factor

   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.loader init ;
   5 IN: environment
   6
   7 HOOK: os-env os ( key -- value )
   8
   9 HOOK: set-os-env os ( value key -- )
  10
  11 HOOK: unset-os-env os ( key -- )
  12
  13 HOOK: (os-envs) os ( -- seq )
  14
  15 HOOK: (set-os-envs) os ( seq -- )
  16
  17 : os-envs ( -- assoc )
  18     (os-envs) [ "=" split1 ] H{ } map>assoc ;
  19
  20 : set-os-envs ( assoc -- )
  21     [ "=" glue ] { } assoc>map (set-os-envs) ;
  22
  23 {
  24     { [ os unix? ] [ "environment.unix" require ] }
  25     { [ os winnt? ] [ "environment.winnt" require ] }
  26     { [ os wince? ] [ ] }
  27 } cond
  28
  29 [
  30     "FACTOR_ROOTS" os-env
  31     [
  32         os windows? ";" ":" ? split
  33         [ add-vocab-root ] each
  34     ] when*
  35 ] "environment" add-startup-hook