|
|
@@ -1,17 +1,38 @@
|
|
|
# Add all signals from the top level of test bench
|
|
|
# i.e. only containing one . character
|
|
|
set nfacs [ gtkwave::getNumFacs ]
|
|
|
-set all_facs [list]
|
|
|
+set top_facs [list]
|
|
|
for {set i 0} {$i < $nfacs } {incr i} {
|
|
|
set facname [ gtkwave::getFacName $i ]
|
|
|
set matches [regexp -all {\.} $facname]
|
|
|
if {$matches == 1} {
|
|
|
- lappend all_facs "$facname"
|
|
|
+ lappend top_facs "$facname"
|
|
|
puts "Added signal: $facname"
|
|
|
}
|
|
|
}
|
|
|
-set num_added [ gtkwave::addSignalsFromList $all_facs ]
|
|
|
-puts "num signals added: $num_added"
|
|
|
+
|
|
|
+set dut_facs [list]
|
|
|
+for {set i 0} {$i < $nfacs } {incr i} {
|
|
|
+ set facname [ gtkwave::getFacName $i ]
|
|
|
+ set matches [regexp -all {dut} $facname]
|
|
|
+
|
|
|
+ if {$matches > 0} {
|
|
|
+ set matches [regexp -all {\.} $facname]
|
|
|
+ if {$matches == 2} {
|
|
|
+ lappend dut_facs "$facname"
|
|
|
+ puts "Added signal: $facname"
|
|
|
+ }
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+set num_top_added [ gtkwave::addSignalsFromList $top_facs ]
|
|
|
+
|
|
|
+gtkwave::/Edit/Insert_Blank
|
|
|
+gtkwave::/Edit/Insert_Blank
|
|
|
+
|
|
|
+set num_dut_added [ gtkwave::addSignalsFromList $dut_facs ]
|
|
|
+puts "num top signals added: $num_top_added"
|
|
|
+puts "num DUT signals added: $num_dut_added"
|
|
|
|
|
|
# zoom full
|
|
|
gtkwave::/Time/Zoom/Zoom_Full
|
