列出tcl中的被调用的proc

Question

有什么办法可以列出Tcl文件中所有用户定义的proc调用 。 ？

我有一个TCL文件，我想列出该文件已调用的所有proc。

关于keerthan

Answer 1

为了在调用特定命令时获得消息，我们可以使用enter执行跟踪 ：

trace add execution $theCommand enter {apply {{call op} {
    puts "Called [lindex $call 0]"
}}

要选择将该跟踪附加到哪个命令，我们可以使用各种方法。 最简单的方法是，您可以确定要附加其过程的名称空间：

foreach p [info procs ::theNamespace::*] {
    trace add execution $p enter {apply {{call op} {
        puts "Called [lindex $call 0]"
    }}
}

您还可以将其附加到源特定文件时创建的每个过程。 这有点复杂：

# Need to keep this script fragment so we can remove it again after the source
set tracer {apply {{proccall args} {
    set cmd [uplevel 1 [list namespace origin [lindex $proccall 1]]]
    trace add execution $cmd enter {apply {{call args} {
        puts "Called [lindex $call 0]"
    }}
}}

trace add execution ::proc leave $tracer
source /the/script.tcl
trace remove execution ::proc leave $tracer

这样您会变得非常复杂（并且请注意，它也可能影响脚本加载程序包所创建的过程；您可以停止该操作，但这需要做很多工作）。 仅附加到当前存在于名称空间中的所有过程就更简单了。