TCL基本语法

1.命令之间必须用换行或者分号隔开，单词之间必须用空格或 TAB 键隔开。

解释器对一个命令的求值过程分为两部分:分析和执行。在分析阶段,TCL 解释器运用规

则把命令分成一个个独立的单词,同时进行必要的置换(substitution); 在执行阶段,TCL 解

释器会把第一个单词当作命令名, 并查看这个命令是否有定义, 如果有定义就激活这个命令对应

的 C/C++过程,并把所有的单词作为参数传递给该命令过程,让命令过程进行处理。

3.赋值set，其有返回值，为所赋之值。

4.置换，分为变量置换，命令置换与反斜杠置换

.变量置换$，

.命令置换[]，它把随后的单词当作一个命令，eg：[expr 1+1]。[]里可以放多个命令，但是其返回值为最后一个命令的返回值。

.反斜杠置换，用于单词中插入特殊字符，比如空格，换行，[,$，以及C语言中的n,v等。

5.双引号及大括号

在双引号中各种分隔符不起作用，但是对换行符，及$,[]两种置换会起作用。而在大括号中，所以特殊字符将失去其特殊含义。

6.注释

在TCL解释器期望出现命令的地方出现的#到行末的部分被当作注释，eg:%#comment 或者 %set a b;#comment

7.变量

.变量最好按CC++变量名要求，因为在置换时只把$往后第一个不是数字，字母，下划线的部分替换。当然，如果加上{}就另当别论了。

.TCL只支持关联数组。

8.相关命令

.set 赋值

.unset 它后面可以跟任意多个变量名，如果跟数组名则删掉整个数组。

.append 追加变量到一个文本型变量之后。

.incr 将一个数值加到一个整形变量上。

9.操作数

.与ANSI C一样。

10.数学函数

.expr arg?arg? 它把所有的参数组合到一起，作为一个表达式。

.list可嵌套定义

.concat list?list? 将多个list连接成一个

.index list index 返回list中给定序号的元素，eg:index {1 2 {3 4}} 2，下标从0开始

.llength list 返回list的元素个数

.linsert list index value?value? 将一个list插入另一个list指定的序号处eg:linsert {1 2} 1 3 4 5

.lreplace list first last? value value ...?如果无value，则代表删除。

.lrange list first last 返回first到last之间的元素，如果last指定为end,则代表末尾。

.lappend varname value?value? 把所有给定的value加到varname的后面

.lsearch ?-exact?-glob?-regexp? list pattern 返回list中第一个匹配模式pattern的元素的索引，如果找汪以匹配就返回-1。-exact表示精确匹配，-glob的匹配方式和string match命令的匹配方式相同，-regexp表示正规表达式匹配。

.lsort options? list按照选项的方式进行排序

-ascii(default) -dictionary(不考虑大小写，有数字的话当作整数来排序) -integer -real -increasing

-descreasing -command command

.split string splitChars? 如果分隔符为一个空字符{}，则按字符分开，如果没给出,则以空格为分隔符。

.join list joinString? 将list中所有元素合并到一个字符串中，中间以joinString分开，缺省的joinString是空格。

12.控制流

.if {test}{

...

}esleif {

..

}

注意：执行体的{应该放在一行的末尾，否则TCL解释器会认为if命令在换行符处已结束，另外，

if和{之间应该有一个空格，不然TCL解释器会把 if{作为一个整体当作一个命令名。

.while循环

.for循环，与C不同，它不用;隔开，而是用三个{}各自括起来。

.foreach

最基本的形式是foreach varName list body

也可以foreach varlist1 list1? varlist2 list2..?Body

eg:

set x {}

foreach i {a b c} {j k} {d e f g}{

lappend x $i $j $k

执行过程如下：

1，i=a j=d k=e,x={a d e}

2,i=b j=f k=g,x={a d e b f g}

3,i=c j={} k={} x={a d e b f g c {} {} }

.break continue

.switch options?string{pattern body?patternbody?..}

第一个可选参数是options，表示进行匹配的方式，TCL支持三种匹配方式：-exact方式，-glob方式，-regexp方式，缺省情况表示-glob方式。

switch $x{

a -

b {incr t1}

c {incr t2}

default {incr t3}

}

a后面的-表示使用与下一个模式相同的脚本。一旦switch命令找到一个模式匹配，就执行相应的脚本，并返回脚本的值，作用switch命令的返回值。

.eval arg? arg? ...

它可以接收一个或多个参数，然后把所有的参数以空格隔开组合到一起成为一个脚本，然后对这个脚本进行求值。eg:%eval set a 2; set b 4;

.source 命令读一个文件并把这个文件的内容作为一个脚本进行求值。

source e:/tcl&c/

注意即使是在windows下，也应该使用UNIX下的/，而不是

13.过程

类似于C中的函数

%proc add{x y}{expr $x+$y}

也可以用return语句，也可以有默认的参数和可变参数，如果参数的最后一个为args，则代表可变参数，可以用foreach来取得。也有局部变量和全局变量之分，在过程外定义的即为全局变量，如果在过程内要使用全局就是，应使用global命令。

eg:%proc sample{x}{

global a

incr a

return [expr $a+$x];

}

.upvar level? otherVar myVar??

其作用相当于是指定别名，即引用。

level表示调用upvar命令的过程相对于我们希望引用的变量myVar在调用栈中相对位置。缺省为1。

14.文件

.open name ?access? access与我们熟悉的C语言类似，有r,r+,w,w+,a,a+

open 命令返回一个字符串用于表识打开的文件。TCL 有三个特定的文件标识:stdin,stdout 和

stderr ,分别对应标准输入、标准输出和错误通道,任何时候你都可以使用这三个文件标识。

gets fileId ?varName? 读 fileId 标识的文件的下一行,如果命令中有 varName忽略换行符。

就把该行赋给它,并返回该行的字符数(文件尾返回-1),如果没有 varName 参数,返回文件的下一行作为命令结果(如果到了文件尾,就返回空字符串)。

和gets类似的命令是read,不过 read 不是以行为单位的,它有两种形式:

read ?-nonewline? fileId 读并返回 fileId 标识的文件中所有剩下的字节。如果没有

nonewline 开关,则在换行符处停止。

read fileId numBytes 在 fileId 标识的文件中读并返回下一个 numbytes 字节。

puts ?-nonewline? ?fileId? string puts 命令把 string 写到 fileId 中,如果没有 nonewline

开关的话,添加换行符。fileId 默认是 stdout。命令返回值为一空字符串。

puts 命令使用 C 的标准 I/O 库的缓冲区方案,这就意味着使用 puts 产生的信息不会立即出现

在目标文件中。如果你想使数据立即出现在文件中,那你就调用 flush 命令:

flush fileId 把缓冲区内容写到 fileId 标识的文件中,命令返回值为空字符串。

flush 命令迫使缓冲区数据写到文件中。flush 直到数据被写完才返回。当文件关闭时缓冲区数

据会自动 flush。

close ?fileId? 关闭标识为 fileId 的文件,命令返回值为一空字符串。

OTCL

使用关键字Class定义一个类，eg:Class Animal

TCL中的类有一些公共的行为，包括：

.Alloc 创建一个新的实体。

.Create 如果没定义自己的Create函数，那么它是由默认的unknown过程调用的，其定义如下：

Class instproc create {obj args} {

set h [$self info heritage]

foreach i [concat $self $h] {

if {[$i info commands alloc] != {}} then {

set args [eval [list $i] alloc [list $obj] $args]

$obj class $self

eval [list $obj] init $args

return $obj

}

}

error {No reachable alloc}

}

从代码可知，它将沿着继承链创建相应的实例，并调用相应的init过程。

.info 此过程用于查询当前的一些状态信息，它有如下的选项：

superclass 返回其父类列表

subclass 返回它的子类列表

heritage 返回它的继承列表

instances 返回属于此类的实体列表

instprocs 返回此类的过程列表

instcommands 返回所以的Tcl和c过程

instargs 返回Tcl过程的参数列表

instbody 返回Tcl过程的定义

instdefault 返回Tcl过程参数的默认值

.instproc为类添加成员函数，使用instvar为类添加成员变量。有一点需要注意的是，在一个函数中定义了成员变量，这虽然能保证此类中有这个成员变量，但是如果要在其他成员函数中使用，仍然要采用这种方式重新申明此成员变量。

eg: Animal instproc run {speed} {

$self instvar speed

set speed $speed

puts "Animal run with speed $speed"

}

Animal instproc run2 {} {

$self instvar speed

puts "run2 run with speed $speed"

}

superclass 指定其父类,eg:Class Tiger -superclass Animal

unknown 当没有匹配的方法时，它将被调用，一般会重载此函数，其默认实现如下，以完成Create：

Class instproc unknown {m args} {

if {$m == {create}} then {

error "$self: unable to dispatch $m"

}

eval [list $self] create [list $m] $args

}