4. TCL控制流：if条件判断、switch分支选择、foreach循环、while循环、break与continue

各位同学，今天我们来聊聊TCL的控制流。说白了，就是让脚本学会「动脑子」——根据不同的情况做不同的事，或者一遍遍重复做同一件事。

我在后端设计流程里，控制流用得特别多。比如检查时序是否收敛、判断工艺角、循环处理几百条netlist。没有控制流，脚本就是一条道走到黑，啥也干不了。

4.1 if条件判断：最基础的分支

if语句，TCL里最常用的判断结构。我个人习惯把它叫做「脚本的十字路口」。

set timing_violation 1
if {$timing_violation == 1} {
    puts "时序违例，需要优化"
} elseif {$timing_violation == 0} {
    puts "时序干净，可以继续"
} else {
    puts "未知状态，请检查"
}

注意大括号的位置。TCL里大括号不能乱放，左大括号必须和if在同一行。我曾经见过新人把大括号换行写，结果脚本直接报错，排查了半天。

4.2 switch分支选择：多路分支的利器

当判断条件超过三个时，if-elseif就变得又臭又长。这时候switch就派上用场了。

set corner "ss"
switch $corner {
    "ss" {
        puts "选择慢工艺角，时序最差"
        set lib_file "lib/ss.lib"
    }
    "ff" {
        puts "选择快工艺角，功耗最大"
        set lib_file "lib/ff.lib"
    }
    "tt" {
        puts "选择典型工艺角"
        set lib_file "lib/tt.lib"
    }
    default {
        puts "未知工艺角，使用默认"
        set lib_file "lib/tt.lib"
    }
}

嗯，这里要注意：switch默认是精确匹配，不支持通配符。如果你想用模式匹配，得加 -glob 或 -regexp 选项。

4.3 foreach循环：遍历列表的王者

foreach是我用得最多的循环。后端设计里，经常要遍历一堆文件、一堆cell、一堆net。foreach就是干这个的。

set cell_list {AND2 OR2 INV NAND2 NOR2}
foreach cell $cell_list {
    puts "正在处理单元: $cell"
    # 这里可以加一些时序分析或功耗计算
}

foreach还可以同时遍历多个列表，这个功能很多人不知道：

set cells {AND2 OR2 INV}
set delays {0.5 0.8 0.3}
foreach cell $cell delay $delays {
    puts "$cell 的延迟是 $delay ns"
}

你想想看，这在处理时序报告时多方便。一个循环就把cell名和对应的延迟值都拿到了。

4.4 while循环：条件驱动的循环

while循环适合那种「不知道要循环多少次，但知道什么时候停」的场景。

set violation_count 10
set iteration 0
while {$violation_count > 0} {
    puts "第 [incr iteration] 轮优化，剩余违例: $violation_count"
    # 模拟优化过程，每次减少一些违例
    set violation_count [expr {$violation_count - 2}]
}
puts "优化完成，共迭代 $iteration 轮"

我个人习惯用while做迭代收敛检查。比如时序优化，每轮减少一些违例，直到全部清零。但要注意——一定要确保循环条件最终会变成假，否则就是死循环。

4.5 break与continue：循环的控制杆

break和continue，这两个命令是循环里的「刹车」和「跳过」。

• break：立即跳出整个循环，不再执行后续迭代
• continue：跳过当前迭代，进入下一次循环

# 示例：检查时序路径，找到第一条违例就停止
set paths {path_1 path_2 path_3 path_4}
foreach path $paths {
    set slack [get_slack $path]
    if {$slack < 0} {
        puts "发现违例路径: $path, slack = $slack"
        break  ;# 找到一条就停，不用继续查了
    }
}

# 示例：跳过某些特殊路径
foreach path $paths {
    if {[string match "*clock*" $path]} {
        continue  ;# 时钟路径不处理，跳过
    }
    puts "处理路径: $path"
}

break在debug时特别好用。比如你检查1000条路径，只要找到第一条违例就停下来，省时间。continue则适合过滤掉不需要处理的数据。

4.6 综合示例：一个完整的时序检查脚本

最后，我给大家展示一个实际项目中用到的片段。把今天学的控制流都用上了：

# 遍历所有工艺角，检查时序
set corners {ss tt ff}
set all_clean 1

foreach corner $corners {
    puts "正在检查工艺角: $corner"
    set_variable corner $corner
    
    # 读取该工艺角下的违例路径
    set violations [get_violations]
    
    if {[llength $violations] == 0} {
        puts "$corner: 无违例，继续"
        continue
    }
    
    # 有违例，逐条处理
    foreach vio $violations {
        set slack [get_slack $vio]
        if {$slack < -100} {
            puts "严重违例: $vio, slack = $slack"
            set all_clean 0
            break  ;# 严重违例，直接跳出当前工艺角
        } elseif {$slack < 0} {
            puts "轻微违例: $vio, slack = $slack"
        }
    }
}

if {$all_clean} {
    puts "所有工艺角时序干净"
} else {
    puts "存在违例，需要进一步优化"
}

这个脚本里，foreach遍历工艺角，continue跳过无违例的情况，break在遇到严重违例时提前退出。if-elseif做分级判断。你看，控制流组合起来，就能写出很灵活的工具脚本。

好了，这一章就到这里。控制流是脚本的骨架，掌握了它们，你的TCL脚本才能真正「活」起来。下一章我们聊聊过程和函数，把代码封装起来，让脚本更模块化。