languages/tcl/runtime/builtin/unknown.pir

   1 ###
   2 # [unknown]
   3
   4 .HLL 'Tcl', 'tcl_group'
   5 .namespace []
   6
   7 .sub '&unknown'
   8   .param pmc argv :slurpy
   9
  10   $S0 = join ' ', argv
  11   $I1 = spawnw $S0
  12
  13   .return('')
  14 .end
  15
  16 # Local Variables:
  17 #   mode: pir
  18 #   fill-column: 100
  19 # End:
  20 # vim: expandtab shiftwidth=4 ft=pir: