Tcl Source Code

Artifact bbbd7e23d9d6e5ccc8a7dd4ee5e8535eed9d6e9a:

Attachment "async_event.tcl" to ticket [219195ffff] added by andreas_kupries 2006-03-16 04:00:54.

---

set port [lindex $argv 0]

proc Ok {sock} {
    puts $sock\ writable
    puts eof\ [eof $sock]
    puts er?\ [fconfigure $sock -error]
    close $sock
    set ::forever reached-the-end-of-time
    return
}


set s [socket -async localhost $port]
fileevent $s writable [list Ok $s]

puts waiting
vwait forever