1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl -w
$name = $ARGV[0];
print "FILE: $name\n";
$file = open(FILE, $name) or die "Unable to open $name file.";
@tmptable = <FILE>;
$data = join "", @tmptable;
close(FILE);
# GOOD $logPattern = '/\*[^*]*\*+([^/*][^*]*\*+)*/';
#$logPattern = '(/\*[^*]*\*+([^/*][^*]*\*+)*/)';
$logPattern = '(/\*[^*]*\*+([^/*][^*])*Log([^/*][^*]*\*+)*/)';
$hdrPattern = '(/\*[^*]*\*+([^/*])*GNU([^/*][^*]*\*+)*/)';
#if ($data =~ s%$logPattern%LOG%smg) {
#$cmt = $1;
#}
if ($data =~ s%$hdrPattern%HDR%smg) {
$hdr = $1;
}
#$data =~ s#/\*[^*]*\*+([^/*][^*]*\*+)*/|//[^\n]*|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#defined $2 ? $2 : ""#gse;
print "====\n$data===$cmt===\n$hdr===\n";
|
