将全局变量传递给 tclsh 中的函数

Question

我首先为字符串定义了 3 个（全局）常量：

set kColorGBegin "\x1b\[1;32m"
set kColorRBegin "\x1b\[1;31m"
set ColorEnd  "\x1b\[0m"

然后我创建了 2 个渲染和打印输入字符串的函数：

proc r_puts {strs} {
  puts "${kColorRBegin} ${strs} ${ColorEnd}"
}
proc g_puts {strs} {
  puts "${kColorGBegin} ${strs} ${ColorEnd}"
}

并调用：

[r_puts "foo"]
[g_puts "bar"]

我在运行这个程序时收到错误消息：

can't read "kColorRBegin": no such variable
    while executing
"puts "${kColorRBegin} ${strs} ${ColorEnd}""
    (procedure "r_puts" line 2)
    invoked from within
"r_puts "foo""
    invoked from within
"[r_puts "foo"]"
    (file "./t.tcl" line 14)

如何解决？

完整代码在这里：

set kColorGBegin "\x1b\[1;32m"
set kColorRBegin "\x1b\[1;31m"
set ColorEnd  "\x1b\[0m"

proc g_puts {strs} {
  puts "${kColorGBegin} ${strs} ${ColorEnd}"
}

proc r_puts {strs} {
  puts "${kColorRBegin} ${strs} ${ColorEnd}"
}

[r_puts "foo"]
[g_puts "bar"]

Answer 1

在 Tcl 中，过程中的所有变量都是过程的局部变量 除非您在该过程中另有说明；必须明确说明这一点可以在漫长的运行。（对象方法中的事情稍微复杂一些，但你不需要处理这些，即使那样它们只会在你明确要求时变得复杂。）这是最常在过程中使用 the global command 完成的，比如这个：

proc r_puts {strs} {
    global kColorRBegin ColorEnd
    puts "${kColorRBegin} ${strs} ${ColorEnd}"
}
proc g_puts {strs} {
    global kColorGBegin ColorEnd
    puts "${kColorGBegin} ${strs} ${ColorEnd}"
}

您可能希望省略变量替换之间的空格。

用于此的其他命令是：variable（通常在处理全局命名空间以外的命名空间中的少量变量时），upvar（处理按名称传递的变量时来自调用者）和 namespace upvar（当在全局命名空间之外的命名空间中使用许多变量时）。

Answer 2

不要在对 r_puts 和 g_puts 的调用周围加上大括号：这将调用过程作为命令替换，用结果替换命令替换，，然后尝试将结果作为命令执行.

演示：

$ tclsh
% proc r_puts {msg} {puts $msg}
% r_puts hello
hello
% [r_puts hello]
hello
ambiguous command name "": after append apply ...

将全局变量传递给 tclsh 中的函数

Pass global variable into function in tclsh

tcl