Posted to tcl by hypnotoad at Mon Nov 21 12:53:57 GMT 2016view raw

  1. proc dochar chan {
  2. set dat [read $chan 1]
  3. if {$dat ne "^"} {
  4. # Non escape sequence
  5. append buffer $dat
  6. puts -nonewline stdout $dat
  7. } else {
  8. # Manage escape
  9. switch [read $chan 1] {
  10. c - x - C - X {
  11. exit
  12. }
  13. }
  14. }
  15. }
  16.  
  17.  
  18. chan event stdin readable [list dochar stdin]
  19.  
  20. vwait forever
  21.