Question

我这里有代码

proc checkPrime {no} { 
    set i 1 
    set count 0 
    while {$i < $no} { 
        if {{$no%$i} eq 0} {
            incr count 
        } 
        if {$count eq 2} { 
            puts "the number is prime number" 
            return 
        }
        incr i 
    } 
}

我想把整个程序放到一个注释中，我不想把每行都用＃，是否有任何可能像在java / * .. * /所有代码注释，如在tcl中。而且我也希望将一些文字放在单一评论中

Answer 1

除了惯用的if {0} ..（以及大多数tcl程序员认可的那个）之外，您还可以使用任何其他构造，并将您想要在括号引号中注释掉的内容填充。这里阻止执行的真正机制是括号引号内的东西不会被替换。

以下是我的一些最爱。我喜欢他们，因为他们是自我记录的：

set COMMENTED_OUT {

    commented out stuff

}

和

proc COMMENTED_OUT {} {

    commented out stuff...

}

我倾向于选择proc，因为注释掉的文本块实际上是一段代码。

请注意，tcl在第一次执行之前不会编译proc主体，因此使用proc进行注释与set和if {0} ...

一样便宜

Answer 2

这个问题尚不清楚。你的意思是注释掉一段代码吗？那么有两种方法：用＃作为每一行的前缀使用

的东西

if { 0 } {
    a section
    of
    "commented" code
}

如果没有，请重新解释这个问题，向我们展示你的意思。

如何将块注释放入TCL

2 个答案: