diff options
-rw-r--r-- | charclass_invlists.h | 2 | ||||
-rw-r--r-- | lib/unicore/uni_keywords.pl | 2 | ||||
-rw-r--r-- | regen/mk_invlists.pl | 15 | ||||
-rw-r--r-- | uni_keywords.h | 2 |
4 files changed, 11 insertions, 10 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index 181d808969..a426e7d5d3 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -430755,5 +430755,5 @@ static const U8 WB_table[23][23] = { * c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl * 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl - * be6e055280d1dbb82673bc7532148f67dbd4e843deb3e0b39ae426c36ea7d77c regen/mk_invlists.pl + * 7dae12c0180337d75f0b3e851c056573621ca68a83e23f55b0b1754131b2b73f regen/mk_invlists.pl * ex: set ro: */ diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index ca7867a821..9551d9b5eb 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1323,5 +1323,5 @@ # c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version # 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl # 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl -# be6e055280d1dbb82673bc7532148f67dbd4e843deb3e0b39ae426c36ea7d77c regen/mk_invlists.pl +# 7dae12c0180337d75f0b3e851c056573621ca68a83e23f55b0b1754131b2b73f regen/mk_invlists.pl # ex: set ro: diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 0e8b160c61..815a28b4e5 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2415,6 +2415,14 @@ sub sanitize_name ($) { return $sanitized; } +sub token_name +{ + my $name = sanitize_name(shift); + warn "$name contains non-word" if $name =~ /\W/; + + return "$table_name_prefix\U$name" +} + switch_pound_if ('ALL', 'PERL_IN_REGCOMP_C'); output_invlist("Latin1", [ 0, 256 ]); @@ -3343,13 +3351,6 @@ my $uni_pl = open_new('lib/unicore/uni_keywords.pl', '>', read_only_bottom_close_and_rename($uni_pl, \@sources); -sub token_name -{ - my $name = sanitize_name(shift); - warn "$name contains non-word" if $name =~ /\W/; - - return "$table_name_prefix\U$name" -} my $keywords_fh = open_new('uni_keywords.h', '>', {style => '*', by => 'regen/mk_invlists.pl', diff --git a/uni_keywords.h b/uni_keywords.h index 010905fe6d..f5e041e64b 100644 --- a/uni_keywords.h +++ b/uni_keywords.h @@ -7705,6 +7705,6 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) { * c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl * 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl - * be6e055280d1dbb82673bc7532148f67dbd4e843deb3e0b39ae426c36ea7d77c regen/mk_invlists.pl + * 7dae12c0180337d75f0b3e851c056573621ca68a83e23f55b0b1754131b2b73f regen/mk_invlists.pl * 0992c4c7252dfb2782397459133ab6473709543f3568b54721ec0fd7071895ff regen/mph.pl * ex: set ro: */ |