Posted to tcl by Poor Yorick at Sat Apr 27 09:34:35 GMT 2019view raw

  1. proc write chan {
  2. puts [list writing [info cmdcount]]
  3. puts $chan hello
  4. }
  5. lassign [chan pipe] pr pw
  6. chan configure $pw -blocking 0
  7. chan event $pw writable [list write $pw]
  8. vwait forever
  9.  
  10.  
  11.