Posted to tcl by aspect at Tue May 10 08:25:45 GMT 2011view raw

  1. #!/usr/bin/tclsh
  2. #
  3.  
  4. proc readfrom {chan} {
  5. set buf [read $chan]
  6. if {$buf != ""} {
  7. puts "Read {$buf}"
  8. }
  9. if {[eof $chan]} {
  10. puts "EOF!"
  11. close $chan
  12. }
  13. }
  14.  
  15. proc accept {chan addr port} {
  16. fconfigure $chan -blocking 0 -buffering none
  17. fileevent $chan readable [list readfrom $chan]
  18. }
  19.  
  20.  
  21. set sock [socket -server accept 1234]
  22.  
  23. vwait forever
  24.