首次提交
This commit is contained in:
21
stream_rx_ctrl/sim/func001/addwave.tcl
Normal file
21
stream_rx_ctrl/sim/func001/addwave.tcl
Normal file
@@ -0,0 +1,21 @@
|
||||
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
|
||||
Reference in New Issue
Block a user