You are here

주석 제거하는 프로그램을 만들고 있는데 조언 부탁드립니다.

if [ catch { open "input_1.v" r } fd ] {
puts stderr "Error : $fd"
return -1
}

if [ catch { open "output_2.tcl" w } fo ] {
puts stderr "Error : $fo"
return -1
}

set all_line_1 {}

while { [gets $fd line] >= 0 } {
if ![ regexp {[/]{2,}(.*)} $line ] {
append all_line ${line}n
}
}
puts $all_line

# 이제 /* ~ */ 의 주석부분을 지우려고 하는데..
set all_line_2 {}

while { .......

close $fd
close $fo

-----------------------------------------------------------
// 의 주석부분을 지운후에 all_line에 저장했는데
다음 /* ~ */ 의 주석 부분을 지운후 다시 저장하려고 할때
어떻게 해야할까요 ..
부탁드립니다.. ㅜ