如何为在调用时评估的 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 版本提供答案)
最佳答案
这个怎么样(与您的尝试略有不同):
% proc test {{def {[expr 4+3]}}} {eval puts "$def"}
% test
7
% test 5
5
关于eval - Tcl:如何评估语句以在调用时填写默认参数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9784099/