tcl - TCL如何调用item handlers

Question

我创建了从项目到项目处理程序的映射。

  array set handlers {
             handleItem1 handlerFunction1
             handleItem2 handlerFunction2
  }

但是 handlerFunctions 可以带参数。

所以下面的代码是行不通的。

 if { [info exists handlers($item) ] } {
       eval $this $handlers($item)
 }

那么我可以更改此代码以调用可以获取参数的处理程序吗？

score 7 · Accepted Answer

有几种选择：

命令前缀如果您使用的是 Tcl 8.5 或更高版本（8.4 处于其生命周期的尽头，请尽可能升级），那么命令扩展 with{*}是最好的方法。
```
proc putargs args {puts $args}
set callback {putargs CALLBACK}
# Invoke it
{*}$callback param1 param2 ;# prints CALLBACK param1 param2
```
脚本片段Eval 回调，但在末尾添加额外的单词。（跟踪这样做）
```
proc putargs args {puts $args}
set callback {putargs CALLBACK [clock seconds]}
# Invoke
eval $callback [list param1 param2] ;# Prints CALLBACK 1369834114 param1 param2
```
允许像这样的 hackset callback {puts "CALLBACK" ;#}将忽略该行的其余部分，但速度较慢。

命令不是很有用，因为你不能传递任何东西。

proc putargs args {puts $args}
set callback {putargs CALLBACK}
# Invoke
{*}$callback ;# prints CALLBACK

脚本参数在当前范围内作为变量传递，有时也使用字符串替换（Tk 这样做）

proc putargs args {puts $args}
set callback {putargs CALLBACK $param1 $param2}
# Invoke
set param1 FOO
set param2 BAR
eval $callback ;# prints CALLBACK FOO BAR

命令名称与命令前缀类似，但不进行扩展。（Tcllib 的 SASL 为自己的机制做到这一点）。不建议。
```
proc putargs args {puts $args}
set callback putargs
# Invoke
$callback param1 param2
```

具有最佳性能的最佳解决方案是命令前缀。

tcl - TCL如何调用item handlers

1 回答 1

Related

Reference