父 TCL 过程

Question

假设您有一个 TCL 过程 ProcA 和一个 TCL 脚本 ScrpB。 ProcA 来源 ScrpB。 我如何从 ScrpB 中知道 ProcA 提供了它？

谢谢

我尝试了以下内容。 从 ScrpB 内部调用“信息框架”并确实获得了任何有用的信息。

Answer 1

info level 0正是您要查找的信息。 您可以通过在被调用过程中添加类似这样的内容来浏览整个调用堆栈：

for {set i [info level]} {$i > 0} {set i [expr {$i - 1}]} {
    lappend stack [info level $i]          
}
return $stack