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 all_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"
		puts "Added signal: $facname"
	}
}
set num_added [ gtkwave::addSignalsFromList $all_facs ]
puts "num signals added: $num_added"

# zoom full
gtkwave::/Time/Zoom/Zoom_Full