如何打印 TCL 运行 命令

Question

如何打印每个 TCL 命令我是 运行，理想情况下我如何自定义此打印？

即：

>> namespaceXY::commandXY

我要打印 :

"-- 运行 : namespaceXY::commandXY"

谢谢

Answer 1

要查看命令跟踪，请使用执行跟踪。您通常将它们附加到 source 或（不太常见）eval.

之类的东西上

proc printTrace {commandCall op} {
    # I don't know whether you want the arguments too; they can get quite long...
    puts "-- Running : [lindex $commandCall 0]"
}
trace add execution source enterstep printTrace
source myScript.tcl

这将启用从 source 开始到结束的所有命令的跟踪；如果该文件包含您的主循环处理，您将打印出所有内容。

请注意，步级执行跟踪会产生大量开销，并且某些命令可能具有您通常不会观察到的内部步骤。