diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl b/systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl index 249fa16c20..23003e5ae3 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl @@ -1,6 +1,6 @@ # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is machine-generated by ..\lib\unicore\mktables from the Unicode -# database, Version 12.1.0. Any changes made here will be lost! +# database, Version 13.0.0. Any changes made here will be lost! # !!!!!!! INTERNAL PERL USE ONLY !!!!!!! # This file is for internal use by core Perl only. The format and even the @@ -13,12 +13,12 @@ # correct values by adding the code point ordinal number to each one that is # numeric. -# The name this swash is to be known by, with the format of the mappings in +# The name this table is to be known by, with the format of the mappings in # the main body of the table, and what all code points missing from this file # map to. -$utf8::SwashInfo{'ToUc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment -$utf8::SwashInfo{'ToUc'}{'specials_name'} = 'utf8::ToSpecUc'; # Name of hash of special mappings -$utf8::SwashInfo{'ToUc'}{'missing'} = '0'; # code point maps to itself +$Unicode::UCD::SwashInfo{'ToUc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment +$Unicode::UCD::SwashInfo{'ToUc'}{'specials_name'} = 'Unicode::UCD::ToSpecUc'; # Name of hash of special mappings +$Unicode::UCD::SwashInfo{'ToUc'}{'missing'} = '0'; # code point maps to itself # Some code points require special handling because their mappings are each to # multiple code points. These do not appear in the main body, but are defined @@ -27,7 +27,7 @@ $utf8::SwashInfo{'ToUc'}{'missing'} = '0'; # code point maps to itself # Each key is the string of N bytes that together make up the UTF-8 encoding # for the code point. (i.e. the same as looking at the code point's UTF-8 # under "use bytes"). Each value is the UTF-8 of the translation, for speed. -%utf8::ToSpecUc = ( +%Unicode::UCD::ToSpecUc = ( "\xC3\x9F" => "\x{0053}\x{0053}", # U+00DF => 0053 0053 "\xC5\x89" => "\x{02BC}\x{004E}", # U+0149 => 02BC 004E "\xC7\xB0" => "\x{004A}\x{030C}", # U+01F0 => 004A 030C @@ -797,6 +797,9 @@ A7BB A7BA A7BD A7BC A7BF A7BE A7C3 A7C2 +A7C8 A7C7 +A7CA A7C9 +A7F6 A7F5 AB53 A7B3 AB70 ABBF 13A0 FF41 FF5A FF21 |