TCL interactive surrogate

Post date: Mar 4, 2012 4:33:18 PM

while {[gets stdin pp]!=-1} {
     if [catch {set out [eval $pp]} err] {
         puts "Error: $err"
     } else {
         puts "Output: $out"
     }
}