如何保护TCL脚本1.mac中的变量$c不被2.mac覆盖？

问题核心是两个宏脚本运行在同一个全局命名空间下，2.mac中定义的全局变量c会直接覆盖1.mac里的同名全局变量。以下是几种无需修改2.mac的解决方案：

方案一：将1.mac的变量放入独立命名空间 #

通过创建专属命名空间，把1.mac的变量隔离在命名空间内，避免与全局空间变量冲突：

proc setByUpvar { value } {
    return [expr {$value *2}]
}

# 创建自定义命名空间
namespace eval my_macro1 {}

set ex_result [catch {
    # 在命名空间内定义并使用变量c
    namespace eval my_macro1 {
        set c [setByUpvar 12 ]
        echo "$c [argument -this]"
    }
    sym run macro -file C:/Custom/2.mac 
    # 引用命名空间内的c变量
    echo "$my_macro1::c [argument -this]"
} errors]

方案二：调用2.mac前后暂存并恢复变量值 #

在执行2.mac前把c的原始值暂存到临时变量，运行完成后再恢复：

proc setByUpvar { value } {
    return [expr {$value *2}]
}

set ex_result [catch {
    set c [setByUpvar 12 ]
    echo "$c [argument -this]"
    
    # 暂存c的当前值
    set temp_c $c
    sym run macro -file C:/Custom/2.mac 
    # 恢复c的原始值
    set c $temp_c
    
    echo "$c [argument -this]"
} errors]

方案三：用局部过程包裹1.mac的逻辑 #

把1.mac中使用c的代码封装到局部过程里，让c成为过程内的局部变量，不受全局变量影响：

proc setByUpvar { value } {
    return [expr {$value *2}]
}

# 封装逻辑到局部过程
proc macro1_main {} {
    set c [setByUpvar 12 ]
    echo "$c [argument -this]"
    sym run macro -file C:/Custom/2.mac 
    echo "$c [argument -this]"
}

set ex_result [catch {
    macro1_main
} errors]

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