summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-09-15 07:21:08 -0600
committerKarl Williamson <khw@cpan.org>2021-09-15 08:48:04 -0600
commitaf56221a729795569e62d31e32db88f53f56572c (patch)
tree63ae2ce66c7d0a1f5af547c91e419e924ee51446 /lib
parent85079456b5557013056979af9b22ee55a0138d91 (diff)
downloadperl-af56221a729795569e62d31e32db88f53f56572c.tar.gz
mktables: Reorder some comments, white-space
Move comments closer to the action
Diffstat (limited to 'lib')
-rw-r--r--lib/unicore/mktables21
-rw-r--r--lib/unicore/uni_keywords.pl2
2 files changed, 13 insertions, 10 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 10dba57f27..04e9cf6c24 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -15143,15 +15143,9 @@ END
# omitted in the default algorithm remapped to what
# http://www.unicode.org/reports/tr14 says they should be.
#
- # Original Resolved General_Category
- # AI, SG, XX AL Any
- # SA CM Only Mn or Mc
- # SA AL Any except Mn and Mc
- # CJ NS Any
- #
- # All property values are also written out in their long form, as
- # regen/mk_invlist.pl expects that. This also fixes occurrences of the
- # typo in early Unicode versions: 'inseperable'.
+ # First, create a plain copy, but with all property values written out in
+ # their long form, as regen/mk_invlist.pl expects that, and also fix
+ # occurrences of the typo in early Unicode versions: 'inseperable'.
my $perl_lb = property_ref('_Perl_LB');
if (! defined $perl_lb) {
$perl_lb = Property->new('_Perl_LB',
@@ -15170,7 +15164,16 @@ END
}
}
+ # What tr14 says is this:
+
+ # Original Resolved General_Category
+ # AI, SG, XX AL Any
+ # SA CM Only Mn or Mc
+ # SA AL Any except Mn and Mc
+ # CJ NS Any
+
$perl_lb->set_default_map('Alphabetic', 'full_name'); # XX -> AL
+
my $ea = property_ref('East_Asian_Width');
for my $range ($perl_lb->ranges) {
diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl
index 4a7cad4dfa..0ea5d98fc6 100644
--- a/lib/unicore/uni_keywords.pl
+++ b/lib/unicore/uni_keywords.pl
@@ -1295,7 +1295,7 @@
# baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt
# 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt
# 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt
-# 97c6ea021b02944a62d84f6e8b18562f4e426622c37f6636538b50bd00b62080 lib/unicore/mktables
+# b74c07296be6f14f3b99c92090a9a190188ca6f6afcc46e5d000f1529922120a lib/unicore/mktables
# 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version
# 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
# 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl