a2o/dev/sim/gtkwave/gtkw.tcl

34 lines
854 B
Tcl

# init for a2o
# install acts on highlighted traces; filter=0 uninstalls
#set which_f [gtkwave::setCurrentTranslateFile ./gtkf-alias.py]
#puts "$which_f"
#gtkwave::installFileFilter $which_f
#set which_f [gtkwave::setCurrentTranslateProc ./gtkf-ppc.py]
#puts "$which_f"
#gtkwave::installProcFilter $which_f
set sigs [gtkwave::getDisplayedSignals]
puts "$sigs"
# cant figure out how to unhighlight all; somehow it is remembering after reinvoke
# unhighlight all
foreach sig $sigs {
puts "$sig off"
gtkwave::setTraceHighlightFromNameMatch $sig off
}
# highlight bus
set h [list {A2L2_AC_AN}] ;# combined - does it work?
set n [gtkwave::highlightSignalsFromList $h]
if {$h > 0} {
set f [gtkwave::setCurrentTranslateTransProc ./gtkf-a2l2.py]
gtkwave::installTransFilter $f
} else {
puts "Didn't apply trans filter to [lindex $h 0]"
}