# it takes no part in anything we do.
my $to_output_simple;
- # XXX
- # These are experimental, perhaps will need these to pass to regcomp.c to
- # handle the cases where for example the Kelvin sign character folds to k,
- # and in regcomp, we need to know which of the characters can have a
- # non-latin1 char fold to it, so it doesn't do the optimizations it might
- # otherwise.
- my @latin1_singly_folded;
- my @latin1_folded;
-
sub setup_case_folding($) {
# Read in the case foldings in CaseFolding.txt. This handles both
# simple and full case folding.
$file->insert_adjusted_lines("$range; Simple_Case_Folding; $map");
}
- # XXX Experimental, see comment above
- if ($type ne 'S' && hex($range) >= 256) { # assumes range is 1 point
- my @folded = split ' ', $map;
- if (hex $folded[0] < 256 && @folded == 1) {
- push @latin1_singly_folded, hex $folded[0];
- }
- foreach my $folded (@folded) {
- push @latin1_folded, hex $folded if hex $folded < 256;
- }
- }
-
return;
}
- sub post_fold {
- # XXX Experimental, see comment above
- return;
-
- #local $to_trace = 1 if main::DEBUG;
- @latin1_singly_folded = uniques(@latin1_singly_folded);
- @latin1_folded = uniques(@latin1_folded);
- trace "latin1 single folded:", map { chr $_ } sort { $a <=> $b } @latin1_singly_folded if main::DEBUG && $to_trace;
- trace "latin1 folded:", map { chr $_ } sort { $a <=> $b } @latin1_folded if main::DEBUG && $to_trace;
- return;
- }
} # End case fold closure
sub filter_jamo_line {
: undef,
\&filter_case_folding_line
],
- Post_Handler => \&post_fold,
),
Input_file->new('DCoreProperties.txt', v3.1.0,
# 5.2 changed this file