Posted to tcl by evilotto at Thu Oct 31 20:51:38 GMT 2013view raw
- 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"