From 4fec90dfa7ed7023fd7d7b2bfa52e3458c7b399c Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 27 Dec 2011 11:12:47 -0700 Subject: [PATCH] mktables: Arrange to handle 6.1 ScriptExtensions.txt Unlike 6.0, this property is listed in 6.1's PropValueAliases.txt, so is automatically created in 6.1. Thus this needs to be checked for and the initialization moved out of the constructor. --- lib/unicore/mktables | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 83c15d4..3e478e4 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -11346,13 +11346,13 @@ sub setup_script_extensions { # The Script_Extensions property starts out with a clone of the Script # property. - my $sc = property_ref("Script"); - my $scx = Property->new("scx", Full_Name => "Script_Extensions", - Initialize => $sc, - Default_Map => $sc->default_map, - Pre_Declared_Maps => 0, - Format => $STRING_WHITE_SPACE_LIST, - ); + my $scx = property_ref("Script_Extensions"); + $scx = Property->new("scx", Full_Name => "Script_Extensions") + if ! defined $scx; + $scx->_set_format($STRING_WHITE_SPACE_LIST); + $scx->initialize($script); + $scx->set_default_map($script->default_map); + $scx->set_pre_declared_maps(0); # PropValueAliases doesn't list these $scx->add_comment(join_lines( <tables) { + foreach my $table ($script->tables) { my $scx_table = $scx->add_match_table($table->name, Full_Name => $table->full_name); foreach my $alias ($table->aliases) { @@ -15873,6 +15873,9 @@ my @input_file_objects = ( Property => 'Script_Extensions', Pre_Handler => \&setup_script_extensions, Each_Line_Handler => \&filter_script_extensions_line, + Has_Missings_Defaults => (($v_version le v6.0.0) + ? $NO_DEFAULTS + : $IGNORED), ), # The two Indic files are actually available starting in v6.0.0, but their # property values are missing from PropValueAliases.txt in that release, -- 2.7.4