summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-01-22 08:50:24 -0700
committerKarl Williamson <public@khwilliamson.com>2012-02-04 16:29:30 -0700
commitbc0cd4159212380ff4e5ea321e35be6455b88512 (patch)
tree3f214f959c9a8995b03d8fefb1908c3b7458e43a /lib
parent75e7c50ba6023f6ca3b8ebe1b189950c7a002755 (diff)
downloadperl-bc0cd4159212380ff4e5ea321e35be6455b88512.tar.gz
mktables: Don't generate no-longer used tables
Previous commits have removed all uses of these tables, so they are no longer needed.
Diffstat (limited to 'lib')
-rw-r--r--lib/unicore/mktables37
1 files changed, 1 insertions, 36 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index bdd8ce1185..24cf411e5f 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -770,7 +770,6 @@ push @tables_that_may_be_empty, 'Script_Extensions=Katakana_Or_Hiragana'
if $v_version ge v6.0.0;
push @tables_that_may_be_empty, 'Grapheme_Cluster_Break=Prepend'
if $v_version ge v6.1.0;
-push @tables_that_may_be_empty, '_stc';
# The lists below are hashes, so the key is the item in the list, and the
# value is the reason why it is in the list. This makes generation of
@@ -10682,7 +10681,7 @@ sub filter_arabic_shaping_line {
# simple ones are in UnicodeData.txt, which should already have been
# read in to the full property data structures, so as to initialize
# these with the simple ones. Then the SpecialCasing.txt entries
- # overwrite the ones which have different full mappings.
+ # add or overwrite the ones which have different full mappings.
# This routine sees if the simple mappings are to be output, and if
# so, copies what has already been put into the full mapping tables,
@@ -10694,16 +10693,6 @@ sub filter_arabic_shaping_line {
# relatively few entries in them that have different full mappings,
# and thus skip the simple mapping tables altogether.
- # New tables with just the simple mappings that are overridden by the
- # full ones are constructed. These are for Unicode::UCD, which
- # requires the simple mappings. The Case_Folding table is a combined
- # table of both the simple and full mappings, with the full ones being
- # in the hash, and the simple ones, even those overridden by the hash,
- # being in the base table. That same mechanism could have been
- # employed here, except that the docs have said that the generated
- # files are usuable directly by programs, so we dare not change the
- # format in any way.
-
my $file= shift;
Carp::carp_extra_args(\@_) if main::DEBUG && @_;
@@ -10752,20 +10741,6 @@ END
my $simple = property_ref($simple_name);
$simple->initialize($full_table) if $simple->to_output_map();
- my $simple_only = Property->new("_s$full_name",
- Type => $STRING,
- Default_Map => $CODE_POINT,
- Perl_Extension => 1,
- Range_Size_1 => 1,
- Fate => $INTERNAL_ONLY,
- Description => "This contains the simple mappings for $full_name for just the code points that have different full mappings");
- $simple_only->set_to_output_map($INTERNAL_MAP);
- $simple_only->add_comment(join_lines( <<END
-This file is for UCD.pm so that it can construct simple mappings that would
-otherwise be lost because they are overridden by full mappings.
-END
- ));
-
unless ($simple->to_output_map()) {
$full_table->set_proxy_for($simple_name);
}
@@ -10875,16 +10850,6 @@ END
. "$REPLACE_CMD=$MULTIPLE_BEFORE"
. $CMD_DELIM
. $fields[$i]);
-
- # Copy any simple case change to the special tables
- # constructed if being overridden by a multi-character case
- # change.
- if ($value != $decimal_code_point) {
- $file->insert_adjusted_lines(sprintf("%s; _s%s; %04X",
- $fields[0],
- $object->name,
- $value));
- }
}
}