languages/tcl/runtime/builtin/expr.pir

   1 .HLL 'Tcl', ''
   2 .namespace []
   3
   4 .sub '&expr'
   5   .param pmc argv :slurpy
   6
   7   .local string expr
   8   .local int argc
   9   .local int looper
  10
  11   .local pmc compileExpr
  12   compileExpr = get_root_global ['_tcl'], 'compileExpr'
  13
  14   expr = ''
  15   looper = 0
  16   argc = elements argv
  17   unless argc goto no_args
  18
  19   expr = join ' ', argv
  20
  21 loop_done:
  22   .local pmc ns
  23   $P0 = getinterp
  24   ns  = $P0['namespace'; 1]
  25
  26   $P1 = compileExpr(expr, 'ns'=>ns)
  27   $P2 = $P1()
  28   .return ($P2)
  29
  30 no_args:
  31   die 'wrong # args: should be "expr arg ?arg ...?"'
  32 .end
  33
  34 # Local Variables:
  35 #   mode: pir
  36 #   fill-column: 100
  37 # End:
  38 # vim: expandtab shiftwidth=4 ft=pir: