- my $op = $1;
- my $v = hex($2);
- if ($op ne '<' && $op ne '>=') {
- die "Error: unacceptable operator $op: $_[0]\n";
- }
- my ($major, $minor, $edit) =
- ( ($v >> 28) & 0xf,
- ($v >> 20) & 0xff,
- ($v >> 12) & 0xff );
- my $t = "DEPRECATEDIN_" .
- ($major <= 1
- ? "${major}_${minor}_${edit}"
- : "${major}");
- my $cond = $op eq '<' ? 'ifndef' : 'ifdef';