languages/cardinal/src/builtins/globals.pir

   1 ## $Id$
   2
   3 =head1 NAME
   4
   5 src/builtins/globals.pir - initialize miscellaneous global variables
   6
   7 =cut
   8
   9 .namespace []
  10
  11 .sub 'onload' :anon :load :init
  12     .local pmc cardinalmeta
  13     cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA'
  14
  15     ##  set up $ENV
  16     $P0 = get_hll_global 'CardinalHash'
  17     cardinalmeta.'register'('Env', 'parent'=>$P0, 'protoobject'=>$P0)
  18     .local pmc env
  19     env = new 'Env'
  20     set_hll_global '$ENV', env
  21
  22     ##  set up $:
  23     $S0 = env['RUBYLIB']
  24     $P0 = split ':', $S0
  25     push $P0, '.'
  26     $P0 = 'list'($P0)
  27     set_hll_global '$:', $P0
  28
  29     ##  set up %*INC
  30     $P0 = new 'CardinalHash'
  31     set_hll_global '%INC', $P0
  32 .end
  33
  34 # Local Variables:
  35 #   mode: pir
  36 #   fill-column: 100
  37 # End:
  38 # vim: expandtab shiftwidth=4 ft=pir: