Posted to tcl by hypnotoad at Mon Nov 21 12:39:34 GMT 2016view raw
- puts "STARTED"
- set ::tcl_interactive 1
- set cmd {}
- puts -nonewline stdout "% " ; flush stdout
- while 1 {
- set thisline [gets stdin]
- append cmd \n $thisline
- if {[info complete $cmd]} {
- set cmd [string trimleft $cmd]
- if {[catch $cmd err]} {
- puts stderr $err
- } else {
- puts stdout $err
- }
- set cmd {}
- puts -nonewline stdout "% " ; flush stdout
- }
- }