Add a few comments and return with an error code if
appropriate, that way the whole stuff gets scriptable. right now warnings are error code 0 (like completely fine code). svn path=/trunk/; revision=34730
This commit is contained in:
parent
e52c685b2a
commit
462245ba9a
|
@ -83,6 +83,8 @@ my $currfile = "";
|
|||
my $comment = 0;
|
||||
my $brace = 0;
|
||||
|
||||
my $error = 0;
|
||||
|
||||
sub printprevfile {
|
||||
my $state;
|
||||
|
||||
|
@ -92,13 +94,20 @@ sub printprevfile {
|
|||
if ($state eq "s_usedarray") {
|
||||
# Everything is fine
|
||||
} elsif ($state eq "s_used") {
|
||||
print "NO ARRAY: $currfile, $element\n"
|
||||
# A value is declared and used but the hf_ array
|
||||
# entry is missing
|
||||
print "ERROR: NO ARRAY: $currfile, $element\n";
|
||||
$error = 1;
|
||||
} elsif ($state eq "s_array") {
|
||||
print "Unused entry: $currfile, $element\n"
|
||||
# A value is declared, has an hf_ array entry
|
||||
# but it is never used
|
||||
print "Unused entry: $currfile, $element\n";
|
||||
} elsif ($state eq "s_declared") {
|
||||
# A value is declared but no error value exists.
|
||||
# This doesn't matter as it isn't used either.
|
||||
print "Declared only entry: $currfile, $element\n"
|
||||
} elsif ($state eq "s_unknown") {
|
||||
print "UNKNOWN: $currfile, $element\n"
|
||||
print "UNKNOWN: $currfile, $element\n";
|
||||
} else {
|
||||
die "Impossible: State $state for $currfile, $element\n";
|
||||
}
|
||||
|
@ -224,6 +233,6 @@ while (<>) {
|
|||
}
|
||||
&printprevfile();
|
||||
|
||||
exit 0;
|
||||
exit $error;
|
||||
|
||||
__END__
|
||||
|
|
Loading…
Reference in New Issue