如何使用变量作为 TCL proc 参数的默认值

Question

我有一个变量，我想将其用作参数的默认值：

proc log {message {output $::output}} {
   ....
}

有没有办法做到这一点，或者需要我评估我的过程中的变量？

Answer 1

是的，但您不能在参数列表中使用大括号 ({})。您可以这样声明该过程：

proc log [list message [list output $::output]] {
   ....
}

但请注意：
变量在声明过程时计算，而不是在执行时计算！

Answer 2

如果您想要一个仅在调用时定义值的默认参数，则必须更加棘手。关键是您可以使用 info level 0 获取当前过程调用的参数列表，然后只需检查该列表的长度：

proc log {message {output ""}} {
    if {[llength [info level 0]] < 3} {
        set output $::output
    }
    ...
}

记住，在检查参数列表时，第一个是命令本身的名称。

Answer 3

另一种方法可以做到这一点：

proc log {message {output ""}} {
    if {$output eq ""} {
        set output $::output
    }
}