Posted to tcl by saedelaere at Sat Jan 02 17:38:17 GMT 2010view raw

  1. set read /home/saedelaere/.tv-viewer/tmp/ComSocketRead
  2. set write /home/saedelaere/.tv-viewer/tmp/ComSocketWrite
  3.  
  4. catch {exec mkfifo $read}
  5. catch {exec mkfifo $write}
  6.  
  7. set rf [open $read {RDONLY NONBLOCK}]
  8. set wf [open $write {WRONLY NONBLOCK}]