$EventAttrNums{$_} = $evno++;
}
+ my $max = 0;
for (sort {$a cmp $b} getAllFields $event) {
my $u = $_;
# $u =~ s/([a-z])([A-Z])/$1_$2/g;
gen defined($EventAttrNums{$u}) ?
"$c\t\t$u = $EventAttrNums{$u},\n" :
"#error \"$u not defined in EventAttrNames\"\n";
+
+ $max = $EventAttrNums{$u} if defined($EventAttrNums{$u}) && $EventAttrNums{$u} > $max;
}
+ $max++;
+ gen "\t\tATTR_MAX = $max /**< Limit for checking attribute code validity. */\n";
@@@}
- ATTR_MAX /**< Limit for checking attribute code
- validity. */
};
@@@{
$StatusAttrNums{$_} = $stno++;
}
+ my $max = 0;
selectType $status '_common_';
for my $u (sort {$a cmp $b} getAllFields $status) {
selectField $status $u;
gen defined($StatusAttrNums{$u}) ?
"\t/** $f->{comment} */\n\t\t$u = $StatusAttrNums{$u},\n" :
"#error \"$u not defined in StatusAttrNames\"\n";
+ $max = $StatusAttrNums{$u} if defined($StatusAttrNums{$u}) && $StatusAttrNums{$u} > $max;
}
+ $max++;
+ gen "\t\tATTR_MAX = $max /**< Limit for range checking. */\n";
@@@}
- ATTR_MAX /**< Limit for range checking. */
};
@@@{