1 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
2 This file is built by regcomp.pl from regcomp.sym.
3 Any changes made here will be lost!
6 #define END 0 /* 0 End of program. */
7 #define SUCCEED 1 /* 0x1 Return from a subroutine, basically. */
8 #define BOL 2 /* 0x2 Match "" at beginning of line. */
9 #define MBOL 3 /* 0x3 Same, assuming multiline. */
10 #define SBOL 4 /* 0x4 Same, assuming singleline. */
11 #define EOS 5 /* 0x5 Match "" at end of string. */
12 #define EOL 6 /* 0x6 Match "" at end of line. */
13 #define MEOL 7 /* 0x7 Same, assuming multiline. */
14 #define SEOL 8 /* 0x8 Same, assuming singleline. */
15 #define BOUND 9 /* 0x9 Match "" at any word boundary */
16 #define BOUNDL 10 /* 0xa Match "" at any word boundary */
17 #define NBOUND 11 /* 0xb Match "" at any word non-boundary */
18 #define NBOUNDL 12 /* 0xc Match "" at any word non-boundary */
19 #define GPOS 13 /* 0xd Matches where last m//g left off. */
20 #define REG_ANY 14 /* 0xe Match any one character (except newline). */
21 #define SANY 15 /* 0xf Match any one character. */
22 #define ANYOF 16 /* 0x10 Match character in (or not in) this class. */
23 #define ALNUM 17 /* 0x11 Match any alphanumeric character */
24 #define ALNUML 18 /* 0x12 Match any alphanumeric char in locale */
25 #define NALNUM 19 /* 0x13 Match any non-alphanumeric character */
26 #define NALNUML 20 /* 0x14 Match any non-alphanumeric char in locale */
27 #define SPACE 21 /* 0x15 Match any whitespace character */
28 #define SPACEL 22 /* 0x16 Match any whitespace char in locale */
29 #define NSPACE 23 /* 0x17 Match any non-whitespace character */
30 #define NSPACEL 24 /* 0x18 Match any non-whitespace char in locale */
31 #define DIGIT 25 /* 0x19 Match any numeric character */
32 #define DIGITL 26 /* 0x1a Match any numeric character in locale */
33 #define NDIGIT 27 /* 0x1b Match any non-numeric character */
34 #define NDIGITL 28 /* 0x1c Match any non-numeric character in locale */
35 #define CLUMP 29 /* 0x1d Match any combining character sequence */
36 #define BRANCH 30 /* 0x1e Match this alternative, or the next... */
37 #define BACK 31 /* 0x1f Match "", "next" ptr points backward. */
38 #define EXACT 32 /* 0x20 Match this string (preceded by length). */
39 #define EXACTF 33 /* 0x21 Match this string, folded (prec. by length). */
40 #define EXACTFL 34 /* 0x22 Match this string, folded in locale (w/len). */
41 #define NOTHING 35 /* 0x23 Match empty string. */
42 #define TAIL 36 /* 0x24 Match empty string. Can jump here from outside. */
43 #define STAR 37 /* 0x25 Match this (simple) thing 0 or more times. */
44 #define PLUS 38 /* 0x26 Match this (simple) thing 1 or more times. */
45 #define CURLY 39 /* 0x27 Match this simple thing {n,m} times. */
46 #define CURLYN 40 /* 0x28 Match next-after-this simple thing */
47 #define CURLYM 41 /* 0x29 Match this medium-complex thing {n,m} times. */
48 #define CURLYX 42 /* 0x2a Match this complex thing {n,m} times. */
49 #define WHILEM 43 /* 0x2b Do curly processing and see if rest matches. */
50 #define OPEN 44 /* 0x2c Mark this point in input as start of #n. */
51 #define CLOSE 45 /* 0x2d Analogous to OPEN. */
52 #define REF 46 /* 0x2e Match some already matched string */
53 #define REFF 47 /* 0x2f Match already matched string, folded */
54 #define REFFL 48 /* 0x30 Match already matched string, folded in loc. */
55 #define IFMATCH 49 /* 0x31 Succeeds if the following matches. */
56 #define UNLESSM 50 /* 0x32 Fails if the following matches. */
57 #define SUSPEND 51 /* 0x33 "Independent" sub-RE. */
58 #define IFTHEN 52 /* 0x34 Switch, should be preceeded by switcher . */
59 #define GROUPP 53 /* 0x35 Whether the group matched. */
60 #define LONGJMP 54 /* 0x36 Jump far away. */
61 #define BRANCHJ 55 /* 0x37 BRANCH with long offset. */
62 #define EVAL 56 /* 0x38 Execute some Perl code. */
63 #define MINMOD 57 /* 0x39 Next operator is not greedy. */
64 #define LOGICAL 58 /* 0x3a Next opcode should set the flag only. */
65 #define RENUM 59 /* 0x3b Group with independently numbered parens. */
66 #define OPTIMIZED 60 /* 0x3c Placeholder for dump. */
69 EXTCONST U8 PL_regkind[];
71 EXTCONST U8 PL_regkind[] = {
86 REG_ANY, /* REG_ANY */
100 NDIGIT, /* NDIGITL */
107 NOTHING, /* NOTHING */
121 BRANCHJ, /* IFMATCH */
122 BRANCHJ, /* UNLESSM */
123 BRANCHJ, /* SUSPEND */
124 BRANCHJ, /* IFTHEN */
126 LONGJMP, /* LONGJMP */
127 BRANCHJ, /* BRANCHJ */
130 LOGICAL, /* LOGICAL */
132 NOTHING, /* OPTIMIZED */
138 static const U8 regarglen[] = {
178 EXTRA_SIZE(struct regnode_2), /* CURLY */
179 EXTRA_SIZE(struct regnode_2), /* CURLYN */
180 EXTRA_SIZE(struct regnode_2), /* CURLYM */
181 EXTRA_SIZE(struct regnode_2), /* CURLYX */
183 EXTRA_SIZE(struct regnode_1), /* OPEN */
184 EXTRA_SIZE(struct regnode_1), /* CLOSE */
185 EXTRA_SIZE(struct regnode_1), /* REF */
186 EXTRA_SIZE(struct regnode_1), /* REFF */
187 EXTRA_SIZE(struct regnode_1), /* REFFL */
188 EXTRA_SIZE(struct regnode_1), /* IFMATCH */
189 EXTRA_SIZE(struct regnode_1), /* UNLESSM */
190 EXTRA_SIZE(struct regnode_1), /* SUSPEND */
191 EXTRA_SIZE(struct regnode_1), /* IFTHEN */
192 EXTRA_SIZE(struct regnode_1), /* GROUPP */
193 EXTRA_SIZE(struct regnode_1), /* LONGJMP */
194 EXTRA_SIZE(struct regnode_1), /* BRANCHJ */
195 EXTRA_SIZE(struct regnode_1), /* EVAL */
198 EXTRA_SIZE(struct regnode_1), /* RENUM */
202 static const char reg_off_by_arg[] = {
267 static const char * const reg_name[] = {
288 "NALNUML", /* 0x14 */
292 "NSPACEL", /* 0x18 */
296 "NDIGITL", /* 0x1c */
302 "EXACTFL", /* 0x22 */
303 "NOTHING", /* 0x23 */
317 "IFMATCH", /* 0x31 */
318 "UNLESSM", /* 0x32 */
319 "SUSPEND", /* 0x33 */
322 "LONGJMP", /* 0x36 */
323 "BRANCHJ", /* 0x37 */
326 "LOGICAL", /* 0x3a */
328 "OPTIMIZED", /* 0x3c */
331 static const int reg_num = 61;
333 #endif /* DEBUGGING */
334 #endif /* REG_COMP_C */