fork download
  1. proc myfunc {} {
  2. puts START
  3. set v [asdasdsd 1 2 3]
  4. puts FINISH
  5. }
  6.  
  7. if [catch myfunc errorMsg] {
  8. puts $errorMsg\n
  9. puts $errorCode\n
  10. puts $errorInfo\n
  11. }
Success #stdin #stdout 0.01s 5428KB
stdin
Standard input is empty
stdout
START
invalid command name "asdasdsd"

TCL LOOKUP COMMAND asdasdsd

invalid command name "asdasdsd"
    while executing
"asdasdsd 1 2 3"
    (procedure "myfunc" line 3)
    invoked from within
"myfunc"