tcl脚本示例.pdf

范例1 proc design_violators {{expand}} { #此处{{expand}}表示子程序design_violators 有一个可选-option redirect tmp_file {[report_constraint -all_violators -max_delay -nosplit]}; #这里redirect 的原始命令必须{ }括号 set header_file [open tmp_file r];#此处产生一个句柄，open 为读属性，之后需要关 闭 while {[gets ${header_file} line_1]=0} { #读取一行，赋值给line_1,句柄相当于指针。 lappend tools_report_list ${line_1}; } close ${header_file};#关闭句柄 file delete tmp_file; set endp_list {}; foreach line_sample ${tools_report_list} { if {[regexp {^\s*(\S+)\s+.*\s+(\S+)\s+\(VIOLATED\)} ${line_sample} \ match endp slack]} { #puts $slack; #测试用 lappend endp_list $endp; set s1($endp) $slack; } } #puts $endp_list; #测试用 #echo for test;#测试用 foreach endp_list_sample ${endp_list} { set endp_split [split ${endp_list_sample} \/ ] set level_num [llength ${endp_split}]; #block 为一个数组， if {${level_num}2} { #tcl 语法，if 语句之后必须有} {同行 set b [lrange ${endp_split} 0 [expr ${level_num}-3]]; #expr 之后不需要加然后形式括号 set b1 [join $b \/ ]; lappend block($b1) ${endp_list_sample}; } elseif {${level_num}==2} { #tcl 语法中elseif 与else 之前的}以及之后的{必须与else 同行，\ set b [lrange ${endp_split} 0 0]; lappend block(topdesign) ${endp_list_sample}; } else { #tcl 语法中elseif 与else 之前的}必须与else 同行 lappend block(output) ${endp_list_sample}; } } foreach block_array [lsort [array names block]] { set TNS 0; foreach c $block(${block_array}) { #tcl 语法，数组(array) 中的元数(array names xxx)的value 的 引用格式:$block(${block_array}) set TNS [expr $TNS+$s1($c)]; #此处不能使用incr TNS $s1($c)；incr 针对整数的加法运算 } puts ; puts [format %-100s%15s%s ${block_array} TNS: ${TNS}]; #format %-100s,表示左对齐，100 个字符间距 #format%100s ，表示右对齐（default ） #echo for test 2 if {[string match -v* $expand ]} { foreach c $block($block_array) { puts [format %-105s%10s%s $c slack: $s1($c)]; }