Posted to tcl by dgood` at Mon Dec 03 16:14:05 GMT 2018view raw
- # tclsh
- % set chan [socket 10.64.0.51 58055]
- sock5
- % chan config $chan -blocking 0 -buffering line
- % puts $chan ruok
- % gets $chan line
- 2
- % set line
- OK
- % chan eof $chan
- 0
- % chan eof $chan
- 0
- % gets $chan line
- -1
- % chan eof $chan
- (hangs for longer than I was willing to wait)