Try/Catch/Finally syntax

Tcl 原本就有錯誤處理的機制（使用 catch），而在 TIP #329  （in 8.6 b1）又加入了類似 Try/Catch/Finally 來增強原本的機制。

proc read_hex_file {fname} {
   set f [open $fname "r"]
   set data {}
   try  {
      while { [gets $f line] >= 0 } {
        append data [binary format H* $line]
      }
   } trap {POSIX} {} {
      puts "POSIX-type error"
   } on error {em} {
      error "Could not process file '$fname': $em"
   } finally {
      close $f
   }
}

也就是說，原本 catch 是執行如果出錯，那就依據取得的 error code，再來判斷怎麼處理；而 try/finally 則是如果發生錯誤，會依據 error code 而把程式的流程流向該處理這個錯誤的 error handler，因此整個 code 如果寫的好會看起來比較清晰。對於錯誤的處理策略看起來比較清晰。