eval - Tcl:如何评估语句以在调用时填写默认参数

Question

如何为在调用时评估的 Tcl 过程提供默认参数？

这是我尝试过的示例:

> tclsh
% proc test { {def [expr 4 + 3]} } { puts $def }
too many fields in argument specifier "def [expr 4 + 3]"
% proc test { {def {[expr 4 + 3]}} } {puts $def}
% test
[expr 4 + 3]
% test 5
5
% proc test { {def {[expr 4 + 3]}} } {puts [$def]}
% test
invalid command name "[expr 4 + 3]"
% proc test { {def {[expr 4 + 3]}} } {puts [eval $def]}
% test
invalid command name "7"

这个例子只是为了简化代码。当然，在这个简单的示例中，您只需使用 {def 7} 来设置 proc 的默认值。

但是，我们的目标是能够调用一些更复杂的函数，只要调用过程 test 就可以提供良好的默认值。所以默认值可能会有所不同。

我目前的解决方案是默认为空字符串并检查:

% proc test { {def {}} }  {  if {$def == {}} { set def [expr 4 + 3] } ; puts $def }
% test
7
% test 5
5

但是我认为这不够优雅:应该有一种方法可以将声明放在它们所属的位置:在标题中。

此外，空字符串可能是调用者给出的完美值，不会被默认调用替换。

另一种解决方法是仅使用 args 作为参数，然后检查该参数。但这提供了更不明确的声明风格。

关于如何将 eval 合并到声明性 proc header 中的任何想法？

(我在 Tcl8.4 上，由于在商业工具环境中使用而无法升级。但是为了这个站点，我也鼓励为更现代的 tcl 版本提供答案)

Answer 1

这个怎么样(与您的尝试略有不同):

% proc test {{def {[expr 4+3]}}} {eval puts "$def"}
% test
7
% test 5
5