diff options
| author | Karl Williamson <khw@cpan.org> | 2016-01-04 22:09:55 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-05-09 08:21:41 -0600 |
| commit | b82bf1ab2e741cae81b915e189d77e2325bc6b80 (patch) | |
| tree | 6412e495319306a55f97bba31bed5913471c06fb | |
| parent | fd2f7781c53de487918ce1b3b454abd025e35748 (diff) | |
| download | perl-b82bf1ab2e741cae81b915e189d77e2325bc6b80.tar.gz | |
mktables: Add info under -annotate option
This adds some helpful text when this option is used, which is for examining the Unicode database in great detail
| -rw-r--r-- | charclass_invlists.h | 2 | ||||
| -rw-r--r-- | lib/unicore/mktables | 16 | ||||
| -rw-r--r-- | regcharclass.h | 2 |
3 files changed, 18 insertions, 2 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index 96c31d595a..1d9ffbcfce 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -87887,7 +87887,7 @@ static const U8 WB_table[19][19] = { * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt - * 9d7fdc238d83baa868b4c24194beeb2e65250b2e308a14fdbee2b16f8c002e0d lib/unicore/mktables + * b2f25082bf2c632b3aa17e17fa480a068ad560868ddd51aebc281143b68ea1aa lib/unicore/mktables * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl * 12bd58cb9d5a99f631ca95e269f7f9c90dacaf81020efa5d95a995f3cdc19200 regen/mk_invlists.pl diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 583d4d6a27..6a0277cadb 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -6308,6 +6308,22 @@ END } if ($write_as_invlist) { + if ( $previous_end > 0 + && $output_range_counts{$addr}) + { + my $complement_count = $start - $previous_end - 1; + if ($complement_count > 1) { + $OUT[-1] = merge_single_annotation_line( + $OUT[-1], + "#" + . (" " x 17) + . "[" + . main::clarify_code_point_count( + $complement_count) + . "] in complement\n", + $comment_indent); + } + } # Inversion list format has a single number per line, # the starting code point of a range that matches the diff --git a/regcharclass.h b/regcharclass.h index 891ce714c0..f399d039ac 100644 --- a/regcharclass.h +++ b/regcharclass.h @@ -1895,7 +1895,7 @@ * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt - * 9d7fdc238d83baa868b4c24194beeb2e65250b2e308a14fdbee2b16f8c002e0d lib/unicore/mktables + * b2f25082bf2c632b3aa17e17fa480a068ad560868ddd51aebc281143b68ea1aa lib/unicore/mktables * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl * d9c04ac46bdd81bb3e26519f2b8eb6242cb12337205add3f7cf092b0c58dccc4 regen/regcharclass.pl |