usr.bin/perl/perly.y

96 %type <ival> grammar remember mremember
165 		remember stmtseq
167 			  newPROG(block_end($remember,$stmtseq));
251 block	:	PERLY_BRACE_OPEN remember stmtseq PERLY_BRACE_CLOSE
254 			  $$ = block_end($remember, $stmtseq);
263 formblock:	PERLY_EQUAL_SIGN remember PERLY_SEMICOLON FORMRBRACK formstmtseq PERLY_SEMICOLON PERLY_D…
266 			  $$ = block_end($remember, $formstmtseq);
270 remember:	%empty	/* start a full lexical scope */
464 	|	KW_IF PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock else
466 			  $$ = block_end($remember,
470 	|	KW_UNLESS PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock else
472 			  $$ = block_end($remember,
476 	|	KW_GIVEN PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock
478 			  $$ = block_end($remember, newGIVENOP($mexpr, op_scope($mblock), 0));
481 	|	KW_WHEN PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock
482 			{ $$ = block_end($remember, newWHENOP($mexpr, op_scope($mblock))); }
485 	|	KW_WHILE PERLY_PAREN_OPEN remember texpr PERLY_PAREN_CLOSE mintro mblock cont
487 			  $$ = block_end($remember,
492 	|	KW_UNTIL PERLY_PAREN_OPEN remember iexpr PERLY_PAREN_CLOSE mintro mblock cont
494 			  $$ = block_end($remember,
499 	|	KW_FOR PERLY_PAREN_OPEN remember mnexpr[init_mnexpr] PERLY_SEMICOLON
516 			  $$ = block_end($remember, forop);
519 	|	KW_FOR KW_MY remember my_scalar PERLY_PAREN_OPEN mexpr PERLY_PAREN_CLOSE mblock cont
521 			  $$ = block_end($remember, newFOROP(0, $my_scalar, $mexpr, $mblock, $cont));
524 …|	KW_FOR KW_MY remember PERLY_PAREN_OPEN my_list_of_scalars PERLY_PAREN_CLOSE PERLY_PAREN_OPEN mex…
530 			  $$ = block_end($remember, newFOROP(0, $my_list_of_scalars, $mexpr, $mblock, $cont));
533 	|	KW_FOR scalar PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock cont
535 			  $$ = block_end($remember, newFOROP(0,
539 	|	KW_FOR my_refgen remember my_var
544 				$remember,
554 	|	KW_FOR REFGEN refgen_topic PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock cont
556 			  $$ = block_end($remember, newFOROP(
562 	|	KW_FOR PERLY_PAREN_OPEN remember mexpr PERLY_PAREN_CLOSE mblock cont
564 			  $$ = block_end($remember,
568 	|       KW_TRY mblock[try] KW_CATCH remember catch_paren[scalar]
578 				  $try, $scalar, block_end($remember, op_scope($catch)));
589 	|	KW_PACKAGE BAREWORD[version] BAREWORD[package] PERLY_BRACE_OPEN remember
600 				  NULL, block_end($remember, $stmtseq), NULL, 0);
604 	|	KW_CLASS BAREWORD[version] BAREWORD[package] subattrlist PERLY_BRACE_OPEN remember
620 				  NULL, block_end($remember, $stmtseq), NULL, 0);
1042 subbody:	remember  PERLY_BRACE_OPEN stmtseq PERLY_BRACE_CLOSE
1046 			  $$ = block_end($remember, $stmtseq);
1059 sigsubbody:	remember optsubsignature PERLY_BRACE_OPEN
1065 			  $$ = block_end($remember,