diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-09 14:18:56 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-12 13:08:28 -0700 |
| commit | 6e5a209ba9c56abdee04aa811fc575cfbac8df08 (patch) | |
| tree | 1d5ba2b096f72e3793370d20211bc7cfdc820130 /lib | |
| parent | c1739a4afa0df2a5c7c9b17bf16e765889bc4a14 (diff) | |
| download | perl-6e5a209ba9c56abdee04aa811fc575cfbac8df08.tar.gz | |
mktables: Make generated files use hex code points
Certain generated files had some values converted from hex into decimal.
All the published values are in hex, so should use the more familiar
form for readability.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index cd18eb1186..81ae08d9b0 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -1169,11 +1169,16 @@ my %loose_property_name_of; # Loosely maps property names to standard form # These constants names and values were taken from the Unicode standard, # version 5.1, section 3.12. They are used in conjunction with Hangul -# syllables -my $SBase = 0xAC00; -my $LBase = 0x1100; -my $VBase = 0x1161; -my $TBase = 0x11A7; +# syllables. The '_string' versions are so generated tables can retain the +# hex format, which is the more familiar value +my $SBase_string = "0xAC00"; +my $SBase = CORE::hex $SBase_string; +my $LBase_string = "0x1100"; +my $LBase = CORE::hex $LBase_string; +my $VBase_string = "0x1161"; +my $VBase = CORE::hex $VBase_string; +my $TBase_string = "0x11A7"; +my $TBase = CORE::hex $TBase_string; my $SCount = 11172; my $LCount = 19; my $VCount = 21; @@ -5585,14 +5590,14 @@ $jamo_t # These constants names and values were taken from the Unicode standard, # version 5.1, section 3.12. They are used in conjunction with Hangul # syllables - my \$SBase = 0xAC00; - my \$LBase = 0x1100; - my \$VBase = 0x1161; - my \$TBase = 0x11A7; - my \$SCount = 11172; - my \$LCount = 19; - my \$VCount = 21; - my \$TCount = 28; + my \$SBase = $SBase_string; + my \$LBase = $LBase_string; + my \$VBase = $VBase_string; + my \$TBase = $TBase_string; + my \$SCount = $SCount; + my \$LCount = $LCount; + my \$VCount = $VCount; + my \$TCount = $TCount; my \$NCount = \$VCount * \$TCount; END } # End of has Jamos |