Posted to tcl by mjanssen at Sat Jul 07 12:25:38 GMT 2007view raw

  1. socket -server test 80
  2.  
  3. proc test {sock args} {
  4. fileevent $sock readable [list pending $sock]
  5. fconfigure $sock -blocking 0
  6. }
  7.  
  8. proc pending {sock} {
  9. puts [chan pending input $sock]
  10. }
  11.  
  12. vwait forever