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 1298, /* 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 */
1350 static const UV Cased_invlist[] = { /* for ASCII/Latin1 */
1351 271, /* Number of elements */
1352 148565664, /* Version and data structure type */
1353 1, /* 0 if the list starts at 0;
1354 1 if it starts at the element beyond 0 */
1628 #endif /* defined(PERL_IN_PERL_C) */
1630 #if defined(PERL_IN_REGCOMP_C)
1632 static const UV NonL1_Perl_Non_Final_Folds_invlist[] = { /* for ASCII/Latin1 */
1633 45, /* Number of elements */
1634 148565664, /* Version and data structure type */
1635 1, /* 0 if the list starts at 0;
1636 1 if it starts at the element beyond 0 */
1684 static const UV _Perl_Any_Folds_invlist[] = { /* for ASCII/Latin1 */
1685 253, /* Number of elements */
1686 148565664, /* Version and data structure type */
1687 1, /* 0 if the list starts at 0;
1688 1 if it starts at the element beyond 0 */
1944 static const UV _Perl_Folds_To_Multi_Char_invlist[] = { /* for ASCII/Latin1 */
1945 59, /* Number of elements */
1946 148565664, /* Version and data structure type */
1947 1, /* 0 if the list starts at 0;
1948 1 if it starts at the element beyond 0 */
2010 #endif /* defined(PERL_IN_REGCOMP_C) */
2012 #if defined(PERL_IN_PERL_C)
2014 static const UV _Perl_GCB_invlist[] = { /* for ASCII/Latin1 */
2015 1690, /* Number of elements */
2016 148565664, /* Version and data structure type */
2017 0, /* 0 if the list starts at 0;
2018 1 if it starts at the element beyond 0 */
3711 #endif /* defined(PERL_IN_PERL_C) */
3713 #if defined(PERL_IN_REGEXEC_C)
3715 #define GCB_ENUM_COUNT 19
3725 GCB_Glue_After_Zwj = 7,
3731 GCB_Regional_Indicator = 13,
3732 GCB_SpacingMark = 14,
3739 static const GCB_enum _Perl_GCB_invmap[] = { /* for ASCII/Latin1 */