languages/tcl/runtime/builtin/apply.pir

   1 .HLL 'Tcl', ''
   2 .namespace []
   3
   4 .sub '&apply'
   5   .param pmc argv :slurpy
   6
   7   .local int argc
   8   argc = elements argv
   9   if argc == 0 goto no_args
  10
  11   .local pmc toList, lambda
  12   toList = get_root_global ['_tcl'], 'toList'
  13   lambda = argv[0]
  14   lambda = toList(lambda)
  15
  16   $I0 = elements lambda
  17   if $I0 < 2 goto bad_lambda
  18   if $I0 > 3 goto bad_lambda
  19
  20   tcl_return ''
  21
  22 bad_lambda:
  23   $S0 = argv[0]
  24   $S0 = "can't interpret \"" . $S0
  25   $S0 = $S0 . "\" as a lambda expression"
  26   die $S0
  27
  28 no_args:
  29   die 'wrong # args: should be "apply lambdaExpr ?arg1 arg2 ...?"'
  30 .end
  31
  32 # Local Variables:
  33 #   mode: pir
  34 #   fill-column: 100
  35 # End:
  36 # vim: expandtab shiftwidth=4 ft=pir: