perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* parser.h
	2	*
	3	* Copyright (c) 2006, 2007, Larry Wall and others
	4	*
	5	* You may distribute under the terms of either the GNU General Public
	6	* License or the Artistic License, as specified in the README file.
	7	*
	8	* This file defines the layout of the parser object used by the parser
	9	* and lexer (perly.c, toke,c).
	10	*/
	11
	12	#define YYEMPTY (-2)
	13
	14	typedef struct {
	15	YYSTYPE val; /* semantic value */
	16	short state;
	17	I32 savestack_ix; /* size of savestack at this state */
	18	AV comppad; / value of PL_comppad when this value was created */
	19	#ifdef DEBUGGING
	20	const char name; / token/rule name for -Dpv */
	21	#endif
	22	} yy_stack_frame;
	23
	24	typedef struct yy_parser {
	25
	26	/* parser state */
	27
	28	struct yy_parser old_parser; / previous value of PL_parser */
	29	YYSTYPE yylval; /* value of lookahead symbol, set by yylex() */
	30	int yychar; /* The lookahead symbol. */
	31
	32	/* Number of tokens to shift before error messages enabled. */
	33	int yyerrstatus;
	34
	35	int stack_size;
	36	int yylen; /* length of active reduction */
	37	yy_stack_frame stack; / base of stack */
	38	yy_stack_frame ps; / current stack frame */
	39
	40	/* lexer state */
	41
	42	I32 lex_brackets; /* bracket count */
	43	I32 lex_casemods; /* casemod count */
	44	char lex_brackstack;/ what kind of brackets to pop */
	45	char lex_casestack; / what kind of case mods in effect */
	46	U8 lex_defer; /* state after determined token */
	47	bool lex_dojoin; /* doing an array interpolation */
	48	U8 lex_expect; /* expect after determined token */
	49	U8 expect; /* how to interpret ambiguous tokens */
	50	I32 lex_formbrack; /* bracket count at outer format level */
	51	OP lex_inpat; / in pattern $) and $\| are special */
	52	OP lex_op; / extra info to pass back on op */
	53	SV lex_repl; / runtime replacement from s/// */
	54	U16 lex_inwhat; /* what kind of quoting are we in */
	55	OPCODE last_lop_op; /* last list operator */
	56	I32 lex_starts; /* how many interps done on level */
	57	SV lex_stuff; / runtime pattern from m// or s/// */
	58	I32 multi_start; /* 1st line of multi-line string */
	59	I32 multi_end; /* last line of multi-line string */
	60	char multi_open; /* delimiter of said string */
	61	char multi_close; /* delimiter of said string */
	62	char pending_ident; /* pending identifier lookup */
	63	bool preambled;
	64	/* XXX I32 space */
	65	SUBLEXINFO sublex_info;
	66	SV linestr; / current chunk of src text */
	67	char *bufptr;
	68	char *oldbufptr;
	69	char *oldoldbufptr;
	70	char *bufend;
	71	char linestart; / beginning of most recently read line */
	72	char last_uni; / position of last named-unary op */
	73	char last_lop; / position of last list operator */
	74	line_t copline; /* current line number */
	75	U16 in_my; /* we're compiling a "my"/"our" declaration */
	76	U8 lex_state; /* next token is determined */
	77	U8 error_count; /* how many compile errors so far, max 10 */
	78	HV in_my_stash; / declared class of this "my" declaration */
	79	PerlIO rsfp; / current source file pointer */
	80	AV rsfp_filters; / holds chain of active source filters */
	81
	82	#ifdef PERL_MAD
	83	SV *endwhite;
	84	I32 faketokens;
	85	I32 lasttoke;
	86	SV *nextwhite;
	87	I32 realtokenstart;
	88	SV *skipwhite;
	89	SV *thisclose;
	90	MADPROP * thismad;
	91	SV *thisopen;
	92	SV *thisstuff;
	93	SV *thistoken;
	94	SV *thiswhite;
	95
	96	/* What we know when we're in LEX_KNOWNEXT state. */
	97	NEXTTOKE nexttoke[5]; /* value of next token, if any */
	98	I32 curforce;
	99	#else
	100	YYSTYPE nextval[5]; /* value of next token, if any */
	101	I32 nexttype[5]; /* type of next token */
	102	I32 nexttoke;
	103	#endif
	104
	105	COP saved_curcop; / the previous PL_curcop */
	106	char tokenbuf[256];
	107
	108	} yy_parser;
	109
	110	/*
	111	* Local variables:
	112	* c-indentation-style: bsd
	113	* c-basic-offset: 4
	114	* indent-tabs-mode: t
	115	* End:
	116	*
	117	* ex: set ts=8 sts=4 sw=4 noet:
	118	*/