This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
pp.h.c: Convert to use av_count()
[perl5.git] / regnodes.h
CommitLineData
37442d52
RGS		 1/* -*- buffer-read-only: t -*-
2 !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
eb2624c9 3 This file is built by regen/regcomp.pl from regcomp.sym.
d09b2d29 4 Any changes made here will be lost!
78102347 5 */
d09b2d29 6
6bda09f9
YO		 7/* Regops and State definitions */
8
86451f01
KW		 9#define REGNODE_MAX 109
10#define REGMATCH_STATE_MAX 149
03363afd 11
f9f4320a
YO		 12#define END 0 /* 0000 End of program. */
13#define SUCCEED 1 /* 0x01 Return from a subroutine, basically. */
d3d47aac
YO		 14#define SBOL 2 /* 0x02 Match "" at beginning of line: /^/, /\A/ */
15#define BOL 2 /* 0x02 type alias */
16#define MBOL 3 /* 0x03 Same, assuming multiline: /^/m */
17#define SEOL 4 /* 0x04 Match "" at end of line: /$/ */
18#define EOL 4 /* 0x04 type alias */
19#define MEOL 5 /* 0x05 Same, assuming multiline: /$/m */
20#define EOS 6 /* 0x06 Match "" at end of string: /\z/ */
21#define GPOS 7 /* 0x07 Matches where last m//g left off. */
0991ffc9 22#define BOUND 8 /* 0x08 Like BOUNDA for non-utf8, otherwise like BOUNDU */
c440a570 23#define BOUNDL 9 /* 0x09 Like BOUND/BOUNDU, but \w and \W are defined by current locale */
912b808c 24#define BOUNDU 10 /* 0x0a Match "" at any boundary of a given type using /u rules. */
c440a570 25#define BOUNDA 11 /* 0x0b Match "" at any boundary between \w\W or \W\w, where \w is [_a-zA-Z0-9] */
0991ffc9 26#define NBOUND 12 /* 0x0c Like NBOUNDA for non-utf8, otherwise like BOUNDU */
c440a570 27#define NBOUNDL 13 /* 0x0d Like NBOUND/NBOUNDU, but \w and \W are defined by current locale */
912b808c 28#define NBOUNDU 14 /* 0x0e Match "" at any non-boundary of a given type using using /u rules. */
c440a570 29#define NBOUNDA 15 /* 0x0f Match "" betweeen any \w\w or \W\W, where \w is [_a-zA-Z0-9] */
d3d47aac
YO		 30#define REG_ANY 16 /* 0x10 Match any one character (except newline). */
31#define SANY 17 /* 0x11 Match any one character. */
33c28ab2 32#define ANYOF 18 /* 0x12 Match character in (or not in) this class, single char match only */
ac44c12e
KW		 33#define ANYOFD 19 /* 0x13 Like ANYOF, but /d is in effect */
34#define ANYOFL 20 /* 0x14 Like ANYOF, but /l is in effect */
3edce4f5 35#define ANYOFPOSIXL 21 /* 0x15 Like ANYOFL, but matches [[:posix:]] classes */
29a889ef 36#define ANYOFH 22 /* 0x16 Like ANYOF, but only has "High" matches, none in the bitmap; the flags field contains the lowest matchable UTF-8 start byte */
a5bc0742 37#define ANYOFHb 23 /* 0x17 Like ANYOFH, but all matches share the same UTF-8 start byte, given in the flags field */
3146c00a 38#define ANYOFHr 24 /* 0x18 Like ANYOFH, but the flags field contains packed bounds for all matchable UTF-8 start bytes. */
34924db0
KW		 39#define ANYOFHs 25 /* 0x19 Like ANYOFHb, but has a string field that gives the leading matchable UTF-8 bytes; flags field is len */
40#define ANYOFR 26 /* 0x1a Matches any character in the range given by its packed args: upper 12 bits is the max delta from the base lower 20; the flags field contains the lowest matchable UTF-8 start byte */
41#define ANYOFRb 27 /* 0x1b Like ANYOFR, but all matches share the same UTF-8 start byte, given in the flags field */
42#define ANYOFM 28 /* 0x1c Like ANYOF, but matches an invariant byte as determined by the mask and arg */
43#define NANYOFM 29 /* 0x1d complement of ANYOFM */
44#define POSIXD 30 /* 0x1e Some [[:class:]] under /d; the FLAGS field gives which one */
45#define POSIXL 31 /* 0x1f Some [[:class:]] under /l; the FLAGS field gives which one */
46#define POSIXU 32 /* 0x20 Some [[:class:]] under /u; the FLAGS field gives which one */
47#define POSIXA 33 /* 0x21 Some [[:class:]] under /a; the FLAGS field gives which one */
48#define NPOSIXD 34 /* 0x22 complement of POSIXD, [[:^class:]] */
49#define NPOSIXL 35 /* 0x23 complement of POSIXL, [[:^class:]] */
50#define NPOSIXU 36 /* 0x24 complement of POSIXU, [[:^class:]] */
51#define NPOSIXA 37 /* 0x25 complement of POSIXA, [[:^class:]] */
52#define CLUMP 38 /* 0x26 Match any extended grapheme cluster sequence */
53#define BRANCH 39 /* 0x27 Match this alternative, or the next... */
54#define EXACT 40 /* 0x28 Match this string (flags field is the length). */
55#define LEXACT 41 /* 0x29 Match this long string (preceded by length; flags unused). */
56#define EXACTL 42 /* 0x2a Like EXACT, but /l is in effect (used so locale-related warnings can be checked for) */
57#define EXACTF 43 /* 0x2b Like EXACT, but match using /id rules; (string not UTF-8, ASCII folded; non-ASCII not) */
58#define EXACTFL 44 /* 0x2c Like EXACT, but match using /il rules; (string not likely to be folded) */
59#define EXACTFU 45 /* 0x2d Like EXACT, but match using /iu rules; (string folded) */
60#define EXACTFAA 46 /* 0x2e Like EXACT, but match using /iaa rules; (string folded except in non-UTF8 patterns: MICRO, SHARP S; folded length <= unfolded) */
61#define EXACTFUP 47 /* 0x2f Like EXACT, but match using /iu rules; (string not UTF-8, folded except MICRO, SHARP S: hence Problematic) */
62#define EXACTFLU8 48 /* 0x30 Like EXACTFU, but use /il, UTF-8, (string is folded, and everything in it is above 255 */
63#define EXACTFAA_NO_TRIE 49 /* 0x31 Like EXACT, but match using /iaa rules (string not UTF-8, not guaranteed to be folded, not currently trie-able) */
64#define EXACT_REQ8 50 /* 0x32 Like EXACT, but only UTF-8 encoded targets can match */
65#define LEXACT_REQ8 51 /* 0x33 Like LEXACT, but only UTF-8 encoded targets can match */
66#define EXACTFU_REQ8 52 /* 0x34 Like EXACTFU, but only UTF-8 encoded targets can match */
67#define EXACTFU_S_EDGE 53 /* 0x35 /di rules, but nothing in it precludes /ui, except begins and/or ends with [Ss]; (string not UTF-8; compile-time only) */
68#define NOTHING 54 /* 0x36 Match empty string. */
69#define TAIL 55 /* 0x37 Match empty string. Can jump here from outside. */
70#define STAR 56 /* 0x38 Match this (simple) thing 0 or more times. */
71#define PLUS 57 /* 0x39 Match this (simple) thing 1 or more times. */
72#define CURLY 58 /* 0x3a Match this simple thing {n,m} times. */
73#define CURLYN 59 /* 0x3b Capture next-after-this simple thing */
74#define CURLYM 60 /* 0x3c Capture this medium-complex thing {n,m} times. */
75#define CURLYX 61 /* 0x3d Match this complex thing {n,m} times. */
76#define WHILEM 62 /* 0x3e Do curly processing and see if rest matches. */
77#define OPEN 63 /* 0x3f Mark this point in input as start of #n. */
78#define CLOSE 64 /* 0x40 Close corresponding OPEN of #n. */
79#define SROPEN 65 /* 0x41 Same as OPEN, but for script run */
80#define SRCLOSE 66 /* 0x42 Close preceding SROPEN */
81#define REF 67 /* 0x43 Match some already matched string */
82#define REFF 68 /* 0x44 Match already matched string, using /di rules. */
83#define REFFL 69 /* 0x45 Match already matched string, using /li rules. */
84#define REFFU 70 /* 0x46 Match already matched string, usng /ui. */
85#define REFFA 71 /* 0x47 Match already matched string, using /aai rules. */
86#define REFN 72 /* 0x48 Match some already matched string */
87#define REFFN 73 /* 0x49 Match already matched string, using /di rules. */
88#define REFFLN 74 /* 0x4a Match already matched string, using /li rules. */
89#define REFFUN 75 /* 0x4b Match already matched string, using /ui rules. */
90#define REFFAN 76 /* 0x4c Match already matched string, using /aai rules. */
91#define LONGJMP 77 /* 0x4d Jump far away. */
92#define BRANCHJ 78 /* 0x4e BRANCH with long offset. */
93#define IFMATCH 79 /* 0x4f Succeeds if the following matches; non-zero flags "f", next_off "o" means lookbehind assertion starting "f..(f-o)" characters before current */
94#define UNLESSM 80 /* 0x50 Fails if the following matches; non-zero flags "f", next_off "o" means lookbehind assertion starting "f..(f-o)" characters before current */
95#define SUSPEND 81 /* 0x51 "Independent" sub-RE. */
96#define IFTHEN 82 /* 0x52 Switch, should be preceded by switcher. */
97#define GROUPP 83 /* 0x53 Whether the group matched. */
98#define EVAL 84 /* 0x54 Execute some Perl code. */
99#define MINMOD 85 /* 0x55 Next operator is not greedy. */
100#define LOGICAL 86 /* 0x56 Next opcode should set the flag only. */
101#define RENUM 87 /* 0x57 Group with independently numbered parens. */
102#define TRIE 88 /* 0x58 Match many EXACT(F[ALU]?)? at once. flags==type */
103#define TRIEC 89 /* 0x59 Same as TRIE, but with embedded charclass data */
104#define AHOCORASICK 90 /* 0x5a Aho Corasick stclass. flags==type */
105#define AHOCORASICKC 91 /* 0x5b Same as AHOCORASICK, but with embedded charclass data */
106#define GOSUB 92 /* 0x5c recurse to paren arg1 at (signed) ofs arg2 */
107#define GROUPPN 93 /* 0x5d Whether the group matched. */
108#define INSUBP 94 /* 0x5e Whether we are in a specific recurse. */
109#define DEFINEP 95 /* 0x5f Never execute directly. */
110#define ENDLIKE 96 /* 0x60 Used only for the type field of verbs */
111#define OPFAIL 97 /* 0x61 Same as (?!), but with verb arg */
112#define ACCEPT 98 /* 0x62 Accepts the current matched string, with verbar */
113#define VERB 99 /* 0x63 Used only for the type field of verbs */
114#define PRUNE 100 /* 0x64 Pattern fails at this startpoint if no-backtracking through this */
115#define MARKPOINT 101 /* 0x65 Push the current location for rollback by cut. */
116#define SKIP 102 /* 0x66 On failure skip forward (to the mark) before retrying */
117#define COMMIT 103 /* 0x67 Pattern fails outright if backtracking through this */
118#define CUTGROUP 104 /* 0x68 On failure go to the next alternation in the group */
119#define KEEPS 105 /* 0x69 $& begins here. */
120#define LNBREAK 106 /* 0x6a generic newline pattern */
121#define OPTIMIZED 107 /* 0x6b Placeholder for dump. */
122#define PSEUDO 108 /* 0x6c Pseudo opcode for internal use. */
86451f01 123#define REGEX_SET 109 /* 0x6d Regex set, temporary node used in pre-optimization compilation */
03363afd 124 /* ------------ States ------------- */
24b23f37
YO		 125#define TRIE_next (REGNODE_MAX + 1) /* state for TRIE */
126#define TRIE_next_fail (REGNODE_MAX + 2) /* state for TRIE */
4ee16520
DM		 127#define EVAL_B (REGNODE_MAX + 3) /* state for EVAL */
128#define EVAL_B_fail (REGNODE_MAX + 4) /* state for EVAL */
129#define EVAL_postponed_AB (REGNODE_MAX + 5) /* state for EVAL */
130#define EVAL_postponed_AB_fail (REGNODE_MAX + 6) /* state for EVAL */
131#define CURLYX_end (REGNODE_MAX + 7) /* state for CURLYX */
132#define CURLYX_end_fail (REGNODE_MAX + 8) /* state for CURLYX */
133#define WHILEM_A_pre (REGNODE_MAX + 9) /* state for WHILEM */
134#define WHILEM_A_pre_fail (REGNODE_MAX + 10) /* state for WHILEM */
135#define WHILEM_A_min (REGNODE_MAX + 11) /* state for WHILEM */
136#define WHILEM_A_min_fail (REGNODE_MAX + 12) /* state for WHILEM */
137#define WHILEM_A_max (REGNODE_MAX + 13) /* state for WHILEM */
138#define WHILEM_A_max_fail (REGNODE_MAX + 14) /* state for WHILEM */
139#define WHILEM_B_min (REGNODE_MAX + 15) /* state for WHILEM */
140#define WHILEM_B_min_fail (REGNODE_MAX + 16) /* state for WHILEM */
141#define WHILEM_B_max (REGNODE_MAX + 17) /* state for WHILEM */
142#define WHILEM_B_max_fail (REGNODE_MAX + 18) /* state for WHILEM */
143#define BRANCH_next (REGNODE_MAX + 19) /* state for BRANCH */
144#define BRANCH_next_fail (REGNODE_MAX + 20) /* state for BRANCH */
145#define CURLYM_A (REGNODE_MAX + 21) /* state for CURLYM */
146#define CURLYM_A_fail (REGNODE_MAX + 22) /* state for CURLYM */
147#define CURLYM_B (REGNODE_MAX + 23) /* state for CURLYM */
148#define CURLYM_B_fail (REGNODE_MAX + 24) /* state for CURLYM */
149#define IFMATCH_A (REGNODE_MAX + 25) /* state for IFMATCH */
150#define IFMATCH_A_fail (REGNODE_MAX + 26) /* state for IFMATCH */
21cbe009
DM		 151#define CURLY_B_min (REGNODE_MAX + 27) /* state for CURLY */
152#define CURLY_B_min_fail (REGNODE_MAX + 28) /* state for CURLY */
153#define CURLY_B_max (REGNODE_MAX + 29) /* state for CURLY */
154#define CURLY_B_max_fail (REGNODE_MAX + 30) /* state for CURLY */
155#define COMMIT_next (REGNODE_MAX + 31) /* state for COMMIT */
156#define COMMIT_next_fail (REGNODE_MAX + 32) /* state for COMMIT */
157#define MARKPOINT_next (REGNODE_MAX + 33) /* state for MARKPOINT */
158#define MARKPOINT_next_fail (REGNODE_MAX + 34) /* state for MARKPOINT */
159#define SKIP_next (REGNODE_MAX + 35) /* state for SKIP */
160#define SKIP_next_fail (REGNODE_MAX + 36) /* state for SKIP */
161#define CUTGROUP_next (REGNODE_MAX + 37) /* state for CUTGROUP */
162#define CUTGROUP_next_fail (REGNODE_MAX + 38) /* state for CUTGROUP */
163#define KEEPS_next (REGNODE_MAX + 39) /* state for KEEPS */
164#define KEEPS_next_fail (REGNODE_MAX + 40) /* state for KEEPS */
03363afd 165
6bda09f9 166/* PL_regkind[] What type of regop or state is this. */
d09b2d29
IZ		 167
168#ifndef DOINIT
22c35a8c 169EXTCONST U8 PL_regkind[];
d09b2d29 170#else
22c35a8c 171EXTCONST U8 PL_regkind[] = {
e2e6a0f1
YO		 172 END, /* END */
173 END, /* SUCCEED */
e2e6a0f1 174 BOL, /* SBOL */
d3d47aac 175 BOL, /* MBOL */
e2e6a0f1 176 EOL, /* SEOL */
d3d47aac
YO		 177 EOL, /* MEOL */
178 EOL, /* EOS */
179 GPOS, /* GPOS */
e2e6a0f1
YO		 180 BOUND, /* BOUND */
181 BOUND, /* BOUNDL */
1e355c70 182 BOUND, /* BOUNDU */
0c6e81eb 183 BOUND, /* BOUNDA */
e2e6a0f1
YO		 184 NBOUND, /* NBOUND */
185 NBOUND, /* NBOUNDL */
1e355c70 186 NBOUND, /* NBOUNDU */
0c6e81eb 187 NBOUND, /* NBOUNDA */
e2e6a0f1
YO		 188 REG_ANY, /* REG_ANY */
189 REG_ANY, /* SANY */
e2e6a0f1 190 ANYOF, /* ANYOF */
ac44c12e 191 ANYOF, /* ANYOFD */
a4525e78 192 ANYOF, /* ANYOFL */
3edce4f5 193 ANYOF, /* ANYOFPOSIXL */
c316b824 194 ANYOF, /* ANYOFH */
6966a05b 195 ANYOF, /* ANYOFHb */
3146c00a 196 ANYOF, /* ANYOFHr */
34924db0 197 ANYOF, /* ANYOFHs */
13fcf652 198 ANYOFR, /* ANYOFR */
2d5613be 199 ANYOFR, /* ANYOFRb */
67a1b5f9 200 ANYOFM, /* ANYOFM */
3db0bccc 201 ANYOFM, /* NANYOFM */
3615ea58
KW		 202 POSIXD, /* POSIXD */
203 POSIXD, /* POSIXL */
204 POSIXD, /* POSIXU */
205 POSIXD, /* POSIXA */
9e84774b
KW		 206 NPOSIXD, /* NPOSIXD */
207 NPOSIXD, /* NPOSIXL */
208 NPOSIXD, /* NPOSIXU */
209 NPOSIXD, /* NPOSIXA */
e2e6a0f1
YO		 210 CLUMP, /* CLUMP */
211 BRANCH, /* BRANCH */
e2e6a0f1 212 EXACT, /* EXACT */
ae06e581 213 EXACT, /* LEXACT */
a4525e78 214 EXACT, /* EXACTL */
e2e6a0f1
YO		 215 EXACT, /* EXACTF */
216 EXACT, /* EXACTFL */
01f98ec2 217 EXACT, /* EXACTFU */
89829bb5 218 EXACT, /* EXACTFAA */
627a7895 219 EXACT, /* EXACTFUP */
a4525e78 220 EXACT, /* EXACTFLU8 */
89829bb5 221 EXACT, /* EXACTFAA_NO_TRIE */
3f2416ae
KW		 222 EXACT, /* EXACT_REQ8 */
223 EXACT, /* LEXACT_REQ8 */
224 EXACT, /* EXACTFU_REQ8 */
95fb0a6e 225 EXACT, /* EXACTFU_S_EDGE */
e2e6a0f1
YO		 226 NOTHING, /* NOTHING */
227 NOTHING, /* TAIL */
228 STAR, /* STAR */
229 PLUS, /* PLUS */
230 CURLY, /* CURLY */
231 CURLY, /* CURLYN */
232 CURLY, /* CURLYM */
233 CURLY, /* CURLYX */
234 WHILEM, /* WHILEM */
235 OPEN, /* OPEN */
236 CLOSE, /* CLOSE */
07093db4
KW		 237 SROPEN, /* SROPEN */
238 SRCLOSE, /* SRCLOSE */
e2e6a0f1
YO		 239 REF, /* REF */
240 REF, /* REFF */
241 REF, /* REFFL */
01f98ec2 242 REF, /* REFFU */
781aab5c 243 REF, /* REFFA */
016b7209
KW		 244 REF, /* REFN */
245 REF, /* REFFN */
246 REF, /* REFFLN */
247 REF, /* REFFUN */
248 REF, /* REFFAN */
d3d47aac
YO		 249 LONGJMP, /* LONGJMP */
250 BRANCHJ, /* BRANCHJ */
e2e6a0f1
YO		 251 BRANCHJ, /* IFMATCH */
252 BRANCHJ, /* UNLESSM */
253 BRANCHJ, /* SUSPEND */
254 BRANCHJ, /* IFTHEN */
255 GROUPP, /* GROUPP */
e2e6a0f1
YO		 256 EVAL, /* EVAL */
257 MINMOD, /* MINMOD */
258 LOGICAL, /* LOGICAL */
259 BRANCHJ, /* RENUM */
260 TRIE, /* TRIE */
261 TRIE, /* TRIEC */
262 TRIE, /* AHOCORASICK */
263 TRIE, /* AHOCORASICKC */
264 GOSUB, /* GOSUB */
016b7209 265 GROUPPN, /* GROUPPN */
e2e6a0f1
YO		 266 INSUBP, /* INSUBP */
267 DEFINEP, /* DEFINEP */
268 ENDLIKE, /* ENDLIKE */
269 ENDLIKE, /* OPFAIL */
270 ENDLIKE, /* ACCEPT */
271 VERB, /* VERB */
5d458dd8 272 VERB, /* PRUNE */
e2e6a0f1 273 VERB, /* MARKPOINT */
5d458dd8 274 VERB, /* SKIP */
e2e6a0f1 275 VERB, /* COMMIT */
5d458dd8 276 VERB, /* CUTGROUP */
ee9b8eae 277 KEEPS, /* KEEPS */
e1d1eefb 278 LNBREAK, /* LNBREAK */
e2e6a0f1
YO		 279 NOTHING, /* OPTIMIZED */
280 PSEUDO, /* PSEUDO */
86451f01 281 REGEX_SET, /* REGEX_SET */
03363afd 282 /* ------------ States ------------- */
e2e6a0f1
YO		 283 TRIE, /* TRIE_next */
284 TRIE, /* TRIE_next_fail */
4ee16520
DM		 285 EVAL, /* EVAL_B */
286 EVAL, /* EVAL_B_fail */
287 EVAL, /* EVAL_postponed_AB */
288 EVAL, /* EVAL_postponed_AB_fail */
e2e6a0f1
YO		 289 CURLYX, /* CURLYX_end */
290 CURLYX, /* CURLYX_end_fail */
291 WHILEM, /* WHILEM_A_pre */
292 WHILEM, /* WHILEM_A_pre_fail */
293 WHILEM, /* WHILEM_A_min */
294 WHILEM, /* WHILEM_A_min_fail */
295 WHILEM, /* WHILEM_A_max */
296 WHILEM, /* WHILEM_A_max_fail */
297 WHILEM, /* WHILEM_B_min */
298 WHILEM, /* WHILEM_B_min_fail */
299 WHILEM, /* WHILEM_B_max */
300 WHILEM, /* WHILEM_B_max_fail */
301 BRANCH, /* BRANCH_next */
302 BRANCH, /* BRANCH_next_fail */
303 CURLYM, /* CURLYM_A */
304 CURLYM, /* CURLYM_A_fail */
305 CURLYM, /* CURLYM_B */
306 CURLYM, /* CURLYM_B_fail */
307 IFMATCH, /* IFMATCH_A */
308 IFMATCH, /* IFMATCH_A_fail */
e2e6a0f1
YO		 309 CURLY, /* CURLY_B_min */
310 CURLY, /* CURLY_B_min_fail */
311 CURLY, /* CURLY_B_max */
312 CURLY, /* CURLY_B_max_fail */
313 COMMIT, /* COMMIT_next */
314 COMMIT, /* COMMIT_next_fail */
315 MARKPOINT, /* MARKPOINT_next */
316 MARKPOINT, /* MARKPOINT_next_fail */
5d458dd8
YO		 317 SKIP, /* SKIP_next */
318 SKIP, /* SKIP_next_fail */
319 CUTGROUP, /* CUTGROUP_next */
320 CUTGROUP, /* CUTGROUP_next_fail */
ee9b8eae
YO		 321 KEEPS, /* KEEPS_next */
322 KEEPS, /* KEEPS_next_fail */
d09b2d29
IZ		 323};
324#endif
325
f83e001e
YO		 326#ifdef REG_COMP_C
327
6bda09f9 328/* regarglen[] - How large is the argument part of the node (in regnodes) */
d09b2d29 329
29de9391 330static const U8 regarglen[] = {
03363afd
YO		 331 0, /* END */
332 0, /* SUCCEED */
03363afd 333 0, /* SBOL */
d3d47aac 334 0, /* MBOL */
03363afd 335 0, /* SEOL */
d3d47aac
YO		 336 0, /* MEOL */
337 0, /* EOS */
338 0, /* GPOS */
03363afd
YO		 339 0, /* BOUND */
340 0, /* BOUNDL */
1e355c70 341 0, /* BOUNDU */
0c6e81eb 342 0, /* BOUNDA */
03363afd
YO		 343 0, /* NBOUND */
344 0, /* NBOUNDL */
1e355c70 345 0, /* NBOUNDU */
0c6e81eb 346 0, /* NBOUNDA */
03363afd
YO		 347 0, /* REG_ANY */
348 0, /* SANY */
46fc0c43
KW		 349 EXTRA_SIZE(struct regnode_charclass), /* ANYOF */
350 EXTRA_SIZE(struct regnode_charclass), /* ANYOFD */
351 EXTRA_SIZE(struct regnode_charclass), /* ANYOFL */
352 EXTRA_SIZE(struct regnode_charclass_posixl), /* ANYOFPOSIXL */
c316b824 353 EXTRA_SIZE(struct regnode_1), /* ANYOFH */
6966a05b 354 EXTRA_SIZE(struct regnode_1), /* ANYOFHb */
3146c00a 355 EXTRA_SIZE(struct regnode_1), /* ANYOFHr */
53d42e43 356 EXTRA_SIZE(struct regnode_1), /* ANYOFHs */
13fcf652 357 EXTRA_SIZE(struct regnode_1), /* ANYOFR */
2d5613be 358 EXTRA_SIZE(struct regnode_1), /* ANYOFRb */
67a1b5f9 359 EXTRA_SIZE(struct regnode_1), /* ANYOFM */
3db0bccc 360 EXTRA_SIZE(struct regnode_1), /* NANYOFM */
3615ea58
KW		 361 0, /* POSIXD */
362 0, /* POSIXL */
363 0, /* POSIXU */
364 0, /* POSIXA */
365 0, /* NPOSIXD */
366 0, /* NPOSIXL */
367 0, /* NPOSIXU */
368 0, /* NPOSIXA */
03363afd
YO		 369 0, /* CLUMP */
370 0, /* BRANCH */
03363afd 371 0, /* EXACT */
ae06e581 372 EXTRA_SIZE(struct regnode_1), /* LEXACT */
a4525e78 373 0, /* EXACTL */
03363afd
YO		 374 0, /* EXACTF */
375 0, /* EXACTFL */
01f98ec2 376 0, /* EXACTFU */
89829bb5 377 0, /* EXACTFAA */
627a7895 378 0, /* EXACTFUP */
a4525e78 379 0, /* EXACTFLU8 */
89829bb5 380 0, /* EXACTFAA_NO_TRIE */
3f2416ae
KW		 381 0, /* EXACT_REQ8 */
382 EXTRA_SIZE(struct regnode_1), /* LEXACT_REQ8 */
383 0, /* EXACTFU_REQ8 */
95fb0a6e 384 0, /* EXACTFU_S_EDGE */
03363afd
YO		 385 0, /* NOTHING */
386 0, /* TAIL */
387 0, /* STAR */
388 0, /* PLUS */
389 EXTRA_SIZE(struct regnode_2), /* CURLY */
390 EXTRA_SIZE(struct regnode_2), /* CURLYN */
391 EXTRA_SIZE(struct regnode_2), /* CURLYM */
392 EXTRA_SIZE(struct regnode_2), /* CURLYX */
393 0, /* WHILEM */
394 EXTRA_SIZE(struct regnode_1), /* OPEN */
395 EXTRA_SIZE(struct regnode_1), /* CLOSE */
07093db4
KW		 396 0, /* SROPEN */
397 0, /* SRCLOSE */
03363afd
YO		 398 EXTRA_SIZE(struct regnode_1), /* REF */
399 EXTRA_SIZE(struct regnode_1), /* REFF */
400 EXTRA_SIZE(struct regnode_1), /* REFFL */
01f98ec2 401 EXTRA_SIZE(struct regnode_1), /* REFFU */
781aab5c 402 EXTRA_SIZE(struct regnode_1), /* REFFA */
016b7209
KW		 403 EXTRA_SIZE(struct regnode_1), /* REFN */
404 EXTRA_SIZE(struct regnode_1), /* REFFN */
405 EXTRA_SIZE(struct regnode_1), /* REFFLN */
406 EXTRA_SIZE(struct regnode_1), /* REFFUN */
407 EXTRA_SIZE(struct regnode_1), /* REFFAN */
d3d47aac
YO		 408 EXTRA_SIZE(struct regnode_1), /* LONGJMP */
409 EXTRA_SIZE(struct regnode_1), /* BRANCHJ */
03363afd
YO		 410 EXTRA_SIZE(struct regnode_1), /* IFMATCH */
411 EXTRA_SIZE(struct regnode_1), /* UNLESSM */
412 EXTRA_SIZE(struct regnode_1), /* SUSPEND */
413 EXTRA_SIZE(struct regnode_1), /* IFTHEN */
414 EXTRA_SIZE(struct regnode_1), /* GROUPP */
13f27704 415 EXTRA_SIZE(struct regnode_2L), /* EVAL */
03363afd
YO		 416 0, /* MINMOD */
417 0, /* LOGICAL */
418 EXTRA_SIZE(struct regnode_1), /* RENUM */
419 EXTRA_SIZE(struct regnode_1), /* TRIE */
420 EXTRA_SIZE(struct regnode_charclass), /* TRIEC */
421 EXTRA_SIZE(struct regnode_1), /* AHOCORASICK */
422 EXTRA_SIZE(struct regnode_charclass), /* AHOCORASICKC */
1a147d38 423 EXTRA_SIZE(struct regnode_2L), /* GOSUB */
016b7209 424 EXTRA_SIZE(struct regnode_1), /* GROUPPN */
1a147d38 425 EXTRA_SIZE(struct regnode_1), /* INSUBP */
0a4db386 426 EXTRA_SIZE(struct regnode_1), /* DEFINEP */
e2e6a0f1 427 0, /* ENDLIKE */
fee50582
YO		 428 EXTRA_SIZE(struct regnode_1), /* OPFAIL */
429 EXTRA_SIZE(struct regnode_2L), /* ACCEPT */
20832bc5 430 EXTRA_SIZE(struct regnode_1), /* VERB */
5d458dd8 431 EXTRA_SIZE(struct regnode_1), /* PRUNE */
e2e6a0f1 432 EXTRA_SIZE(struct regnode_1), /* MARKPOINT */
5d458dd8 433 EXTRA_SIZE(struct regnode_1), /* SKIP */
e2e6a0f1 434 EXTRA_SIZE(struct regnode_1), /* COMMIT */
5d458dd8 435 EXTRA_SIZE(struct regnode_1), /* CUTGROUP */
ee9b8eae 436 0, /* KEEPS */
e1d1eefb 437 0, /* LNBREAK */
03363afd
YO		 438 0, /* OPTIMIZED */
439 0, /* PSEUDO */
86451f01 440 EXTRA_SIZE(struct regnode_p), /* REGEX_SET */
d09b2d29
IZ		 441};
442
6bda09f9
YO		 443/* reg_off_by_arg[] - Which argument holds the offset to the next node */
444
29de9391 445static const char reg_off_by_arg[] = {
03363afd
YO		 446 0, /* END */
447 0, /* SUCCEED */
03363afd 448 0, /* SBOL */
d3d47aac 449 0, /* MBOL */
03363afd 450 0, /* SEOL */
d3d47aac
YO		 451 0, /* MEOL */
452 0, /* EOS */
453 0, /* GPOS */
03363afd
YO		 454 0, /* BOUND */
455 0, /* BOUNDL */
1e355c70 456 0, /* BOUNDU */
0c6e81eb 457 0, /* BOUNDA */
03363afd
YO		 458 0, /* NBOUND */
459 0, /* NBOUNDL */
1e355c70 460 0, /* NBOUNDU */
0c6e81eb 461 0, /* NBOUNDA */
03363afd
YO		 462 0, /* REG_ANY */
463 0, /* SANY */
03363afd 464 0, /* ANYOF */
ac44c12e 465 0, /* ANYOFD */
a4525e78 466 0, /* ANYOFL */
3edce4f5 467 0, /* ANYOFPOSIXL */
c316b824 468 0, /* ANYOFH */
6966a05b 469 0, /* ANYOFHb */
3146c00a 470 0, /* ANYOFHr */
34924db0 471 0, /* ANYOFHs */
13fcf652 472 0, /* ANYOFR */
2d5613be 473 0, /* ANYOFRb */
67a1b5f9 474 0, /* ANYOFM */
3db0bccc 475 0, /* NANYOFM */
3615ea58
KW		 476 0, /* POSIXD */
477 0, /* POSIXL */
478 0, /* POSIXU */
479 0, /* POSIXA */
480 0, /* NPOSIXD */
481 0, /* NPOSIXL */
482 0, /* NPOSIXU */
483 0, /* NPOSIXA */
03363afd
YO		 484 0, /* CLUMP */
485 0, /* BRANCH */
03363afd 486 0, /* EXACT */
ae06e581 487 0, /* LEXACT */
a4525e78 488 0, /* EXACTL */
03363afd
YO		 489 0, /* EXACTF */
490 0, /* EXACTFL */
01f98ec2 491 0, /* EXACTFU */
89829bb5 492 0, /* EXACTFAA */
627a7895 493 0, /* EXACTFUP */
a4525e78 494 0, /* EXACTFLU8 */
89829bb5 495 0, /* EXACTFAA_NO_TRIE */
3f2416ae
KW		 496 0, /* EXACT_REQ8 */
497 0, /* LEXACT_REQ8 */
498 0, /* EXACTFU_REQ8 */
95fb0a6e 499 0, /* EXACTFU_S_EDGE */
03363afd
YO		 500 0, /* NOTHING */
501 0, /* TAIL */
502 0, /* STAR */
503 0, /* PLUS */
504 0, /* CURLY */
505 0, /* CURLYN */
506 0, /* CURLYM */
507 0, /* CURLYX */
508 0, /* WHILEM */
509 0, /* OPEN */
510 0, /* CLOSE */
07093db4
KW		 511 0, /* SROPEN */
512 0, /* SRCLOSE */
03363afd
YO		 513 0, /* REF */
514 0, /* REFF */
515 0, /* REFFL */
01f98ec2 516 0, /* REFFU */
781aab5c 517 0, /* REFFA */
016b7209
KW		 518 0, /* REFN */
519 0, /* REFFN */
520 0, /* REFFLN */
521 0, /* REFFUN */
522 0, /* REFFAN */
d3d47aac
YO		 523 1, /* LONGJMP */
524 1, /* BRANCHJ */
46167d76
KW		 525 1, /* IFMATCH */
526 1, /* UNLESSM */
03363afd
YO		 527 1, /* SUSPEND */
528 1, /* IFTHEN */
529 0, /* GROUPP */
03363afd
YO		 530 0, /* EVAL */
531 0, /* MINMOD */
532 0, /* LOGICAL */
533 1, /* RENUM */
534 0, /* TRIE */
535 0, /* TRIEC */
536 0, /* AHOCORASICK */
537 0, /* AHOCORASICKC */
1a147d38 538 0, /* GOSUB */
016b7209 539 0, /* GROUPPN */
1a147d38 540 0, /* INSUBP */
0a4db386 541 0, /* DEFINEP */
e2e6a0f1 542 0, /* ENDLIKE */
7f69552c 543 0, /* OPFAIL */
e2e6a0f1
YO		 544 0, /* ACCEPT */
545 0, /* VERB */
5d458dd8 546 0, /* PRUNE */
e2e6a0f1 547 0, /* MARKPOINT */
5d458dd8 548 0, /* SKIP */
e2e6a0f1 549 0, /* COMMIT */
5d458dd8 550 0, /* CUTGROUP */
ee9b8eae 551 0, /* KEEPS */
e1d1eefb 552 0, /* LNBREAK */
03363afd
YO		 553 0, /* OPTIMIZED */
554 0, /* PSEUDO */
86451f01 555 0, /* REGEX_SET */
d09b2d29 556};
885f9e59 557
13d6edb4
NC		 558#endif /* REG_COMP_C */
559
f83e001e 560
6bda09f9
YO		 561/* reg_name[] - Opcode/state names in string form, for debugging */
562
22429478 563#ifndef DOINIT
13d6edb4 564EXTCONST char * PL_reg_name[];
22429478 565#else
4764e399 566EXTCONST char * const PL_reg_name[] = {
03363afd
YO		 567 "END", /* 0000 */
568 "SUCCEED", /* 0x01 */
d3d47aac 569 "SBOL", /* 0x02 */
03363afd 570 "MBOL", /* 0x03 */
d3d47aac
YO		 571 "SEOL", /* 0x04 */
572 "MEOL", /* 0x05 */
573 "EOS", /* 0x06 */
574 "GPOS", /* 0x07 */
575 "BOUND", /* 0x08 */
576 "BOUNDL", /* 0x09 */
577 "BOUNDU", /* 0x0a */
578 "BOUNDA", /* 0x0b */
579 "NBOUND", /* 0x0c */
580 "NBOUNDL", /* 0x0d */
581 "NBOUNDU", /* 0x0e */
582 "NBOUNDA", /* 0x0f */
583 "REG_ANY", /* 0x10 */
584 "SANY", /* 0x11 */
33c28ab2 585 "ANYOF", /* 0x12 */
ac44c12e
KW		 586 "ANYOFD", /* 0x13 */
587 "ANYOFL", /* 0x14 */
3edce4f5 588 "ANYOFPOSIXL", /* 0x15 */
c316b824 589 "ANYOFH", /* 0x16 */
6966a05b 590 "ANYOFHb", /* 0x17 */
3146c00a 591 "ANYOFHr", /* 0x18 */
34924db0
KW		 592 "ANYOFHs", /* 0x19 */
593 "ANYOFR", /* 0x1a */
594 "ANYOFRb", /* 0x1b */
595 "ANYOFM", /* 0x1c */
596 "NANYOFM", /* 0x1d */
597 "POSIXD", /* 0x1e */
598 "POSIXL", /* 0x1f */
599 "POSIXU", /* 0x20 */
600 "POSIXA", /* 0x21 */
601 "NPOSIXD", /* 0x22 */
602 "NPOSIXL", /* 0x23 */
603 "NPOSIXU", /* 0x24 */
604 "NPOSIXA", /* 0x25 */
605 "CLUMP", /* 0x26 */
606 "BRANCH", /* 0x27 */
607 "EXACT", /* 0x28 */
608 "LEXACT", /* 0x29 */
609 "EXACTL", /* 0x2a */
610 "EXACTF", /* 0x2b */
611 "EXACTFL", /* 0x2c */
612 "EXACTFU", /* 0x2d */
613 "EXACTFAA", /* 0x2e */
614 "EXACTFUP", /* 0x2f */
615 "EXACTFLU8", /* 0x30 */
616 "EXACTFAA_NO_TRIE", /* 0x31 */
617 "EXACT_REQ8", /* 0x32 */
618 "LEXACT_REQ8", /* 0x33 */
619 "EXACTFU_REQ8", /* 0x34 */
620 "EXACTFU_S_EDGE", /* 0x35 */
621 "NOTHING", /* 0x36 */
622 "TAIL", /* 0x37 */
623 "STAR", /* 0x38 */
624 "PLUS", /* 0x39 */
625 "CURLY", /* 0x3a */
626 "CURLYN", /* 0x3b */
627 "CURLYM", /* 0x3c */
628 "CURLYX", /* 0x3d */
629 "WHILEM", /* 0x3e */
630 "OPEN", /* 0x3f */
631 "CLOSE", /* 0x40 */
632 "SROPEN", /* 0x41 */
633 "SRCLOSE", /* 0x42 */
634 "REF", /* 0x43 */
635 "REFF", /* 0x44 */
636 "REFFL", /* 0x45 */
637 "REFFU", /* 0x46 */
638 "REFFA", /* 0x47 */
639 "REFN", /* 0x48 */
640 "REFFN", /* 0x49 */
641 "REFFLN", /* 0x4a */
642 "REFFUN", /* 0x4b */
643 "REFFAN", /* 0x4c */
644 "LONGJMP", /* 0x4d */
645 "BRANCHJ", /* 0x4e */
646 "IFMATCH", /* 0x4f */
647 "UNLESSM", /* 0x50 */
648 "SUSPEND", /* 0x51 */
649 "IFTHEN", /* 0x52 */
650 "GROUPP", /* 0x53 */
651 "EVAL", /* 0x54 */
652 "MINMOD", /* 0x55 */
653 "LOGICAL", /* 0x56 */
654 "RENUM", /* 0x57 */
655 "TRIE", /* 0x58 */
656 "TRIEC", /* 0x59 */
657 "AHOCORASICK", /* 0x5a */
658 "AHOCORASICKC", /* 0x5b */
659 "GOSUB", /* 0x5c */
660 "GROUPPN", /* 0x5d */
661 "INSUBP", /* 0x5e */
662 "DEFINEP", /* 0x5f */
663 "ENDLIKE", /* 0x60 */
664 "OPFAIL", /* 0x61 */
665 "ACCEPT", /* 0x62 */
666 "VERB", /* 0x63 */
667 "PRUNE", /* 0x64 */
668 "MARKPOINT", /* 0x65 */
669 "SKIP", /* 0x66 */
670 "COMMIT", /* 0x67 */
671 "CUTGROUP", /* 0x68 */
672 "KEEPS", /* 0x69 */
673 "LNBREAK", /* 0x6a */
674 "OPTIMIZED", /* 0x6b */
675 "PSEUDO", /* 0x6c */
86451f01 676 "REGEX_SET", /* 0x6d */
03363afd 677 /* ------------ States ------------- */
24b23f37
YO		 678 "TRIE_next", /* REGNODE_MAX +0x01 */
679 "TRIE_next_fail", /* REGNODE_MAX +0x02 */
4ee16520
DM		 680 "EVAL_B", /* REGNODE_MAX +0x03 */
681 "EVAL_B_fail", /* REGNODE_MAX +0x04 */
682 "EVAL_postponed_AB", /* REGNODE_MAX +0x05 */
683 "EVAL_postponed_AB_fail", /* REGNODE_MAX +0x06 */
684 "CURLYX_end", /* REGNODE_MAX +0x07 */
685 "CURLYX_end_fail", /* REGNODE_MAX +0x08 */
686 "WHILEM_A_pre", /* REGNODE_MAX +0x09 */
687 "WHILEM_A_pre_fail", /* REGNODE_MAX +0x0a */
688 "WHILEM_A_min", /* REGNODE_MAX +0x0b */
689 "WHILEM_A_min_fail", /* REGNODE_MAX +0x0c */
690 "WHILEM_A_max", /* REGNODE_MAX +0x0d */
691 "WHILEM_A_max_fail", /* REGNODE_MAX +0x0e */
692 "WHILEM_B_min", /* REGNODE_MAX +0x0f */
693 "WHILEM_B_min_fail", /* REGNODE_MAX +0x10 */
694 "WHILEM_B_max", /* REGNODE_MAX +0x11 */
695 "WHILEM_B_max_fail", /* REGNODE_MAX +0x12 */
696 "BRANCH_next", /* REGNODE_MAX +0x13 */
697 "BRANCH_next_fail", /* REGNODE_MAX +0x14 */
698 "CURLYM_A", /* REGNODE_MAX +0x15 */
699 "CURLYM_A_fail", /* REGNODE_MAX +0x16 */
700 "CURLYM_B", /* REGNODE_MAX +0x17 */
701 "CURLYM_B_fail", /* REGNODE_MAX +0x18 */
702 "IFMATCH_A", /* REGNODE_MAX +0x19 */
703 "IFMATCH_A_fail", /* REGNODE_MAX +0x1a */
21cbe009
DM		 704 "CURLY_B_min", /* REGNODE_MAX +0x1b */
705 "CURLY_B_min_fail", /* REGNODE_MAX +0x1c */
706 "CURLY_B_max", /* REGNODE_MAX +0x1d */
707 "CURLY_B_max_fail", /* REGNODE_MAX +0x1e */
708 "COMMIT_next", /* REGNODE_MAX +0x1f */
709 "COMMIT_next_fail", /* REGNODE_MAX +0x20 */
710 "MARKPOINT_next", /* REGNODE_MAX +0x21 */
711 "MARKPOINT_next_fail", /* REGNODE_MAX +0x22 */
712 "SKIP_next", /* REGNODE_MAX +0x23 */
713 "SKIP_next_fail", /* REGNODE_MAX +0x24 */
714 "CUTGROUP_next", /* REGNODE_MAX +0x25 */
715 "CUTGROUP_next_fail", /* REGNODE_MAX +0x26 */
716 "KEEPS_next", /* REGNODE_MAX +0x27 */
717 "KEEPS_next_fail", /* REGNODE_MAX +0x28 */
885f9e59 718};
22429478 719#endif /* DOINIT */
d09b2d29 720
f7819f85
A		 721/* PL_reg_extflags_name[] - Opcode/state names in string form, for debugging */
722
723#ifndef DOINIT
724EXTCONST char * PL_reg_extflags_name[];
725#else
726EXTCONST char * const PL_reg_extflags_name[] = {
d262c0c7 727 /* Bits in extflags defined: 11111111111111110000111111111111 */
52d81aa8
NC		 728 "MULTILINE", /* 0x00000001 */
729 "SINGLELINE", /* 0x00000002 */
730 "FOLD", /* 0x00000004 */
731 "EXTENDED", /* 0x00000008 */
334afb3e 732 "EXTENDED_MORE", /* 0x00000010 */
e3b64d84
KW		 733 "NOCAPTURE", /* 0x00000020 */
734 "KEEPCOPY", /* 0x00000040 */
735 "CHARSET0", /* 0x00000080 : "CHARSET" - 0x00000380 */
736 "CHARSET1", /* 0x00000100 : "CHARSET" - 0x00000380 */
737 "CHARSET2", /* 0x00000200 : "CHARSET" - 0x00000380 */
d262c0c7
KW		 738 "STRICT", /* 0x00000400 */
739 "SPLIT", /* 0x00000800 */
1d32d911
KW		 740 "UNUSED_BIT_12", /* 0x00001000 */
741 "UNUSED_BIT_13", /* 0x00002000 */
742 "UNUSED_BIT_14", /* 0x00004000 */
a3b51d37
KW		 743 "UNUSED_BIT_15", /* 0x00008000 */
744 "NO_INPLACE_SUBST", /* 0x00010000 */
745 "EVAL_SEEN", /* 0x00020000 */
ee273784 746 "UNBOUNDED_QUANTIFIER_SEEN",/* 0x00040000 */
e795e964 747 "CHECK_ALL", /* 0x00080000 */
52d81aa8
NC		 748 "MATCH_UTF8", /* 0x00100000 */
749 "USE_INTUIT_NOML", /* 0x00200000 */
750 "USE_INTUIT_ML", /* 0x00400000 */
751 "INTUIT_TAIL", /* 0x00800000 */
a3b51d37 752 "IS_ANCHORED", /* 0x01000000 */
52d81aa8
NC		 753 "COPY_DONE", /* 0x02000000 */
754 "TAINTED_SEEN", /* 0x04000000 */
755 "TAINTED", /* 0x08000000 */
756 "START_ONLY", /* 0x10000000 */
dbc200c5 757 "SKIPWHITE", /* 0x20000000 */
52d81aa8
NC		 758 "WHITE", /* 0x40000000 */
759 "NULL", /* 0x80000000 */
f7819f85
A		 760};
761#endif /* DOINIT */
762
adc2d0c9
JH		 763#ifdef DEBUGGING
764# define REG_EXTFLAGS_NAME_SIZE 32
765#endif
766
337ff307
YO		 767/* PL_reg_intflags_name[] - Opcode/state names in string form, for debugging */
768
769#ifndef DOINIT
770EXTCONST char * PL_reg_intflags_name[];
771#else
772EXTCONST char * const PL_reg_intflags_name[] = {
b8f6efdd
YO		 773 "SKIP", /* 0x00000001 - PREGf_SKIP */
774 "IMPLICIT", /* 0x00000002 - PREGf_IMPLICIT - Converted .* to ^.* */
775 "NAUGHTY", /* 0x00000004 - PREGf_NAUGHTY - how exponential is this pattern? */
776 "VERBARG_SEEN", /* 0x00000008 - PREGf_VERBARG_SEEN */
777 "CUTGROUP_SEEN", /* 0x00000010 - PREGf_CUTGROUP_SEEN */
778 "USE_RE_EVAL", /* 0x00000020 - PREGf_USE_RE_EVAL - compiled with "use re 'eval'" */
58430ea8 779 "NOSCAN", /* 0x00000040 - PREGf_NOSCAN */
58430ea8
YO		 780 "GPOS_SEEN", /* 0x00000100 - PREGf_GPOS_SEEN */
781 "GPOS_FLOAT", /* 0x00000200 - PREGf_GPOS_FLOAT */
d3d47aac
YO		 782 "ANCH_MBOL", /* 0x00000400 - PREGf_ANCH_MBOL */
783 "ANCH_SBOL", /* 0x00000800 - PREGf_ANCH_SBOL */
784 "ANCH_GPOS", /* 0x00001000 - PREGf_ANCH_GPOS */
d5a00e4a 785 "RECURSE_SEEN", /* 0x00002000 - PREGf_RECURSE_SEEN */
337ff307
YO		 786};
787#endif /* DOINIT */
788
adc2d0c9 789#ifdef DEBUGGING
d5a00e4a 790# define REG_INTFLAGS_NAME_SIZE 13
adc2d0c9
JH		 791#endif
792
f9ef50a7 793/* The following have no fixed length. U8 so we can do strchr() on it. */
ded4dd2a 794#define REGNODE_VARIES(node) (PL_varies_bitmask[(node) >> 3] & (1 << ((node) & 7)))
e52fc539 795
f9ef50a7 796#ifndef DOINIT
ded4dd2a 797EXTCONST U8 PL_varies[] __attribute__deprecated__;
f9ef50a7 798#else
ded4dd2a 799EXTCONST U8 PL_varies[] __attribute__deprecated__ = {
62e6ef33 800 CLUMP, BRANCH, STAR, PLUS, CURLY, CURLYN, CURLYM, CURLYX, WHILEM, REF,
016b7209 801 REFF, REFFL, REFFU, REFFA, REFN, REFFN, REFFLN, REFFUN, REFFAN,
d3d47aac 802 BRANCHJ, SUSPEND, IFTHEN,
f9ef50a7
NC		 803 0
804};
805#endif /* DOINIT */
806
ded4dd2a
NC		 807#ifndef DOINIT
808EXTCONST U8 PL_varies_bitmask[];
809#else
810EXTCONST U8 PL_varies_bitmask[] = {
34924db0 811 0x00, 0x00, 0x00, 0x00, 0xC0, 0x00, 0x00, 0x7F, 0xF8, 0x5F, 0x06, 0x00, 0x00, 0x00
ded4dd2a
NC		 812};
813#endif /* DOINIT */
814
f9ef50a7
NC		 815/* The following always have a length of 1. U8 we can do strchr() on it. */
816/* (Note that length 1 means "one character" under UTF8, not "one octet".) */
ded4dd2a 817#define REGNODE_SIMPLE(node) (PL_simple_bitmask[(node) >> 3] & (1 << ((node) & 7)))
e52fc539 818
f9ef50a7 819#ifndef DOINIT
ded4dd2a 820EXTCONST U8 PL_simple[] __attribute__deprecated__;
f9ef50a7 821#else
ded4dd2a 822EXTCONST U8 PL_simple[] __attribute__deprecated__ = {
6966a05b 823 REG_ANY, SANY, ANYOF, ANYOFD, ANYOFL, ANYOFPOSIXL, ANYOFH, ANYOFHb,
34924db0 824 ANYOFHr, ANYOFHs, ANYOFR, ANYOFRb, ANYOFM, NANYOFM, POSIXD, POSIXL,
86451f01 825 POSIXU, POSIXA, NPOSIXD, NPOSIXL, NPOSIXU, NPOSIXA, REGEX_SET,
f9ef50a7
NC		 826 0
827};
828#endif /* DOINIT */
829
ded4dd2a
NC		 830#ifndef DOINIT
831EXTCONST U8 PL_simple_bitmask[];
832#else
833EXTCONST U8 PL_simple_bitmask[] = {
86451f01 834 0x00, 0x00, 0xFF, 0xFF, 0x3F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20
ded4dd2a
NC		 835};
836#endif /* DOINIT */
837
37442d52 838/* ex: set ro: */
Unnamed repository; edit this file 'description' to name the repository.