wuggy/Dactyloidae
wuggy/Dactyloidae
1
0
Fork 0
mirror of https://repo.dactyloidae.xyz/Dactyloidae/UXP.git synced 2026-09-30 04:17:31 +09:00
Code Issues Projects Releases Packages Wiki Activity

Issue #1971 - Part 3: Update unicharutil perl scripts for Unicode 11 upgrade.

Browse source 
ICU 62 (and therefore 63) requires at least Unicode 11.
This commit is contained in:
Job Bautista 2022-07-24 21:05:07 +08:00 • committed by roytam1
commit 9a4a62c8cc
2 changed files with 8 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
intl/unicharutil/tools/genSpecialCasingData.pl
View file

@ -176,7 +176,7 @@ sub genTest {
<meta http-equiv="Content-type" content="text/html; charset=utf-8"> <meta http-equiv="Content-type" content="text/html; charset=utf-8">
<style type="text/css"> <style type="text/css">
\@font-face { font-family: foo; src: url($testFont); } \@font-face { font-family: foo; src: url($testFont); }
p { font-family: foo; text-transform: ${whichMapping}case; } p { font-family: foo; font-size: 12px; text-transform: ${whichMapping}case; }
</style> </style>
</head> </head>
<body> <body>
@ -202,7 +202,7 @@ __END__
<meta http-equiv="Content-type" content="text/html; charset=utf-8"> <meta http-equiv="Content-type" content="text/html; charset=utf-8">
<style type="text/css"> <style type="text/css">
\@font-face { font-family: foo; src: url($testFont); } \@font-face { font-family: foo; src: url($testFont); }
p { font-family: foo; } p { font-family: foo; font-size: 12px; }
</style> </style>
</head> </head>
<body> <body>

19
intl/unicharutil/tools/genUnicodePropertyData.pl
View file

@ -17,7 +17,7 @@
# #
# (1) Download the current Unicode data files from # (1) Download the current Unicode data files from
# #
# http://www.unicode.org/Public/UNIDATA/ # https://www.unicode.org/Public/UNIDATA/
# #
# NB: not all the files are actually needed; currently, we require # NB: not all the files are actually needed; currently, we require
# - UnicodeData.txt # - UnicodeData.txt
@ -28,12 +28,12 @@
# The Unicode data files listed above should be together in one directory. # The Unicode data files listed above should be together in one directory.
# #
# We also require the file # We also require the file
# http://www.unicode.org/Public/security/latest/IdentifierStatus.txt # https://www.unicode.org/Public/security/latest/IdentifierStatus.txt
# This file should be in a sub-directory "security" immediately below the # This file should be in a sub-directory "security" immediately below the
# directory containing the other Unicode data files. # directory containing the other Unicode data files.
# #
# We also require the latest data file for UTR50, currently revision-17: # We also require the latest data file for UTR50, currently revision-17:
# http://www.unicode.org/Public/vertical/revision-17/VerticalOrientation-17.txt # https://www.unicode.org/Public/vertical/revision-17/VerticalOrientation-17.txt
# This file should be in a sub-directory "vertical" immediately below the # This file should be in a sub-directory "vertical" immediately below the
# directory containing the other Unicode data files. # directory containing the other Unicode data files.
# #
@ -65,7 +65,7 @@ if ($#ARGV != 1) {
# where icu/common/unicode is the directory containing ICU 'common' headers, # where icu/common/unicode is the directory containing ICU 'common' headers,
# and UCD-directory is a directory containing the current Unicode Character # and UCD-directory is a directory containing the current Unicode Character
# Database files (UnicodeData.txt, etc), available from # Database files (UnicodeData.txt, etc), available from
# http://www.unicode.org/Public/UNIDATA/, with additional resources as # https://www.unicode.org/Public/UNIDATA/, with additional resources as
# detailed in the source comments. # detailed in the source comments.
# #
# This will generate (or overwrite!) the files # This will generate (or overwrite!) the files
@ -215,9 +215,7 @@ while (<FH>) {
s/\xef\xbb\xbf//; s/\xef\xbb\xbf//;
push @versionInfo, $_; push @versionInfo, $_;
last if /Date:/; last if /Date:/;
} }
while (<FH>) { while (<FH>) {
if (m/([0-9A-F]{4,6})(?:\.\.([0-9A-F]{4,6}))*\s+;\s+Allowed/) { if (m/([0-9A-F]{4,6})(?:\.\.([0-9A-F]{4,6}))*\s+;\s+Allowed/) {
my $start = hex "0x$1"; my $start = hex "0x$1";
@ -225,7 +223,6 @@ while (<FH>) {
for (my $i = $start; $i <= $end; ++$i) { for (my $i = $start; $i <= $end; ++$i) {
$idtype[$i] = $mappedIdType{'Allowed'}; $idtype[$i] = $mappedIdType{'Allowed'};
} }
} }
} }
close FH; close FH;
@ -348,9 +345,7 @@ __END
our $totalData = 0; our $totalData = 0;
print HEADER "#pragma pack(1)\n\n"; sub sprintCharProps2_short
sub sprintCharProps2
{ {
my $usv = shift; my $usv = shift;
return sprintf("{%d,%d},", return sprintf("{%d,%d},",
@ -365,9 +360,7 @@ struct nsCharProps2 {
unsigned char mIdType:2; unsigned char mIdType:2;
}; };
|; |;
&genTables("CharProp2", $type, "nsCharProps2", 9, 7, \&sprintCharProps2, 16, 1, 1); &genTables("CharProp2", $type, "nsCharProps2", 9, 7, \&sprintCharProps2_short, 16, 1, 1);
print HEADER "#pragma pack()\n\n";
sub sprintHanVariants sub sprintHanVariants
{ {