diff options
Diffstat (limited to 'regen/feature.pl')
| -rwxr-xr-x | regen/feature.pl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index 4f439e93e5..a6896fe030 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -86,13 +86,14 @@ for my $bund ( } my $HintShift; +my $HintMask; open "perl.h", "perl.h" or die "$0 cannot open perl.h: $!"; perlh: { while (readline "perl.h") { next unless /#define\s+HINT_FEATURE_MASK/; /(0x[A-Fa-f0-9]+)/ or die "No hex number in:\n\n$_\n "; - my $hex = $1; + my $hex = $HintMask = $1; my $bits = sprintf "%b", oct $1; $bits =~ /^0*1+(0*)\z/ or die "Non-contiguous bits in $bits (binary for $hex):\n\n$_\n "; @@ -108,6 +109,9 @@ perlh: { } close "perl.h"; +my @HintedBundles = + ('default', grep !/[^\d.]/, sort values %UniqueBundles); + ########################################################################### # Open files to be generated @@ -166,6 +170,13 @@ for (sort keys %Aliases) { qq'\$feature_bundle{"$_"} = \$feature_bundle{"$Aliases{$_}"};\n'; }; +print $pm <<EOPM; + +my \$hint_shift = $HintShift; +my \$hint_mask = $HintMask; +my \@hint_bundles = qw( @HintedBundles ); +EOPM + while (<DATA>) { last if /^PODTURES$/ ; |