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

socket -server test 80

proc test {sock args} {
   fileevent $sock readable  [list pending $sock]
   fconfigure $sock -blocking 0
}

proc pending {sock} {
   puts [chan pending input $sock]
}

vwait forever