tcltk参考——控制结构uplevel

    技术2022-05-12  6

     .

    .

    名称

    uplevel - 在不同的堆栈层中执行一个脚本

    语法

    uplevel ?level? arg ?arg ...?

    描述

    所有的arg变元使用concat命令风格连接起来,连接起来的命令在level指定后的作用域中执行,uplevel返回执行结果。(堆栈层可以看作是变量起作用的范围)

    如果level是一个整数,它指出了调用命令的堆栈距离目前调用堆栈的层数,如果level是以#后面加一个数字,那么这个数字就是命令执行的绝对堆栈层,缺省值为1,如果有了#符号那么后面必须跟一个数字。

    例如,假设过程a在最高层调用,然后a调用b,再后来b调用c,假设c调用uplevel名令,如果level是1或者#2或者忽略掉,这个命令将在b的变量的作用域中执行,如果level是2或者#1,那么这个命令将在a的变量的作用域中执行,如果level是3或者#0,这个命令将在最高层执行(只有全局变量是可见的)。

    uplevel命令导致在调用过程的堆栈层中"看不到"过程了,在下面的例子里,假设c调用命令:

    uplevel 1 {set x 43; d}

    当d是另外一个过程时,set命令会在b的作用域中修改变量x,d将在第三层堆栈运行,就像是b过程调用的d过程。

    uplevel {set x 42}

    set命令将会修改在b作用域中的x变量,在执行d的时候过程c对于调用堆栈层是不可见的,命令info level可以获得当前程序的堆栈层。

    uplevel可以实现新的控制结构,例如,uplevel可以实现while过程。

    示例

    uplevel命令在实现新的控制结构方面非常有用,下面的例子显示了它可以用来创建一个do命令:

    proc do {body while condition} { if {$while ne "while"} { error "required word missing" } set conditionCmd [list expr $condition] while {1} { uplevel 1 $body if {![uplevel 1 $conditionCmd]} { break } } }

    最新回复(0)