diff options
author | Karl Williamson <khw@cpan.org> | 2021-12-07 08:59:14 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-12-07 09:01:16 -0700 |
commit | 354c44d8eaae5f59c3370c629f21da26a3a043ff (patch) | |
tree | 77b2e05284dee456f754f05b950a16dc180fdb50 | |
parent | 70657aee92d84a1cd5a50bd81dfab71001372aad (diff) | |
download | perl-354c44d8eaae5f59c3370c629f21da26a3a043ff.tar.gz |
mktables: Use mnemonic variable names
Spotted by Dagfinn Ilmari Mannsåker
-rw-r--r-- | charclass_invlists.h | 2 | ||||
-rw-r--r-- | lib/unicore/mktables | 4 | ||||
-rw-r--r-- | lib/unicore/uni_keywords.pl | 2 | ||||
-rw-r--r-- | regcharclass.h | 2 | ||||
-rw-r--r-- | uni_keywords.h | 2 |
5 files changed, 6 insertions, 6 deletions
diff --git a/charclass_invlists.h b/charclass_invlists.h index 2f2b33b458..2f8e392b91 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -430828,7 +430828,7 @@ static const U8 WB_table[23][23] = { * 43f6df50e4878f501b417e366b0ee097ae5ccb2d4ce942026bed3d62d78e7887 lib/unicore/extracted/DLineBreak.txt * a04502ebb36a45d83cbe48a7d8132ea8143edb7b3d34d0aa6afe4a9685049741 lib/unicore/extracted/DNumType.txt * 11075771b112e8e7ccf6ffa637c4c91eadc3ef3db0517b24e605df8fd3624239 lib/unicore/extracted/DNumValues.txt - * c7f768a3f16596ffe80c9f5bc730d62195856cedf3fa962e8259b1c4cdce6fcd lib/unicore/mktables + * 26d28cb7efd6987ebe22c3686af6763bb83cf311933d04b4aa8f4b563f34377b lib/unicore/mktables * c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl * 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 22a02652b3..e5cf15ebd2 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -10816,7 +10816,7 @@ sub process_NormalizationsTest($file) { } # End of looping through the file } -sub output_perl_charnames_line ($a, $b) { +sub output_perl_charnames_line ($code_point, $name) { # Output the entries in Perl_charnames specially, using 5 digits instead # of four. This makes the entries a constant length, and simplifies @@ -10824,7 +10824,7 @@ sub output_perl_charnames_line ($a, $b) { # ordinals, but they are all private use or noncharacters which do not # have names, so won't be in this table. - return sprintf "%05X\n%s\n\n", $a, $b; + return sprintf "%05X\n%s\n\n", $code_point, $name; } { # Closure diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index ce3507015d..6eda8e27bf 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1319,7 +1319,7 @@ # 43f6df50e4878f501b417e366b0ee097ae5ccb2d4ce942026bed3d62d78e7887 lib/unicore/extracted/DLineBreak.txt # a04502ebb36a45d83cbe48a7d8132ea8143edb7b3d34d0aa6afe4a9685049741 lib/unicore/extracted/DNumType.txt # 11075771b112e8e7ccf6ffa637c4c91eadc3ef3db0517b24e605df8fd3624239 lib/unicore/extracted/DNumValues.txt -# c7f768a3f16596ffe80c9f5bc730d62195856cedf3fa962e8259b1c4cdce6fcd lib/unicore/mktables +# 26d28cb7efd6987ebe22c3686af6763bb83cf311933d04b4aa8f4b563f34377b lib/unicore/mktables # c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version # 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl # 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl diff --git a/regcharclass.h b/regcharclass.h index 0870ff0d89..a85aa8da16 100644 --- a/regcharclass.h +++ b/regcharclass.h @@ -3762,7 +3762,7 @@ * 43f6df50e4878f501b417e366b0ee097ae5ccb2d4ce942026bed3d62d78e7887 lib/unicore/extracted/DLineBreak.txt * a04502ebb36a45d83cbe48a7d8132ea8143edb7b3d34d0aa6afe4a9685049741 lib/unicore/extracted/DNumType.txt * 11075771b112e8e7ccf6ffa637c4c91eadc3ef3db0517b24e605df8fd3624239 lib/unicore/extracted/DNumValues.txt - * c7f768a3f16596ffe80c9f5bc730d62195856cedf3fa962e8259b1c4cdce6fcd lib/unicore/mktables + * 26d28cb7efd6987ebe22c3686af6763bb83cf311933d04b4aa8f4b563f34377b lib/unicore/mktables * c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl * 1aa94679c695efd507b7e4491629dba1021b74c21a5324dfd3a582a5d654bd32 regen/regcharclass.pl diff --git a/uni_keywords.h b/uni_keywords.h index 611bd2de51..7683d1d710 100644 --- a/uni_keywords.h +++ b/uni_keywords.h @@ -7697,7 +7697,7 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) { * 43f6df50e4878f501b417e366b0ee097ae5ccb2d4ce942026bed3d62d78e7887 lib/unicore/extracted/DLineBreak.txt * a04502ebb36a45d83cbe48a7d8132ea8143edb7b3d34d0aa6afe4a9685049741 lib/unicore/extracted/DNumType.txt * 11075771b112e8e7ccf6ffa637c4c91eadc3ef3db0517b24e605df8fd3624239 lib/unicore/extracted/DNumValues.txt - * c7f768a3f16596ffe80c9f5bc730d62195856cedf3fa962e8259b1c4cdce6fcd lib/unicore/mktables + * 26d28cb7efd6987ebe22c3686af6763bb83cf311933d04b4aa8f4b563f34377b lib/unicore/mktables * c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl * 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl |