主页 / user-1269397

Chris's questions

Martin Hope
Chris
Asked: 2025-01-14 12:31:31 +0800 CST
  • 6

对于我来说，这在 Tcl 中似乎是非常奇怪的行为，或者这是正常的，只是我不明白注释是如何工作的？

该代码在 Tcl 中运行良好：

#foreach corner {1 2} {
    #if { $a } {
#}

好的，实际上什么都没有运行，但我没有收到任何错误。但如果我注释掉循环命令，则循环内的注释行会导致错误：

foreach corner {1 2} {
    #if { $a } {
}

Tcl 解释器（tclsh）说：

missing close-brace: possible unbalanced brace in comment
    while executing
"foreach corner {1 2} {"
    (file "test.tcl" line 1)

只是为了完整性，我应该提到，当我删除该注释行时，错误就消失了。

这是正常的吗？在开发代码时有没有更好的方法来“注释掉”行？如何让解释器完全忽略注释中的内容？

comments
Martin Hope
Chris
Asked: 2024-11-26 07:44:11 +0800 CST
  • 6

在 Tcl proc 中，我需要引用此 proc 上下文以及上级上下文中的变量，因为获取源的文件在那里使用变量。因此，我尝试编写类似以下内容的代码：

proc source_file {file} {
    uplevel {source $file }
}

问题在于，在“uplevel”命令中，我可以引用顶层的变量，但现在本地 $file 变量未定义。我希望可以通过在 uplevel 上下文中将 proc 变量公开为 file_up 来解决这个问题，但这也不起作用：

proc source_file {file} {
    upvar "file_up" $file
    uplevel {source $file_up }
}

source_file test.tcl
can't read "file_up": no such variable

我做错什么了？

proc