This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charclasslists.h: script enums visible to CORE,EXT
authorKarl Williamson <khw@cpan.org>
Sat, 6 Jan 2018 23:15:12 +0000 (16:15 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:12:46 +0000 (22:12 -0700)
This exposes the enum definitions for the script extensions property to
the perl code and extensions, for use in future commits.

charclass_invlists.h
regen/mk_invlists.pl

index 72f91e3..60c64ef 100644 (file)
@@ -20393,7 +20393,7 @@ static const UV _Perl_SCX_invlist[] = { /* for ASCII/Latin1 */
 
 #endif /* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_IN_REGEXEC_C)
+#if defined(PERL_CORE) || defined(PERL_EXT)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -22754,7 +22754,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for ASCII/Latin1 */
        SCX_Unknown
 };
 
-#endif /* defined(PERL_IN_REGEXEC_C) */
+#endif /* defined(PERL_CORE) || defined(PERL_EXT) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -56784,7 +56784,7 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 1047 */
 
 #endif /* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_IN_REGEXEC_C)
+#if defined(PERL_CORE) || defined(PERL_EXT)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -59171,7 +59171,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for EBCDIC 1047 */
        SCX_Unknown
 };
 
-#endif /* defined(PERL_IN_REGEXEC_C) */
+#endif /* defined(PERL_CORE) || defined(PERL_EXT) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -93385,7 +93385,7 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 037 */
 
 #endif /* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_IN_REGEXEC_C)
+#if defined(PERL_CORE) || defined(PERL_EXT)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -95768,7 +95768,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for EBCDIC 037 */
        SCX_Unknown
 };
 
-#endif /* defined(PERL_IN_REGEXEC_C) */
+#endif /* defined(PERL_CORE) || defined(PERL_EXT) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -109537,5 +109537,5 @@ static const U8 WB_table[24][24] = {
  * 5671c3de473b25e7ea47097e4906260624dfabe3e9b1739f490aecbc3d858459 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * ddcc2a146f5202e3fb5fa448eded5e53b49db82e436a742ca37b8cee15179148 regen/mk_invlists.pl
+ * 4898ec84e2b81e8bf948dcdb1c015c14f258cc652337122719885a276ea46d7b regen/mk_invlists.pl
  * ex: set ro: */
index 00b929e..79ceba9 100644 (file)
@@ -59,7 +59,8 @@ my %exceptions_to_where_to_define =
                           _Perl_IDStart              => 'PERL_IN_UTF8_C',
                           Currency_Symbol            => 'PERL_IN_LOCALE_C',
                         );
-my %where_to_define_enums = ();
+my %where_to_define_enums = ( _Perl_SCX => [ qw(PERL_CORE PERL_EXT) ],
+                            );
 
 my %gcb_enums;
 my @gcb_short_enums;