回复 1# tianmaoyuan
这段是在 dcshell 里的 tclscript 吧?
while { [gets$rtl line] >= 0 } { # 读取档案 regsub {#.*} $line {} line # 把"#"之后(含 "#")的批注文字去除 if {[regexp {^rtl} $line]} { # 判断是否是以rtl 为行首 setlocal_rtl {} # 给一个空的 list foreach vlg [lrange $line 1 end-1]{ # 把读进来的第二个元素到到数第二个元素, 每个元素前加上data/rtl/ lappend local_rtl "data/rtl/$vlg" } # # 把 local_rtl 做為分析的选项 analyze -format verilog-define "USE_IDEAL_LATCH" $local_rtl
lrange 之後的 end 是 list 的最後一個元素的意思 |