summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/unicore/To/Uc.pl
diff options
context:
space:
mode:
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.pl15
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