Question

A Purely theory question on Tcl.

最终结果应当允许开发商将充分引证作为论据,以证明:

do_something $data {proc {} {input} {
    puts $input;
}};

类似于 j印

do_something(data, function (input) {
    alert(input);
});

现在,这自然不会奏效。我正在考虑这样的一些:

proc do_something {data anon_function} {
    anon_run $anon_function $data
}
proc anon_run {proc args} {
    set rand proc_[clock clicks];
    set script [lreplace $proc 1 1 $rand];
    uplevel 1 $script;
    uplevel 1 [concat $rand $args];
    uplevel 1 rename $rand {}; //delete the created proc
}

这一工作。但是,我当时希望获得关于更好模式的建议,因为这样做并不十分奇怪,而且没有真正使用冷却技术。多数情况下,我想删除人工打字anon_run<>/code>。

Answer 1

http://www.tcl.tk/man/tcl8.5/TclCmd/apply.htm 指挥。

proc do_something {data anon_function} {
    apply $anon_function $data
}
do_something $data {{input} {
    puts $input
}}

当然,如果你重新调整我们的呼吁,将其作为指挥前奏(建议!) 那么,你可以这样做:

proc lambda {arguments body} {
    # We ll do this properly and include the optional namespace
    set ns [uplevel 1 namespace current]
    return [list ::apply [list $arguments $body $ns]]
}

proc do_something {data command} {
    {*}$command $data
}

do_something $data [lambda {input} {
    puts $input
}]

如果你在8.4或之前重新使用,则需要的密码,但知道这些解决办法仅具有同质性(最好);它们不会重复同业绩。

友情链接