Posted to tcl by mjanssen at Sat Jul 07 12:25:38 GMT 2007view raw
- 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