Given a file which contains C style comments (i.e. /* .... */ ) the following procedure will remove the comments. This procedure actually also will correctly remove comments that are imbeded (i.e. /* ... /* ... */ ... */) which I don't believe is legel in C.
proc stripComments { text {replacement ""} } {
# remove all comments that don't have an imbedded '*'
# characters except at the beginning and end of the comment
regsub -all {[/][*]+([\n]?[^*]*[\n]?)*?[*]+[/]} $text ${replacement} text
# recursively remove all comments that don't have any imbedded '/' characters
while {[regsub -all {[/][*]+([\n]?[^/]*[\n]?)*?[*]+[/]} $text ${replacement} text] ne 0} {continue}
return $text
}
set result [stripComments ${data} "#comment removed\n"]The procedure could stand some more testing but it works on the cases I have tried.