如何获取嵌入式TCL的第三方软件3RD生成的命令/事件执行顺序？

以下是几种可行的方法，绕过info commands/info procs的局限：

1. 用trace add execution追踪所有命令执行 #

TCL 8.5及以上支持追踪任意命令的执行过程，你可以在脚本开头添加这段代码，记录所有被调用的命令及其执行顺序：

# 定义日志存储变量
set cmdLog [list]

# 追踪所有命令的执行前事件
trace add execution {*} enter {apply {cmd args op options level ->
    global cmdLog
    lappend cmdLog [list [clock milliseconds] $cmd {*}$args]
}}

# 执行完3RD目标功能后，可打印日志分析
# puts "命令执行顺序："
# foreach entry $cmdLog {
#     lassign $entry ts cmd {*}args
#     puts "[clock format $ts -format "%H:%M:%S.%3f"] $cmd $args"
# }

这段代码会记录所有被调用的命令（包括3RD触发的内部TCL命令）的执行时间、命令名和参数，后续可导出梳理顺序。若内嵌TCL版本低于8.5，把{*}替换为空字符串即可匹配所有命令。

2. 追踪命令的创建事件 #

如果3RD是动态创建TCL命令（比如通过proc或interp create），可以用trace add command追踪命令创建动作，记录新出现的命令名：

set createdCmds [list]

# 追踪全局命名空间下的命令创建
trace add command :: create {apply {cmd op options ->
    global createdCmds
    lappend createdCmds [list [clock milliseconds] $cmd]
}}

# 执行3RD功能后查看创建的命令列表
# puts "动态创建的命令："
# foreach entry $createdCmds {
#     lassign $entry ts cmd
#     puts "[clock format $ts -format "%H:%M:%S.%3f"] 新增命令：$cmd"
# }

如果3RD的命令在特定命名空间下，将::替换为对应命名空间路径即可。

3. 追踪变量变更关联事件 #

因为每个命令/事件伴随变量状态变化，可以追踪相关变量的读写事件，反向关联触发的命令：

set varTraceLog [list]

# 追踪全局所有变量的读写
trace add variable :: {read write} {apply {varName index op options ->
    global varTraceLog
    # 获取当前调用栈，找到触发变量变更的命令
    set callStack [info level -1]
    lappend varTraceLog [list [clock milliseconds] $op $varName $callStack]
}}

通过调用栈info level -1可获取触发变量变更的上层命令，从而关联到对应的事件。

4. 重定向标准输出/错误（如果3RD有日志输出） #

部分内嵌TCL的软件会把内部命令执行日志输出到stdout/stderr，你可以重定向这些输出到文件或变量，从中提取命令信息：

# 重定向stdout到变量
set logOutput ""
proc captureLog {txt} {
    global logOutput
    append logOutput $txt
}
chan stdout configure -blocking 0 -buffering line -command captureLog

# 执行3RD功能后，分析logOutput中的内容

需要注意，以上方法可能会捕获大量无关的TCL内部命令，需要结合业务逻辑过滤出3RD相关的命令序列。如果3RD使用了独立的子解释器（interp create），需要在对应的子解释器中设置追踪。

内容的提问来源于stack exchange，提问作者user_mpr