TCL (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义,不过我们仍然称呼它为TCL)是一种
脚本语言
。 由John Ousterhout创建。 TCL很好学,功能很强大。TCL经常被用于 快速原型开发,脚本编程,
GUI
和测试等方面。TCL念作“踢叩” "tickle". Tcl的特性包括:
* 任何东西都是一条命令,包括语法结构(for, if等)。
* 任何事物都可以重新定义和重载。
* 所有的数据类型都可以看作字符串。
* 语法规则相当简单
* 提供事件驱动给 Socket 和文件。基于时间或者用户定义的事件也可以。
* 动态的域定义。
* 很容易用 C , C++ ,或者 Java 扩展。
* 解释语言,代码能够动态的改变。
* 完全的 Unicode 支持。
* 平台无关。 Win32 , UNIX , Mac 上都可以跑。
* 和 Windows 的GUI紧密集成。 Tk
* 代码紧凑,易于维护。
TCL本身不提供 面向对象 的支持。但是语言本身很容易扩展到支持面向对象。许多 C语言 扩展都提供面向对象能力,包括XOTcl, Incr Tcl 等。另外SNIT扩展本身就是用TCL写的。
使用最广泛的TCL扩展是TK。 TK提供了各种 OS 平台下的图形用户界面GUI。连强大的 Python 语言都不单独提供自己的GUI,而是提供接口适配到TK上。另一个流行的扩展包是 Expect . Expect提供了通过终端自动执行命令的能力,例如( passwd , ftp , telnet 等命令驱动的外壳).
下面是TCL 程序 的例子:
#!/bin/sh
# next line restarts using tclsh in path /
exec tclsh ${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 {
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变量从当前时间中每秒更新一次。
* 任何东西都是一条命令,包括语法结构(for, if等)。
* 任何事物都可以重新定义和重载。
* 所有的数据类型都可以看作字符串。
* 语法规则相当简单
* 提供事件驱动给 Socket 和文件。基于时间或者用户定义的事件也可以。
* 动态的域定义。
* 很容易用 C , C++ ,或者 Java 扩展。
* 解释语言,代码能够动态的改变。
* 完全的 Unicode 支持。
* 平台无关。 Win32 , UNIX , Mac 上都可以跑。
* 和 Windows 的GUI紧密集成。 Tk
TCL本身不提供 面向对象 的支持。但是语言本身很容易扩展到支持面向对象。许多 C语言 扩展都提供面向对象能力,包括XOTcl, Incr Tcl 等。另外SNIT扩展本身就是用TCL写的。
使用最广泛的TCL扩展是TK。 TK提供了各种 OS 平台下的图形用户界面GUI。连强大的 Python 语言都不单独提供自己的GUI,而是提供接口适配到TK上。另一个流行的扩展包是 Expect . Expect提供了通过终端自动执行命令的能力,例如( passwd , ftp , telnet 等命令驱动的外壳).
下面是TCL 程序 的例子:
#!/bin/sh
# next line restarts using tclsh in path /
exec tclsh ${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 {
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变量从当前时间中每秒更新一次。