|
@@ -1779,7 +1779,7 @@ sub process_file($) {
|
|
$prototype = "";
|
|
$prototype = "";
|
|
$state = 3;
|
|
$state = 3;
|
|
$brcount = 0;
|
|
$brcount = 0;
|
|
-# print STDERR "end of doc comment, looking for prototype\n";
|
|
|
|
|
|
+# print STDERR "end of doc comment, looking for prototype\n";
|
|
} elsif (/$doc_content/) {
|
|
} elsif (/$doc_content/) {
|
|
# miguel-style comment kludge, look for blank lines after
|
|
# miguel-style comment kludge, look for blank lines after
|
|
# @parameter line to signify start of description
|
|
# @parameter line to signify start of description
|
|
@@ -1796,7 +1796,7 @@ sub process_file($) {
|
|
print STDERR "Warning(${file}:$.): bad line: $_";
|
|
print STDERR "Warning(${file}:$.): bad line: $_";
|
|
++$warnings;
|
|
++$warnings;
|
|
}
|
|
}
|
|
- } elsif ($state == 3) { # scanning for function { (end of prototype)
|
|
|
|
|
|
+ } elsif ($state == 3) { # scanning for function '{' (end of prototype)
|
|
if ($decl_type eq 'function') {
|
|
if ($decl_type eq 'function') {
|
|
process_state3_function($_, $file);
|
|
process_state3_function($_, $file);
|
|
} else {
|
|
} else {
|