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

好，咱们接着聊。上一章我们把Tcl的变量、列表和字符串撸了一遍，算是把基本功打扎实了。这一章，咱们要进入真正的「编程」环节——控制流、循环、过程定义。说白了，就是让脚本学会「动脑子」。

我个人觉得，Tcl的控制流语法，在EDA脚本里用得特别多。你想想看，一个批处理脚本，不可能从头到尾一条直线跑下来吧？总要判断一下文件存不存在、变量对不对、要不要跳过某一步。这时候，if和switch就派上用场了。

3.1 条件判断：if 与 switch

3.1.1 if 命令

Tcl的if语法，说实话，跟C语言有点像，但又不完全一样。它的格式是：

if {条件表达式} {
    # 条件为真时执行的代码
} elseif {另一个条件} {
    # 另一个条件为真时执行的代码
} else {
    # 所有条件都不满足时执行的代码
}

嗯，这里要注意一个坑：大括号的位置。Tcl里，if后面的左大括号必须跟if在同一行，不能换行。我曾经在项目里见过一个同事，把大括号换行写，结果脚本死活报错，查了半天才发现是格式问题。

来个实际例子。假设我们要判断一个设计文件是否存在：

set design_file "top.v"
if { [file exists $design_file] } {
    puts "文件存在，开始读取..."
    # 这里可以继续处理
} else {
    puts "错误：文件 $design_file 不存在！"
    return -code error "文件未找到"
}

我个人习惯，在条件表达式里尽量用花括号把表达式包起来，而不是用双引号。为什么呢？因为花括号会延迟求值，性能更好，而且不容易踩坑。

3.1.2 switch 命令

当判断条件比较多的时候，if-elseif链会变得又臭又长。这时候switch就清爽多了。

switch 选项 值 {
    模式1 {
        # 匹配模式1时执行
    }
    模式2 -
    模式3 {
        # 匹配模式2或模式3时执行
    }
    default {
        # 所有模式都不匹配时执行
    }
}

注意那个-符号，它表示「继续匹配下一个模式」。这个用法在EDA脚本里很常见，比如处理不同工艺角：

set corner "ss"
switch -exact $corner {
    "ss" -
    "tt" -
    "ff" {
        puts "标准工艺角：$corner"
    }
    "slow" {
        puts "慢工艺角"
    }
    default {
        puts "未知工艺角：$corner"
    }
}

这里我用了-exact选项，表示精确匹配。还有-glob（通配符匹配）和-regexp（正则匹配），不过日常用得不多。

3.2 循环结构：for、foreach、while

循环，说白了就是让脚本「重复干活」。EDA脚本里，循环用得最多的场景是：遍历文件列表、遍历设计层次、重复执行某个操作直到满足条件。

3.2.1 for 循环

for循环的语法跟C语言几乎一样：

for {初始化} {条件} {每次循环后的操作} {
    # 循环体
}

举个例子，生成一组时序约束文件：

for {set i 0} {$i < 5} {incr i} {
    set filename "constraint_${i}.sdc"
    puts "生成约束文件：$filename"
    # 这里可以调用命令生成文件
}

我个人习惯，在for循环里尽量用incr而不是set i [expr {$i + 1}]，因为incr更快，而且代码更简洁。

3.2.2 foreach 循环

foreach是我在EDA脚本里用得最多的循环。它遍历列表，每次取一个元素出来处理。

foreach 变量名 列表 {
    # 循环体
}

比如，遍历所有工艺角：

set corners {ss tt ff sf fs}
foreach corner $corners {
    puts "正在处理工艺角：$corner"
    # 这里可以调用时序分析命令
}

foreach还有一个高级用法——同时遍历多个列表：

set designs {top mid bot}
set corners {ss tt ff}
foreach d $designs c $corners {
    puts "设计：$d，工艺角：$c"
}

