My<cod/>.net
TCL разработка: среда отладки
Мне нравится немного взлома TiVo в свободное время-TiVo использует вариант Linux и TCL . Я хотел бы написать сценарии TCL на моем ноутбуке Windows, протестировать их, а затем FTP их на мой TiVo.
Могу ли я получить рекомендацию для среды отладки TCL для Windows, пожалуйста?
Я не уверен, что вам нужна отладочная среда как таковая. Просто возьмите двоичный релиз из ActiveState ( http://www.activestate.com/Products/activetcl/index.mhtml) и запустите свои скрипты из командной строки (C:/blahblah/tclsh myprog.tcl) и посмотрите, что он выплюнет.
Я бы не советовал строить его из первоисточника, потому что это действительно ничего вам не даст.
На этой странице wiki обсуждаются инструменты для разработки и отладки в Tcl. В частности, я был очарован tkinspect (упомянутым на этой странице wiki с его собственной страницей в другом месте на wiki), который позволяет одному в среде linux или другой unix x взаимодействовать с запущенным приложением tk, чтобы попытаться выполнить некоторую отладку. Конечно, коммерческий продукт ActiveState "tcl dev kit" имеет отладчик. Есть и другие отладчики-свободные и не очень - обсуждаемые на wiki.
Теперь есть плагин Tcl для Netbeans, который имеет функцию отладки. Вот некоторые скриншоты: http://wiki.tcl.tk/28657
Если вы ищете отладчик с возможностями редактирования, RamDebugger также является хорошим инструментом.
ActiveState имеет набор для разработки Tcl (не бесплатный, но дешевый), который я использовал в прошлом. Он даже работал с нашим встроенным интерпретатором tcl.
http://www.activestate.com/tcl_dev_kit/
Я нашел эту точку останова setter из Tcl wiki (от Ричарда Сученвирта), чтобы быть удобным. Как только интерпретатор видит вызов к этому, скажем "bp beforehairyfunction", он делает паузу и дает вам подсказку tclsh.
proc bp {{s {}}} {
if ![info exists ::bp_skip] {
set ::bp_skip [list]
} elseif {[lsearch -exact $::bp_skip $s]>=0} return
if [catch {info level -1} who] {set who ::}
while 1 {
puts -nonewline "$who/$s> "; flush stdout
gets stdin line
if {$line=="c"} {puts "continuing.."; break}
if {$line=="i"} {set line "info locals"}
catch {uplevel 1 $line} res
puts $res
}
}