DOKK / manpages / debian 10 / manpages-zh / upvar.3tcl.zh_CN
upvar(3tcl) Tcl Built-In Commands upvar(3tcl)


upvar - 建立到在不同栈桢上的变量的连接

总览 SYNOPSIS

upvar ?level? otherVar myVar ?otherVar myVar ...?


描述 DESCRIPTION

这个命令安排在当前过程中的一个或多个局部变量去引用位于包围它的过程调用中的变量或引用全局变量。 Level 可以用 uplevel 命令允许的任何形式,并且如果第一个 otherVar 的第一个字母不是 # 或一个数字,则可以被省略(它缺省为1)。对于每个 otherVar 参数,upvar 使由 level 给出的过程桢中(如果 level#0 则在全局层次)的叫这个名字的变量在当前过程中可以用由相应的 myVar 参数给出名字来访问。在调用它的时候叫做 otherVar 的变量不需要存在;可以在第一次引用 myVar 时象普通变量那样建立它。在调用 upvar 的时候一定不能存在一个叫 myVar 的变量。MyVar 总是被作为一个变量的名字来对待,而不是一个数组的元素。即使这个名字看起来象一个数组元素,比如 a(b),仍建立一个正规的变量。OtherVar 可以引用一个标量变量,或一个数组元素。Upvar 返回一个空串。

upvar 命令简化了传名调用(call-by-name)过程的实现并使它易于建立如同 Tcl 过程的新控制结构。例如,考虑下列过程:

proc add2 name {
	upvar $name x
	set x [expr $x+2]
}
调用 Add2 时加上给出一个变量名字的一个参数,它向这个变量的值加二。尽管 add2 可以使用 uplevel 替代 upvar 来实现,upvar 简便了 add2 访问在调用者过程桢中的变量。

namespace eval 是改变 Tcl 命令上下文的另一种方式(除了过程调用之外)。它向栈增加一个调用桢来表示名字空间上下文。这意味着每个 namespace eval 命令被视为给 uplevelupvar 命令的另一个调用层次。例如,info level 1 将返回描述一个命令的列表,它要么是最外的过程要么是最外的 namespace eval 命令。还有,uplevel #0 在最外面的名字空间(全局名字空间)中的顶层求值一个脚本。

如果删除(unset)一个 upvar 变量(比如,上面的 add2 中的 x ),则 unset 操作影响它所连接到的变量,而不是 upvar 变量。除了退出在其中定义它的那个过程之外,没有方法删除一个 upvar 变量。但是,可以通过执行另一个 upvar 命令来为一个 upvar 变量重定目标(retarget)。

upvar 以一种直接但可能不是预期的方式与 trace 交互。如果在 otherVar 上定义了一个变量跟踪,涉及 myVar 的动作将触发这个追踪。但是,传递给跟踪过程将是 myVar 的名字,而不是 otherVar 的名字。 所以,下列代码的输出将是 localVar 而不是 originalVar:

proc traceproc { name index op } {
	puts $name
}
proc setByUpvar { name value } {
	upvar $name localVar
	set localVar $value
}
set originalVar 1
trace variable originalVar w traceproc
setByUpvar originalVar 2
}

如果 otherVar 引用一个数组的元素,则为整个数组设置的变量跟踪在 myVar 被访问的时候将不被调用(但在特定元素上的跟踪仍将被调用)。特别的,如果这个数组是 env,则对 myVar 的变动将不被正确的传递给子进程。

参见 SEE ALSO

global(n), namespace(n), uplevel(n), variable(n)

关键字 KEYWORDS

context, frame, global, level, namespace, procedure, variable

寒蝉退士

2001/11/21

《中国 Linux 论坛 man 手册页翻译计划》:

http://cmpp.linuxforum.net

本页面中文版由中文 man 手册页计划提供。
中文 man 手册页计划:https://github.com/man-pages-zh/manpages-zh

Tcl