- 注册时间
- 2012-7-29
- 最后登录
- 2022-4-28
- 阅读权限
- 150
- 积分
- 1938
- 精华
- 44
- 帖子
- 80
 
|
发表于 2012-8-25 11:01:37
|显示全部楼层
Tcl
(最早称为“工具命令语言”"Tool Command Language",但是目前已经不是这个含义,不过我们仍然称呼它为TCL)是一种脚本语言。由John Ousterhout创建。TCL很好学,功能很强大。TCL经常被用于快速原型开发,脚本编程,GUI和测试等方面。TCL念作“踢叩”(tickle)。Tcl的特性包括:
- 任何东西都是一条命令,包括语法结构(for,if等)。
- 任何事物都可以重新定义和重载。
- 所有的数据类型都可以看作字符串。
- 语法规则相当简单。
- 提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。
- 动态的域定义。
- 很容易用C, C++,或者Java扩展。
- 解释语言,代码能够动态的改变。
- 完全的Unicode支持。
- 平台无关。Win32,UNIX,Mac上都可以跑。
- 和GUI紧密集成。Tk
- 代码紧凑,易于维护。
TCL本身在8.6以後提供面向对象的支持。因为语言本身很容易扩展到支持面向对象,所以在8.6之前存在许多C语言扩展提供面向对象能力,包括XOTcl, Incr Tcl等。另外SNIT扩展本身就是用TCL写的。
使用最广泛的TCL扩展是TK。 TK提供了各种OS平台下的图形用户界面GUI。Perl、Python等语言都提供接口适配到TK上。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力,例如(passwd, ftp, telnet等命令驱动的外壳).
[编辑] 擴充套件Tcl支援擴充套件,這些擴充套件提供了額外的功能(像是GUI,自動化,資料庫存取等)。
下面是一些Tcl擴充套件的列表:
[编辑] 範例下面是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变量从当前时间中每秒更新一次。
-- 来至维基百科
|
|