Posted to tcl by dgood` at Mon Dec 03 16:14:05 GMT 2018view pretty
# 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)