Posted to tcl by miguel at Sat Oct 28 19:20:04 GMT 2006view raw

  1. mig@ice:~$ cat /tmp/a
  2. while 1 {puts a; after 1000}
  3. mig@ice:~$ cat /tmp/b
  4. while 1 {puts b; after 1000}
  5. mig@ice:~$
  6. mig@ice:~$ tclsh
  7. % proc look f {puts [gets $f]}
  8. % set a [open "|[info name] /tmp/a"]
  9. file5
  10. % set b [open "|[info name] /tmp/b"]
  11. file6
  12. % fileevent $a readable [list look $a]; fileevent $b readable [list look $b]; vwait forever
  13. b
  14. a
  15. b
  16. a
  17. b
  18. a
  19. b
  20. a
  21. b
  22. ...