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 ]"