forked from tanchou/Verilog
20 lines
611 B
Tcl
20 lines
611 B
Tcl
|
puts "Starting TCL script"
|
||
|
|
#set path test1b_tb
|
||
|
|
#gtkwave::forceOpenTreeNode $path
|
||
|
|
set nfacs [ gtkwave::getNumFacs ]
|
||
|
|
puts "There are $nfacs signals"
|
||
|
|
set l [list]
|
||
|
|
|
||
|
|
for {set i 0} {$i < $nfacs } {incr i} {
|
||
|
|
set facname [ gtkwave::getFacName $i ]
|
||
|
|
set numdots [ expr {[llength [split $facname .]] - 1}]
|
||
|
|
# puts "$numdots"
|
||
|
|
if {$numdots == 1} {
|
||
|
|
lappend l "$facname"
|
||
|
|
puts "Added signal $facname"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
set num_added [ gtkwave::addSignalsFromList $l ]
|
||
|
|
gtkwave::setZoomRangeTimes [ gtkwave::getMinTime ] [ gtkwave::getMaxTime ]
|
||
|
|
puts "Start time [ gtkwave::getMinTime ] end time: [ gtkwave::getMaxTime ]"
|