Posted to tcl by hypnotoad at Mon Nov 21 12:39:34 GMT 2016view raw

  1. puts "STARTED"
  2. set ::tcl_interactive 1
  3. set cmd {}
  4. puts -nonewline stdout "% " ; flush stdout
  5. while 1 {
  6. set thisline [gets stdin]
  7. append cmd \n $thisline
  8. if {[info complete $cmd]} {
  9. set cmd [string trimleft $cmd]
  10. if {[catch $cmd err]} {
  11. puts stderr $err
  12. } else {
  13. puts stdout $err
  14. }
  15. set cmd {}
  16. puts -nonewline stdout "% " ; flush stdout
  17. }
  18. }