languages/tcl/runtime/builtin/lassign.pir

   1 .HLL 'Tcl', 'tcl_group'
   2 .namespace []
   3
   4 .sub '&lassign'
   5   .param pmc argv :slurpy
   6
   7   .local int argc
   8   argc = argv
   9   if argc < 2 goto bad_args
  10
  11   .local pmc retval
  12   .local pmc list
  13   list = shift argv
  14
  15   .local pmc __list
  16   __list = get_root_global ['_tcl'], '__list'
  17   list   = __list(list)
  18
  19   .local string varname
  20   .local pmc set, value
  21   set = get_root_global ['_tcl'], '__set'
  22
  23 var_loop:
  24   varname = shift argv
  25   value = shift list
  26   set(varname, value)
  27
  28   unless list goto list_empty
  29   if argv goto var_loop
  30
  31 list_empty:
  32   value = new 'String'
  33   value = ''
  34 null_loop:
  35   unless argv goto var_end
  36   varname = shift argv
  37   set(varname, value)
  38   branch null_loop
  39
  40 var_end:
  41   .return(list)
  42
  43 bad_args:
  44   tcl_error 'wrong # args: should be "lassign list varName ?varName ...?"'
  45 .end
  46
  47 # Local Variables:
  48 #   mode: pir
  49 #   fill-column: 100
  50 # End:
  51 # vim: expandtab shiftwidth=4 ft=pir: