Context Navigation

perly.y @ 14545

Visit:

Revision 14545, 16.9 KB checked in by ghudson, 24 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.

Rev	Line
[10723]	1	/* perly.y
[9008]	2	*
[14544]	3	* Copyright (c) 1991-2000, Larry Wall
[9008]	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	*/
	9
[10723]	10	/*
	11	* 'I see,' laughed Strider. 'I look foul and feel fair. Is that it?
	12	* All that is gold does not glitter, not all those who wander are lost.'
	13	*/
	14
[9008]	15	%{
[10723]	16	#include "EXTERN.h"
[14544]	17	#define PERL_IN_PERLY_C
[9008]	18	#include "perl.h"
	19
[14544]	20	#define dep() deprecate("\"do\" to call subroutines")
[9008]	21
[14544]	22	/* stuff included here to make perly_c.diff apply better */
	23
	24	#define yydebug PL_yydebug
	25	#define yynerrs PL_yynerrs
	26	#define yyerrflag PL_yyerrflag
	27	#define yychar PL_yychar
	28	#define yyval PL_yyval
	29	#define yylval PL_yylval
	30
	31	struct ysv {
	32	short* yyss;
	33	YYSTYPE* yyvs;
	34	int oldyydebug;
	35	int oldyynerrs;
	36	int oldyyerrflag;
	37	int oldyychar;
	38	YYSTYPE oldyyval;
	39	YYSTYPE oldyylval;
	40	};
	41
	42	static void yydestruct(pTHXo_ void *ptr);
	43
[9008]	44	%}
	45
	46	%start prog
	47
[14544]	48	%{
	49	#if 0 /* get this from perly.h instead */
	50	%}
	51
[9008]	52	%union {
[10723]	53	I32 ival;
	54	char *pval;
	55	OP *opval;
	56	GV *gvval;
[9008]	57	}
	58
[14544]	59	%{
	60	#endif /* 0 */
[9008]	61
[14544]	62	#ifdef USE_PURE_BISON
	63	#define YYLEX_PARAM (&yychar)
	64	#endif
	65
	66	%}
	67
	68	%token <ival> '{'
	69
[10723]	70	%token <opval> WORD METHOD FUNCMETH THING PMFUNC PRIVATEREF
	71	%token <opval> FUNC0SUB UNIOPSUB LSTOPSUB
	72	%token <pval> LABEL
	73	%token <ival> FORMAT SUB ANONSUB PACKAGE USE
	74	%token <ival> WHILE UNTIL IF UNLESS ELSE ELSIF CONTINUE FOR
	75	%token <ival> LOOPEX DOTDOT
	76	%token <ival> FUNC0 FUNC1 FUNC UNIOP LSTOP
	77	%token <ival> RELOP EQOP MULOP ADDOP
	78	%token <ival> DOLSHARP DO HASHBRACK NOAMP
[14544]	79	%token <ival> LOCAL MY MYSUB
	80	%token COLONATTR
[9008]	81
[14544]	82	%type <ival> prog decl format startsub startanonsub startformsub
[10723]	83	%type <ival> remember mremember '&'
	84	%type <opval> block mblock lineseq line loop cond else
[14544]	85	%type <opval> expr term subscripted scalar ary hsh arylen star amper sideff
[10723]	86	%type <opval> argexpr nexpr texpr iexpr mexpr mnexpr mtexpr miexpr
	87	%type <opval> listexpr listexprcom indirob listop method
	88	%type <opval> formname subname proto subbody cont my_scalar
[14544]	89	%type <opval> subattrlist myattrlist mysubrout myattrterm myterm
[10723]	90	%type <pval> label
[9008]	91
[14544]	92	%nonassoc PREC_LOW
	93	%nonassoc LOOPEX
	94
[10723]	95	%left <ival> OROP
	96	%left ANDOP
	97	%right NOTOP
	98	%nonassoc LSTOP LSTOPSUB
