diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/unicore/Name.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/unicore/Name.pm | 133 |
1 files changed, 122 insertions, 11 deletions
diff --git a/Master/tlpkg/tlperl/lib/unicore/Name.pm b/Master/tlpkg/tlperl/lib/unicore/Name.pm index 1f28e3d241e..8074bd58754 100644 --- a/Master/tlpkg/tlperl/lib/unicore/Name.pm +++ b/Master/tlpkg/tlperl/lib/unicore/Name.pm @@ -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 !!!!!!! @@ -51,13 +51,14 @@ package charnames; { 'high' => [ -19893, -40943, -173782, +19903, +40956, +173789, 177972, 178205, 183969, 191456, +201546, ], 'low' => [ @@ -68,6 +69,18 @@ package charnames; 177984, 178208, 183984, +196608, +], +}, +'KHITAN SMALL SCRIPT CHARACTER' => +{ +'high' => +[ +101589, +], +'low' => +[ +101120, ], }, 'NUSHU CHARACTER' => @@ -92,6 +105,17 @@ package charnames; 94208, ], }, +'TANGUT IDEOGRAPH SUPPLEMENT' => +{ +'high' => +[ +101640, +], +'low' => +[ +101632, +], +}, ); @@ -117,13 +141,14 @@ package charnames; { 'high' => [ -19893, -40943, -173782, +19903, +40956, +173789, 177972, 178205, 183969, 191456, +201546, ], 'low' => [ @@ -134,6 +159,18 @@ package charnames; 177984, 178208, 183984, +196608, +], +}, +'KHITANSMALLSCRIPTCHARACTER' => +{ +'high' => +[ +101589, +], +'low' => +[ +101120, ], }, 'NUSHUCHARACTER' => @@ -158,77 +195,151 @@ package charnames; 94208, ], }, +'TANGUTIDEOGRAPHSUPPLEMENT' => +{ +'high' => +[ +101640, +], +'low' => +[ +101632, +], +}, ); # And the following array gives the inverse mapping from code points to # names. Lowest code points are first - my @code_points_ending_in_code_point = ( + @code_points_ending_in_code_point = ( { -'high' => 19893, +'high' => 19903, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 13312, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { -'high' => 40943, +'high' => 40956, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 19968, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 64109, +'legal' => +' + -0123456789ABCDEFGHIJKLMOPRTY', 'low' => 63744, 'name' => 'CJK COMPATIBILITY IDEOGRAPH', }, { 'high' => 64217, +'legal' => +' + -0123456789ABCDEFGHIJKLMOPRTY', 'low' => 64112, 'name' => 'CJK COMPATIBILITY IDEOGRAPH', }, { 'high' => 100343, +'legal' => +' + -0123456789ABCDEFGHINOPRTU', 'low' => 94208, 'name' => 'TANGUT IDEOGRAPH', }, { +'high' => 101589, +'legal' => +' + -0123456789ABCDEFHIKLMNPRST', +'low' => 101120, +'name' => 'KHITAN SMALL SCRIPT CHARACTER', +}, +{ +'high' => 101640, +'legal' => +' + -0123456789ABCDEFGHILMNOPRSTU', +'low' => 101632, +'name' => 'TANGUT IDEOGRAPH SUPPLEMENT', +}, +{ 'high' => 111355, +'legal' => +' + -0123456789ABCDEFHNRSTU', 'low' => 110960, 'name' => 'NUSHU CHARACTER', }, { -'high' => 173782, +'high' => 173789, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 131072, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 177972, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 173824, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 178205, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 177984, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 183969, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 178208, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 191456, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', 'low' => 183984, 'name' => 'CJK UNIFIED IDEOGRAPH', }, { 'high' => 195101, +'legal' => +' + -0123456789ABCDEFGHIJKLMOPRTY', 'low' => 194560, 'name' => 'CJK COMPATIBILITY IDEOGRAPH', }, +{ +'high' => 201546, +'legal' => +' + -0123456789ABCDEFGHIJKNOPRU', +'low' => 196608, +'name' => 'CJK UNIFIED IDEOGRAPH', +}, , ); + # Is exportable, make read-only + Internals::SvREADONLY(@code_points_ending_in_code_point, 1); + # Convert from code point to Jamo short name for use in composing Hangul # syllable names my %Jamo = ( |