第3章 Tcl基础语法（下）：控制流、循环、过程与作用域

上一章我们把Tcl的变量、列表、字符串和表达式捋了一遍。今天聊点更带劲的——控制流、循环、还有过程定义。说白了，就是让脚本拥有「决策能力」和「复用能力」。我做了这么多年FPGA自动化，可以负责任地告诉你：没有这些，你写出来的脚本就是一盘散沙。

1. 控制流：if 和 switch

先说说 if。Tcl 的 if 语法其实很直白：

if { 条件表达式 } {
    # 条件为真时执行
} elseif { 另一个条件 } {
    # 否则如果...
} else {
    # 兜底
}

注意大括号的位置——左大括号必须和上一行在同一行，否则 Tcl 会报错。我刚开始写 Tcl 时就被这个坑过，换行习惯从 C 语言带过来，结果脚本死活跑不通。嗯，Tcl 的解析器就是这么「讲究」。

再看 switch。当你有多个分支时，switch 比一长串 if-elseif 清爽得多：

switch -exact -- $mode {
    "synthesis"   { puts "运行综合" }
    "implementation" { puts "运行实现" }
    "bitstream"   { puts "生成比特流" }
    default       { puts "未知模式" }
}

-exact 表示精确匹配，也可以用 -glob 做通配符匹配，或者 -regexp 用正则。我个人最常用 -exact，因为可读性好，不容易误匹配。曾经在项目中用 -glob 匹配文件名，结果因为通配符太宽泛，把不该匹配的文件也圈进来了……排查了半天。

2. 循环：for / foreach / while

Tcl 提供了三种循环，各有各的用武之地。

2.1 for 循环

和 C 风格类似，适合已知次数的遍历：

for {set i 0} {$i < 10} {incr i} {
    puts "迭代 $i"
}

三个表达式都用大括号包着，这是 Tcl 的规范。你想想看，如果不用大括号，变量 $i 在循环开始前就被替换了，那还怎么玩？

2.2 foreach 循环

这个我太喜欢了。遍历列表、文件列表、IP 列表……几乎每天都在用：

set file_list [list "top.v" "clk_gen.v" "uart.v"]
foreach f $file_list {
    puts "添加源文件: $f"
    add_files $f
}

foreach 还可以一次取多个元素：

foreach {name freq} {clk1 100 clk2 150 clk3 200} {
    puts "时钟 $name 频率 ${freq}MHz"
}

这个特性在解析配置文件时特别顺手。我经常用它来读 CSV 或 key-value 对。

2.3 while 循环

当你不确定循环次数时，while 就派上用场了：

set timeout 100
set done 0
while {$timeout > 0 && !$done} {
    # 检查某个条件，比如布线是否完成
    set done [check_route_status]
    incr timeout -1
    after 100
}
if {$timeout == 0} {
    puts "超时！"
}

3. 过程定义：proc

写脚本和写 RTL 一样，重复代码多了就要封装。Tcl 用 proc 定义过程（也就是函数）：

proc run_synth {top_name} {
    puts "开始综合 $top_name"
    synth_design -top $top_name -part xc7a35tcsg324-1
    return [get_timing_paths]
}

调用时：

set paths [run_synth "my_design"]

参数可以有默认值：

proc create_project {name {part "xc7a35tcsg324-1"} {dir "."}} {
    create_project $name $dir -part $part
}

还可以用 args 接收可变参数：

proc print_files {args} {
    foreach f $args {
        puts "文件: $f"
    }
}

4. 作用域规则：全局 vs 局部

Tcl 的作用域规则说简单也简单，说坑也坑。默认情况下，proc 内部定义的变量是局部的，外部访问不到。反过来，外部变量在 proc 内部也看不到。

set global_var "我是全局的"

proc test_scope {} {
    set local_var "我是局部的"
    puts $local_var
    # puts $global_var   ;# 错误！访问不到
}

test_scope
# puts $local_var        ;# 错误！外部访问不到

那怎么在 proc 里访问全局变量？用 global 命令：

proc use_global {} {
    global global_var
    puts "全局变量: $global_var"
    set global_var "被修改了"
}

还有一个 upvar 命令，可以把上层作用域的变量「引用」进来，按引用传递：

proc set_value {varname value} {
    upvar $varname var
    set var $value
}

set myvar "old"
set_value myvar "new"
puts $myvar   ;# 输出 "new"

说到命名空间，Tcl 的 namespace 是更高级的作用域管理方式。不过对于日常的 Vivado 自动化，掌握 global 和 upvar 已经能解决 90% 的问题了。

结构	用途	典型场景
if / elseif / else	条件分支	根据模式选择流程
switch	多分支匹配	命令解析、状态机
for	固定次数循环	遍历索引、计数
foreach	遍历列表	处理文件列表、IP列表
while	条件循环	等待操作完成、超时检测
proc	过程定义	封装复用逻辑
global / upvar	作用域访问	共享配置、按引用传参

好了，这一章的内容就是这些。控制流让你的脚本有了「脑子」，循环让它有了「耐力」，过程让它有了「肌肉」，作用域则保证了「秩序」。下一章我们会进入 Vivado 的 Tcl 命令体系，看看这些基础语法怎么在真实的工程自动化中发光发热。