Orcad在TCL调试过程中,开始最头疼的问题是如何调试,常常不知道在那里出问题。又没有调试工具或者还不知道有什么好的调试工具。头大。
puts是一种方法,可在怀疑出问题的地方打印。但有时,并不好使。例如有时程序崩溃,直接就关闭了ORCAD,无法看到puts打印的信息,完全不知道出错在哪行,这时傻了。经过学习,终于找到了一个方法。
可用tk_messageBox 来实现暂停在怀疑的地方,进行单步调试。定义一个函数。在需要打印暂停的地方调试此函数即可。
proc debug_msg { lmsg } {
set rslt no
while { $rslt != yes} {
set rslt [tk_messageBox -message "$lmsg, select yes to continue" -type yesno -icon question]
}
}