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 /lib/unicore | |
| 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
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 16 |
1 files changed, 16 insertions, 0 deletions
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 |