TCL脚本sourcing时如何终止proc执行且不退出宿主工具

问题核心原因 #

两个常用终止方案的缺陷本质是TCL命令作用域特性导致的：

• exit 命令的作用是终止整个TCL宿主进程，调用后会直接关掉运行脚本的宿主工具，不符合只停止当前脚本加载的需求
• 直接调用无标记的error命令会抛出通用异常，TCL默认会打印完整调用栈和错误信息，无法做到静默终止。

可行实现方案 #

利用TCL的自定义异常码+外层捕获逻辑，可以做到无冗余输出、不退出宿主、仅终止当前source流程的效果，实现代码如下：

# 先定义专属的脚本终止异常码，选一个和工具内置错误不冲突的数值即可
set ::ABORT_SOURCE 4096

proc checker {} {
    set current 100
    set exp 50
    if {$current > $exp} {
        # 抛出带自定义错误码的终止异常，不调用exit
        return -code error -errorcode $::ABORT_SOURCE "abort source"
    }
}

# 把脚本所有业务逻辑包裹在catch块中做异常分流
if {[catch {
    checker
    puts "done!!"
} err info]} {
    # 识别到是我们主动抛出的终止信号，直接静默返回结束当前source
    if {[dict get $info -errorcode] eq $::ABORT_SOURCE} {
        return
    }
    # 其他正常运行错误按原有逻辑抛出，不影响错误排查
    return -options $info $err
}

逻辑说明 #

• 自定义异常码用来区分「主动终止脚本」和「运行时报错」两种场景，不会和工具内置的错误码冲突
• checker命中终止条件时抛出带专属标记的异常，不会触发宿主进程退出
• 外层catch捕获到异常后做分流：如果是主动终止的信号就直接return，此时source流程会直接结束，后续的puts "done!!"不会执行，也不会打印任何多余错误信息；如果是其他语法、运行时错误，会正常抛出错误栈，不影响日常调试
• 如果存在多层source嵌套的场景，只需要在最外层被加载的脚本里加这套catch包裹逻辑即可，内层脚本抛出的同码异常会自动向上传递，一样可以实现干净终止。

内容的提问来源于stack exchange，提问作者user3835935