vutil.c: Add preproc code specific to CPAN

[perl5.git] / charclass_invlists.h

diff --git a/charclass_invlists.h b/charclass_invlists.h
index b5d71af..8cd02bd 100644 (file)
--- a/charclass_invlists.h
+++ b/charclass_invlists.h
@@ -9,28 +9,25 @@
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV Latin1_invlist[] = {
+static const UV Latin1_invlist[] = {
        2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       0,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
-       256,
-       0
+       148565664, /* Version and data structure type */
+       0,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
+       256
 };
 
 #endif
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV AboveLatin1_invlist[] = {
-       1,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV AboveLatin1_invlist[] = {
+       2,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        256
 };
 
@@ -38,28 +35,25 @@ static UV AboveLatin1_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV ASCII_invlist[] = {
+static const UV ASCII_invlist[] = {
        2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       0,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
-       128,
-       0
+       148565664, /* Version and data structure type */
+       0,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
+       128
 };
 
 #endif
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1Cased_invlist[] = {
-       16,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1Cased_invlist[] = {
+       17,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        65,
        91,
        97,
@@ -82,13 +76,12 @@ static UV L1Cased_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV VertSpace_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV VertSpace_invlist[] = {
+       7,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        10,
        14,
        133,
@@ -101,13 +94,12 @@ static UV VertSpace_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PerlSpace_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PerlSpace_invlist[] = {
+       5,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        9,
        14,
        32,
@@ -118,13 +110,12 @@ static UV PerlSpace_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV XPerlSpace_invlist[] = {
-       22,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV XPerlSpace_invlist[] = {
+       21,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        9,
        14,
        32,
@@ -135,8 +126,6 @@ static UV XPerlSpace_invlist[] = {
        161,
        5760,
        5761,
-       6158,
-       6159,
        8192,
        8203,
        8232,
@@ -153,13 +142,12 @@ static UV XPerlSpace_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixAlnum_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixAlnum_invlist[] = {
+       7,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58,
        65,
@@ -172,13 +160,12 @@ static UV PosixAlnum_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixAlnum_invlist[] = {
-       18,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixAlnum_invlist[] = {
+       19,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58,
        65,
@@ -203,13 +190,12 @@ static UV L1PosixAlnum_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixAlpha_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixAlpha_invlist[] = {
+       5,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        65,
        91,
        97,
@@ -220,13 +206,12 @@ static UV PosixAlpha_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixAlpha_invlist[] = {
-       16,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixAlpha_invlist[] = {
+       17,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        65,
        91,
        97,
@@ -249,13 +234,12 @@ static UV L1PosixAlpha_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixBlank_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixBlank_invlist[] = {
+       5,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        9,
        10,
        32,
@@ -266,13 +250,12 @@ static UV PosixBlank_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV XPosixBlank_invlist[] = {
-       18,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV XPosixBlank_invlist[] = {
+       17,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        9,
        10,
        32,
@@ -281,8 +264,6 @@ static UV XPosixBlank_invlist[] = {
        161,
        5760,
        5761,
-       6158,
-       6159,
        8192,
        8203,
        8239,
@@ -297,47 +278,42 @@ static UV XPosixBlank_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixCntrl_invlist[] = {
+static const UV PosixCntrl_invlist[] = {
        4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       0,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+       148565664, /* Version and data structure type */
+       0,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        32,
        127,
-       128,
-       0
+       128
 };
 
 #endif
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV XPosixCntrl_invlist[] = {
+static const UV XPosixCntrl_invlist[] = {
        4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       0,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+       148565664, /* Version and data structure type */
+       0,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        32,
        127,
-       160,
-       0
+       160
 };
 
 #endif
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixDigit_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixDigit_invlist[] = {
+       3,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58
 };
@@ -346,13 +322,12 @@ static UV PosixDigit_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixGraph_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixGraph_invlist[] = {
+       3,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        33,
        127
 };
@@ -361,13 +336,12 @@ static UV PosixGraph_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixGraph_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixGraph_invlist[] = {
+       5,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        33,
        127,
        161,
@@ -378,13 +352,12 @@ static UV L1PosixGraph_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixLower_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixLower_invlist[] = {
+       3,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        97,
        123
 };
@@ -393,13 +366,12 @@ static UV PosixLower_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixLower_invlist[] = {
-       12,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixLower_invlist[] = {
+       13,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        97,
        123,
        170,
@@ -418,13 +390,12 @@ static UV L1PosixLower_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixPrint_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixPrint_invlist[] = {
+       3,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        32,
        127
 };
@@ -433,13 +404,12 @@ static UV PosixPrint_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixPrint_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixPrint_invlist[] = {
+       5,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        32,
        127,
        160,
@@ -450,13 +420,12 @@ static UV L1PosixPrint_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixPunct_invlist[] = {
-       8,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixPunct_invlist[] = {
+       9,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        33,
        48,
        58,
@@ -471,13 +440,12 @@ static UV PosixPunct_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixPunct_invlist[] = {
-       20,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixPunct_invlist[] = {
+       21,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        33,
        48,
        58,
@@ -504,13 +472,12 @@ static UV L1PosixPunct_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixSpace_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixSpace_invlist[] = {
+       5,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        9,
        14,
        32,
@@ -521,13 +488,12 @@ static UV PosixSpace_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV XPosixSpace_invlist[] = {
-       22,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV XPosixSpace_invlist[] = {
+       21,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        9,
        14,
        32,
@@ -538,8 +504,6 @@ static UV XPosixSpace_invlist[] = {
        161,
        5760,
        5761,
-       6158,
-       6159,
        8192,
        8203,
        8232,
@@ -556,13 +520,12 @@ static UV XPosixSpace_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixUpper_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixUpper_invlist[] = {
+       3,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        65,
        91
 };
@@ -571,13 +534,12 @@ static UV PosixUpper_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixUpper_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixUpper_invlist[] = {
+       7,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        65,
        91,
        192,
@@ -590,13 +552,12 @@ static UV L1PosixUpper_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixWord_invlist[] = {
-       8,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixWord_invlist[] = {
+       9,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58,
        65,
@@ -611,13 +572,12 @@ static UV PosixWord_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV L1PosixWord_invlist[] = {
-       20,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV L1PosixWord_invlist[] = {
+       21,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58,
        65,
@@ -644,13 +604,12 @@ static UV L1PosixWord_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV PosixXDigit_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV PosixXDigit_invlist[] = {
+       7,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58,
        65,
@@ -663,13 +622,12 @@ static UV PosixXDigit_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV XPosixXDigit_invlist[] = {
-       12,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV XPosixXDigit_invlist[] = {
+       13,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        48,
        58,
        65,
@@ -686,13 +644,12 @@ static UV XPosixXDigit_invlist[] = {
 
 #endif
 
-static UV NonL1_Perl_Non_Final_Folds_invlist[] = {
-       44,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV NonL1_Perl_Non_Final_Folds_invlist[] = {
+       45,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        700,
        701,
        776,
@@ -741,13 +698,12 @@ static UV NonL1_Perl_Non_Final_Folds_invlist[] = {
 
 #ifndef PERL_IN_XSUB_RE
 
-static UV _Perl_Multi_Char_Folds_invlist[] = {
-       58,     /* Number of elements */
-       0,      /* Current iteration position */
-       0,      /* Cache of previous search index result */
-       290655244, /* Version and data structure type */
-       1,      /* 0 if this is the first element of the list proper;
-                  1 if the next element is the first */
+static const UV _Perl_Multi_Char_Folds_invlist[] = {
+       59,     /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
        223,
        224,
        304,
@@ -810,4 +766,18 @@ static UV _Perl_Multi_Char_Folds_invlist[] = {
 
 #endif
 
+#ifndef PERL_IN_XSUB_RE
+
+static const UV UpperLatin1_invlist[] = {
+       3,      /* Number of elements */
+       148565664, /* Version and data structure type */
+       1,      /* 0 if the list starts at 0;
+                  1 if it starts at the element beyond 0 */
+       0,
+       128,
+       256
+};
+
+#endif
+
 /* ex: set ro: */