diff options
| author | Karl Williamson <khw@cpan.org> | 2015-08-20 10:20:21 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-08-20 12:48:20 -0600 |
| commit | 53adf6a2e6002345048c5137b16445f8dbf4bb81 (patch) | |
| tree | 1a66d153c5975a9e28af257673e95d2d185f90a3 /lib | |
| parent | c9f3f183113edf79fb8e5aac6822d93d09d7b203 (diff) | |
| download | perl-53adf6a2e6002345048c5137b16445f8dbf4bb81.tar.gz | |
mktables: Use mnemonic instead of hex constant
These constants are used in more than one place. Use a common variable
instead of repeating the hex numbers
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 81539367a2..18a8186804 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -1320,6 +1320,12 @@ my %ucd_pod; # Holds entries that will go into the UCD section of the pod # unlikely that they will ever change. my %caseless_equivalent_to; +# This is the range of characters that were in Release 1 of Unicode, and +# removed in Release 2 (replaced with the current Hangul syllables starting at +# U+AC00). The range was reused starting in Release 3 for other purposes. +my $FIRST_REMOVED_HANGUL_SYLLABLE = 0x3400; +my $FINAL_REMOVED_HANGUL_SYLLABLE = 0x4DFF; + # 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. The '_string' versions are so generated tables can retain the @@ -3231,7 +3237,8 @@ END Carp::carp_extra_args(\@_) if main::DEBUG && @_; my $object = main::property_ref($property{$addr}); - $object->add_map(0x3400, 0x4DFF, + $object->add_map($FIRST_REMOVED_HANGUL_SYLLABLE, + $FINAL_REMOVED_HANGUL_SYLLABLE, $early{$addr}[3], # Passed-in value for these Replace => $UNCONDITIONALLY); } @@ -13059,7 +13066,9 @@ END # not being right at all. if ($v_version lt v2.0.0) { my $property = property_ref($file->property); - $file->insert_lines("3400..4DFF; LVT\n"); + $file->insert_lines(sprintf("%04X..%04X; LVT\n", + $FIRST_REMOVED_HANGUL_SYLLABLE, + $FINAL_REMOVED_HANGUL_SYLLABLE)); push @tables_that_may_be_empty, $property->table('LV')->complete_name; return; } |