[9008]	99	%left ','
[10723]	100	%right <ival> ASSIGNOP
[9008]	101	%right '?' ':'
	102	%nonassoc DOTDOT
	103	%left OROR
	104	%left ANDAND
[10723]	105	%left <ival> BITOROP
	106	%left <ival> BITANDOP
[9008]	107	%nonassoc EQOP
	108	%nonassoc RELOP
[10723]	109	%nonassoc UNIOP UNIOPSUB
	110	%left <ival> SHIFTOP
[9008]	111	%left ADDOP
	112	%left MULOP
[10723]	113	%left <ival> MATCHOP
	114	%right '!' '~' UMINUS REFGEN
	115	%right <ival> POWOP
	116	%nonassoc PREINC PREDEC POSTINC POSTDEC
	117	%left ARROW
[14544]	118	%nonassoc <ival> ')'
[9008]	119	%left '('
[14544]	120	%left '[' '{'
[9008]	121
	122	%% /* RULES */
	123
	124	prog : /* NULL */
	125	{
	126	#if defined(YYDEBUG) && defined(DEBUGGING)
[14544]	127	yydebug = (PL_debug & 1);
[9008]	128	#endif
[14544]	129	PL_expect = XSTATE;
[9008]	130	}
	131	/CONTINUED/ lineseq
[10723]	132	{ newPROG($2); }
[9008]	133	;
	134
[10723]	135	block : '{' remember lineseq '}'
[14544]	136	{ if (PL_copline > (line_t)$1)
	137	PL_copline = $1;
[10723]	138	$$ = block_end($2, $3); }
[9008]	139	;
	140
[10723]	141	remember: /* NULL / / start a full lexical scope */
	142	{ $$ = block_start(TRUE); }
[9008]	143	;
	144
[10723]	145	mblock : '{' mremember lineseq '}'
[14544]	146	{ if (PL_copline > (line_t)$1)
	147	PL_copline = $1;
[10723]	148	$$ = block_end($2, $3); }
[9008]	149	;
	150
[10723]	151	mremember: /* NULL / / start a partial lexical scope */
	152	{ $$ = block_start(FALSE); }
[9008]	153	;
	154
	155	lineseq : /* NULL */
[10723]	156	{ $$ = Nullop; }
	157	\| lineseq decl
	158	{ $$ = $1; }
[9008]	159	\| lineseq line
[10723]	160	{ $$ = append_list(OP_LINESEQ,
	161	(LISTOP)$1, (LISTOP)$2);
[14544]	162	PL_pad_reset_pending = TRUE;
	163	if ($1 && $2) PL_hints \|= HINT_BLOCK_SCOPE; }
[9008]	164	;
	165
[10723]	166	line : label cond
	167	{ $$ = newSTATEOP(0, $1, $2); }
[9008]	168	\| loop /* loops add their own labels */
	169	\| label ';'
	170	{ if ($1 != Nullch) {
[10723]	171	$$ = newSTATEOP(0, $1, newOP(OP_NULL, 0));
[9008]	172	}
	173	else {
[10723]	174	$$ = Nullop;
[14544]	175	PL_copline = NOLINE;
[9008]	176	}
[14544]	177	PL_expect = XSTATE; }
[9008]	178	\| label sideff ';'
[10723]	179	{ $$ = newSTATEOP(0, $1, $2);
[14544]	180	PL_expect = XSTATE; }
[9008]	181	;
	182
	183	sideff : error
[10723]	184	{ $$ = Nullop; }
[9008]	185	\| expr
[10723]	186	{ $$ = $1; }
[9008]	187	\| expr IF expr
[10723]	188	{ $$ = newLOGOP(OP_AND, 0, $3, $1); }
[9008]	189	\| expr UNLESS expr
[10723]	190	{ $$ = newLOGOP(OP_OR, 0, $3, $1); }
[9008]	191	\| expr WHILE expr
[10723]	192	{ $$ = newLOOPOP(OPf_PARENS, 1, scalar($3), $1); }
	193	\| expr UNTIL iexpr
	194	{ $$ = newLOOPOP(OPf_PARENS, 1, $3, $1);}
