Tcl Source Code

Artifact 767c571f32b3ec993ca0eaa004129c915397e4f4f44e36f2a4d7894eee1445c5:

Attachment "client-torncrlf.tcl" to ticket [b3977d199b] added by apnadkarni 2022-07-03 06:27:49.

---

if {1} {
    set chan [socket 127.0.0.1 10000]
} else {
    set chan stdin
}
fileevent $chan readable {
    if {[gets $chan line] >= 0} {
        puts <$line>
    } elseif {[eof $chan]} {
        set done 1
    }
}
fconfigure $chan -blocking 0 -buffering line
vwait done