Как поместить блок комментариев в TCL

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 обходится так же дешево, как set и if {0} ...

Answer 2

Этот вопрос неясен.Вы хотите закомментировать блок кода?Ну, есть два пути: префикс каждой строки с # используйте что-то вместе

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

Если нет, перефразируйте этот вопрос или покажите нам пример того, что вы имеете в виду.