X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regnodes.h;h=c5725cd70715661d88fa7c724e2f2e3a1720cb0d;hb=f948ffe74d98a1c774305dd651dca94c0aceed38;hp=c494daed12bbf4abe737b5122f85d5611791469b;hpb=b85d18e97b6ae9e0cc168f99b999fd3fd33104bd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regnodes.h b/regnodes.h
index c494dae..c5725cd 100644
--- a/regnodes.h
+++ b/regnodes.h
@@ -1,5 +1,5 @@
 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by regcomp.pl from regcomp.sym.  
+   This file is built by regcomp.pl from regcomp.sym.
    Any changes made here will be lost!
 */
 
@@ -13,59 +13,81 @@
 #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. */
+#define	BOUNDUTF8	10	/*  0xa Match "" at any word boundary */
+#define	BOUNDL	11	/*  0xb Match "" at any word boundary */
+#define	BOUNDLUTF8	12	/*  0xc Match "" at any word boundary */
+#define	NBOUND	13	/*  0xd Match "" at any word non-boundary */
+#define	NBOUNDUTF8	14	/*  0xe Match "" at any word non-boundary */
+#define	NBOUNDL	15	/*  0xf Match "" at any word non-boundary */
+#define	NBOUNDLUTF8	16	/* 0x10 Match "" at any word non-boundary */
+#define	GPOS	17	/* 0x11 Matches where last m//g left off. */
+#define	REG_ANY	18	/* 0x12 Match any one character (except newline). */
+#define	ANYUTF8	19	/* 0x13 Match any one Unicode character (except newline). */
+#define	SANY	20	/* 0x14 Match any one character. */
+#define	SANYUTF8	21	/* 0x15 Match any one Unicode character. */
+#define	ANYOF	22	/* 0x16 Match character in (or not in) this class. */
+#define	ANYOFUTF8	23	/* 0x17 Match character in (or not in) this class. */
+#define	ALNUM	24	/* 0x18 Match any alphanumeric character */
+#define	ALNUMUTF8	25	/* 0x19 Match any alphanumeric character in utf8 */
+#define	ALNUML	26	/* 0x1a Match any alphanumeric char in locale */
+#define	ALNUMLUTF8	27	/* 0x1b Match any alphanumeric char in locale+utf8 */
+#define	NALNUM	28	/* 0x1c Match any non-alphanumeric character */
+#define	NALNUMUTF8	29	/* 0x1d Match any non-alphanumeric character in utf8 */
+#define	NALNUML	30	/* 0x1e Match any non-alphanumeric char in locale */
+#define	NALNUMLUTF8	31	/* 0x1f Match any non-alphanumeric char in locale+utf8 */
+#define	SPACE	32	/* 0x20 Match any whitespace character */
+#define	SPACEUTF8	33	/* 0x21 Match any whitespace character in utf8 */
+#define	SPACEL	34	/* 0x22 Match any whitespace char in locale */
+#define	SPACELUTF8	35	/* 0x23 Match any whitespace char in locale+utf8 */
+#define	NSPACE	36	/* 0x24 Match any non-whitespace character */
+#define	NSPACEUTF8	37	/* 0x25 Match any non-whitespace character in utf8 */
+#define	NSPACEL	38	/* 0x26 Match any non-whitespace char in locale */
+#define	NSPACELUTF8	39	/* 0x27 Match any non-whitespace char in locale+utf8 */
+#define	DIGIT	40	/* 0x28 Match any numeric character */
+#define	DIGITUTF8	41	/* 0x29 Match any numeric character in utf8 */
+#define	DIGITL	42	/* 0x2a Match any numeric character in locale */
+#define	DIGITLUTF8	43	/* 0x2b Match any numeric character in locale+utf8 */
+#define	NDIGIT	44	/* 0x2c Match any non-numeric character */
+#define	NDIGITUTF8	45	/* 0x2d Match any non-numeric character in utf8 */
+#define	NDIGITL	46	/* 0x2e Match any non-numeric character in locale */
+#define	NDIGITLUTF8	47	/* 0x2f Match any non-numeric character in locale+utf8 */
+#define	CLUMP	48	/* 0x30 Match any combining character sequence */
+#define	BRANCH	49	/* 0x31 Match this alternative, or the next... */
+#define	BACK	50	/* 0x32 Match "", "next" ptr points backward. */
+#define	EXACT	51	/* 0x33 Match this string (preceded by length). */
+#define	EXACTF	52	/* 0x34 Match this string, folded (prec. by length). */
+#define	EXACTFL	53	/* 0x35 Match this string, folded in locale (w/len). */
+#define	NOTHING	54	/* 0x36 Match empty string. */
+#define	TAIL	55	/* 0x37 Match empty string. Can jump here from outside. */
+#define	STAR	56	/* 0x38 Match this (simple) thing 0 or more times. */
+#define	PLUS	57	/* 0x39 Match this (simple) thing 1 or more times. */
+#define	CURLY	58	/* 0x3a Match this simple thing {n,m} times. */
+#define	CURLYN	59	/* 0x3b Match next-after-this simple thing  */
+#define	CURLYM	60	/* 0x3c Match this medium-complex thing {n,m} times. */
+#define	CURLYX	61	/* 0x3d Match this complex thing {n,m} times. */
+#define	WHILEM	62	/* 0x3e Do curly processing and see if rest matches. */
+#define	OPEN	63	/* 0x3f Mark this point in input as start of #n. */
+#define	CLOSE	64	/* 0x40 Analogous to OPEN. */
+#define	REF	65	/* 0x41 Match some already matched string */
+#define	REFF	66	/* 0x42 Match already matched string, folded */
+#define	REFFL	67	/* 0x43 Match already matched string, folded in loc. */
+#define	IFMATCH	68	/* 0x44 Succeeds if the following matches. */
+#define	UNLESSM	69	/* 0x45 Fails if the following matches. */
+#define	SUSPEND	70	/* 0x46 "Independent" sub-RE. */
+#define	IFTHEN	71	/* 0x47 Switch, should be preceeded by switcher . */
+#define	GROUPP	72	/* 0x48 Whether the group matched. */
+#define	LONGJMP	73	/* 0x49 Jump far away. */
+#define	BRANCHJ	74	/* 0x4a BRANCH with long offset. */
+#define	EVAL	75	/* 0x4b Execute some Perl code. */
+#define	MINMOD	76	/* 0x4c Next operator is not greedy. */
+#define	LOGICAL	77	/* 0x4d Next opcode should set the flag only. */
+#define	RENUM	78	/* 0x4e Group with independently numbered parens. */
+#define	OPTIMIZED	79	/* 0x4f Placeholder for dump. */
 
 #ifndef DOINIT
