This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Omit unnecessary #if's
authorKarl Williamson <khw@cpan.org>
Tue, 24 Apr 2018 23:46:03 +0000 (17:46 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Jun 2018 13:33:27 +0000 (07:33 -0600)
In places, #endifs were unconditionally added followed by the
same #ifdef they just ended.

charclass_invlists.h
regen/mk_invlists.pl
uni_keywords.h

index 3ce7a0d..123bd22 100644 (file)
@@ -1413,14 +1413,6 @@ static const UV Case_Folding_invlist[] = { /* for ASCII/Latin1 */
        0x1E922
 };
 
-#   endif      /* ASCII/Latin1 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -1502,10 +1494,6 @@ typedef enum {
        CF_use_AUX_TABLE_73 = -73
 } CF_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 #define HAS_CF_AUX_TABLES
 
 static const unsigned int CF_AUX_TABLE_1[] = {
@@ -4825,17 +4813,6 @@ static const UV Case_Folding_invlist[] = { /* for EBCDIC 1047 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 1047 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -4917,13 +4894,6 @@ typedef enum {
        CF_use_AUX_TABLE_73 = -73
 } CF_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_CF_AUX_TABLES
 
 static const unsigned int CF_AUX_TABLE_1[] = {
@@ -8258,17 +8228,6 @@ static const UV Case_Folding_invlist[] = { /* for EBCDIC 037 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 037 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -8350,13 +8309,6 @@ typedef enum {
        CF_use_AUX_TABLE_73 = -73
 } CF_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_CF_AUX_TABLES
 
 static const unsigned int CF_AUX_TABLE_1[] = {
@@ -11533,14 +11485,6 @@ static const UV Lowercase_Mapping_invlist[] = { /* for ASCII/Latin1 */
        0x1E922
 };
 
-#   endif      /* ASCII/Latin1 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -11550,10 +11494,6 @@ typedef enum {
        LC_use_AUX_TABLE_1 = -1
 } LC_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 #define HAS_LC_AUX_TABLES
 
 static const unsigned int LC_AUX_TABLE_1[] = {
@@ -14082,17 +14022,6 @@ static const UV Lowercase_Mapping_invlist[] = { /* for EBCDIC 1047 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 1047 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -14102,13 +14031,6 @@ typedef enum {
        LC_use_AUX_TABLE_1 = -1
 } LC_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_LC_AUX_TABLES
 
 static const unsigned int LC_AUX_TABLE_1[] = {
@@ -16651,17 +16573,6 @@ static const UV Lowercase_Mapping_invlist[] = { /* for EBCDIC 037 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 037 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -16671,13 +16582,6 @@ typedef enum {
        LC_use_AUX_TABLE_1 = -1
 } LC_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_LC_AUX_TABLES
 
 static const unsigned int LC_AUX_TABLE_1[] = {
@@ -19856,10 +19760,6 @@ typedef enum {
        GCB_EDGE = 18
 } GCB_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 static const GCB_enum _Perl_GCB_invmap[] = { /* for ASCII/Latin1 */
        GCB_Control,
        GCB_LF,
@@ -23294,13 +23194,6 @@ typedef enum {
        GCB_EDGE = 18
 } GCB_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const GCB_enum _Perl_GCB_invmap[] = { /* for EBCDIC 1047 */
        GCB_Control,
        GCB_CR,
@@ -26735,13 +26628,6 @@ typedef enum {
        GCB_EDGE = 18
 } GCB_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const GCB_enum _Perl_GCB_invmap[] = { /* for EBCDIC 037 */
        GCB_Control,
        GCB_CR,
@@ -29739,14 +29625,6 @@ static const UV _Perl_IVCF_invlist[] = { /* for ASCII/Latin1 */
        0x1E922
 };
 
-#   endif      /* ASCII/Latin1 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -29782,10 +29660,6 @@ typedef enum {
        IVCF_use_AUX_TABLE_27 = -27
 } IVCF_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 #define HAS_IVCF_AUX_TABLES
 
 static const unsigned int IVCF_AUX_TABLE_1[] = {
@@ -32599,17 +32473,6 @@ static const UV _Perl_IVCF_invlist[] = { /* for EBCDIC 1047 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 1047 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -32645,13 +32508,6 @@ typedef enum {
        IVCF_use_AUX_TABLE_27 = -27
 } IVCF_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_IVCF_AUX_TABLES
 
 static const unsigned int IVCF_AUX_TABLE_1[] = {
@@ -35479,17 +35335,6 @@ static const UV _Perl_IVCF_invlist[] = { /* for EBCDIC 037 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 037 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -35525,13 +35370,6 @@ typedef enum {
        IVCF_use_AUX_TABLE_27 = -27
 } IVCF_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_IVCF_AUX_TABLES
 
 static const unsigned int IVCF_AUX_TABLE_1[] = {
@@ -39416,10 +39254,6 @@ typedef enum {
        LB_EDGE = 38
 } LB_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 static const LB_enum _Perl_LB_invmap[] = { /* for ASCII/Latin1 */
        LB_Combining_Mark,
        LB_Break_After,
@@ -44132,13 +43966,6 @@ typedef enum {
        LB_EDGE = 38
 } LB_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const LB_enum _Perl_LB_invmap[] = { /* for EBCDIC 1047 */
        LB_Combining_Mark,
        LB_Break_After,
@@ -48863,13 +48690,6 @@ typedef enum {
        LB_EDGE = 38
 } LB_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const LB_enum _Perl_LB_invmap[] = { /* for EBCDIC 037 */
        LB_Combining_Mark,
        LB_Break_After,
@@ -54242,10 +54062,6 @@ typedef enum {
        SB_EDGE = 15
 } SB_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 static const SB_enum _Perl_SB_invmap[] = { /* for ASCII/Latin1 */
        SB_Other,
        SB_Sp,
@@ -60325,13 +60141,6 @@ typedef enum {
        SB_EDGE = 15
 } SB_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const SB_enum _Perl_SB_invmap[] = { /* for EBCDIC 1047 */
        SB_Other,
        SB_Sp,
@@ -66431,13 +66240,6 @@ typedef enum {
        SB_EDGE = 15
 } SB_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const SB_enum _Perl_SB_invmap[] = { /* for EBCDIC 037 */
        SB_Other,
        SB_Sp,
@@ -71264,10 +71066,6 @@ typedef enum {
        SCX_use_AUX_TABLE_45 = -45
 } SCX_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 #define HAS_SCX_AUX_TABLES
 
 static const SCX_enum SCX_AUX_TABLE_1[] = {
@@ -75262,13 +75060,6 @@ typedef enum {
        SCX_use_AUX_TABLE_45 = -45
 } SCX_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   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[] = {
@@ -79285,13 +79076,6 @@ typedef enum {
        SCX_use_AUX_TABLE_45 = -45
 } SCX_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   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[] = {
@@ -83247,10 +83031,6 @@ typedef enum {
        WB_UNKNOWN = 24
 } WB_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 static const WB_enum _Perl_WB_invmap[] = { /* for ASCII/Latin1 */
        WB_Other,
        WB_Perl_Tailored_HSpace,
@@ -86776,13 +86556,6 @@ typedef enum {
        WB_UNKNOWN = 24
 } WB_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const WB_enum _Perl_WB_invmap[] = { /* for EBCDIC 1047 */
        WB_Other,
        WB_Perl_Tailored_HSpace,
@@ -90327,13 +90100,6 @@ typedef enum {
        WB_UNKNOWN = 24
 } WB_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const WB_enum _Perl_WB_invmap[] = { /* for EBCDIC 037 */
        WB_Other,
        WB_Perl_Tailored_HSpace,
@@ -93358,18 +93124,6 @@ static const UV Simple_Case_Folding_invlist[] = { /* for ASCII/Latin1 */
        0x1E922
 };
 
-#   endif      /* ASCII/Latin1 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 static const int Simple_Case_Folding_invmap[] = { /* for ASCII/Latin1 */
        0,
        0x61,
@@ -95937,24 +95691,6 @@ static const UV Simple_Case_Folding_invlist[] = { /* for EBCDIC 1047 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 1047 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const int Simple_Case_Folding_invmap[] = { /* for EBCDIC 1047 */
        0,
        0x42,
@@ -98536,24 +98272,6 @@ static const UV Simple_Case_Folding_invlist[] = { /* for EBCDIC 037 */
        0x1E922
 };
 
-#   endif      /* EBCDIC 037 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 static const int Simple_Case_Folding_invmap[] = { /* for EBCDIC 037 */
        0,
        0x42,
@@ -101166,14 +100884,6 @@ static const UV Titlecase_Mapping_invlist[] = { /* for ASCII/Latin1 */
        0x1E944
 };
 
-#   endif      /* ASCII/Latin1 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -101227,10 +100937,6 @@ typedef enum {
        TC_use_AUX_TABLE_45 = -45
 } TC_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 #define HAS_TC_AUX_TABLES
 
 static const unsigned int TC_AUX_TABLE_1[] = {
@@ -104241,17 +103947,6 @@ static const UV Titlecase_Mapping_invlist[] = { /* for EBCDIC 1047 */
        0x1E944
 };
 
-#   endif      /* EBCDIC 1047 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -104305,13 +104000,6 @@ typedef enum {
        TC_use_AUX_TABLE_45 = -45
 } TC_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_TC_AUX_TABLES
 
 static const unsigned int TC_AUX_TABLE_1[] = {
@@ -107336,17 +107024,6 @@ static const UV Titlecase_Mapping_invlist[] = { /* for EBCDIC 037 */
        0x1E944
 };
 
-#   endif      /* EBCDIC 037 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -107400,13 +107077,6 @@ typedef enum {
        TC_use_AUX_TABLE_45 = -45
 } TC_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_TC_AUX_TABLES
 
 static const unsigned int TC_AUX_TABLE_1[] = {
@@ -110459,14 +110129,6 @@ static const UV Uppercase_Mapping_invlist[] = { /* for ASCII/Latin1 */
        0x1E944
 };
 
-#   endif      /* ASCII/Latin1 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -110547,10 +110209,6 @@ typedef enum {
        UC_use_AUX_TABLE_72 = -72
 } UC_enum;
 
-#   endif      /* ASCII/Latin1 */
-
-#   if 'A' == 65 /* ASCII/Latin1 */
-
 #define HAS_UC_AUX_TABLES
 
 static const unsigned int UC_AUX_TABLE_1[] = {
@@ -113844,17 +113502,6 @@ static const UV Uppercase_Mapping_invlist[] = { /* for EBCDIC 1047 */
        0x1E944
 };
 
-#   endif      /* EBCDIC 1047 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -113935,13 +113582,6 @@ typedef enum {
        UC_use_AUX_TABLE_72 = -72
 } UC_enum;
 
-#   endif      /* EBCDIC 1047 */
-
-#   if 'A' == 193 /* EBCDIC 1047 */ \
-     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
-     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_UC_AUX_TABLES
 
 static const unsigned int UC_AUX_TABLE_1[] = {
@@ -117249,17 +116889,6 @@ static const UV Uppercase_Mapping_invlist[] = { /* for EBCDIC 037 */
        0x1E944
 };
 
-#   endif      /* EBCDIC 037 */
-
-#endif /* defined(PERL_IN_UTF8_C) */
-
-#if defined(PERL_IN_UTF8_C)
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
  * values of the negative enums are indices into a table of the auxiliary
@@ -117340,13 +116969,6 @@ typedef enum {
        UC_use_AUX_TABLE_72 = -72
 } UC_enum;
 
-#   endif      /* EBCDIC 037 */
-
-#   if 'A' == 193 /* EBCDIC 037 */ \
-     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
-     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
-     && '$' == 91 && '@' == 124 && '`' == 121
-
 #define HAS_UC_AUX_TABLES
 
 static const unsigned int UC_AUX_TABLE_1[] = {
@@ -374645,5 +374267,5 @@ static const U8 WB_table[24][24] = {
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
- * 232d95d2479300926c29d5ed849bcec7d02f36f80f06578849584a064a0cc967 regen/mk_invlists.pl
+ * 38936fafefb0559582239124bc936259b283874f3bab9d92af6e266657a46a78 regen/mk_invlists.pl
  * ex: set ro: */
index a5eecae..a47031f 100644 (file)
@@ -158,9 +158,11 @@ sub end_charset_pound_if {
     print $out_fh "\n" . get_conditional_compile_line_end();
 }
 
-sub switch_pound_if ($$) {
+sub switch_pound_if ($$;$) {
     my $name = shift;
     my $new_pound_if = shift;
+    my $charset = shift;
+
     my @new_pound_if = ref ($new_pound_if)
                        ? sort @$new_pound_if
                        : $new_pound_if;
@@ -168,6 +170,10 @@ sub switch_pound_if ($$) {
     # Switch to new #if given by the 2nd argument.  If there is an override
     # for this, it instead switches to that.  The 1st argument is the
     # static's name, used only to check if there is an override for this
+    #
+    # The 'charset' parmameter, if present, is used to first end the charset
+    # #if if we actually do a switch, and then restart it afterwards.  This
+    # code, then assumes that the charset #if's are enclosed in the file ones.
 
     if (exists $exceptions_to_where_to_define{$name}) {
         @new_pound_if = $exceptions_to_where_to_define{$name};
@@ -181,6 +187,8 @@ sub switch_pound_if ($$) {
     # Change to the new one if different from old
     if ($in_file_pound_if ne $new_pound_if) {
 
+        end_charset_pound_if() if defined $charset;
+
         # Exit any current #if
         if ($in_file_pound_if) {
             end_file_pound_if;
@@ -188,6 +196,8 @@ sub switch_pound_if ($$) {
 
         $in_file_pound_if = $new_pound_if;
         print $out_fh "\n#if $in_file_pound_if\n";
+
+        start_charset_pound_if ($charset, 1) if defined $charset;
     }
 }
 
@@ -491,10 +501,14 @@ sub output_invmap ($$$$$$$) {
                        ? 'PERL_IN_UTF8_C'
                        : 'PERL_IN_REGEXEC_C';
 
-        end_charset_pound_if;
-        end_file_pound_if;
-        switch_pound_if($name, $where) unless exists $public_enums{$name};
-        start_charset_pound_if($charset, 1);
+        if (! exists $public_enums{$name}) {
+            switch_pound_if($name, $where, $charset);
+        }
+        else {
+            end_charset_pound_if;
+            end_file_pound_if;
+            start_charset_pound_if($charset, 1);
+        }
 
         # If the enum only contains one element, that is a dummy, default one
         if (scalar @enum_definition > 1) {
@@ -520,9 +534,7 @@ sub output_invmap ($$$$$$$) {
             print $out_fh "} $enum_declaration_type;\n";
         }
 
-        end_charset_pound_if;
-        switch_pound_if($name, $where);
-        start_charset_pound_if($charset, 1);
+        switch_pound_if($name, $where, $charset);
 
         $invmap_declaration_type = ($input_format =~ /s/)
                                  ? $enum_declaration_type
index 3c0c8a9..bd78d8e 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
- * 232d95d2479300926c29d5ed849bcec7d02f36f80f06578849584a064a0cc967 regen/mk_invlists.pl
+ * 38936fafefb0559582239124bc936259b283874f3bab9d92af6e266657a46a78 regen/mk_invlists.pl
  * 784929499a354028e04efcff331847d420beeca7f3f4f22569b59ec160924b72 regen/mph.pl
  * ex: set ro: */