Shell Programming and Scripting

package provide temp 1.0


namespace export temp



package require Itcl

namespace import -force ::itcl::*

set a "some var"
puts "$a"


class temp {

public method getEntry {} {


try_eval {
    # code
        puts -nonewline stderr "Enter a number: "
    set ans [gets stdin]
        
    set res [expr 1.0 + $ans]
        puts stderr "1 + $ans = $res"
   } {
    # catch
        set msg [lindex $errorCode end]
       puts stderr "Error: $msg"
    } {
    # finally
    puts stderr "End of example"
    }

}
}
variable tempObj
set tempObj [temp #auto]
puts "$tempObj"


set res [$tempObj getEntry]
puts "$res"

$tclsh temp.tcl

some var
temp0
invalid command name "try_eval"
    while executing
"try_eval {
    # code
        puts -nonewline stderr "Enter a number: "
    set ans [gets stdin]
    set res [expr 1.0 + $ans]
        puts stderr "1 ..."
    (object "::temp0" method "::temp::getEntry" body line 4)
    invoked from within
"$tempObj getEntry"
    invoked from within
"set res [$tempObj getEntry]"
    (file "temp.tcl" line 43)