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 
    } 
} 

내가, 내가, # 각 라인을 넣어하지 않으려는 하나의 의견으로 전체의 절차를 넣어 원하는이

이/* .. */tcl 에서처럼 모든 코드가 주석 처리됩니다. 그리고 나는 또한 텍스트 중 일부를 원할 것임을 원합니다.

Answer 1

관용적 인 (그리고 대부분의 tcl 프로그래머가 인식하는) if {0} ..을 제외하고는 다른 구문을 사용하고 중괄호 따옴표로 주석 처리하려는 내용을 채울 수 있습니다. 여기에서 실행을 막는 실제 메커니즘은 중괄호 따옴표 안에있는 것이 대체되지 않는다는 것입니다.

여기 내 즐겨 찾기입니다. 나는 그들이 그 자체로 문서이기 때문에 그들처럼 :

set COMMENTED_OUT { 

    commented out stuff 

} 

내가 주석 텍스트의 블록 코드의 블록 정말 때문에 proc을 선호하는 경향이

proc COMMENTED_OUT {} { 

    commented out stuff... 

} 

. ==`, 문자열 평등`eq`를 사용 : 첫 번째 실행은 그래서 proc를 사용하여 주석까지 TCL은 시저의 시체를 컴파일하지 않습니다

참고 싼

Answer 2

이 질문은 명확하지 않습니다. 코드 블록을 주석으로 처리하겠습니까? 접두사

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

함께 # 사용 뭔가 모든 라인 당신이 무엇을 의미하는지에 대한 예를 우리에게 보여이 질문을 바꿔주십시오없는 경우 음 두 가지 방법이 있습니다.