languages/tcl/runtime/builtin/eof.pir

   1 .HLL 'Tcl', ''
   2 .namespace []
   3
   4 .sub '&eof'
   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     .local int eof
  19     eof = isfalse channel
  20
  21     .return(eof)
  22 bad_args:
  23     die 'wrong # args: should be "eof channelId"'
  24 .end
  25
  26 # Local Variables:
  27 #   mode: pir
  28 #   fill-column: 100
  29 # End:
  30 # vim: expandtab shiftwidth=4 ft=pir: