TCL脚本调试

Question

如何调试TCL脚本？有没有可用于调试的工具？

Answer 1

我知道Tcl的最好的调试器是ActiveState的TclDevKit的一部分; 它是非自由的,但强烈推荐.(还有一个免费的21天试用版.)

其他选项可供选择.首先,Tcl的内置trace命令使得在您自己的断点,观察点,单步跟踪等中添加它非常简单.但是缺少适当的免费集成工具(正是因为我们开发的社区)非常好的ActiveState工作人员).不过,您可能会发现下一个代码示例很有用:

跟踪所有命令调用:

# overwrite at each invocation of this script; pick somewhere else if you prefer
set _Trace_fd [open "/tmp/tcltrace.tmp" w]
fconfigure $_Trace_fd -buffering line

rename proc _proc
_proc proc {name arglist body} {
    uplevel [list _proc $name $arglist $body]
    uplevel trace add execution $name enterstep {::apply {{name cmd op} {
        puts $::_Trace_fd "$name >> $cmd"
    }}}
}

注意,这会产生相当多的输出和典型代码......

Answer 2

TCL是调试TCL的好工具。看看trace命令。info和winfo也很有用。如果您想要将这些内容封装到更传统的调试器中，可以在http://wiki.tcl.tk/473找到一个列表