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

Question

我试图在TCL中使用[dict]命令。如果我在没有ixc命名空间的同一本地文件中使用它并且在同一文件中使用procs，则以下代码可以正常工作。

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

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"  "💎 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"  "💎 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将变量名称作为第一个参数，但是
• getFromDict proc将字典值作为第一个参数。

您可以稍微修改getFromDict proc以将“buttom”作为var名称：

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"  "💎 Comic"
  ixc::getFromDict $button
}

（2）从顶级和交互式Tcl shell会话（但也可以在proc中，作为替代），使用upvar从当前范围创建指向命名空间变量的链接。

upvar "#0" ::ixc::button button
ixc::add2Dict "button" "comic" "buttonText"  "💎 Comic"
ixc::getFromDict $button

另见这个答案：TCL calling a namespace variable from a proc outside the namespace