TCL 小筆記

昨天發現有隻 TCL 程式不 work 了, 可能是我們 Cygwin 版本不同, Isometry 改在他那邊可能是好的, 不過我這邊就掛了.為了解決這個問題, 只好 debug 一下為何它會有不同的表現.

關於 TCL 的說明, 這個網站真是做到仁至義盡了. http://tmml.sourceforge.net/doc/tcl/

如果大家隨便寫一個 script 檔, TCL 怎麼知道是該它處理呢? 如果您有灌 tclsh 就 OK 了. 此時只要在這個 script 前面加上一行

#!/usr/local/bin/tclsh

就可以了.

TCL 自己會去執行這個 script, 而不是交給 bash 之類的.

更好的寫法是

#!/bin/sh

# the next line restarts using tclsh \

exec tclsh “$0″ “$@"

這樣就不會出現 command not found 這樣的錯誤了. 因為不做一點 “暗記" 的話 TCL 是不會去處理每一個 script 的.

上述技巧見於 http://tmml.sourceforge.net/doc/tcl/tclsh.html

如果再 TCL 中建立了一個檔案, 又想要再 generate 一次, 將會遇到 archive = 1 的問題. 在 Windows 下有一個好用的 freeware 叫做 unlock, 用它可打掉這種檔案被程式 lock 的狀態. 我的兩台電腦都有裝.

不過在 TCL 之下, 如果不先把 file attributes 的 archive 設成 0, 就算用 file delete -force 都殺不掉它喔!