This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Move #define in output
authorKarl Williamson <khw@cpan.org>
Mon, 24 Feb 2020 02:32:03 +0000 (19:32 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 2 Mar 2020 18:40:29 +0000 (11:40 -0700)
This value will be needed outside of where it currently is defined; this
commit makes it available elsewhere

charclass_invlists.h
lib/unicore/uni_keywords.pl
regen/mk_invlists.pl
uni_keywords.h

index 3c9becf..fb489e8 100644 (file)
@@ -22,6 +22,8 @@
 
 #define NUM_ANYOF_CODE_POINTS   (1 << 8)
 
+/* The precision to use in "%.*e" formats */
+#define PL_E_FORMAT_PRECISION 2
 
 #if (defined(PERL_IN_REGCOMP_C) && ! defined(PERL_IN_XSUB_RE))
 
@@ -419850,5 +419852,5 @@ static const U8 WB_table[23][23] = {
  * 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version
  * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl
  * 6bbad21de0848e0236b02f34f5fa0edd3cdae9ba8173cc9469a5513936b9e728 regen/mk_PL_charclass.pl
- * abe1ced568de2d3ca8fe099e7e91219d99d569a869ed1cc64f128de3ba4b5a2c regen/mk_invlists.pl
+ * fb429fcdab7fc74f015ade1ddb6a8826880a239b290d59fc8b00a08bed58fc71 regen/mk_invlists.pl
  * ex: set ro: */
index f8ee5e2..99db077 100644 (file)
 # 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version
 # 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl
 # 6bbad21de0848e0236b02f34f5fa0edd3cdae9ba8173cc9469a5513936b9e728 regen/mk_PL_charclass.pl
-# abe1ced568de2d3ca8fe099e7e91219d99d569a869ed1cc64f128de3ba4b5a2c regen/mk_invlists.pl
+# fb429fcdab7fc74f015ade1ddb6a8826880a239b290d59fc8b00a08bed58fc71 regen/mk_invlists.pl
 # ex: set ro:
index 6ba0df2..ee7a51a 100644 (file)
@@ -84,6 +84,12 @@ print $out_fh "#define NUM_ANYOF_CODE_POINTS   $num_anyof_code_points\n\n";
 
 $num_anyof_code_points = eval $num_anyof_code_points;
 
+no warnings 'once';
+print $out_fh <<"EOF";
+/* The precision to use in "%.*e" formats */
+#define PL_E_FORMAT_PRECISION $Unicode::UCD::e_precision
+EOF
+
 # enums that should be made public
 my %public_enums = (
                     _Perl_SCX => 1
@@ -3317,13 +3323,6 @@ my $keywords_fh = open_new('uni_keywords.h', '>',
                  {style => '*', by => 'regen/mk_invlists.pl',
                   from => "mph.pl"});
 
-no warnings 'once';
-print $keywords_fh <<"EOF";
-/* The precision to use in "%.*e" formats */
-#define PL_E_FORMAT_PRECISION $Unicode::UCD::e_precision
-
-EOF
-
 my ($second_level, $seed1, $length_all_keys, $smart_blob, $rows)
                         = MinimalPerfectHash::make_mph_from_hash(\%keywords);
 print $keywords_fh MinimalPerfectHash::make_algo($second_level, $seed1,
index 8dbf316..a6a4712 100644 (file)
@@ -4,9 +4,6 @@
  * Any changes made here will be lost!
  */
 
-/* The precision to use in "%.*e" formats */
-#define PL_E_FORMAT_PRECISION 2
-
 #define MPH_VALt I16
 
 /*
@@ -7544,6 +7541,6 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) {
  * 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version
  * 2680b9254eb236c5c090f11b149605043e8c8433661b96efc4a42fb4709342a5 regen/charset_translations.pl
  * 6bbad21de0848e0236b02f34f5fa0edd3cdae9ba8173cc9469a5513936b9e728 regen/mk_PL_charclass.pl
- * abe1ced568de2d3ca8fe099e7e91219d99d569a869ed1cc64f128de3ba4b5a2c regen/mk_invlists.pl
+ * fb429fcdab7fc74f015ade1ddb6a8826880a239b290d59fc8b00a08bed58fc71 regen/mk_invlists.pl
  * cf1d68efb7d919d302c4005641eae8d36da6d7850816ad374b0c00b45e609f43 regen/mph.pl
  * ex: set ro: */