[14544]	195	\| expr FOR expr
	196	{ $$ = newFOROP(0, Nullch, $2,
	197	Nullop, $3, $1, Nullop); }
[9008]	198	;
	199
[10723]	200	else : /* NULL */
	201	{ $$ = Nullop; }
	202	\| ELSE mblock
[14544]	203	{ ($2)->op_flags \|= OPf_PARENS; $$ = scope($2); }
[10723]	204	\| ELSIF '(' mexpr ')' mblock else
[14544]	205	{ PL_copline = $1;
	206	$$ = newCONDOP(0, $3, scope($5), $6);
	207	PL_hints \|= HINT_BLOCK_SCOPE; }
[9008]	208	;
	209
[10723]	210	cond : IF '(' remember mexpr ')' mblock else
[14544]	211	{ PL_copline = $1;
[10723]	212	$$ = block_end($3,
	213	newCONDOP(0, $4, scope($6), $7)); }
	214	\| UNLESS '(' remember miexpr ')' mblock else
[14544]	215	{ PL_copline = $1;
[10723]	216	$$ = block_end($3,
	217	newCONDOP(0, $4, scope($6), $7)); }
	218	;
	219
	220	cont : /* NULL */
	221	{ $$ = Nullop; }
	222	\| CONTINUE block
	223	{ $$ = scope($2); }
	224	;
	225
	226	loop : label WHILE '(' remember mtexpr ')' mblock cont
[14544]	227	{ PL_copline = $2;
[10723]	228	$$ = block_end($4,
	229	newSTATEOP(0, $1,
	230	newWHILEOP(0, 1, (LOOP*)Nullop,
	231	$2, $5, $7, $8))); }
	232	\| label UNTIL '(' remember miexpr ')' mblock cont
[14544]	233	{ PL_copline = $2;
[10723]	234	$$ = block_end($4,
	235	newSTATEOP(0, $1,
	236	newWHILEOP(0, 1, (LOOP*)Nullop,
	237	$2, $5, $7, $8))); }
	238	\| label FOR MY remember my_scalar '(' mexpr ')' mblock cont
	239	{ $$ = block_end($4,
	240	newFOROP(0, $1, $2, $5, $7, $9, $10)); }
	241	\| label FOR scalar '(' remember mexpr ')' mblock cont
	242	{ $$ = block_end($5,
	243	newFOROP(0, $1, $2, mod($3, OP_ENTERLOOP),
	244	$6, $8, $9)); }
	245	\| label FOR '(' remember mexpr ')' mblock cont
	246	{ $$ = block_end($4,
	247	newFOROP(0, $1, $2, Nullop, $5, $7, $8)); }
	248	\| label FOR '(' remember mnexpr ';' mtexpr ';' mnexpr ')' mblock
[9008]	249	/* basically fake up an initialize-while lineseq */
[10723]	250	{ OP *forop = append_elem(OP_LINESEQ,
	251	scalar($5),
	252	newWHILEOP(0, 1, (LOOP*)Nullop,
	253	$2, scalar($7),
	254	$11, scalar($9)));
[14544]	255	PL_copline = $2;
[10723]	256	$$ = block_end($4, newSTATEOP(0, $1, forop)); }
	257	\| label block cont /* a block is a loop that happens once */
	258	{ $$ = newSTATEOP(0, $1,
	259	newWHILEOP(0, 1, (LOOP*)Nullop,
	260	NOLINE, Nullop, $2, $3)); }
[9008]	261	;
	262
	263	nexpr : /* NULL */
[10723]	264	{ $$ = Nullop; }
[9008]	265	\| sideff
	266	;
	267
	268	texpr : /* NULL means true */
[10723]	269	{ (void)scan_num("1"); $$ = yylval.opval; }
[9008]	270	\| expr
	271	;
	272