-EXTCONST U8 regkind[];
+EXTCONST U8 PL_regkind[];
 #else
-EXTCONST U8 regkind[] = {
+EXTCONST U8 PL_regkind[] = {
 	END,		/* END */
 	END,		/* SUCCEED */
 	BOL,		/* BOL */
@@ -76,23 +98,45 @@ EXTCONST U8 regkind[] = {
 	EOL,		/* MEOL */
 	EOL,		/* SEOL */
 	BOUND,		/* BOUND */
+	BOUND,		/* BOUNDUTF8 */
 	BOUND,		/* BOUNDL */
+	BOUND,		/* BOUNDLUTF8 */
 	NBOUND,		/* NBOUND */
+	NBOUND,		/* NBOUNDUTF8 */
 	NBOUND,		/* NBOUNDL */
+	NBOUND,		/* NBOUNDLUTF8 */
 	GPOS,		/* GPOS */
-	ANY,		/* ANY */
-	ANY,		/* SANY */
+	REG_ANY,		/* REG_ANY */
+	REG_ANY,		/* ANYUTF8 */
+	REG_ANY,		/* SANY */
+	REG_ANY,		/* SANYUTF8 */
 	ANYOF,		/* ANYOF */
+	ANYOF,		/* ANYOFUTF8 */
 	ALNUM,		/* ALNUM */
+	ALNUM,		/* ALNUMUTF8 */
 	ALNUM,		/* ALNUML */
+	ALNUM,		/* ALNUMLUTF8 */
 	NALNUM,		/* NALNUM */
+	NALNUM,		/* NALNUMUTF8 */
 	NALNUM,		/* NALNUML */
+	NALNUM,		/* NALNUMLUTF8 */
 	SPACE,		/* SPACE */
+	SPACE,		/* SPACEUTF8 */
 	SPACE,		/* SPACEL */
+	SPACE,		/* SPACELUTF8 */
 	NSPACE,		/* NSPACE */
+	NSPACE,		/* NSPACEUTF8 */
 	NSPACE,		/* NSPACEL */
+	NSPACE,		/* NSPACELUTF8 */
 	DIGIT,		/* DIGIT */
+	DIGIT,		/* DIGITUTF8 */
+	DIGIT,		/* DIGITL */
+	DIGIT,		/* DIGITLUTF8 */
 	NDIGIT,		/* NDIGIT */
+	NDIGIT,		/* NDIGITUTF8 */
+	NDIGIT,		/* NDIGITL */
+	NDIGIT,		/* NDIGITLUTF8 */
+	CLUMP,		/* CLUMP */
 	BRANCH,		/* BRANCH */
 	BACK,		/* BACK */
 	EXACT,		/* EXACT */
@@ -140,23 +184,45 @@ const static U8 regarglen[] = {
 	0,		/* MEOL */
 	0,		/* SEOL */
 	0,		/* BOUND */
+	0,		/* BOUNDUTF8 */
 	0,		/* BOUNDL */
+	0,		/* BOUNDLUTF8 */
 	0,		/* NBOUND */
+	0,		/* NBOUNDUTF8 */
 	0,		/* NBOUNDL */
+	0,		/* NBOUNDLUTF8 */
 	0,		/* GPOS */
-	0,		/* ANY */
+	0,		/* REG_ANY */
+	0,		/* ANYUTF8 */
 	0,		/* SANY */
+	0,		/* SANYUTF8 */
 	0,		/* ANYOF */
+	EXTRA_SIZE(struct regnode_1),		/* ANYOFUTF8 */
 	0,		/* ALNUM */
+	0,		/* ALNUMUTF8 */
 	0,		/* ALNUML */
+	0,		/* ALNUMLUTF8 */
 	0,		/* NALNUM */
+	0,		/* NALNUMUTF8 */
 	0,		/* NALNUML */
+	0,		/* NALNUMLUTF8 */
 	0,		/* SPACE */
+	0,		/* SPACEUTF8 */
 	0,		/* SPACEL */
+	0,		/* SPACELUTF8 */
 	0,		/* NSPACE */
+	0,		/* NSPACEUTF8 */
 	0,		/* NSPACEL */
+	0,		/* NSPACELUTF8 */
 	0,		/* DIGIT */
+	0,		/* DIGITUTF8 */
+	0,		/* DIGITL */
+	0,		/* DIGITLUTF8 */
 	0,		/* NDIGIT */
+	0,		/* NDIGITUTF8 */
+	0,		/* NDIGITL */
+	0,		/* NDIGITLUTF8 */
+	0,		/* CLUMP */
 	0,		/* BRANCH */
 	0,		/* BACK */
 	0,		/* EXACT */
@@ -201,23 +267,45 @@ const static char reg_off_by_arg[] = {
 	0,		/* MEOL */
 	0,		/* SEOL */
 	0,		/* BOUND */
+	0,		/* BOUNDUTF8 */
 	0,		/* BOUNDL */
+	0,		/* BOUNDLUTF8 */
 	0,		/* NBOUND */
+	0,		/* NBOUNDUTF8 */
 	0,		/* NBOUNDL */
+	0,		/* NBOUNDLUTF8 */
 	0,		/* GPOS */
-	0,		/* ANY */
+	0,		/* REG_ANY */
+	0,		/* ANYUTF8 */
 	0,		/* SANY */
+	0,		/* SANYUTF8 */
 	0,		/* ANYOF */
+	0,		/* ANYOFUTF8 */
 	0,		/* ALNUM */
+	0,		/* ALNUMUTF8 */
 	0,		/* ALNUML */
+	0,		/* ALNUMLUTF8 */
 	0,		/* NALNUM */
+	0,		/* NALNUMUTF8 */
 	0,		/* NALNUML */
+	0,		/* NALNUMLUTF8 */
 	0,		/* SPACE */
+	0,		/* SPACEUTF8 */
 	0,		/* SPACEL */
+	0,		/* SPACELUTF8 */
 	0,		/* NSPACE */
+	0,		/* NSPACEUTF8 */
 	0,		/* NSPACEL */
+	0,		/* NSPACELUTF8 */
 	0,		/* DIGIT */
+	0,		/* DIGITUTF8 */
+	0,		/* DIGITL */
+	0,		/* DIGITLUTF8 */
 	0,		/* NDIGIT */
+	0,		/* NDIGITUTF8 */
+	0,		/* NDIGITL */
+	0,		/* NDIGITLUTF8 */
+	0,		/* CLUMP */
 	0,		/* BRANCH */
 	0,		/* BACK */
 	0,		/* EXACT */
@@ -250,5 +338,93 @@ const static char reg_off_by_arg[] = {
 	1,		/* RENUM */
 	0,		/* OPTIMIZED */
 };
+
+#ifdef DEBUGGING
+const static char * const reg_name[] = {
+	"END",		/*    0 */
+	"SUCCEED",		/*  0x1 */
+	"BOL",		/*  0x2 */
+	"MBOL",		/*  0x3 */
+	"SBOL",		/*  0x4 */
+	"EOS",		/*  0x5 */
+	"EOL",		/*  0x6 */
+	"MEOL",		/*  0x7 */
+	"SEOL",		/*  0x8 */
+	"BOUND",		/*  0x9 */
+	"BOUNDUTF8",		/*  0xa */
+	"BOUNDL",		/*  0xb */
+	"BOUNDLUTF8",		/*  0xc */
+	"NBOUND",		/*  0xd */
+	"NBOUNDUTF8",		/*  0xe */
+	"NBOUNDL",		/*  0xf */
+	"NBOUNDLUTF8",		/* 0x10 */
+	"GPOS",		/* 0x11 */
+	"REG_ANY",		/* 0x12 */
+	"ANYUTF8",		/* 0x13 */
+	"SANY",		/* 0x14 */
+	"SANYUTF8",		/* 0x15 */
+	"ANYOF",		/* 0x16 */
+	"ANYOFUTF8",		/* 0x17 */
+	"ALNUM",		/* 0x18 */
+	"ALNUMUTF8",		/* 0x19 */
+	"ALNUML",		/* 0x1a */
+	"ALNUMLUTF8",		/* 0x1b */
+	"NALNUM",		/* 0x1c */
+	"NALNUMUTF8",		/* 0x1d */
+	"NALNUML",		/* 0x1e */
+	"NALNUMLUTF8",		/* 0x1f */
+	"SPACE",		/* 0x20 */
+	"SPACEUTF8",		/* 0x21 */
+	"SPACEL",		/* 0x22 */
+	"SPACELUTF8",		/* 0x23 */
+	"NSPACE",		/* 0x24 */
+	"NSPACEUTF8",		/* 0x25 */
+	"NSPACEL",		/* 0x26 */
+	"NSPACELUTF8",		/* 0x27 */
+	"DIGIT",		/* 0x28 */
+	"DIGITUTF8",		/* 0x29 */
+	"DIGITL",		/* 0x2a */
+	"DIGITLUTF8",		/* 0x2b */
+	"NDIGIT",		/* 0x2c */
+	"NDIGITUTF8",		/* 0x2d */
+	"NDIGITL",		/* 0x2e */
+	"NDIGITLUTF8",		/* 0x2f */
+	"CLUMP",		/* 0x30 */
+	"BRANCH",		/* 0x31 */
+	"BACK",		/* 0x32 */
+	"EXACT",		/* 0x33 */
+	"EXACTF",		/* 0x34 */
+	"EXACTFL",		/* 0x35 */
+	"NOTHING",		/* 0x36 */
+	"TAIL",		/* 0x37 */
+	"STAR",		/* 0x38 */
+	"PLUS",		/* 0x39 */
+	"CURLY",		/* 0x3a */
+	"CURLYN",		/* 0x3b */
+	"CURLYM",		/* 0x3c */
+	"CURLYX",		/* 0x3d */
+	"WHILEM",		/* 0x3e */
+	"OPEN",		/* 0x3f */
+	"CLOSE",		/* 0x40 */
+	"REF",		/* 0x41 */
+	"REFF",		/* 0x42 */
+	"REFFL",		/* 0x43 */
+	"IFMATCH",		/* 0x44 */
+	"UNLESSM",		/* 0x45 */
+	"SUSPEND",		/* 0x46 */
+	"IFTHEN",		/* 0x47 */
+	"GROUPP",		/* 0x48 */
+	"LONGJMP",		/* 0x49 */
+	"BRANCHJ",		/* 0x4a */
+	"EVAL",		/* 0x4b */
+	"MINMOD",		/* 0x4c */
+	"LOGICAL",		/* 0x4d */
+	"RENUM",		/* 0x4e */
+	"OPTIMIZED",		/* 0x4f */
+};
+
+const static int reg_num = 80;
+
+#endif /* DEBUGGING */
 #endif /* REG_COMP_C */