$uc = property_ref('uc');
# For each of the case change mappings...
- foreach my $case_table ($lc, $tc, $uc) {
- my $case = $case_table->name;
- my $full = property_ref($case);
- unless (defined $full && ! $full->is_empty) {
+ foreach my $full_table ($lc, $tc, $uc) {
+ my $full_name = $full_table->name;
+ unless (defined $full_table && ! $full_table->is_empty) {
Carp::my_carp_bug("Need to process UnicodeData before SpecialCasing. Only special casing will be generated.");
}
# The simple version's name in each mapping merely has an 's' in
# front of the full one's
- my $simple_name = 's' . $case;
+ my $simple_name = 's' . $full_name;
my $simple = property_ref($simple_name);
- $simple->initialize($full) if $simple->to_output_map();
+ $simple->initialize($full_table) if $simple->to_output_map();
- my $simple_only = Property->new("_s$case",
+ my $simple_only = Property->new("_s$full_name",
Type => $STRING,
Default_Map => $CODE_POINT,
Perl_Extension => 1,
Fate => $INTERNAL_ONLY,
- Description => "This contains the simple mappings for $case for just the code points that have different full mappings");
+ 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