languages/tcl/runtime/builtin/flush.pir

   1 .HLL 'Tcl', ''
   2 .namespace []
   3
   4 .sub '&flush'
   5     .param pmc argv :slurpy
   6
   7     .local int argc
   8     argc = elements argv
   9
  10     if argc != 1 goto bad_args
  11
  12     .local pmc getChannel,channel
  13     getChannel = get_root_global ['_tcl'], 'getChannel'
  14
  15     channel = shift argv
  16     channel = getChannel(channel)
  17
  18     channel.'flush'()
  19
  20     .return('')
  21 bad_args:
  22     die 'wrong # args: should be "flush channelId"'
  23 .end
  24
  25 # Local Variables:
  26 #   mode: pir
  27 #   fill-column: 100
  28 # End:
  29 # vim: expandtab shiftwidth=4 ft=pir: