learning_ghdl/uart_module/simulation/gtkwave.tcl

# Add all signals from the top level of test bench
# i.e. only containing one . character
set nfacs [ gtkwave::getNumFacs ]
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 top_facs "$facname"
		puts "Added signal: $facname"
	}
}

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