diff options
| author | Job Bautista <jobbautista9@protonmail.com> | 2022-07-24 21:05:07 +0800 |
|---|---|---|
| committer | Job Bautista <jobbautista9@protonmail.com> | 2022-07-24 21:05:07 +0800 |
| commit | be2e0f9830ff375bb86108783b03b37ab393c8f7 (patch) | |
| tree | a6e6db2d58387d5c970f08236e418923d6437b0e /intl | |
| parent | 62636946ff93190d408f87538c8e47f875432c2e (diff) | |
| download | uxp-be2e0f9830ff375bb86108783b03b37ab393c8f7.tar.gz | |
Issue #1971 - Part 3: Update unicharutil perl scripts for Unicode 11 upgrade.
ICU 62 (and therefore 63) requires at least Unicode 11.
Diffstat (limited to 'intl')
| -rw-r--r--[-rwxr-xr-x] | intl/unicharutil/tools/genSpecialCasingData.pl | 4 | ||||
| -rw-r--r--[-rwxr-xr-x] | intl/unicharutil/tools/genUnicodePropertyData.pl | 19 |
2 files changed, 8 insertions, 15 deletions
diff --git a/intl/unicharutil/tools/genSpecialCasingData.pl b/intl/unicharutil/tools/genSpecialCasingData.pl index 39b2d478ea..45d748f4b1 100755..100644 --- a/intl/unicharutil/tools/genSpecialCasingData.pl +++ b/intl/unicharutil/tools/genSpecialCasingData.pl @@ -176,7 +176,7 @@ sub genTest { <meta http-equiv="Content-type" content="text/html; charset=utf-8"> <style type="text/css"> \@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> </head> <body> @@ -202,7 +202,7 @@ __END__ <meta http-equiv="Content-type" content="text/html; charset=utf-8"> <style type="text/css"> \@font-face { font-family: foo; src: url($testFont); } - p { font-family: foo; } + p { font-family: foo; font-size: 12px; } </style> </head> <body> diff --git a/intl/unicharutil/tools/genUnicodePropertyData.pl b/intl/unicharutil/tools/genUnicodePropertyData.pl index 8c7437f82d..6b2190e4d2 100755..100644 --- a/intl/unicharutil/tools/genUnicodePropertyData.pl +++ b/intl/unicharutil/tools/genUnicodePropertyData.pl @@ -17,7 +17,7 @@ # # (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 # - UnicodeData.txt @@ -28,12 +28,12 @@ # The Unicode data files listed above should be together in one directory. # # 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 # directory containing the other Unicode data files. # # 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 # 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, # and UCD-directory is a directory containing the current Unicode Character # 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. # # This will generate (or overwrite!) the files @@ -215,9 +215,7 @@ while (<FH>) { s/\xef\xbb\xbf//; push @versionInfo, $_; last if /Date:/; - } - while (<FH>) { if (m/([0-9A-F]{4,6})(?:\.\.([0-9A-F]{4,6}))*\s+;\s+Allowed/) { my $start = hex "0x$1"; @@ -225,7 +223,6 @@ while (<FH>) { for (my $i = $start; $i <= $end; ++$i) { $idtype[$i] = $mappedIdType{'Allowed'}; } - } } close FH; @@ -348,9 +345,7 @@ __END our $totalData = 0; -print HEADER "#pragma pack(1)\n\n"; - -sub sprintCharProps2 +sub sprintCharProps2_short { my $usv = shift; return sprintf("{%d,%d},", @@ -365,9 +360,7 @@ struct nsCharProps2 { unsigned char mIdType:2; }; |; -&genTables("CharProp2", $type, "nsCharProps2", 9, 7, \&sprintCharProps2, 16, 1, 1); - -print HEADER "#pragma pack()\n\n"; +&genTables("CharProp2", $type, "nsCharProps2", 9, 7, \&sprintCharProps2_short, 16, 1, 1); sub sprintHanVariants { |