TCL：回归更高层次？

Question

如何从过程返回到更高的上下文？
例如：如果过程 X 调用了另一个过程 Y，而该过程 Y 又调用了第三个过程 Z - 有没有办法从 Z 直接返回到 X ？

Answer 1

从 8.5 开始，是的。 return 命令有一个 < code>-level 选项用于执行此操作：

return -level 2 $someValue

因此，例如：

proc X {} {
    puts "X - in"
    Y
    puts "X - out"
}
proc Y {} {
    puts "Y - in"
    Z
    puts "Y - out"
}
proc Z {} {
    puts "Z - in"
    return -level 2 "some value"
    puts "Z - out"
}
X

产生以下输出：

X - in
Y - in
Z - in
X - out

请注意，这样做会降低 Z 的可重用性，但那是你的事。

Answer 2

如果您从“z proc”调用“x process”那么
循环将在您的流程中创建。