vutil.c: Add preproc code specific to CPAN

[perl5.git] / charclass_invlists.h

diff --git a/charclass_invlists.h b/charclass_invlists.h
index 152793a..8cd02bd 100644 (file)
--- a/charclass_invlists.h
+++ b/charclass_invlists.h
@@ -7,41 +7,53 @@
 /* See the generating file for comments */
 
 
-UV Latin1_invlist[] = {
+#ifndef PERL_IN_XSUB_RE
+
+static const UV Latin1_invlist[] = {
        2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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
-};
-
-UV AboveLatin1_invlist[] = {
-       1,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+       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
 };
 
-UV ASCII_invlist[] = {
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+static const UV AboveLatin1_invlist[] = {
        2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+       1,      /* 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 const UV ASCII_invlist[] = {
+       2,      /* Number of elements */
+       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
 };
 
-UV L1Cased_invlist[] = {
-       16,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -60,12 +72,16 @@ UV L1Cased_invlist[] = {
        443
 };
 
-UV VertSpace_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -74,29 +90,33 @@ UV VertSpace_invlist[] = {
        8234
 };
 
-UV PerlSpace_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
-       11,
-       12,
        14,
        32,
        33
 };
 
-UV XPerlSpace_invlist[] = {
-       24,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
-       11,
-       12,
        14,
        32,
        33,
@@ -106,8 +126,6 @@ UV XPerlSpace_invlist[] = {
        161,
        5760,
        5761,
-       6158,
-       6159,
        8192,
        8203,
        8232,
@@ -120,12 +138,16 @@ UV XPerlSpace_invlist[] = {
        12289
 };
 
-UV PosixAlnum_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -134,12 +156,16 @@ UV PosixAlnum_invlist[] = {
        123
 };
 
-UV L1PosixAlnum_invlist[] = {
-       18,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -160,24 +186,32 @@ UV L1PosixAlnum_invlist[] = {
        706
 };
 
-UV PosixAlpha_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
        123
 };
 
-UV L1PosixAlpha_invlist[] = {
-       16,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -196,24 +230,32 @@ UV L1PosixAlpha_invlist[] = {
        706
 };
 
-UV PosixBlank_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
        33
 };
 
-UV XPosixBlank_invlist[] = {
-       18,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -222,8 +264,6 @@ UV XPosixBlank_invlist[] = {
        161,
        5760,
        5761,
-       6158,
-       6159,
        8192,
        8203,
        8239,
@@ -234,78 +274,104 @@ UV XPosixBlank_invlist[] = {
        12289
 };
 
-UV PosixCntrl_invlist[] = {
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+static const UV PosixCntrl_invlist[] = {
        4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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
 };
 
-UV XPosixCntrl_invlist[] = {
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+static const UV XPosixCntrl_invlist[] = {
        4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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
 };
 
-UV PosixDigit_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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
 };
 
-UV PosixGraph_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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
 };
 
-UV L1PosixGraph_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
        888
 };
 
-UV PosixLower_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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
 };
 
-UV L1PosixLower_invlist[] = {
-       12,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -320,34 +386,46 @@ UV L1PosixLower_invlist[] = {
        256
 };
 
-UV PosixPrint_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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
 };
 
-UV L1PosixPrint_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
        888
 };
 
-UV PosixPunct_invlist[] = {
-       8,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -358,12 +436,16 @@ UV PosixPunct_invlist[] = {
        127
 };
 
-UV L1PosixPunct_invlist[] = {
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+static const UV L1PosixPunct_invlist[] = {
        21,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+       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,
@@ -383,28 +465,35 @@ UV L1PosixPunct_invlist[] = {
        187,
        188,
        191,
-       192,
-       894
+       192
 };
 
-UV PosixSpace_invlist[] = {
-       4,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
        33
 };
 
-UV XPosixSpace_invlist[] = {
-       22,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -415,8 +504,6 @@ UV XPosixSpace_invlist[] = {
        161,
        5760,
        5761,
-       6158,
-       6159,
        8192,
        8203,
        8232,
@@ -429,37 +516,48 @@ UV XPosixSpace_invlist[] = {
        12289
 };
 
-UV PosixUpper_invlist[] = {
-       2,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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
 };
 
-UV L1PosixUpper_invlist[] = {
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+static const UV L1PosixUpper_invlist[] = {
        7,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+       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,
        215,
        216,
-       223,
-       256
+       223
 };
 
-UV PosixWord_invlist[] = {
-       8,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -470,12 +568,16 @@ UV PosixWord_invlist[] = {
        123
 };
 
-UV L1PosixWord_invlist[] = {
-       20,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -498,12 +600,16 @@ UV L1PosixWord_invlist[] = {
        706
 };
 
-UV PosixXDigit_invlist[] = {
-       6,      /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -512,12 +618,16 @@ UV PosixXDigit_invlist[] = {
        103
 };
 
-UV XPosixXDigit_invlist[] = {
-       12,     /* Number of elements */
-       0,      /* Current iteration position */
-       1064334010, /* 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 */
+#endif
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
@@ -532,4 +642,142 @@ UV XPosixXDigit_invlist[] = {
        65351
 };
 
+#endif
+
+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,
+       777,
+       787,
+       788,
+       834,
+       835,
+       940,
+       941,
+       942,
+       943,
+       945,
+       946,
+       951,
+       952,
+       953,
+       954,
+       961,
+       962,
+       965,
+       966,
+       969,
+       970,
+       974,
+       975,
+       1381,
+       1382,
+       1396,
+       1397,
+       1406,
+       1407,
+       7936,
+       7944,
+       7968,
+       7976,
+       8032,
+       8040,
+       8048,
+       8049,
+       8052,
+       8053,
+       8060,
+       8061
+};
+
+#ifndef PERL_IN_XSUB_RE
+
+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,
+       305,
+       329,
+       330,
+       496,
+       497,
+       912,
+       913,
+       944,
+       945,
+       1415,
+       1416,
+       7830,
+       7835,
+       7838,
+       7839,
+       8016,
+       8017,
+       8018,
+       8019,
+       8020,
+       8021,
+       8022,
+       8023,
+       8064,
+       8112,
+       8114,
+       8117,
+       8118,
+       8120,
+       8124,
+       8125,
+       8130,
+       8133,
+       8134,
+       8136,
+       8140,
+       8141,
+       8146,
+       8148,
+       8150,
+       8152,
+       8162,
+       8165,
+       8166,
+       8168,
+       8178,
+       8181,
+       8182,
+       8184,
+       8188,
+       8189,
+       64256,
+       64263,
+       64275,
+       64280
+};
+
+#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: */