Tcl
![本頁使用了標題或全文手工轉換](http://images.weserv.nl/?url=//upload.wikimedia.org/wikipedia/commons/thumb/c/cd/Zh_conversion_icon_m.svg/35px-Zh_conversion_icon_m.svg.png)
![]() | |
編程範型 | 多泛型、物件導向、函數式、程序式、事件驅動、指令式 |
---|---|
設計者 | John Ousterhout |
實作者 | John Ousterhout、Tcl核心團隊 |
釋出時間 | 1988年 |
目前版本 | |
型態系統 | 動態型別、萬物皆可視作字串 |
副檔名 | .tcl |
網站 | www.tcl.tk |
主要實作產品 | |
ActiveTcl | |
啟發語言 | |
AWK、Lisp | |
影響語言 | |
PowerShell[3]、Tea |
Tcl(發音tickle)是一種手稿語言。由John Ousterhout建立。TCL經常被用於快速原型開發 RAD、指令碼編程、GUI編程和測試等方面。
特性
Tcl 的特性包括:
- 任何東西都是一條命令,包括語法結構(for、if等),以波蘭表示法書寫。
- 命令通常可變。
- 任何事物都可以重新定義和多載。
- 所有的資料類型都可以看作字串,包括原始碼。
- 擁有完全動態、類別為基的對象系統 TclOO,支援包括元類、過濾器和mixin在內的進階功能。
- 提供事件驅動給通訊端和檔案。基於時間或者用戶定義的事件也可以。
- 預設的變數作用域是詞法作用域,但 uplevel 和 upvar 允許過程與封閉的函數作用域互動。
- 所有的內建命令會在誤用時產生錯誤訊息。
- 很容易用 C、C++ 或者 Java 擴充。
- 解釋語言,支援位元組碼。
- 完全的 Unicode (3.1)支援,1999 年首次發佈。
- 跨平台。支援 Win32、UNIX、Linux、Mac 等。
- 和GUI開發套件 Tk 緊密整合。
- 代碼緊湊,易於維護。
- 存在多種發行版:
- Batteries-Included 版本,如 ActiveState ActiveTcl
- tclkit,一種單檔案執行時環境,僅有 1 兆大小
- starpack,指令碼/程式的單檔案的可執行檔案,衍生自 tclkit 技術
- freewrapTCLSH[4] 將 Tcl 指令碼打包為單個可執行二進制檔案。
- BSD licenses,自由可再發行的原始碼。
舊版 Tcl 沒有內建物件導向功能,因此許多 OO 庫以擴充形式湧現出來,如 incr Tcl 和 XOTcl,甚至存在純指令碼編寫的 OO 包,如 Snit 和 STOOOP(simple Tcl-only object-oriented programming),8.6 版本在內核中提供了 OO 功能[5]。
Safe-Tcl 是功能受限的 Tcl 子集。檔案系統訪問受限,任意系統命令禁止執行。它使用雙直譯器模型,在「不可信直譯器」中執行不可信指令碼中的代碼。由 Nathaniel Borenstein 和 Marshall Rose 設計,藉以在電子郵件中包含活動資訊,當支援 application/safe-tcl 與 multipart-enabled-mail 時,Safe-Tcl 即可包含於電子郵件中。Safe-Tcl 功能已整合在標準 Tcl/Tk 發佈中。[6][7]
擴充包
Tcl 支援擴充包,這些擴充包提供了附加功能(像是GUI,終端程式自動化,資料庫訪問等)。常用的擴充包有:
- Tk
- Tk 工具包是最流行的 Tcl 擴充,在多種作業系統上提供圖形化使用者介面。每個 GUI 由一個或多個框架(framework)組成,每個框架內含佈局管理器。
- Expect
- Expect是另外一種非常流行的 Tcl 擴充。早期,Expect 對 Tcl 在多種領域的流行居功甚偉,如在測試領域中,時至今日 Expect 依然被大量使用於 telnet、ssh 與序列埠對談的重複任務自動化,即對僅有終端互動介面的程式進行編程。Tcl 是執行 Expect 的唯一方式,因此 Tcl 在此類工業領域中十分流行。
- Tile/Ttk
- Tile/Ttk[8] 是風格和主題化控制項集,可替代 Tk 中大多數控制項,真正呼叫作業系統的 API 實現原生介面。這種方式提供的主題包括 Windows XP、Windows Classic、Qt 和 Aqua(Mac OS X)。主題也可使用圖片 pixmap 加上一定定義構造,避免呼叫系統 API。以這種方式建立的主題有 Classic Tk、Step、Alt/Revitalized、Plastik 和 Keramik。Tcl 8.4 中,此包稱作 Tile,在 8.5 中以 Ttk 的名字進入 Tk 核心發佈。
- Tix
- Tix(Tk Interface eXtension)是一套開源的、用於擴充 Tcl/Tk 和 Python 應用程式功能的用戶介面組件。由 Tix Project Group 維護,以 BSD 風格許可發佈。[9]
- Itcl/IncrTcl
- Itcl 是 Tcl 諸多對象系統中的一種,通常稱為 [incr Tcl](遞增 Tcl 之意,類似 C++ 之名)。
- Tcllib
- Tcllib 是一套純指令碼 Tcl 包,無需編譯。
- TclUDP
- TclUDP[10] 提供簡捷的方式支援 UDP 通訊端。
- 資料庫
- Tcl 資料庫互聯(Tcl Database Connectivity,TDBC)是 Tcl 8.6 的一部分,為 Tcl 指令碼提供常用資料庫的訪問介面,目前驅動器支援 MySQL、ODBC、PostgreSQL 和 SQLite 資料庫。更多資料庫已經有了計劃。同樣,也可使用許許多多資料庫專用的擴充包訪問資料庫。[11]
範例
下面是TCL程式的例子:
#!/bin/sh
# next line restarts using tclsh in path \
exec tclsh $0 ${1+"$@"}
# echo server that can handle multiple
# simultaneous connections.
proc newConnection { sock addr port } {
# client connections will be handled in
# line-buffered, non-blocking mode
fconfigure $sock -blocking no -buffering line
# call handleData when socket is readable
fileevent $sock readable [ list handleData $sock ]
}
proc handleData { sock } {
puts $sock [ gets $sock ]
if { [ eof $sock ] } {
close $sock
}
}
# handle all connections to port given
# as argument when server was invoked
# by calling newConnection
set port [ lindex $argv 0 ]
socket -server newConnection $port
# enter the event loop by waiting
# on a dummy variable that is otherwise
# unused.
vwait forever
另外一個 Tk 的例子(來自A simple A/D clock)它使用了定時器時間,3行就顯示了一個時鐘。
proc every {ms body} {eval $body; after $ms [info level 0]}
pack [label .clock -textvar time]
every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]} ;# RS
解釋:第一行定義了過程every, 每隔ms毫秒,就重新執行body代碼。第二行建立了標籤其內容由time變數決定。第3行中設置定時器,time變數從當前時間中每秒更新一次。
參考資料
- ^ Tcl / Tk 8.7a5 RELEASED. 2021年6月18日 [2021年10月16日] (英語).
- ^ [TCLCORE] Tcl/Tk 8.6.14 RELEASED. 2024年2月29日 [2024年3月1日].
- ^ PowerShell and WPF: WTF. [2022-03-06]. (原始內容存檔於2008-12-25).
- ^ freewrapTCLSH(頁面存檔備份,存於互聯網檔案館)
- ^ 8.6 版本在內核中提供了 OO 功能(頁面存檔備份,存於互聯網檔案館)
- ^ Brown, Lawrie. Mobile Code Security. Terry Bossomaier, Lucy Chubb (編). Proceedings, 2nd Joint Conference, AUUG '96 and Asia-Pacific WWW '96. Melbourne, Australia: 50. September 18–20, 1996 [2011-03-22]. (原始內容存檔於2011-05-11).
- ^ Welch, Brent B.; Jones, Ken; Hobbs, Jeffrey. Practical programming in Tcl and Tk 1 4th. Prentice Hall PTR. 2003: 291. ISBN 0-13-038560-3.
- ^ TK Table Sourceforge Project. ActiveTcl. [August 7, 2012]. (原始內容存檔於2014-07-13).
- ^ Tix License. Sourceforge. [August 7, 2012]. (原始內容存檔於2013-03-22).
- ^ TCL UDP. Tcl'ers Wiki. [August 7, 2012]. (原始內容存檔於2015-01-04).
- ^ TDBC. Tcl'ers Wiki. [August 7, 2012]. (原始內容存檔於2009-05-29).
外部連結
- 官方網站
- Tcl Sources(頁面存檔備份,存於互聯網檔案館), main Tcl and Tk source code download website
- Tcler's Wiki(頁面存檔備份,存於互聯網檔案館)
- TkDocs(頁面存檔備份,存於互聯網檔案館)
|
|
|