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 Cased_invlist[] = { /* for ASCII/Latin1 */
46 263, /* Number of elements */
47 148565664, /* Version and data structure type */
48 1, /* 0 if the list starts at 0;
49 1 if it starts at the element beyond 0 */
315 #endif /* defined(PERL_IN_PERL_C) */
317 #if defined(PERL_IN_REGCOMP_C)
319 static const UV NonL1_Perl_Non_Final_Folds_invlist[] = { /* for ASCII/Latin1 */
320 45, /* Number of elements */
321 148565664, /* Version and data structure type */
322 1, /* 0 if the list starts at 0;
323 1 if it starts at the element beyond 0 */
371 static const UV _Perl_Any_Folds_invlist[] = { /* for ASCII/Latin1 */
372 247, /* Number of elements */
373 148565664, /* Version and data structure type */
374 1, /* 0 if the list starts at 0;
375 1 if it starts at the element beyond 0 */
625 static const UV _Perl_Folds_To_Multi_Char_invlist[] = { /* for ASCII/Latin1 */
626 59, /* Number of elements */
627 148565664, /* Version and data structure type */
628 1, /* 0 if the list starts at 0;
629 1 if it starts at the element beyond 0 */
691 #endif /* defined(PERL_IN_REGCOMP_C) */
693 #if defined(PERL_IN_PERL_C)
695 static const UV _Perl_GCB_invlist[] = { /* for ASCII/Latin1 */
696 1502, /* Number of elements */
697 148565664, /* Version and data structure type */
698 0, /* 0 if the list starts at 0;
699 1 if it starts at the element beyond 0 */
2204 #endif /* defined(PERL_IN_PERL_C) */
2206 #if defined(PERL_IN_REGEXEC_C)
2208 #define GCB_ENUM_COUNT 14
2221 GCB_Regional_Indicator = 10,
2222 GCB_SpacingMark = 11,
2227 static const GCB_enum _Perl_GCB_invmap[] = { /* for ASCII/Latin1 */
3724 GCB_Regional_Indicator,
3732 #endif /* defined(PERL_IN_REGEXEC_C) */
3734 #if defined(PERL_IN_UTF8_C)
3736 static const UV _Perl_IDCont_invlist[] = { /* for ASCII/Latin1 */
3737 1317, /* Number of elements */
3738 148565664, /* Version and data structure type */
3739 1, /* 0 if the list starts at 0;
3740 1 if it starts at the element beyond 0 */