Posted to tcl by mjanssen at Wed Apr 19 12:58:20 GMT 2017view raw

  1. set f [open "|[list plink bitbucket.org]" r+]
  2. fconfigure $f -blocking 0
  3. proc puts_data {chan data} {
  4. append data [read $chan]
  5. puts $data
  6. fileevent $chan readable [list $chan $data]
  7. }
  8.  
  9. fileevent $f readable [list puts_data $f ""]