Posted to tcl by Poor Yorick at Sat Apr 27 09:34:35 GMT 2019view pretty
proc write chan { puts [list writing [info cmdcount]] puts $chan hello } lassign [chan pipe] pr pw chan configure $pw -blocking 0 chan event $pw writable [list write $pw] vwait forever