Posted to tcl by hypnotoad at Mon Nov 21 12:53:57 GMT 2016view raw
- proc dochar chan {
- set dat [read $chan 1]
- if {$dat ne "^"} {
- # Non escape sequence
- append buffer $dat
- puts -nonewline stdout $dat
- } else {
- # Manage escape
- switch [read $chan 1] {
- c - x - C - X {
- exit
- }
- }
- }
- }
- chan event stdin readable [list dochar stdin]
- vwait forever