9 # ignore strings and comments appearing in preprocessor directives
21 if(m,^([^"]*)"([^"]*)",) {
22 s,^([^"]*)"(([^\\"]*?
([^\\"]|(\\.)))+)",,s
;
23 print STDERR
"quote: $2\n" if $debug;
30 print STDERR
"c-style comment: $1\n" if $debug;
32 print STDERR
"REMAINDER:\n===========================\n$_\n=========================\n" if $debug;
37 print STDERR
"c++-style comment: $1\n" if $debug;
39 print STDERR
"REMAINDER:\n===========================\n$_\n=========================\n" if $debug;
50 $comments =~ s
,^,^,gm
;