languages/tcl/runtime/builtin/format.pir

   1 ###
   2 # [format]
   3
   4 #
   5 # format string arg arg arg
   6
   7 .HLL 'Tcl', 'tcl_group'
   8 .namespace []
   9
  10 .sub '&format'
  11   .param pmc argv :slurpy
  12
  13   .local int argc
  14   argc = argv
  15   if argc == 0 goto noargs
  16
  17   .local string format
  18
  19   # pull off the format string.
  20   shift format, argv
  21
  22   $S0 = sprintf format, argv
  23
  24   .return($S0)
  25
  26 noargs:
  27   tcl_error 'wrong # args: should be "format formatString ?arg arg ...?"'
  28 .end
  29
  30 # Local Variables:
  31 #   mode: pir
  32 #   fill-column: 100
  33 # End:
  34 # vim: expandtab shiftwidth=4 ft=pir: