diff options
author | Karl Williamson <khw@cpan.org> | 2015-08-20 11:50:39 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-08-20 12:48:20 -0600 |
commit | f8b690041a9dddc2b00dd38a514deed7abc7aa3f (patch) | |
tree | e24bf5231bf107de67ba2cb6a902796a6f7a6ba8 | |
parent | 8f21889c2a0e574a419f6f6dbb2090be2bf6ff8f (diff) | |
download | perl-f8b690041a9dddc2b00dd38a514deed7abc7aa3f.tar.gz |
mktables: Move file handling to non-exceptional order
The DAge.txt property until the previous commit had to be handled
out-of-the-normal order. This is no longer required.
-rw-r--r-- | charclass_invlists.h | 2 | ||||
-rw-r--r-- | lib/unicore/mktables | 31 | ||||
-rw-r--r-- | regcharclass.h | 2 |
3 files changed, 15 insertions, 20 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index 3f5c739322..3c33b48889 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -99537,7 +99537,7 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */ * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt - * 8342a7b7a0fcf32673d96b5d4423cf4b70b0c20f3e20325d43651d22316fd2b1 lib/unicore/mktables + * 887daf6d03fd77ccbc68af592605355499930f59114df880d3332b729fc0217a lib/unicore/mktables * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl * 8a097f8f726bb1619af2f27f149ab87e60a1602f790147e3a561358be16abd27 regen/mk_invlists.pl diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 33306e47c2..af63b84f4d 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -2632,7 +2632,7 @@ END # once per file, as it destroy's the EOF handlers # flag to make sure extracted files are processed early - state $seen_non_extracted_non_age = 0; + state $seen_non_extracted = 0; my $self = shift; Carp::carp_extra_args(\@_) if main::DEBUG && @_; @@ -2645,7 +2645,7 @@ END $handle{$addr} = 'pretend_is_open'; } else { - if ($seen_non_extracted_non_age) { + if ($seen_non_extracted) { if ($file =~ /$EXTRACTED/i) # Some platforms may change the # case of the file's name { @@ -2662,13 +2662,12 @@ END # We only do this check for generic property files && $handler{$addr} == \&main::process_generic_property_file - && $file !~ /$EXTRACTED/i - && lc($file) ne 'dage.txt') + && $file !~ /$EXTRACTED/i) { # We don't set this (by the 'if' above) if we have no # extracted directory, so if running on an early version, # this test won't work. Not worth worrying about. - $seen_non_extracted_non_age = 1; + $seen_non_extracted = 1; } # Mark the file as having being processed, and warn if it @@ -18594,15 +18593,11 @@ my $Validation_Documentation = "Documentation of validation Tests"; # This is a list of the input files and how to handle them. The files are # processed in their order in this list. Some reordering is possible if # desired, but the PropertyAliases and PropValueAliases files should be first, -# and the extracted before the others except DAge.txt (as data in an extracted -# file can be over-ridden by the non-extracted. Some other files depend on -# data derived from an earlier file, like UnicodeData requires data from Jamo, -# and the case changing and folding requires data from Unicode. Mostly, it is -# safest to order by first version releases in (except the Jamo). DAge.txt is -# read before the extracted ones because of the rarely used feature -# $compare_versions. In the unlikely event that there were ever an extracted -# file that contained the Age property information, it would have to go in -# front of DAge. +# and the extracted before the others (as data in an extracted file can be +# over-ridden by the non-extracted. Some other files depend on data derived +# from an earlier file, like UnicodeData requires data from Jamo, and the case +# changing and folding requires data from Unicode. Mostly, it is safest to +# order by first version releases in (except the Jamo). # # The version strings allow the program to know whether to expect a file or # not, but if a file exists in the directory, it will be processed, even if it @@ -18624,10 +18619,6 @@ my @input_file_objects = ( Has_Missings_Defaults => $NOT_IGNORED, Required_Even_in_Debug_Skip => 1, ), - Input_file->new('DAge.txt', v3.2.0, - Has_Missings_Defaults => $NOT_IGNORED, - Property => 'Age' - ), Input_file->new("${EXTRACTED}DGeneralCategory.txt", v3.1.0, Property => 'General_Category', ), @@ -18849,6 +18840,10 @@ my @input_file_objects = ( Withdrawn => v5.1, Skip => $Documentation, ), + Input_file->new('DAge.txt', v3.2.0, + Has_Missings_Defaults => $NOT_IGNORED, + Property => 'Age' + ), Input_file->new('HangulSyllableType.txt', v4.0, Has_Missings_Defaults => $NOT_IGNORED, Early => [ \&generate_hst, 'Hangul_Syllable_Type' ], diff --git a/regcharclass.h b/regcharclass.h index 2e6eb77340..76e4a45605 100644 --- a/regcharclass.h +++ b/regcharclass.h @@ -2514,7 +2514,7 @@ * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt - * 8342a7b7a0fcf32673d96b5d4423cf4b70b0c20f3e20325d43651d22316fd2b1 lib/unicore/mktables + * 887daf6d03fd77ccbc68af592605355499930f59114df880d3332b729fc0217a lib/unicore/mktables * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl * d9c04ac46bdd81bb3e26519f2b8eb6242cb12337205add3f7cf092b0c58dccc4 regen/regcharclass.pl |