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