1 /* -*- buffer-read-only: t -*-
2 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
3 * This file is built by regen/mk_invlists.pl from Unicode::UCD.
4 * Any changes made here will be lost!
7 /* See the generating file for comments */
10 #if defined(PERL_IN_REGCOMP_C)
12 static const UV Latin1_invlist[] = {
13 2, /* Number of elements */
14 148565664, /* Version and data structure type */
15 0, /* 0 if the list starts at 0;
16 1 if it starts at the element beyond 0 */
21 static const UV AboveLatin1_invlist[] = {
22 2, /* Number of elements */
23 148565664, /* Version and data structure type */
24 1, /* 0 if the list starts at 0;
25 1 if it starts at the element beyond 0 */
30 #endif /* defined(PERL_IN_REGCOMP_C) */
32 #if 'A' == 65 /* ASCII/Latin1 */
34 #if defined(PERL_IN_PERL_C)
36 static const UV ASCII_invlist[] = { /* for ASCII/Latin1 */
37 2, /* Number of elements */
38 148565664, /* Version and data structure type */
39 0, /* 0 if the list starts at 0;
40 1 if it starts at the element beyond 0 */
45 static const UV Assigned_invlist[] = { /* for ASCII/Latin1 */
46 1276, /* Number of elements */
47 148565664, /* Version and data structure type */
48 0, /* 0 if the list starts at 0;
49 1 if it starts at the element beyond 0 */
1328 static const UV Cased_invlist[] = { /* for ASCII/Latin1 */
1329 271, /* Number of elements */
1330 148565664, /* Version and data structure type */
1331 1, /* 0 if the list starts at 0;
1332 1 if it starts at the element beyond 0 */
1606 #endif /* defined(PERL_IN_PERL_C) */
1608 #if defined(PERL_IN_REGCOMP_C)
1610 static const UV NonL1_Perl_Non_Final_Folds_invlist[] = { /* for ASCII/Latin1 */
1611 45, /* Number of elements */
1612 148565664, /* Version and data structure type */
1613 1, /* 0 if the list starts at 0;
1614 1 if it starts at the element beyond 0 */
1662 static const UV _Perl_Any_Folds_invlist[] = { /* for ASCII/Latin1 */
1663 253, /* Number of elements */
1664 148565664, /* Version and data structure type */
1665 1, /* 0 if the list starts at 0;
1666 1 if it starts at the element beyond 0 */
1922 static const UV _Perl_Folds_To_Multi_Char_invlist[] = { /* for ASCII/Latin1 */
1923 59, /* Number of elements */
1924 148565664, /* Version and data structure type */
1925 1, /* 0 if the list starts at 0;
1926 1 if it starts at the element beyond 0 */
1988 #endif /* defined(PERL_IN_REGCOMP_C) */
1990 #if defined(PERL_IN_PERL_C)
1992 static const UV _Perl_GCB_invlist[] = { /* for ASCII/Latin1 */
1993 1615, /* Number of elements */
1994 148565664, /* Version and data structure type */
1995 0, /* 0 if the list starts at 0;
1996 1 if it starts at the element beyond 0 */
3614 #endif /* defined(PERL_IN_PERL_C) */
3616 #if defined(PERL_IN_REGEXEC_C)
3618 #define GCB_ENUM_COUNT 19
3628 GCB_Glue_After_Zwj = 7,
3634 GCB_Regional_Indicator = 13,
3635 GCB_SpacingMark = 14,
3642 static const GCB_enum _Perl_GCB_invmap[] = { /* for ASCII/Latin1 */