languages/tcl/runtime/builtin/source.pir

   1 ###
   2 # [source]
   3
   4 .HLL 'Tcl', 'tcl_group'
   5 .namespace []
   6
   7 .sub '&source'
   8   .param pmc argv :slurpy
   9
  10   .local int argc
  11   argc = elements argv
  12   if argc != 1 goto bad_args
  13
  14   .local string filename
  15   filename = shift argv
  16
  17   .local string file_contents
  18   $P99 = open filename, '<'
  19   push_eh badfile
  20     file_contents = $P99.'slurp'('')
  21   pop_eh
  22
  23   .local pmc ns, interp
  24   interp = getinterp
  25   ns = interp['namespace';1]
  26
  27   .local pmc __script, code
  28   __script = get_root_global ['_tcl'], '__script'
  29   code = __script ( file_contents, 'ns' => ns, 'bsnl' => 1)
  30
  31   .return code()
  32
  33 badfile:
  34   $S0 = "couldn't read file \""
  35   $S0 .= filename
  36   $S0 .= '": no such file or directory'
  37   tcl_error $S0
  38
  39 bad_args:
  40   tcl_error 'wrong # args: should be "source fileName"'
  41 .end
  42
  43 # Local Variables:
  44 #   mode: pir
  45 #   fill-column: 100
  46 # End:
  47 # vim: expandtab shiftwidth=4 ft=pir: