有什么方法可以在 Tcl 命令中嵌入注释吗？

Question

我想在命令中添加注释，但考虑到“#”字符在 Tcl 8.4 中定义为：

如果散列字符（“#”）出现在 Tcl 的位置，则 这似乎是不可能的期望命令第一个单词的第一个字符，然后散列字符及其后面的字符，直到下一个换行符，将被视为注释并被忽略。注释字符仅当出现在命令开头时才有意义。

想象一下这个示例，说明它是如何工作的（这些注释在我的实验中都不起作用）：

array set myArray [list red 3        \
                        blue 4       ;# Blue is before purple.
                        purple 5     # Purple is after red.
                        green 7      \
                        yellow 8]

似乎棘手的部分是如何在嵌入注释的情况下继续列表命令？也许类似于 C++ 风格的 /* 嵌入注释。 */ 但我只看到 # 在 Tcl 中用于注释行尾，没有用于开始和结束注释语法。

Answer 1

不可以，您不能在命令调用中嵌入注释。 Tcl 中的注释与其他语言中的注释工作方式不太一样。有些人会被这个问题绊倒，大多数有经验的 Tcl 程序员都不会再考虑一下。

在极少数情况下，您确实需要这样做，通常可以很容易地解决它。使用您的示例：

set myArray(red) 3
set myArray(blue) 4 ;# Blue is before purple
set myArray(purple) 5 ;# Purple is after red
set myArray(green) 7
set myArray(yellow) 8

您可能认为这比在一行上完成所有操作要慢，但除了最关键的时间情况外，在所有情况下差异都可以忽略不计，可能只有几微秒。

Answer 2

是的，有一种方法可以将注释嵌入到命令中。这并不漂亮，但这是可能的。添加仅包含列表成员注释的命令替换，如下所示（注释后的换行符是强制性的）：

array set myArray [list red 3     \
                        blue 4[
                                  # Blue is before purple.
                        ]         \
                        purple 5[
                                  # Purple is after red.
                        ]         \
                        green 7   \
                        yellow 8]
% array get myArray
yellow 8 purple 5 blue 4 green 7 red 3