vendor/perl5/5.005.02

1 files changed, 254 insertions, 0 deletions

diff --git a/contrib/perl5/regnodes.h b/contrib/perl5/regnodes.h
new file mode 100644
index 0000000000000..c494daed12bbf
--- /dev/null
+++ b/contrib/perl5/regnodes.h
@@ -0,0 +1,254 @@
+/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regcomp.pl from regcomp.sym.  
+   Any changes made here will be lost!
+*/
+
+#define	END	0	/*    0 End of program. */
+#define	SUCCEED	1	/*  0x1 Return from a subroutine, basically. */
+#define	BOL	2	/*  0x2 Match "" at beginning of line. */
+#define	MBOL	3	/*  0x3 Same, assuming multiline. */
+#define	SBOL	4	/*  0x4 Same, assuming singleline. */
+#define	EOS	5	/*  0x5 Match "" at end of string. */
+#define	EOL	6	/*  0x6 Match "" at end of line. */
+#define	MEOL	7	/*  0x7 Same, assuming multiline. */
+#define	SEOL	8	/*  0x8 Same, assuming singleline. */
+#define	BOUND	9	/*  0x9 Match "" at any word boundary */
+#define	BOUNDL	10	/*  0xa Match "" at any word boundary */
+#define	NBOUND	11	/*  0xb Match "" at any word non-boundary */
+#define	NBOUNDL	12	/*  0xc Match "" at any word non-boundary */
+#define	GPOS	13	/*  0xd Matches where last m//g left off. */
+#define	ANY	14	/*  0xe Match any one character (except newline). */
+#define	SANY	15	/*  0xf Match any one character. */
+#define	ANYOF	16	/* 0x10 Match character in (or not in) this class. */
+#define	ALNUM	17	/* 0x11 Match any alphanumeric character */
+#define	ALNUML	18	/* 0x12 Match any alphanumeric char in locale */
+#define	NALNUM	19	/* 0x13 Match any non-alphanumeric character */
+#define	NALNUML	20	/* 0x14 Match any non-alphanumeric char in locale */
+#define	SPACE	21	/* 0x15 Match any whitespace character */
+#define	SPACEL	22	/* 0x16 Match any whitespace char in locale */
+#define	NSPACE	23	/* 0x17 Match any non-whitespace character */
+#define	NSPACEL	24	/* 0x18 Match any non-whitespace char in locale */
+#define	DIGIT	25	/* 0x19 Match any numeric character */
+#define	NDIGIT	26	/* 0x1a Match any non-numeric character */
+#define	BRANCH	27	/* 0x1b Match this alternative, or the next... */
+#define	BACK	28	/* 0x1c Match "", "next" ptr points backward. */
+#define	EXACT	29	/* 0x1d Match this string (preceded by length). */
+#define	EXACTF	30	/* 0x1e Match this string, folded (prec. by length). */
+#define	EXACTFL	31	/* 0x1f Match this string, folded in locale (w/len). */
+#define	NOTHING	32	/* 0x20 Match empty string. */
+#define	TAIL	33	/* 0x21 Match empty string. Can jump here from outside. */
+#define	STAR	34	/* 0x22 Match this (simple) thing 0 or more times. */
+#define	PLUS	35	/* 0x23 Match this (simple) thing 1 or more times. */
+#define	CURLY	36	/* 0x24 Match this simple thing {n,m} times. */
+#define	CURLYN	37	/* 0x25 Match next-after-this simple thing  */
+#define	CURLYM	38	/* 0x26 Match this medium-complex thing {n,m} times. */
+#define	CURLYX	39	/* 0x27 Match this complex thing {n,m} times. */
+#define	WHILEM	40	/* 0x28 Do curly processing and see if rest matches. */
+#define	OPEN	41	/* 0x29 Mark this point in input as start of #n. */
+#define	CLOSE	42	/* 0x2a Analogous to OPEN. */
+#define	REF	43	/* 0x2b Match some already matched string */
+#define	REFF	44	/* 0x2c Match already matched string, folded */
+#define	REFFL	45	/* 0x2d Match already matched string, folded in loc. */
+#define	IFMATCH	46	/* 0x2e Succeeds if the following matches. */
+#define	UNLESSM	47	/* 0x2f Fails if the following matches. */
+#define	SUSPEND	48	/* 0x30 "Independent" sub-RE. */
+#define	IFTHEN	49	/* 0x31 Switch, should be preceeded by switcher . */
+#define	GROUPP	50	/* 0x32 Whether the group matched. */
+#define	LONGJMP	51	/* 0x33 Jump far away. */
+#define	BRANCHJ	52	/* 0x34 BRANCH with long offset. */
+#define	EVAL	53	/* 0x35 Execute some Perl code. */
+#define	MINMOD	54	/* 0x36 Next operator is not greedy. */
+#define	LOGICAL	55	/* 0x37 Next opcode should set the flag only. */
+#define	RENUM	56	/* 0x38 Group with independently numbered parens. */
+#define	OPTIMIZED	57	/* 0x39 Placeholder for dump. */
+
+#ifndef DOINIT
+EXTCONST U8 regkind[];
+#else
+EXTCONST U8 regkind[] = {
+	END,		/* END */
+	END,		/* SUCCEED */
+	BOL,		/* BOL */
+	BOL,		/* MBOL */
+	BOL,		/* SBOL */
+	EOL,		/* EOS */
+	EOL,		/* EOL */
+	EOL,		/* MEOL */
+	EOL,		/* SEOL */
+	BOUND,		/* BOUND */
+	BOUND,		/* BOUNDL */
+	NBOUND,		/* NBOUND */
+	NBOUND,		/* NBOUNDL */
+	GPOS,		/* GPOS */
+	ANY,		/* ANY */
+	ANY,		/* SANY */
+	ANYOF,		/* ANYOF */
+	ALNUM,		/* ALNUM */
+	ALNUM,		/* ALNUML */
+	NALNUM,		/* NALNUM */
+	NALNUM,		/* NALNUML */
+	SPACE,		/* SPACE */
+	SPACE,		/* SPACEL */
+	NSPACE,		/* NSPACE */
+	NSPACE,		/* NSPACEL */
+	DIGIT,		/* DIGIT */
+	NDIGIT,		/* NDIGIT */
+	BRANCH,		/* BRANCH */
+	BACK,		/* BACK */
+	EXACT,		/* EXACT */
+	EXACT,		/* EXACTF */
+	EXACT,		/* EXACTFL */
+	NOTHING,		/* NOTHING */
+	NOTHING,		/* TAIL */
+	STAR,		/* STAR */
+	PLUS,		/* PLUS */
+	CURLY,		/* CURLY */
+	CURLY,		/* CURLYN */
+	CURLY,		/* CURLYM */
+	CURLY,		/* CURLYX */
+	WHILEM,		/* WHILEM */
+	OPEN,		/* OPEN */
+	CLOSE,		/* CLOSE */
+	REF,		/* REF */
+	REF,		/* REFF */
+	REF,		/* REFFL */
+	BRANCHJ,		/* IFMATCH */
+	BRANCHJ,		/* UNLESSM */
+	BRANCHJ,		/* SUSPEND */
+	BRANCHJ,		/* IFTHEN */
+	GROUPP,		/* GROUPP */
+	LONGJMP,		/* LONGJMP */
+	BRANCHJ,		/* BRANCHJ */
+	EVAL,		/* EVAL */
+	MINMOD,		/* MINMOD */
+	LOGICAL,		/* LOGICAL */
+	BRANCHJ,		/* RENUM */
+	NOTHING,		/* OPTIMIZED */
+};
+#endif
+
+
+#ifdef REG_COMP_C
+const static U8 regarglen[] = {
+	0,		/* END */
+	0,		/* SUCCEED */
+	0,		/* BOL */
+	0,		/* MBOL */
+	0,		/* SBOL */
+	0,		/* EOS */
+	0,		/* EOL */
+	0,		/* MEOL */
+	0,		/* SEOL */
+	0,		/* BOUND */
+	0,		/* BOUNDL */
+	0,		/* NBOUND */
+	0,		/* NBOUNDL */
+	0,		/* GPOS */
+	0,		/* ANY */
+	0,		/* SANY */
+	0,		/* ANYOF */
+	0,		/* ALNUM */
+	0,		/* ALNUML */
+	0,		/* NALNUM */
+	0,		/* NALNUML */
+	0,		/* SPACE */
+	0,		/* SPACEL */
+	0,		/* NSPACE */
+	0,		/* NSPACEL */
+	0,		/* DIGIT */
+	0,		/* NDIGIT */
+	0,		/* BRANCH */
+	0,		/* BACK */
+	0,		/* EXACT */
+	0,		/* EXACTF */
+	0,		/* EXACTFL */
+	0,		/* NOTHING */
+	0,		/* TAIL */
+	0,		/* STAR */
+	0,		/* PLUS */
+	EXTRA_SIZE(struct regnode_2),		/* CURLY */
+	EXTRA_SIZE(struct regnode_2),		/* CURLYN */
+	EXTRA_SIZE(struct regnode_2),		/* CURLYM */
+	EXTRA_SIZE(struct regnode_2),		/* CURLYX */
+	0,		/* WHILEM */
+	EXTRA_SIZE(struct regnode_1),		/* OPEN */
+	EXTRA_SIZE(struct regnode_1),		/* CLOSE */
+	EXTRA_SIZE(struct regnode_1),		/* REF */
+	EXTRA_SIZE(struct regnode_1),		/* REFF */
+	EXTRA_SIZE(struct regnode_1),		/* REFFL */
+	EXTRA_SIZE(struct regnode_1),		/* IFMATCH */
+	EXTRA_SIZE(struct regnode_1),		/* UNLESSM */
+	EXTRA_SIZE(struct regnode_1),		/* SUSPEND */
+	EXTRA_SIZE(struct regnode_1),		/* IFTHEN */
+	EXTRA_SIZE(struct regnode_1),		/* GROUPP */
+	EXTRA_SIZE(struct regnode_1),		/* LONGJMP */
+	EXTRA_SIZE(struct regnode_1),		/* BRANCHJ */
+	EXTRA_SIZE(struct regnode_1),		/* EVAL */
+	0,		/* MINMOD */
+	0,		/* LOGICAL */
+	EXTRA_SIZE(struct regnode_1),		/* RENUM */
+	0,		/* OPTIMIZED */
+};
+
+const static char reg_off_by_arg[] = {
+	0,		/* END */
+	0,		/* SUCCEED */
+	0,		/* BOL */
+	0,		/* MBOL */
+	0,		/* SBOL */
+	0,		/* EOS */
+	0,		/* EOL */
+	0,		/* MEOL */
+	0,		/* SEOL */
+	0,		/* BOUND */
+	0,		/* BOUNDL */
+	0,		/* NBOUND */
+	0,		/* NBOUNDL */
+	0,		/* GPOS */
+	0,		/* ANY */
+	0,		/* SANY */
+	0,		/* ANYOF */
+	0,		/* ALNUM */
+	0,		/* ALNUML */
+	0,		/* NALNUM */
+	0,		/* NALNUML */
+	0,		/* SPACE */
+	0,		/* SPACEL */
+	0,		/* NSPACE */
+	0,		/* NSPACEL */
+	0,		/* DIGIT */
+	0,		/* NDIGIT */
+	0,		/* BRANCH */
+	0,		/* BACK */
+	0,		/* EXACT */
+	0,		/* EXACTF */
+	0,		/* EXACTFL */
+	0,		/* NOTHING */
+	0,		/* TAIL */
+	0,		/* STAR */
+	0,		/* PLUS */
+	0,		/* CURLY */
+	0,		/* CURLYN */
+	0,		/* CURLYM */
+	0,		/* CURLYX */
+	0,		/* WHILEM */
+	0,		/* OPEN */
+	0,		/* CLOSE */
+	0,		/* REF */
+	0,		/* REFF */
+	0,		/* REFFL */
+	2,		/* IFMATCH */
+	2,		/* UNLESSM */
+	1,		/* SUSPEND */
+	1,		/* IFTHEN */
+	0,		/* GROUPP */
+	1,		/* LONGJMP */
+	1,		/* BRANCHJ */
+	0,		/* EVAL */
+	0,		/* MINMOD */
+	0,		/* LOGICAL */
+	1,		/* RENUM */
+	0,		/* OPTIMIZED */
+};
+#endif /* REG_COMP_C */
+