22 lines
517 B
Tcl
22 lines
517 B
Tcl
echo off
|
|
#useage do addwave.tcl uart,where uart is a module name
|
|
#when there is mulitple matches,the 1st one is picked
|
|
puts "---->find by design unit:$1"
|
|
|
|
set patten *$1*;
|
|
#puts "---->find patten:$patten"
|
|
|
|
set rslt [find instance -bydu $patten];
|
|
#puts "---->find result:$rslt"
|
|
|
|
regsub {\{} $rslt "" rslt;
|
|
regsub {\}} $rslt "" rslt;
|
|
|
|
regsub { (.*)} $rslt "" path;
|
|
#puts "---->design path is:$path"
|
|
|
|
set signal_list ${path}/*
|
|
puts "---->list to be add to wave:$signal_list"
|
|
|
|
add wave $signal_list
|