[10723]	273	iexpr : expr
	274	{ $$ = invert(scalar($1)); }
	275	;
	276
	277	mexpr : expr
	278	{ $$ = $1; intro_my(); }
	279	;
	280
	281	mnexpr : nexpr
	282	{ $$ = $1; intro_my(); }
	283	;
	284
	285	mtexpr : texpr
	286	{ $$ = $1; intro_my(); }
	287	;
	288
	289	miexpr : iexpr
	290	{ $$ = $1; intro_my(); }
	291	;
	292
[9008]	293	label : /* empty */
	294	{ $$ = Nullch; }
	295	\| LABEL
	296	;
	297
	298	decl : format
	299	{ $$ = 0; }
	300	\| subrout
	301	{ $$ = 0; }
[14544]	302	\| mysubrout
	303	{ $$ = 0; }
[9008]	304	\| package
	305	{ $$ = 0; }
[10723]	306	\| use
	307	{ $$ = 0; }
[9008]	308	;
	309
[10723]	310	format : FORMAT startformsub formname block
	311	{ newFORM($2, $3, $4); }
[9008]	312	;
	313
[10723]	314	formname: WORD { $$ = $1; }
	315	\| /* NULL */ { $$ = Nullop; }
[9008]	316	;
	317
[14544]	318	mysubrout: MYSUB startsub subname proto subattrlist subbody
	319	{ newMYSUB($2, $3, $4, $5, $6); }
[10723]	320	;
[9008]	321
[14544]	322	subrout : SUB startsub subname proto subattrlist subbody
	323	{ newATTRSUB($2, $3, $4, $5, $6); }
	324	;
	325
[10723]	326	startsub: /* NULL / / start a regular subroutine scope */
	327	{ $$ = start_subparse(FALSE, 0); }
[9008]	328	;
	329
[10723]	330	startanonsub: /* NULL / / start an anonymous subroutine scope */
	331	{ $$ = start_subparse(FALSE, CVf_ANON); }
[9008]	332	;
	333
[10723]	334	startformsub: /* NULL / / start a format subroutine scope */
	335	{ $$ = start_subparse(TRUE, 0); }
[9008]	336	;
	337
[14544]	338	subname : WORD { STRLEN n_a; char name = SvPV(((SVOP)$1)->op_sv,n_a);
	339	if (strEQ(name, "BEGIN") \|\| strEQ(name, "END")
	340	\|\| strEQ(name, "INIT") \|\| strEQ(name, "CHECK"))
	341	CvSPECIAL_on(PL_compcv);
[10723]	342	$$ = $1; }
[9008]	343	;
	344
[10723]	345	proto : /* NULL */
	346	{ $$ = Nullop; }
	347	\| THING
	348	;
[9008]	349
[14544]	350	subattrlist: /* NULL */
	351	{ $$ = Nullop; }
	352	\| COLONATTR THING
	353	{ $$ = $2; }
	354	\| COLONATTR
	355	{ $$ = Nullop; }
	356	;
	357
	358	myattrlist: COLONATTR THING
	359	{ $$ = $2; }
	360	\| COLONATTR
	361	{ $$ = Nullop; }
	362	;
	363
[10723]	364	subbody : block { $$ = $1; }
[14544]	365	\| ';' { $$ = Nullop; PL_expect = XSTATE; }
[10723]	366	;
[9008]	367
[10723]	368	package : PACKAGE WORD ';'
	369	{ package($2); }
	370	\| PACKAGE ';'
	371	{ package(Nullop); }
	372	;
	373
	374	use : USE startsub
[14544]	375	{ CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
[10723]	376	WORD WORD listexpr ';'
	377	{ utilize($1, $2, $4, $5, $6); }
	378	;
	379
	380	expr : expr ANDOP expr
	381	{ $$ = newLOGOP(OP_AND, 0, $1, $3); }
	382	\| expr OROP expr
	383	{ $$ = newLOGOP($2, 0, $1, $3); }
[14544]	384	\| argexpr %prec PREC_LOW
[10723]	385	;
	386
	387	argexpr : argexpr ','
[9008]	388	{ $$ = $1; }
[10723]	389	\| argexpr ',' term
	390	{ $$ = append_elem(OP_LIST, $1, $3); }
[14544]	391	\| term %prec PREC_LOW
[9008]	392	;
	393
[10723]	394	listop : LSTOP indirob argexpr
	395	{ $$ = convert($1, OPf_STACKED,
	396	prepend_elem(OP_LIST, newGVREF($1,$2), $3) ); }
	397	\| FUNC '(' indirob expr ')'
	398	{ $$ = convert($1, OPf_STACKED,
	399	prepend_elem(OP_LIST, newGVREF($1,$3), $4) ); }
	400	\| term ARROW method '(' listexprcom ')'
	401	{ $$ = convert(OP_ENTERSUB, OPf_STACKED,
	402	append_elem(OP_LIST,
	403	prepend_elem(OP_LIST, scalar($1), $5),
	404	newUNOP(OP_METHOD, 0, $3))); }
[14544]	405	\| term ARROW method
	406	{ $$ = convert(OP_ENTERSUB, OPf_STACKED,
	407	append_elem(OP_LIST, scalar($1),
	408	newUNOP(OP_METHOD, 0, $3))); }
[10723]	409	\| METHOD indirob listexpr
	410	{ $$ = convert(OP_ENTERSUB, OPf_STACKED,
	411	append_elem(OP_LIST,
	412	prepend_elem(OP_LIST, $2, $3),
	413	newUNOP(OP_METHOD, 0, $1))); }
	414	\| FUNCMETH indirob '(' listexprcom ')'
	415	{ $$ = convert(OP_ENTERSUB, OPf_STACKED,
	416	append_elem(OP_LIST,
	417	prepend_elem(OP_LIST, $2, $4),
	418	newUNOP(OP_METHOD, 0, $1))); }
	419	\| LSTOP listexpr
	420	{ $$ = convert($1, 0, $2); }
	421	\| FUNC '(' listexprcom ')'
	422	{ $$ = convert($1, 0, $3); }
	423	\| LSTOPSUB startanonsub block
[14544]	424	{ $3 = newANONATTRSUB($2, 0, Nullop, $3); }
[10723]	425	listexpr %prec LSTOP
	426	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	427	append_elem(OP_LIST,
	428	prepend_elem(OP_LIST, $3, $5), $1)); }
	429	;
	430
	431	method : METHOD
	432	\| scalar
	433	;
	434
[14544]	435	subscripted: star '{' expr ';' '}'
	436	{ $$ = newBINOP(OP_GELEM, 0, $1, scalar($3)); }
	437	\| scalar '[' expr ']'
	438	{ $$ = newBINOP(OP_AELEM, 0, oopsAV($1), scalar($3)); }
	439	\| term ARROW '[' expr ']'
	440	{ $$ = newBINOP(OP_AELEM, 0,
	441	ref(newAVREF($1),OP_RV2AV),
	442	scalar($4));}
	443	\| subscripted '[' expr ']'
	444	{ $$ = newBINOP(OP_AELEM, 0,
	445	ref(newAVREF($1),OP_RV2AV),
	446	scalar($3));}
	447	\| scalar '{' expr ';' '}'
	448	{ $$ = newBINOP(OP_HELEM, 0, oopsHV($1), jmaybe($3));
	449	PL_expect = XOPERATOR; }
	450	\| term ARROW '{' expr ';' '}'
	451	{ $$ = newBINOP(OP_HELEM, 0,
	452	ref(newHVREF($1),OP_RV2HV),
	453	jmaybe($4));
	454	PL_expect = XOPERATOR; }
	455	\| subscripted '{' expr ';' '}'
	456	{ $$ = newBINOP(OP_HELEM, 0,
	457	ref(newHVREF($1),OP_RV2HV),
	458	jmaybe($3));
	459	PL_expect = XOPERATOR; }
	460	\| term ARROW '(' ')'
	461	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	462	newCVREF(0, scalar($1))); }
	463	\| term ARROW '(' expr ')'
	464	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	465	append_elem(OP_LIST, $4,
	466	newCVREF(0, scalar($1)))); }
	467
	468	\| subscripted '(' expr ')'
	469	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	470	append_elem(OP_LIST, $3,
	471	newCVREF(0, scalar($1)))); }
	472	\| subscripted '(' ')'
	473	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	474	newCVREF(0, scalar($1))); }
	475
	476
	477
[10723]	478	term : term ASSIGNOP term
	479	{ $$ = newASSIGNOP(OPf_STACKED, $1, $2, $3); }
	480	\| term POWOP term
	481	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	482	\| term MULOP term
	483	{ if ($2 != OP_REPEAT)
	484	scalar($1);
	485	$$ = newBINOP($2, 0, $1, scalar($3)); }
	486	\| term ADDOP term
	487	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	488	\| term SHIFTOP term
	489	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	490	\| term RELOP term
	491	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	492	\| term EQOP term
	493	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	494	\| term BITANDOP term
	495	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	496	\| term BITOROP term
	497	{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
	498	\| term DOTDOT term
	499	{ $$ = newRANGE($2, scalar($1), scalar($3));}
	500	\| term ANDAND term
	501	{ $$ = newLOGOP(OP_AND, 0, $1, $3); }
	502	\| term OROR term
	503	{ $$ = newLOGOP(OP_OR, 0, $1, $3); }
	504	\| term '?' term ':' term
	505	{ $$ = newCONDOP(0, $1, $3, $5); }
	506	\| term MATCHOP term
	507	{ $$ = bind_match($2, $1, $3); }
	508
	509	\| '-' term %prec UMINUS
	510	{ $$ = newUNOP(OP_NEGATE, 0, scalar($2)); }
[9008]	511	\| '+' term %prec UMINUS
	512	{ $$ = $2; }
	513	\| '!' term
[10723]	514	{ $$ = newUNOP(OP_NOT, 0, scalar($2)); }
[9008]	515	\| '~' term
[10723]	516	{ $$ = newUNOP(OP_COMPLEMENT, 0, scalar($2));}
	517	\| REFGEN term
	518	{ $$ = newUNOP(OP_REFGEN, 0, mod($2,OP_REFGEN)); }
	519	\| term POSTINC
	520	{ $$ = newUNOP(OP_POSTINC, 0,
	521	mod(scalar($1), OP_POSTINC)); }
	522	\| term POSTDEC
	523	{ $$ = newUNOP(OP_POSTDEC, 0,
	524	mod(scalar($1), OP_POSTDEC)); }
	525	\| PREINC term
	526	{ $$ = newUNOP(OP_PREINC, 0,
	527	mod(scalar($2), OP_PREINC)); }
	528	\| PREDEC term
	529	{ $$ = newUNOP(OP_PREDEC, 0,
	530	mod(scalar($2), OP_PREDEC)); }
[14544]	531	\| myattrterm %prec UNIOP
	532	{ $$ = $1; }
	533	\| LOCAL term %prec UNIOP
[10723]	534	{ $$ = localize($2,$1); }
	535	\| '(' expr ')'
	536	{ $$ = sawparens($2); }
[9008]	537	\| '(' ')'
[10723]	538	{ $$ = sawparens(newNULLLIST()); }
[14544]	539	\| '[' expr ']'
[10723]	540	{ $$ = newANONLIST($2); }
[14544]	541	\| '[' ']'
[10723]	542	{ $$ = newANONLIST(Nullop); }
	543	\| HASHBRACK expr ';' '}' %prec '('
	544	{ $$ = newANONHASH($2); }
	545	\| HASHBRACK ';' '}' %prec '('
	546	{ $$ = newANONHASH(Nullop); }
[14544]	547	\| ANONSUB startanonsub proto subattrlist block %prec '('
	548	{ $$ = newANONATTRSUB($2, $3, $4, $5); }
[10723]	549	\| scalar %prec '('
[9008]	550	{ $$ = $1; }
[10723]	551	\| star %prec '('
[9008]	552	{ $$ = $1; }
[10723]	553	\| hsh %prec '('
[9008]	554	{ $$ = $1; }
[10723]	555	\| ary %prec '('
[9008]	556	{ $$ = $1; }
[10723]	557	\| arylen %prec '('
	558	{ $$ = newUNOP(OP_AV2ARYLEN, 0, ref($1, OP_AV2ARYLEN));}
[14544]	559	\| subscripted
	560	{ $$ = $1; }
	561	\| '(' expr ')' '[' expr ']'
[10723]	562	{ $$ = newSLICEOP(0, $5, $2); }
[14544]	563	\| '(' ')' '[' expr ']'
[10723]	564	{ $$ = newSLICEOP(0, $4, Nullop); }
[14544]	565	\| ary '[' expr ']'
[10723]	566	{ $$ = prepend_elem(OP_ASLICE,
	567	newOP(OP_PUSHMARK, 0),
	568	newLISTOP(OP_ASLICE, 0,
	569	list($3),
	570	ref($1, OP_ASLICE))); }
[14544]	571	\| ary '{' expr ';' '}'
[10723]	572	{ $$ = prepend_elem(OP_HSLICE,
	573	newOP(OP_PUSHMARK, 0),
	574	newLISTOP(OP_HSLICE, 0,
	575	list($3),
	576	ref(oopsHV($1), OP_HSLICE)));
[14544]	577	PL_expect = XOPERATOR; }
[10723]	578	\| THING %prec '('
	579	{ $$ = $1; }
	580	\| amper
	581	{ $$ = newUNOP(OP_ENTERSUB, 0, scalar($1)); }
	582	\| amper '(' ')'
	583	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar($1)); }
	584	\| amper '(' expr ')'
	585	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	586	append_elem(OP_LIST, $3, scalar($1))); }
	587	\| NOAMP WORD listexpr
	588	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	589	append_elem(OP_LIST, $3, scalar($2))); }
	590	\| DO term %prec UNIOP
[14544]	591	{ $$ = dofile($2); }
[10723]	592	\| DO block %prec '('
	593	{ $$ = newUNOP(OP_NULL, OPf_SPECIAL, scope($2)); }
[9008]	594	\| DO WORD '(' ')'
[10723]	595	{ $$ = newUNOP(OP_ENTERSUB,
	596	OPf_SPECIAL\|OPf_STACKED,
	597	prepend_elem(OP_LIST,
	598	scalar(newCVREF(
	599	(OPpENTERSUB_AMPER<<8),
	600	scalar($2)
	601	)),Nullop)); dep();}
	602	\| DO WORD '(' expr ')'
	603	{ $$ = newUNOP(OP_ENTERSUB,
	604	OPf_SPECIAL\|OPf_STACKED,
	605	append_elem(OP_LIST,
	606	$4,
	607	scalar(newCVREF(
	608	(OPpENTERSUB_AMPER<<8),
	609	scalar($2)
	610	)))); dep();}
	611	\| DO scalar '(' ')'
	612	{ $$ = newUNOP(OP_ENTERSUB, OPf_SPECIAL\|OPf_STACKED,
	613	prepend_elem(OP_LIST,
	614	scalar(newCVREF(0,scalar($2))), Nullop)); dep();}
	615	\| DO scalar '(' expr ')'
	616	{ $$ = newUNOP(OP_ENTERSUB, OPf_SPECIAL\|OPf_STACKED,
	617	prepend_elem(OP_LIST,
	618	$4,
	619	scalar(newCVREF(0,scalar($2))))); dep();}
[9008]	620	\| LOOPEX
[10723]	621	{ $$ = newOP($1, OPf_SPECIAL);
[14544]	622	PL_hints \|= HINT_BLOCK_SCOPE; }
[10723]	623	\| LOOPEX term
	624	{ $$ = newLOOPEX($1,$2); }
	625	\| NOTOP argexpr
	626	{ $$ = newUNOP(OP_NOT, 0, scalar($2)); }
[9008]	627	\| UNIOP
[10723]	628	{ $$ = newOP($1, 0); }
[9008]	629	\| UNIOP block
[10723]	630	{ $$ = newUNOP($1, 0, $2); }
	631	\| UNIOP term
	632	{ $$ = newUNOP($1, 0, $2); }
	633	\| UNIOPSUB term
	634	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	635	append_elem(OP_LIST, $2, scalar($1))); }
[9008]	636	\| FUNC0
[10723]	637	{ $$ = newOP($1, 0); }
[9008]	638	\| FUNC0 '(' ')'
[10723]	639	{ $$ = newOP($1, 0); }
	640	\| FUNC0SUB
	641	{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
	642	scalar($1)); }
[9008]	643	\| FUNC1 '(' ')'
[10723]	644	{ $$ = newOP($1, OPf_SPECIAL); }
[9008]	645	\| FUNC1 '(' expr ')'
[10723]	646	{ $$ = newUNOP($1, 0, $3); }
	647	\| PMFUNC '(' term ')'
	648	{ $$ = pmruntime($1, $3, Nullop); }
	649	\| PMFUNC '(' term ',' term ')'
	650	{ $$ = pmruntime($1, $3, $5); }
	651	\| WORD
[9008]	652	\| listop
	653	;
	654
[14544]	655	myattrterm: MY myterm myattrlist
	656	{ $$ = my_attrs($2,$3); }
	657	\| MY myterm
	658	{ $$ = localize($2,$1); }
	659	;
	660
	661	myterm : '(' expr ')'
	662	{ $$ = sawparens($2); }
	663	\| '(' ')'
	664	{ $$ = sawparens(newNULLLIST()); }
	665	\| scalar %prec '('
	666	{ $$ = $1; }
	667	\| hsh %prec '('
	668	{ $$ = $1; }
	669	\| ary %prec '('
	670	{ $$ = $1; }
	671	;
	672
	673	listexpr: /* NULL */ %prec PREC_LOW
[10723]	674	{ $$ = Nullop; }
[14544]	675	\| argexpr %prec PREC_LOW
[10723]	676	{ $$ = $1; }
[9008]	677	;
	678
[10723]	679	listexprcom: /* NULL */
	680	{ $$ = Nullop; }
	681	\| expr
	682	{ $$ = $1; }
	683	\| expr ','
	684	{ $$ = $1; }
[9008]	685	;
	686
[10723]	687	my_scalar: scalar
[14544]	688	{ PL_in_my = 0; $$ = my($1); }
[9008]	689	;
	690
[10723]	691	amper : '&' indirob
	692	{ $$ = newCVREF($1,$2); }
[9008]	693	;
	694
[10723]	695	scalar : '$' indirob
	696	{ $$ = newSVREF($2); }
	697	;
[9008]	698
[10723]	699	ary : '@' indirob
	700	{ $$ = newAVREF($2); }
	701	;
	702
	703	hsh : '%' indirob
	704	{ $$ = newHVREF($2); }
	705	;
	706
	707	arylen : DOLSHARP indirob
	708	{ $$ = newAVREF($2); }
	709	;
	710
	711	star : '*' indirob
	712	{ $$ = newGVREF(0,$2); }
	713	;
	714
	715	indirob : WORD
	716	{ $$ = scalar($1); }
[14544]	717	\| scalar %prec PREC_LOW
[10723]	718	{ $$ = scalar($1); }
	719	\| block
	720	{ $$ = scope($1); }
	721
	722	\| PRIVATEREF
	723	{ $$ = $1; }
	724	;
	725
[9008]	726	%% /* PROGRAM */
[14544]	727
	728	/* more stuff added to make perly_c.diff easier to apply */
	729
	730	#ifdef yyparse
	731	#undef yyparse
	732	#endif
	733	#define yyparse() Perl_yyparse(pTHX)
	734

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format