TCL语言培训教程

在定义过程时，你可以利用return命令在任何地方返回你想要的值。return命令迅速中断过程，并把它的参数作为过程的结果。

（1）局部变量和全局变量
对于在过程中定义的变量，因为它们只能在过程中被访问，并且当过程退出时会被自动删除，所以称为局部变量；在所有过
程之外定义的变量我们称之为全局变量。TCL中局部变量和全局变量可以同名，两者的作用域的交集为空：局部变量的作用域是
它所在的过程的内部；全局变量的作用域则不包括任何过程的内部。这一点和C语言有很大的不同。

如果我们想在过程内部引用一个全局变量的值，可以使用global命令。
（2）缺省参数和可变参数
可以定义具有缺省参数值的过程，我们可以为过程的部分或全部参数提供缺省值，如果调用过程时未提供那些参数的值，那
么过程会自动使用缺省值赋给相应的参数。和C\C++中具有缺省参数值的函数一样，有缺省值的参数只能位于参数列表的后部，即
在第一个具有缺省值的参数后面的所有参数，都只能是具有缺省值的参数。
TCL的过程定义还支持可变个数的参数，如果过程的最后一个参数是args, 那么就表示这个过程支持可变个数的参数，位于args
以前的参数象普通参数一样处理，但任何附加的参数都需要在过程体中作特殊处理，过程的局部变量args将会被设置为一个列表，
其元素就是所有附加的变量。如果没有附加的变量，args就设置成一个空串。

（3）引用：upvar
命令语法:upvar [level] otherVar myVar otherVar myVar ...
upvar命令使得用户可以在过程中对全局变量或其他过程中的局部变量进行访问。
upvar命令的第一个参数otherVar是我们希望以引用方式访问的参数的名字，第二个参数myVar 是这个过程中的局部变量的名字，
一旦使用了upvar 命令把otherVar 和myVar 绑定,那么在过程中对局部变量myVar 的读写就相当于对这个过程的调用者中otherVar 所代
表的局部变量的读写。下面是一个例子：
proc temp { arg } { upvar $arg b set b [expr $b+2] }
proc myexp { var } { set a 4 temp a return [expr $var+$a] }
则: myexp 7 13
这个例子中，upvar 把$arg(实际上是过程myexp中的变量a)和过程temp中的变量b绑定，对b的读写就相当于对a的读写。

upvar命令语法中的level参数表示：调用upvar命令的过程相对于我们希望引用的变量myVar在调用栈中相对位置。例如：
upvar 2 other x
这个命令使得当前过程的调用者的调用者中的变量other，可以在当前过程中利用x访问。缺省情况下，level的值为1，即当前过
程(上例中的temp)的调用者(上例中的myexp)中的变量(上例中myexp的a)可以在当前过程中利用局部变量(上例中temp的b)访问

如果要访问全局变量可以这样写：
upvar ＃0 other x
那么，不管当前过程处于调用栈中的什么位置，都可以在当前过程中利用x访问全局变量other。

上传完毕，以上仅供参考

好像没多少人需要啊

不好意思，从别的网站粘过来的

支持直接上传文档!

做成了DOC文档，太懒了啊

支持直接上传文档!

支持直接上传文档!