嗯，这里要注意：如果两个列表长度不一样，foreach会以最短的那个为准。我曾经因为这个特性踩过坑，后来养成了习惯：遍历前先检查列表长度是否一致。

3.2.3 while 循环

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

while {条件} {
    # 循环体
}

比如，等待某个文件生成：

set timeout 60
set count 0
while {![file exists "result.rpt"]} {
    after 1000  ;# 等待1秒
    incr count
    if {$count > $timeout} {
        puts "超时：结果文件未生成"
        break
    }
}
puts "文件已生成，继续处理..."

3.3 过程定义与调用

过程，就是函数。把重复的代码封装起来，一次定义，多次调用。这是脚本工程化的基础。

3.3.1 proc 命令

proc 过程名 {参数列表} {
    # 过程体
    return 返回值
}

举个例子，封装一个检查文件是否存在的函数：

proc check_file {filename} {
    if {[file exists $filename]} {
        puts "文件 $filename 存在"
        return 1
    } else {
        puts "警告：文件 $filename 不存在"
        return 0
    }
}

# 调用
set result [check_file "top.v"]
if {$result} {
    puts "可以继续处理"
}

我个人习惯，过程名用下划线分隔单词，比如check_file、run_synthesis。这样可读性好，而且跟Tcl内置命令的风格一致。

3.3.2 参数默认值与可变参数

Tcl的过程支持参数默认值，也支持可变参数。这个在写通用工具函数时特别有用。

proc run_timing {design {corner "tt"} {mode "setup"}} {
    puts "运行时序分析：$design，工艺角：$corner，模式：$mode"
    # 实际调用时序分析命令
}

# 调用方式
run_timing "top"           ;# 使用默认值：tt, setup
run_timing "top" "ss"      ;# 指定工艺角
run_timing "top" "ff" "hold"  ;# 全部指定

可变参数用args：

proc log_message {level msg args} {
    set timestamp [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"]
    puts "\[$timestamp\] \[$level\] $msg"
    foreach extra $args {
        puts "  附加信息：$extra"
    }
}

log_message "INFO" "开始综合" "设计：top" "工艺：28nm"

3.4 作用域规则

作用域，说白了就是「变量在哪儿能看见」。Tcl的作用域规则，跟其他语言不太一样，这里要特别留意。

3.4.1 全局变量与局部变量

在过程外面定义的变量是全局变量。在过程里面定义的变量是局部变量。默认情况下，过程里访问不到全局变量。

set global_var "我是全局变量"

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

test_scope
puts $global_var          ;# 可以访问
# puts $local_var         ;# 错误！访问不到

3.4.2 global 命令

如果非要在过程里访问全局变量，可以用global命令声明一下：

set counter 0

proc increment_counter {} {
    global counter
    incr counter
}

increment_counter
puts $counter  ;# 输出：1

嗯，这里要注意：global命令必须在过程体里、使用变量之前声明。我曾经因为把global写在incr后面，结果变量没更新，查了半天。

3.4.3 upvar 命令

upvar是Tcl里比较高级的特性，它可以把上层作用域的变量「绑定」到当前过程里。说白了，就是按引用传递。

proc swap {a b} {
    upvar $a x $b y
    set temp $x
    set x $y
    set y $temp
}

set x 10
set y 20
swap x y
puts "x = $x, y = $y"  ;# 输出：x = 20, y = 10

3.5 本章知识体系

为了让大家更直观地理解本章的知识结构，我画了一张图：

这张图把本章的四个核心模块串起来了。控制流和循环让脚本有了「逻辑」，过程定义让代码可以「复用」，作用域规则则保证了「数据安全」。四者缺一不可。

好了，这一章的内容就到这里。控制流、循环、过程和作用域，是Tcl脚本从「简单命令」走向「工程化」的关键。下一章，我们会把这些知识综合起来，写一个完整的EDA批处理脚本。到时候，你会发现，原来脚本自动化可以这么爽。

---

公众号:蓝海资料掘金营，微信deep3321