function to parse Perl code block

New API function parse_block() parses a code block, including surrounding
braces.  The block is a lexical scope, but not inherently a dynamic scope.

1 files changed, 12 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index 2b34f7d782..a70122d101 100644
--- a/perly.y
+++ b/perly.y
@@ -69,7 +69,7 @@
 #endif
 }
 
-%token <ival> GRAMPROG GRAMFULLSTMT GRAMSTMTSEQ
+%token <ival> GRAMPROG GRAMBLOCK GRAMFULLSTMT GRAMSTMTSEQ
 
 %token <i_tkval> '{' '}' '[' ']' '-' '+' '$' '@' '%' '*' '&' ';'
 
@@ -143,6 +143,17 @@
 /* Top-level choice of what kind of thing yyparse was called to parse */
 grammar	:	GRAMPROG prog
 			{ $$ = $2; }
+	|	GRAMBLOCK
+			{
+			  parser->expect = XBLOCK;
+			}
+		block
+			{
+			  PL_eval_root = $3;
+			  $$ = 0;
+			  yyunlex();
+			  parser->yychar = YYEOF;
+			}
 	|	GRAMFULLSTMT
 			{
 			  parser->expect = XSTATE;