4、Tcl高级特性：正则表达式、命名空间、面向对象编程（TclOO）、包管理
好，咱们进入Tcl的高级部分了。说实话，前面那些基础语法，写个百八十行的脚本还行。但一旦你的工具脚本超过500行，或者要团队协作，你就得靠这些高级特性来撑场面了。正则、命名空间、面向对象、包管理——这四个东西，我当年在搞一个大型PR（Placement & Route）自动化流程时，一个都没落下。
4.1 正则表达式：文本处理的瑞士军刀
正则表达式，说白了就是用来匹配字符串模式的。在EDA里，你天天要跟各种log文件、网表、约束文件打交道。手动去翻？不存在的。用正则一把梭，又快又准。
我习惯用 regexp 和 regsub 这两个命令。前者用来匹配提取，后者用来替换。
4.1.1 基本匹配
# 检查一个信号名是否以 "clk" 开头
set signal "clk_pll_0"
if {[regexp {^clk} $signal]} {
puts "这是一个时钟信号"
}
# 提取网表中的实例名和cell名
set line "U_INST1 NAND2_X1 (.A(net1), .B(net2))"
regexp {^(\S+)\s+(\S+)} $line full inst_name cell_name
puts "实例: $inst_name, 单元: $cell_name"
这里有个坑，我刚开始用的时候经常踩——regexp 默认只匹配一次。如果你想匹配所有出现，得加 -all 选项。
注意： 正则表达式中的特殊字符（如 .、*、+、?、[、] 等）需要转义。比如你要匹配一个点号，得写成 \\.。我曾经因为没转义，查了半天为什么匹配不到 "inst.1" 这个字符串。
4.1.2 实战：解析时序报告
我记得有一次，需要从STA（静态时序分析）报告里批量提取违例路径的slack值。报告长这样：
Startpoint: reg_A
Endpoint: reg_B
Path Group: clk_group
Path Type: max
Point Incr Path
-----------------------------------------------------------
clock clk (rise edge) 0.00 0.00
clock network delay (propagated) 0.50 0.50
reg_A/CK (DFFQ_X1) 0.00 0.50 r
reg_A/Q (DFFQ_X1) 0.35 0.85 r
...
data arrival time 2.15
clock clk (rise edge) 2.00 2.00
clock network delay (propagated) 0.50 2.50
clock reconvergence pessimism 0.00 2.50
reg_B/CK (DFFQ_X1) 0.00 2.50 r
library setup time -0.10 2.40
data required time 2.40
-----------------------------------------------------------
data required time 2.40
data arrival time 2.15
-----------------------------------------------------------
slack (MET) 0.25
用正则提取slack值：
set report_data [read [open "timing.rpt" r]]
if {[regexp {slack\s+\([^)]+\)\s+([-\d.]+)} $report_data match slack_val]} {
puts "Slack值为: $slack_val"
if {$slack_val < 0} {
puts "警告：存在时序违例！"
}
}
你看，一行正则就把关键数据抓出来了。要是手动去数行号、找位置，那得多累。
4.1.3 替换操作
regsub 用来做替换。比如你要把网表里所有的 VDD 改成 VCC：
set netlist "VDD net1 VDD net2 VSS"
regsub -all {VDD} $netlist "VCC" new_netlist
puts $new_netlist ;# 输出: VCC net1 VCC net2 VSS
小技巧： 用 -nocase 选项可以忽略大小写匹配。我处理不同工艺库的网表时，经常遇到大小写不统一的问题，这个选项帮了大忙。
4.2 命名空间：避免变量名冲突
项目大了，脚本多了，变量名冲突是常有的事。你定义了一个 width，别人也定义了一个 width，结果互相覆盖，查错查到崩溃。
命名空间就是用来解决这个问题的。它把变量和命令封装在一个独立的作用域里。
4.2.1 创建和使用命名空间
namespace eval my_place {
variable width 10
variable height 20
proc calc_area {} {
variable width
variable height
return [expr {$width * $height}]
}
}
# 访问命名空间中的变量
puts "宽度: [set ::my_place::width]"
puts "面积: [my_place::calc_area]"
我个人习惯用 :: 来明确指定命名空间路径。根命名空间就是 ::，当前命名空间是 ::my_place。
4.2.2 命名空间嵌套
你可以嵌套命名空间，就像文件目录一样：
namespace eval ::eda::route {
variable grid_size 0.01
proc set_grid {size} {
variable grid_size
set grid_size $size
puts "网格大小已设为 $size"
}
}
# 调用嵌套命名空间中的过程
::eda::route::set_grid 0.005
核心要点： 命名空间不是对象，它只是组织代码的一种方式。你可以在不同命名空间里定义同名的变量或过程，互不干扰。这在大型脚本项目中非常实用。
4.3 面向对象编程（TclOO）：让代码更模块化
嗯，Tcl 8.6 之后引入了 TclOO，一个原生的面向对象系统。说实话，我一开始觉得Tcl这种脚本语言搞OOP有点多余。但后来写一个复杂的布线器控制脚本时，发现用对象来抽象不同的布线层、不同的约束规则，代码清晰太多了。
4.3.1 定义类和创建对象
package require TclOO
oo::class create Layer {
variable name min_width max_spacing
constructor {n w s} {
set name $n
set min_width $w
set max_spacing $s
}
method get_name {} {
return $name
}
method check_rule {width spacing} {
if {$width < $min_width} {
return "违反最小线宽规则"
}
if {$spacing > $max_spacing} {
return "违反最大间距规则"
}
return "规则检查通过"
}
}
# 创建对象
set m1 [Layer new "M1" 0.1 0.2]
set m2 [Layer new "M2" 0.2 0.3]
puts [$m1 get_name] ;# 输出: M1
puts [$m1 check_rule 0.15 0.25] ;# 输出: 规则检查通过
4.3.2 继承和多态
我在项目中遇到过需要定义特殊布线层的情况，比如顶层厚金属层。用继承很方便：
oo::class create ThickMetal {
superclass Layer
variable thickness
constructor {n w s t} {
next $n $w $s ;# 调用父类构造函数
set thickness $t
}
method get_thickness {} {
return $thickness
}
# 重写父类方法
method check_rule {width spacing} {
set result [next $width $spacing] ;# 调用父类方法
if {$result eq "规则检查通过"} {
if {$width < [expr {$thickness * 0.5}]} {
return "厚金属层线宽不能小于厚度的50%"
}
}
return $result
}
}
set top_metal [ThickMetal new "AP" 0.5 0.6 3.0]
puts [$top_metal check_rule 0.4 0.5] ;# 输出: 厚金属层线宽不能小于厚度的50%
我的建议： 如果你的脚本只是几十行的小工具，别用OOP，那是过度设计。但如果你要写一个完整的布局布线流程控制框架，有多个模块、多种策略，用TclOO能让代码结构清晰很多。我后来维护那个布线器脚本时，深深感谢自己当初用了OOP。
4.4 包管理：模块化你的代码
包（Package）是Tcl中组织代码的最高级别单位。一个包可以包含多个命名空间、多个类、多个过程。用 package require 来加载。
4.4.1 创建自己的包
假设你写了一个 route_utils 包，里面放了一些布线相关的工具函数。你需要创建一个 route_utils.tcl 文件：
# route_utils.tcl
package provide route_utils 1.0
namespace eval ::route_utils {
namespace export calculate_wire_length get_via_count
}
proc ::route_utils::calculate_wire_length {points} {
set total 0
foreach {x1 y1 x2 y2} $points {
set total [expr {$total + abs($x2 - $x1) + abs($y2 - $y1)}]
}
return $total
}
proc ::route_utils::get_via_count {netlist} {
# 解析网表，统计via数量
set count 0
foreach line [split $netlist "\n"] {
if {[regexp {VIA} $line]} {
incr count
}
}
return $count
}
然后在你的主脚本里加载它：
# 告诉Tcl去哪里找包
lappend auto_path /path/to/your/packages
package require route_utils 1.0
# 使用包中的函数
set wire_len [::route_utils::calculate_wire_length {0 0 10 20}]
puts "线长: $wire_len"
4.4.2 包版本管理
版本号很重要。我吃过亏——有一次更新了包里的函数接口，但忘了改版本号，结果其他脚本加载了旧版本，跑出来全是错的。
| 版本号格式 | 含义 | 示例 |
|---|---|---|
| a.b | 主版本.次版本 | 1.0, 2.3 |
| a.b.c | 主版本.次版本.补丁 | 1.0.1, 2.3.5 |
我曾经踩过的坑： 包文件必须放在 auto_path 包含的目录里，否则 package require 会报错。另外，一个.tcl文件里只能有一个 package provide 语句，否则Tcl会搞不清楚到底提供的是哪个包。
4.5 综合实战：一个简单的布线规则检查器
好了，把上面这些知识串起来。假设我们要写一个布线规则检查器，支持多种工艺节点：
package require TclOO
# 定义基类
oo::class create RuleChecker {
variable tech_node
constructor {node} {
set tech_node $node
}
method check {layer width spacing} {
return "基类方法，需要子类实现"
}
}
# 定义7nm工艺的规则检查器
oo::class create Checker7nm {
superclass RuleChecker
method check {layer width spacing} {
set rules {
M1 {min_width 0.05 min_spacing 0.08}
M2 {min_width 0.06 min_spacing 0.10}
V1 {min_width 0.04 min_spacing 0.06}
}
foreach {l r} $rules {
if {$l eq $layer} {
dict with r {
if {$width < $min_width} {
return [list FAIL "线宽$width 小于最小线宽$min_width"]
}
if {$spacing < $min_spacing} {
return [list FAIL "间距$spacing 小于最小间距$min_spacing"]
}
}
return [list PASS ""]
}
}
return [list FAIL "未知层 $layer"]
}
}
# 使用命名空间封装工具函数
namespace eval ::utils {
proc parse_rule_file {filename} {
set f [open $filename r]
set data [read $f]
close $f
return $data
}
}
# 主流程
set checker [Checker7nm new "7nm"]
set result [$checker check "M1" 0.04 0.10]
puts "检查结果: [lindex $result 0] - [lindex $result 1]"
你看，正则用来解析规则文件，命名空间用来组织工具函数，TclOO用来定义检查器类，包管理用来加载依赖。四个高级特性配合起来，一个完整的工具框架就搭起来了。
说实话，这些高级特性刚开始学的时候会觉得有点绕。但你用上两三次，习惯了这种组织方式，就再也回不去了。下次写脚本时，不妨试试用命名空间封装一下你的工具函数，用类来抽象一下你的数据模型——你会发现，代码的可维护性提升了一个档次。