From 11e4b509a05a8d9a4df1a66eb2910eb15ae36efd Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Tue, 1 Feb 2011 16:31:33 -0700
Subject: mktables remove obsolete never-used code

---
 lib/unicore/mktables | 32 --------------------------------
 1 file changed, 32 deletions(-)

(limited to 'lib/unicore')

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 1a3f23479d..82cfec5f0f 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -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
-- 
cgit v1.2.1