This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the SCX enums public
authorKarl Williamson <khw@cpan.org>
Fri, 20 Apr 2018 17:26:27 +0000 (11:26 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Jun 2018 13:33:27 +0000 (07:33 -0600)
These enums are scheduled to be used outside the files that they now are
defined in.

charclass_invlists.h
regen/mk_invlists.pl
uni_keywords.h

index 123bd22..e512d78 100644 (file)
@@ -70864,8 +70864,6 @@ static const UV _Perl_SCX_invlist[] = { /* for ASCII/Latin1 */
 
 #endif /* defined(PERL_IN_UTF8_C) */
 
-#if defined(PERL_IN_REGEXEC_C)
-
 #   if 'A' == 65 /* ASCII/Latin1 */
 
 /* Negative enum values indicate the need to use an auxiliary table
@@ -71066,6 +71064,12 @@ typedef enum {
        SCX_use_AUX_TABLE_45 = -45
 } SCX_enum;
 
+#   endif      /* ASCII/Latin1 */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#   if 'A' == 65 /* ASCII/Latin1 */
+
 #define HAS_SCX_AUX_TABLES
 
 static const SCX_enum SCX_AUX_TABLE_1[] = {
@@ -74855,8 +74859,6 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 1047 */
 
 #endif /* defined(PERL_IN_UTF8_C) */
 
-#if defined(PERL_IN_REGEXEC_C)
-
 #   if 'A' == 193 /* EBCDIC 1047 */ \
      && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
      && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
@@ -75060,6 +75062,15 @@ typedef enum {
        SCX_use_AUX_TABLE_45 = -45
 } SCX_enum;
 
+#   endif      /* EBCDIC 1047 */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#   if 'A' == 193 /* EBCDIC 1047 */ \
+     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
+     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+
 #define HAS_SCX_AUX_TABLES
 
 static const SCX_enum SCX_AUX_TABLE_1[] = {
@@ -78871,8 +78882,6 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 037 */
 
 #endif /* defined(PERL_IN_UTF8_C) */
 
-#if defined(PERL_IN_REGEXEC_C)
-
 #   if 'A' == 193 /* EBCDIC 037 */ \
      && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
      && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
@@ -79076,6 +79085,15 @@ typedef enum {
        SCX_use_AUX_TABLE_45 = -45
 } SCX_enum;
 
+#   endif      /* EBCDIC 037 */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#   if 'A' == 193 /* EBCDIC 037 */ \
+     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
+     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+
 #define HAS_SCX_AUX_TABLES
 
 static const SCX_enum SCX_AUX_TABLE_1[] = {
@@ -374267,5 +374285,5 @@ static const U8 WB_table[24][24] = {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 38936fafefb0559582239124bc936259b283874f3bab9d92af6e266657a46a78 regen/mk_invlists.pl
+ * d3ca5c0fbf36f85475b811615af0c2ceafdb38cb74ce786b9c4e73d07730e733 regen/mk_invlists.pl
  * ex: set ro: */
index a47031f..0d10fcd 100644 (file)
@@ -51,7 +51,7 @@ print $out_fh "/* See the generating file for comments */\n\n";
 
 # enums that should be made public
 my %public_enums = (
-                    #_Perl_SCX => 1
+                    _Perl_SCX => 1
                     );
 
 # The symbols generated by this program are all currently defined only in a
index bd78d8e..1feaf30 100644 (file)
@@ -6758,6 +6758,6 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 38936fafefb0559582239124bc936259b283874f3bab9d92af6e266657a46a78 regen/mk_invlists.pl
+ * d3ca5c0fbf36f85475b811615af0c2ceafdb38cb74ce786b9c4e73d07730e733 regen/mk_invlists.pl
  * 784929499a354028e04efcff331847d420beeca7f3f4f22569b59ec160924b72 regen/mph.pl
  * ex: set ro: */