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"