Posted to tcl by evilotto at Thu Oct 31 20:51:38 GMT 2013view raw

  1. proc accepto {sock peer port} { puts "$sock $peer $port"}
  2.  
  3. socket -server accepto 4445
  4.  
  5. if {[catch {
  6. for {set i 0} {$i < 10} {incr i} {
  7. socket localhost 4445
  8. }} err]} {
  9. puts "error $err"
  10. puts "starting event loop"
  11. vwait forever
  12. }
  13.  
  14. puts "goodbye"
  15.