Question

我正在尝试在TCL中使用[dict]命令。如果我在没有ixc名称空间的同一个本地文件中使用同一个文件中的proc，则以下代码可以完美地工作。

但是，如果我尝试在源文件中使用它–就会完全失败

rawrIxc.tcl

namespace eval ixc {
}

proc ixc::add2Dict {var1 var2 var3 var4} {
variable $var1
puts "ixc:: $var1 $var2 $var3 $var4" ;#Debug in console, shows passed params
dict set $var1 $var2 $var3 $var4
}

proc ixc::getFromDict {var1 var2 var3} {
variable $var1
puts "something: $var1 $var2 $var3"
dict get $var1 $var2 $var3
}

rawrSiteButtons.tcl

将数据添加到字典。我认为

ixc::add2Dict "button" "comic" "buttonText"  "&#x1F48E; Comic" ;#Button text "comic"
ixc::add2Dict "button" "comic" "buttonUrl" "/comic" ;#Button URL
ixc::add2Dict "button" "comic" "buttonSymbol" "%1" ;#Actual button ID -- used in mapping
ixc::add2Dict "button" "comic" "urlSymbol" "%_1"]" ;#Button replacement symbol -- used in mapping

但是，当我现在尝试使用以下内容从字典中调出数据时

set buttons(comicText) [ixc::getFromDict $button comic buttonText]
set buttons(comicUrl) [ixc::getFromDict $button comic buttonUrl]
set buttons(comicSymbol) [ixc::getFromDict $button comic buttonSymbol]
set buttons(comicUrlSymbol) [ixc::getFromDict $button comic urlSymbol]

我收到：

can't read "button": no such variable
    while executing
"ixc::getFromDict $button comic buttonText"
    (procedure "loadSiteButtons" line 41)

即使我使用：

variable button

我已经尝试过upvar，变量和名称空间upvar [当前的名称空间]，但现在不知道要去哪里。任何帮助将是可爱的。谢谢。

Answer 1

执行此操作时：

ixc::add2Dict "button" "comic" "buttonText"  "&#x1F48E; Comic"

add2Dict proc设置一个名为button的命名空间变量。

因此，当您调用getFromDict时，需要指定变量的名称空间：

set buttons(comicText) [ixc::getFromDict $ixc::button comic buttonText]

或者，从名称空间中运行整个命令：

set buttons(comicText) [namespace eval ixc {getFromDict $button comic buttonText}]

再看一遍：您的通话有所不同：

add2Dict proc将变量 name 作为第一个参数，但是
getFromDict proc将字典 value 作为第一个参数。

您可以对getFromDict proc进行一些修改，以将“ buttom”作为变量名称：

proc ixc::getFromDict {var1 var2 var3} {
    variable $var1
    puts "something: $var1 $var2 $var3"
    dict get [set $var1] $var2 $var3
    # .......^^^^^^^^^^^ -- one argument form of `set` to get the value.
}

然后

set buttons(comicText) [ixc::getFromDict button comic buttonText]
# .......................................^^^^^^

Answer 2

Glenn已经提供了可行的解决方案，但出于完整性考虑，还可以考虑以下内容：

（1）在proc中，您可以使用variable命令：

proc someProc {} {
  variable ::ixc::button
  ixc::add2Dict "button" "comic" "buttonText"  "&#x1F48E; Comic"
  ixc::getFromDict $button
}

（2）在顶层和交互式Tcl Shell会话中（也可以从proc内部），使用upvar创建指向以下名称空间变量的链接：您当前的范围。

upvar "#0" ::ixc::button button
ixc::add2Dict "button" "comic" "buttonText"  "&#x1F48E; Comic"
ixc::getFromDict $button

另请参阅以下答案：TCL calling a namespace variable from a proc outside the namespace

来自另一个源文件的TCL字典

2 个答案: