Subversion Repositories forth-cpu

# vim: syntax=tcl

# Richard Howe

# TCL Script for GTKWave on tb.ghw

#

set nfacs [ gtkwave::getNumFacs ]

#set dumpname [ gtkwave::getDumpFileName ]

#set dmt [ gtkwave::getDumpType ]

# puts "number of signals in dumpfile '$dumpname' of type $dmt: $nfacs"

set names [list]

lappend names "top.tb.clk"

lappend names "top.tb.rst"

lappend names "top.tb.debug.pc"

lappend names "top.tb.debug.insn"

lappend names "top.tb.debug.daddr"

lappend names "top.tb.debug.dout"

lappend names "top.tb.debug.din"

lappend names "top.tb.o_vga.hsync"

lappend names "top.tb.o_vga.vsync"

set num_added [ gtkwave::addSignalsFromList $names ]

puts "num signals added: $num_added"

set highlight_insn [list]

for {set i 0} {$i < $nfacs } {incr i} {

     set facname [ gtkwave::getFacName $i ]

     set indx [ string last "insn" $facname  ]

     if {$indx != -1} {

       lappend highlight_insn "$facname"

       puts "found : $facname"

   }

}

set num_added [ gtkwave::highlightSignalsFromList $highlight_insn ]

puts "num highlighted: $num_added"

gtkwave::/Edit/Highlight_Regexp "insn"

set procFile "h2"

set which_f [ gtkwave::setCurrentTranslateProc $procFile ]

gtkwave::/Edit/Data_Format/Translate_Filter_Process/Enable_and_Select

puts "which_f: $which_f"

## Causes seg fault, is this the right command?

#set num_update [ gtkwave::installProcFilter $which_f ]

#puts "num updated with proc filter: $num_update"

gtkwave::/Edit/Set_Trace_Max_Hier 0

gtkwave::/Time/Zoom/Zoom_Amount -21.5

#gtkwave::setMarker 128

#gtkwave::setNamedMarker A 400 "Example Named Marker"

#gtkwave::/File/Print_To_File PS {Letter (8.5" x 11")} Full $dumpname.ps

#gtkwave::/File/Quit