Posted to tcl by evilotto at Thu Oct 31 20:51:38 GMT 2013view pretty
proc accepto {sock peer port} { puts "$sock $peer $port"} socket -server accepto 4445 if {[catch { for {set i 0} {$i < 10} {incr i} { socket localhost 4445 }} err]} { puts "error $err" puts "starting event loop" vwait forever } puts "goodbye"