This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables remove obsolete never-used code
authorKarl Williamson <public@khwilliamson.com>
Tue, 1 Feb 2011 23:31:33 +0000 (16:31 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 2 Feb 2011 23:31:22 +0000 (16:31 -0700)
lib/unicore/mktables

index 1a3f234..82cfec5 100644 (file)
@@ -10482,15 +10482,6 @@ sub filter_old_style_case_folding {
     # 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.
@@ -10551,31 +10542,9 @@ sub filter_old_style_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 {
@@ -14269,7 +14238,6 @@ my @input_file_objects = (
                                  : undef,
                            \&filter_case_folding_line
                         ],
-                    Post_Handler => \&post_fold,
                     ),
     Input_file->new('DCoreProperties.txt', v3.1.0,
                     # 5.2 changed this file