Posted to tcl by dgood` at Mon Dec 03 16:14:05 GMT 2018view raw

  1. # tclsh
  2. % set chan [socket 10.64.0.51 58055]
  3. sock5
  4. % chan config $chan -blocking 0 -buffering line
  5. % puts $chan ruok
  6. % gets $chan line
  7. 2
  8. % set line
  9. OK
  10. % chan eof $chan
  11. 0
  12. % chan eof $chan
  13. 0
  14. % gets $chan line
  15. -1
  16. % chan eof $chan
  17. (hangs for longer than I was willing to wait)
  18.