TCL语言

以下资料摘自http://baike.baidu.com/view/459615.htm

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

___________________________________________________________

相关网站：

 1.http://www.tcl.tk/doc/
 2.http://www.tclchina.com/
 3.http://www.tcl-tk.net/
 4.http://www.activestate.com/Products/ActiveTcl/
 5.http://www.purl.org/NET/Tcl-FAQ/
 6.http://mini.net/tcl/
 7.http://www.neosoft.com/tcl/
 8.http://citeseer.org/cs?q=Tcl+Tk