This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
function to parse Perl code block
authorZefram <zefram@fysh.org>
Fri, 15 Oct 2010 12:11:54 +0000 (13:11 +0100)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 21 Oct 2010 12:54:01 +0000 (05:54 -0700)
New API function parse_block() parses a code block, including surrounding
braces.  The block is a lexical scope, but not inherently a dynamic scope.

14 files changed:
MANIFEST
embed.fnc
embed.h
ext/XS-APItest/APItest.pm
ext/XS-APItest/APItest.xs
ext/XS-APItest/t/blockasexpr.t [new file with mode: 0644]
ext/XS-APItest/t/loopblock.t [new file with mode: 0644]
global.sym
perly.act
perly.h
perly.tab
perly.y
proto.h
toke.c

index 0bda0de..ba2c4b7 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -3384,6 +3384,7 @@ ext/XS-APItest/notcore.c  Test API functions when PERL_CORE is not defined
 ext/XS-APItest/numeric.xs      XS::APItest wrappers for numeric.c
 ext/XS-APItest/README          XS::APItest extension
 ext/XS-APItest/t/BHK.pm                Helper for ./blockhooks.t
+ext/XS-APItest/t/blockasexpr.t test recursive descent block parsing
 ext/XS-APItest/t/blockhooks-csc.t      XS::APItest: more tests for PL_blockhooks
 ext/XS-APItest/t/blockhooks.t  XS::APItest: tests for PL_blockhooks
 ext/XS-APItest/t/Block.pm      Helper for ./blockhooks.t
@@ -3396,6 +3397,7 @@ ext/XS-APItest/t/grok.t           XS::APItest: tests for grok* functions
 ext/XS-APItest/t/hash.t                XS::APItest: tests for hash related APIs
 ext/XS-APItest/t/keyword_multiline.t   test keyword plugin parsing across lines
 ext/XS-APItest/t/keyword_plugin.t      test keyword plugin mechanism
+ext/XS-APItest/t/loopblock.t   test recursive descent block parsing
 ext/XS-APItest/t/looprest.t    test recursive descent statement-sequence parsing
 ext/XS-APItest/t/magic_chain.t test low-level MAGIC chain handling
 ext/XS-APItest/t/Markers.pm    Helper for ./blockhooks.t
index 0fa5ff1..9411a68 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -626,6 +626,7 @@ AMpd        |I32    |lex_peek_unichar|U32 flags
 AMpd   |I32    |lex_read_unichar|U32 flags
 AMpd   |void   |lex_read_space |U32 flags
 : Public parser API
+AMpd   |OP*    |parse_block    |U32 flags
 AMpd   |OP*    |parse_fullstmt |U32 flags
 AMpd   |OP*    |parse_stmtseq  |U32 flags
 : Used in various files
diff --git a/embed.h b/embed.h
index 34b9866..057b628 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define pack_cat(a,b,c,d,e,f,g)        Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
 #define packlist(a,b,c,d,e)    Perl_packlist(aTHX_ a,b,c,d,e)
 #define pad_findmy(a,b,c)      Perl_pad_findmy(aTHX_ a,b,c)
+#define parse_block(a)         Perl_parse_block(aTHX_ a)
 #define parse_fullstmt(a)      Perl_parse_fullstmt(aTHX_ a)
 #define parse_stmtseq(a)       Perl_parse_stmtseq(aTHX_ a)
 #define pmop_dump(a)           Perl_pmop_dump(aTHX_ a)
index 21807a7..c4b3433 100644 (file)
@@ -36,7 +36,7 @@ sub import {
        }
     }
     foreach (keys %{$exports||{}}) {
-       next unless /\A(?:rpn|calcrpn|stufftest|swaptwostmts|looprest|scopelessblock|stmtasexpr|stmtsasexpr)\z/;
+       next unless /\A(?:rpn|calcrpn|stufftest|swaptwostmts|looprest|scopelessblock|stmtasexpr|stmtsasexpr|loopblock|blockasexpr)\z/;
        $^H{"XS::APItest/$_"} = 1;
        delete $exports->{$_};
     }
index 4aad258..632b9f6 100644 (file)
@@ -519,7 +519,8 @@ test_op_linklist_describe(OP *start)
 static SV *hintkey_rpn_sv, *hintkey_calcrpn_sv, *hintkey_stufftest_sv;
 static SV *hintkey_swaptwostmts_sv, *hintkey_looprest_sv;
 static SV *hintkey_scopelessblock_sv;
-static SV *hintkey_stmtasexpr_sv,  *hintkey_stmtsasexpr_sv;
+static SV *hintkey_stmtasexpr_sv, *hintkey_stmtsasexpr_sv;
+static SV *hintkey_loopblock_sv, *hintkey_blockasexpr_sv;
 static int (*next_keyword_plugin)(pTHX_ char *, STRLEN, OP **);
 
 /* low-level parser helpers */
@@ -743,6 +744,27 @@ static OP *THX_parse_keyword_stmtsasexpr(pTHX)
     return o;
 }
 
+#define parse_keyword_loopblock() THX_parse_keyword_loopblock(aTHX)
+static OP *THX_parse_keyword_loopblock(pTHX)
+{
+    I32 condline;
+    OP *body;
+    condline = CopLINE(PL_curcop);
+    body = parse_block(0);
+    return newWHILEOP(0, 1, NULL, condline, newSVOP(OP_CONST, 0, &PL_sv_yes),
+                       body, NULL, 1);
+}
+
+#define parse_keyword_blockasexpr() THX_parse_keyword_blockasexpr(aTHX)
+static OP *THX_parse_keyword_blockasexpr(pTHX)
+{
+    OP *o = parse_block(0);
+    o = op_prepend_elem(OP_LINESEQ, newOP(OP_ENTER, 0), o);
+    o->op_type = OP_LEAVE;
+    o->op_ppaddr = PL_ppaddr[OP_LEAVE];
+    return o;
+}
+
 /* plugin glue */
 
 #define keyword_active(hintkey_sv) THX_keyword_active(aTHX_ hintkey_sv)
@@ -791,6 +813,14 @@ static int my_keyword_plugin(pTHX_
                    keyword_active(hintkey_stmtsasexpr_sv)) {
        *op_ptr = parse_keyword_stmtsasexpr();
        return KEYWORD_PLUGIN_EXPR;
+    } else if(keyword_len == 9 && strnEQ(keyword_ptr, "loopblock", 9) &&
+                   keyword_active(hintkey_loopblock_sv)) {
+       *op_ptr = parse_keyword_loopblock();
+       return KEYWORD_PLUGIN_STMT;
+    } else if(keyword_len == 11 && strnEQ(keyword_ptr, "blockasexpr", 11) &&
+                   keyword_active(hintkey_blockasexpr_sv)) {
+       *op_ptr = parse_keyword_blockasexpr();
+       return KEYWORD_PLUGIN_EXPR;
     } else {
        return next_keyword_plugin(aTHX_ keyword_ptr, keyword_len, op_ptr);
     }
@@ -2201,6 +2231,8 @@ BOOT:
     hintkey_scopelessblock_sv = newSVpvs_share("XS::APItest/scopelessblock");
     hintkey_stmtasexpr_sv = newSVpvs_share("XS::APItest/stmtasexpr");
     hintkey_stmtsasexpr_sv = newSVpvs_share("XS::APItest/stmtsasexpr");
+    hintkey_loopblock_sv = newSVpvs_share("XS::APItest/loopblock");
+    hintkey_blockasexpr_sv = newSVpvs_share("XS::APItest/blockasexpr");
     next_keyword_plugin = PL_keyword_plugin;
     PL_keyword_plugin = my_keyword_plugin;
 }
diff --git a/ext/XS-APItest/t/blockasexpr.t b/ext/XS-APItest/t/blockasexpr.t
new file mode 100644 (file)
index 0000000..fed36dc
--- /dev/null
@@ -0,0 +1,103 @@
+use warnings;
+use strict;
+
+use Test::More tests => 16;
+
+BEGIN { $^H |= 0x20000; }
+
+my $t;
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       $t .= "a";
+       $t .= "b" . blockasexpr { "c"; } . "d";
+       $t .= "e";
+};
+is $@, "";
+is $t, "abcde";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       no warnings "void";
+       $t .= "a";
+       $t .= "b" . blockasexpr { "z"; "c"; } . "d";
+       $t .= "e";
+};
+is $@, "";
+is $t, "abcde";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       $t .= "a";
+       $t .= "b" . blockasexpr { if($t eq "a") { "c"; } else { "d"; } } . "e";
+       $t .= "f";
+};
+is $@, "";
+is $t, "abcef";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       $t .= "a";
+       $t .= "b" . blockasexpr { if($t eq "z") { "c"; } else { "d"; } } . "e";
+       $t .= "f";
+};
+is $@, "";
+is $t, "abdef";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       no warnings "void";
+       $t .= "a";
+       $t .= "b" . blockasexpr { { "z"; "c"; } } . "d";
+       $t .= "e";
+};
+is $@, "";
+is $t, "abcde";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       $t .= "a";
+       $t .= blockasexpr {
+               my $t = "z";
+               "b";
+       };
+       $t .= "c";
+};
+is $@, "";
+is $t, "abc";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       my $f = 1.5;
+       $t .= "a(".($f+$f).")";
+       $t .= "b(" . blockasexpr {
+               use integer;
+               $f+$f;
+       } . ")";
+       $t .= "c(".($f+$f).")";
+};
+is $@, "";
+is $t, "a(3)b(2)c(3)";
+
+$t = "";
+eval q{
+       use XS::APItest qw(blockasexpr);
+       our $z = "z";
+       $t .= "a$z";
+       $t .= "b" . blockasexpr {
+               local $z = "y";
+               $z;
+       };
+       $t .= "c$z";
+};
+is $@, "";
+is $t, "azbycz";
+
+1;
diff --git a/ext/XS-APItest/t/loopblock.t b/ext/XS-APItest/t/loopblock.t
new file mode 100644 (file)
index 0000000..3b688bc
--- /dev/null
@@ -0,0 +1,121 @@
+use warnings;
+use strict;
+
+use Test::More tests => 14;
+
+BEGIN { $^H |= 0x20000; }
+
+my $t;
+
+$t = "";
+eval q{
+       use XS::APItest qw(loopblock);
+       do {
+               $t .= "a";
+               loopblock {
+                       $t .= "b";
+                       last unless length($t) < 5;
+                       $t .= "c";
+               }
+       };
+       $t .= "d";
+};
+is $@, "";
+is $t, "abcbcbd";
+
+$t = "";
+eval q{
+       use XS::APItest qw(loopblock);
+       $t .= "a";
+       loopblock {
+               $t .= "b";
+               last unless length($t) < 5;
+               $t .= "c";
+       }
+};
+is $@, "";
+is $t, "abcbcb";
+
+$t = "";
+eval q[
+       use XS::APItest qw(loopblock);
+       do {
+               $t .= "a";
+               loopblock {
+                       $t .= "b";
+                       last unless length($t) < 5;
+                       $t .= "c";
+               }
+];
+isnt $@, "";
+is $t, "";
+
+$t = "";
+eval q[
+       use XS::APItest qw(loopblock);
+       $t .= "a";
+       loopblock {
+               $t .= "b";
+               last unless length($t) < 5;
+               $t .= "c";
+       }
+       };
+];
+isnt $@, "";
+is $t, "";
+
+$t = "";
+eval q{
+       use XS::APItest qw(loopblock);
+       my $x = "a";
+       $t .= $x;
+       do {
+               no warnings "misc";
+               $t .= $x;
+               my $x = "b";
+               $t .= $x;
+               loopblock {
+                       $t .= $x;
+                       my $x = "c";
+                       $t .= $x;
+                       last unless length($t) < 7;
+                       $t .= $x;
+                       my $x = "d";
+                       $t .= $x;
+               }
+       };
+       $t .= $x;
+};
+is $@, "";
+is $t, "aabbccdbca";
+
+$t = "";
+eval q{
+       use XS::APItest qw(loopblock);
+       do {
+               { $t .= "a"; }
+               loopblock {
+                       { $t .= "b"; }
+                       last unless length($t) < 5;
+                       { $t .= "c"; }
+               }
+       };
+       $t .= "d";
+};
+is $@, "";
+is $t, "abcbcbd";
+
+$t = "";
+eval q{
+       use XS::APItest qw(loopblock);
+       { $t .= "a"; }
+       loopblock {
+               { $t .= "b"; }
+               last unless length($t) < 5;
+               { $t .= "c"; }
+       }
+};
+is $@, "";
+is $t, "abcbcb";
+
+1;
index a979dc7..b0ac7a6 100644 (file)
@@ -423,6 +423,7 @@ Perl_pack_cat
 Perl_packlist
 Perl_pad_findmy
 Perl_pad_push
+Perl_parse_block
 Perl_parse_fullstmt
 Perl_parse_stmtseq
 perl_alloc
index edc14b2..72cd3bf 100644 (file)
--- a/perly.act
+++ b/perly.act
@@ -6,7 +6,7 @@ case 2:
   case 3:
 #line 147 "perly.y"
     {
-                         parser->expect = XSTATE;
+                         parser->expect = XBLOCK;
                        ;}
     break;
 
@@ -32,16 +32,33 @@ case 2:
     {
                          PL_eval_root = (ps[(3) - (3)].val.opval);
                          (yyval.ival) = 0;
+                         yyunlex();
+                         parser->yychar = YYEOF;
                        ;}
     break;
 
   case 7:
-#line 171 "perly.y"
-    { (yyval.ival) = (ps[(1) - (2)].val.ival); newPROG(block_end((ps[(1) - (2)].val.ival),(ps[(2) - (2)].val.opval))); ;}
+#line 169 "perly.y"
+    {
+                         parser->expect = XSTATE;
+                       ;}
     break;
 
   case 8:
-#line 176 "perly.y"
+#line 173 "perly.y"
+    {
+                         PL_eval_root = (ps[(3) - (3)].val.opval);
+                         (yyval.ival) = 0;
+                       ;}
+    break;
+
+  case 9:
+#line 182 "perly.y"
+    { (yyval.ival) = (ps[(1) - (2)].val.ival); newPROG(block_end((ps[(1) - (2)].val.ival),(ps[(2) - (2)].val.opval))); ;}
+    break;
+
+  case 10:
+#line 187 "perly.y"
     { if (PL_parser->copline > (line_t)IVAL((ps[(1) - (4)].val.i_tkval)))
                              PL_parser->copline = (line_t)IVAL((ps[(1) - (4)].val.i_tkval));
                          (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
@@ -50,25 +67,25 @@ case 2:
                        ;}
     break;
 
-  case 9:
-#line 185 "perly.y"
+  case 11:
+#line 196 "perly.y"
     { (yyval.ival) = block_start(TRUE); ;}
     break;
 
-  case 10:
-#line 189 "perly.y"
+  case 12:
+#line 200 "perly.y"
     { (yyval.ival) = (I32) Perl_allocmy(aTHX_ STR_WITH_LEN("$_"), 0); ;}
     break;
 
-  case 11:
-#line 193 "perly.y"
+  case 13:
+#line 204 "perly.y"
     {
                    PL_parser->expect = XSTATE; (yyval.ival) = block_start(TRUE);
                ;}
     break;
 
-  case 12:
-#line 200 "perly.y"
+  case 14:
+#line 211 "perly.y"
     { if (PL_parser->copline > (line_t)IVAL((ps[(1) - (4)].val.i_tkval)))
                              PL_parser->copline = (line_t)IVAL((ps[(1) - (4)].val.i_tkval));
                          (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
@@ -77,25 +94,25 @@ case 2:
                        ;}
     break;
 
-  case 13:
-#line 209 "perly.y"
+  case 15:
+#line 220 "perly.y"
     { (yyval.ival) = block_start(FALSE); ;}
     break;
 
-  case 14:
-#line 214 "perly.y"
+  case 16:
+#line 225 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 15:
-#line 216 "perly.y"
+  case 17:
+#line 227 "perly.y"
     {
                          (yyval.opval) = IF_MAD(op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval)), (ps[(1) - (2)].val.opval));
                        ;}
     break;
 
-  case 16:
-#line 220 "perly.y"
+  case 18:
+#line 231 "perly.y"
     {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
                            PL_pad_reset_pending = TRUE;
                            if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
@@ -103,37 +120,37 @@ case 2:
                        ;}
     break;
 
-  case 17:
-#line 229 "perly.y"
+  case 19:
+#line 240 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 18:
-#line 231 "perly.y"
+  case 20:
+#line 242 "perly.y"
     {
                          PL_pad_reset_pending = TRUE;
                          (yyval.opval) = (ps[(1) - (1)].val.opval);
                        ;}
     break;
 
-  case 19:
-#line 239 "perly.y"
+  case 21:
+#line 250 "perly.y"
     { (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.p_tkval),((LISTOP*)(yyval.opval))->op_first,'L'); ;}
     break;
 
-  case 21:
-#line 243 "perly.y"
+  case 23:
+#line 254 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 22:
-#line 245 "perly.y"
+  case 24:
+#line 256 "perly.y"
     { (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval)); ;}
     break;
 
-  case 23:
-#line 247 "perly.y"
+  case 25:
+#line 258 "perly.y"
     {
                          if (PVAL((ps[(1) - (2)].val.p_tkval))) {
                              (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), newOP(OP_NULL, 0));
@@ -152,8 +169,8 @@ case 2:
                        ;}
     break;
 
-  case 24:
-#line 264 "perly.y"
+  case 26:
+#line 275 "perly.y"
     {
                          (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (3)].val.p_tkval)), (ps[(2) - (3)].val.opval));
                          PL_parser->expect = XSTATE;
@@ -171,84 +188,84 @@ case 2:
                        ;}
     break;
 
-  case 25:
-#line 280 "perly.y"
+  case 27:
+#line 291 "perly.y"
     { (yyval.opval) = newSTATEOP(0, NULL,
                                 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
                                            NOLINE, (OP*)NULL, (ps[(1) - (1)].val.opval),
                                            (OP*)NULL, 0)); ;}
     break;
 
-  case 26:
-#line 285 "perly.y"
+  case 28:
+#line 296 "perly.y"
     { (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (2)].val.p_tkval)), (ps[(2) - (2)].val.opval)); ;}
     break;
 
-  case 27:
-#line 290 "perly.y"
+  case 29:
+#line 301 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 28:
-#line 292 "perly.y"
+  case 30:
+#line 303 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 29:
-#line 294 "perly.y"
+  case 31:
+#line 305 "perly.y"
     { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'i');
                        ;}
     break;
 
-  case 30:
-#line 298 "perly.y"
+  case 32:
+#line 309 "perly.y"
     { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'i');
                        ;}
     break;
 
-  case 31:
-#line 302 "perly.y"
+  case 33:
+#line 313 "perly.y"
     { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[(3) - (3)].val.opval)), (ps[(1) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'w');
                        ;}
     break;
 
-  case 32:
-#line 306 "perly.y"
+  case 34:
+#line 317 "perly.y"
     { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'w');
                        ;}
     break;
 
-  case 33:
-#line 310 "perly.y"
+  case 35:
+#line 321 "perly.y"
     { (yyval.opval) = newFOROP(0, NULL, (line_t)IVAL((ps[(2) - (3)].val.i_tkval)),
                                        (OP*)NULL, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval), (OP*)NULL);
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),((LISTOP*)(yyval.opval))->op_first->op_sibling,'w');
                        ;}
     break;
 
-  case 34:
-#line 315 "perly.y"
+  case 36:
+#line 326 "perly.y"
     { (yyval.opval) = newWHENOP((ps[(3) - (3)].val.opval), scope((ps[(1) - (3)].val.opval))); ;}
     break;
 
-  case 35:
-#line 320 "perly.y"
+  case 37:
+#line 331 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 36:
-#line 322 "perly.y"
+  case 38:
+#line 333 "perly.y"
     { ((ps[(2) - (2)].val.opval))->op_flags |= OPf_PARENS; (yyval.opval) = scope((ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 37:
-#line 326 "perly.y"
+  case 39:
+#line 337 "perly.y"
     { PL_parser->copline = (line_t)IVAL((ps[(1) - (6)].val.i_tkval));
                            (yyval.opval) = newCONDOP(0, newSTATEOP(OPf_SPECIAL,NULL,(ps[(3) - (6)].val.opval)), scope((ps[(5) - (6)].val.opval)), (ps[(6) - (6)].val.opval));
                            PL_hints |= HINT_BLOCK_SCOPE;
@@ -258,8 +275,8 @@ case 2:
                        ;}
     break;
 
-  case 38:
-#line 337 "perly.y"
+  case 40:
+#line 348 "perly.y"
     { PL_parser->copline = (line_t)IVAL((ps[(1) - (7)].val.i_tkval));
                            (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
                                   newCONDOP(0, (ps[(4) - (7)].val.opval), scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
@@ -269,8 +286,8 @@ case 2:
                        ;}
     break;
 
-  case 39:
-#line 345 "perly.y"
+  case 41:
+#line 356 "perly.y"
     { PL_parser->copline = (line_t)IVAL((ps[(1) - (7)].val.i_tkval));
                            (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
                                   newCONDOP(0, (ps[(4) - (7)].val.opval), scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
@@ -280,31 +297,31 @@ case 2:
                        ;}
     break;
 
-  case 40:
-#line 356 "perly.y"
+  case 42:
+#line 367 "perly.y"
     { (yyval.opval) = block_end((ps[(3) - (6)].val.ival),
                newWHENOP((ps[(4) - (6)].val.opval), scope((ps[(6) - (6)].val.opval)))); ;}
     break;
 
-  case 41:
-#line 359 "perly.y"
+  case 43:
+#line 370 "perly.y"
     { (yyval.opval) = newWHENOP(0, scope((ps[(2) - (2)].val.opval))); ;}
     break;
 
-  case 42:
-#line 364 "perly.y"
+  case 44:
+#line 375 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 43:
-#line 366 "perly.y"
+  case 45:
+#line 377 "perly.y"
     { (yyval.opval) = scope((ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 44:
-#line 373 "perly.y"
+  case 46:
+#line 384 "perly.y"
     { OP *innerop;
                          PL_parser->copline = (line_t)IVAL((ps[(2) - (9)].val.i_tkval));
                            (yyval.opval) = block_end((ps[(4) - (9)].val.ival),
@@ -318,8 +335,8 @@ case 2:
                        ;}
     break;
 
-  case 45:
-#line 386 "perly.y"
+  case 47:
+#line 397 "perly.y"
     { OP *innerop;
                          PL_parser->copline = (line_t)IVAL((ps[(2) - (9)].val.i_tkval));
                            (yyval.opval) = block_end((ps[(4) - (9)].val.ival),
@@ -333,8 +350,8 @@ case 2:
                        ;}
     break;
 
-  case 46:
-#line 398 "perly.y"
+  case 48:
+#line 409 "perly.y"
     { OP *innerop;
                          (yyval.opval) = block_end((ps[(4) - (10)].val.ival),
                             innerop = newFOROP(0, PVAL((ps[(1) - (10)].val.p_tkval)), (line_t)IVAL((ps[(2) - (10)].val.i_tkval)),
@@ -347,8 +364,8 @@ case 2:
                        ;}
     break;
 
-  case 47:
-#line 409 "perly.y"
+  case 49:
+#line 420 "perly.y"
     { OP *innerop;
                          (yyval.opval) = block_end((ps[(5) - (9)].val.ival),
                             innerop = newFOROP(0, PVAL((ps[(1) - (9)].val.p_tkval)), (line_t)IVAL((ps[(2) - (9)].val.i_tkval)),
@@ -360,8 +377,8 @@ case 2:
                        ;}
     break;
 
-  case 48:
-#line 419 "perly.y"
+  case 50:
+#line 430 "perly.y"
     { OP *innerop;
                          (yyval.opval) = block_end((ps[(4) - (8)].val.ival),
                             innerop = newFOROP(0, PVAL((ps[(1) - (8)].val.p_tkval)), (line_t)IVAL((ps[(2) - (8)].val.i_tkval)),
@@ -373,8 +390,8 @@ case 2:
                        ;}
     break;
 
-  case 49:
-#line 431 "perly.y"
+  case 51:
+#line 442 "perly.y"
     { OP *forop;
                          PL_parser->copline = (line_t)IVAL((ps[(2) - (12)].val.i_tkval));
                          forop = newSTATEOP(0, PVAL((ps[(1) - (12)].val.p_tkval)),
@@ -406,16 +423,16 @@ case 2:
                          (yyval.opval) = block_end((ps[(4) - (12)].val.ival), forop); ;}
     break;
 
-  case 50:
-#line 461 "perly.y"
+  case 52:
+#line 472 "perly.y"
     { (yyval.opval) = newSTATEOP(0, PVAL((ps[(1) - (3)].val.p_tkval)),
                                 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
                                            NOLINE, (OP*)NULL, (ps[(2) - (3)].val.opval), (ps[(3) - (3)].val.opval), 0));
                          TOKEN_GETMAD((ps[(1) - (3)].val.p_tkval),((LISTOP*)(yyval.opval))->op_first,'L'); ;}
     break;
 
-  case 51:
-#line 469 "perly.y"
+  case 53:
+#line 480 "perly.y"
     { PL_parser->copline = (line_t) IVAL((ps[(2) - (8)].val.i_tkval));
                            (yyval.opval) = block_end((ps[(4) - (8)].val.ival),
                                newSTATEOP(0, PVAL((ps[(1) - (8)].val.p_tkval)),
@@ -423,47 +440,47 @@ case 2:
                                        (PADOFFSET) (ps[(5) - (8)].val.ival)) )); ;}
     break;
 
-  case 52:
-#line 478 "perly.y"
+  case 54:
+#line 489 "perly.y"
     { (yyval.ival) = (PL_min_intro_pending &&
                            PL_max_intro_pending >=  PL_min_intro_pending);
                          intro_my(); ;}
     break;
 
-  case 53:
-#line 484 "perly.y"
+  case 55:
+#line 495 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 55:
-#line 490 "perly.y"
+  case 57:
+#line 501 "perly.y"
     { YYSTYPE tmplval;
                          (void)scan_num("1", &tmplval);
                          (yyval.opval) = tmplval.opval; ;}
     break;
 
-  case 57:
-#line 498 "perly.y"
+  case 59:
+#line 509 "perly.y"
     { (yyval.opval) = invert(scalar((ps[(1) - (1)].val.opval))); ;}
     break;
 
-  case 58:
-#line 503 "perly.y"
+  case 60:
+#line 514 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
     break;
 
-  case 59:
-#line 507 "perly.y"
+  case 61:
+#line 518 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
     break;
 
-  case 60:
-#line 511 "perly.y"
+  case 62:
+#line 522 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); ;}
     break;
 
-  case 61:
-#line 516 "perly.y"
+  case 63:
+#line 527 "perly.y"
     {
 #ifdef MAD
                          YYSTYPE tmplval;
@@ -475,45 +492,45 @@ case 2:
                        ;}
     break;
 
-  case 63:
-#line 530 "perly.y"
+  case 65:
+#line 541 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 64:
-#line 532 "perly.y"
+  case 66:
+#line 543 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 65:
-#line 534 "perly.y"
+  case 67:
+#line 545 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 66:
-#line 536 "perly.y"
+  case 68:
+#line 547 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 67:
-#line 538 "perly.y"
+  case 69:
+#line 549 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 68:
-#line 543 "perly.y"
+  case 70:
+#line 554 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 69:
-#line 547 "perly.y"
+  case 71:
+#line 558 "perly.y"
     { (yyval.opval) = newOP(OP_NULL,0);
                          TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'p');
                        ;}
     break;
 
-  case 70:
-#line 553 "perly.y"
+  case 72:
+#line 564 "perly.y"
     {
                          CV *fmtcv = PL_compcv;
                          SvREFCNT_inc_simple_void(PL_compcv);
@@ -533,18 +550,18 @@ case 2:
                        ;}
     break;
 
-  case 71:
-#line 572 "perly.y"
+  case 73:
+#line 583 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 72:
-#line 573 "perly.y"
+  case 74:
+#line 584 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 73:
-#line 578 "perly.y"
+  case 75:
+#line 589 "perly.y"
     { SvREFCNT_inc_simple_void(PL_compcv);
 #ifdef MAD
                          (yyval.opval) = newMYSUB((ps[(2) - (6)].val.ival), (ps[(3) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), (ps[(6) - (6)].val.opval));
@@ -556,8 +573,8 @@ case 2:
                        ;}
     break;
 
-  case 74:
-#line 591 "perly.y"
+  case 76:
+#line 602 "perly.y"
     { SvREFCNT_inc_simple_void(PL_compcv);
 #ifdef MAD
                          {
@@ -579,26 +596,26 @@ case 2:
                        ;}
     break;
 
-  case 75:
-#line 613 "perly.y"
+  case 77:
+#line 624 "perly.y"
     { (yyval.ival) = start_subparse(FALSE, 0);
                            SAVEFREESV(PL_compcv); ;}
     break;
 
-  case 76:
-#line 619 "perly.y"
+  case 78:
+#line 630 "perly.y"
     { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
                            SAVEFREESV(PL_compcv); ;}
     break;
 
-  case 77:
-#line 624 "perly.y"
+  case 79:
+#line 635 "perly.y"
     { (yyval.ival) = start_subparse(TRUE, 0);
                            SAVEFREESV(PL_compcv); ;}
     break;
 
-  case 78:
-#line 629 "perly.y"
+  case 80:
+#line 640 "perly.y"
     { const char *const name = SvPV_nolen_const(((SVOP*)(ps[(1) - (1)].val.opval))->op_sv);
                          if (strEQ(name, "BEGIN") || strEQ(name, "END")
                              || strEQ(name, "INIT") || strEQ(name, "CHECK")
@@ -607,25 +624,25 @@ case 2:
                          (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 79:
-#line 639 "perly.y"
+  case 81:
+#line 650 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 81:
-#line 645 "perly.y"
+  case 83:
+#line 656 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 82:
-#line 647 "perly.y"
+  case 84:
+#line 658 "perly.y"
     { (yyval.opval) = (ps[(2) - (2)].val.opval);
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),':');
                        ;}
     break;
 
-  case 83:
-#line 651 "perly.y"
+  case 85:
+#line 662 "perly.y"
     { (yyval.opval) = IF_MAD(
                                    newOP(OP_NULL, 0),
                                    (OP*)NULL
@@ -634,15 +651,15 @@ case 2:
                        ;}
     break;
 
-  case 84:
-#line 661 "perly.y"
+  case 86:
+#line 672 "perly.y"
     { (yyval.opval) = (ps[(2) - (2)].val.opval);
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),':');
                        ;}
     break;
 
-  case 85:
-#line 665 "perly.y"
+  case 87:
+#line 676 "perly.y"
     { (yyval.opval) = IF_MAD(
                                    newOP(OP_NULL, 0),
                                    (OP*)NULL
@@ -651,13 +668,13 @@ case 2:
                        ;}
     break;
 
-  case 86:
-#line 674 "perly.y"
+  case 88:
+#line 685 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 87:
-#line 675 "perly.y"
+  case 89:
+#line 686 "perly.y"
     { (yyval.opval) = IF_MAD(
                                    newOP(OP_NULL,0),
                                    (OP*)NULL
@@ -667,8 +684,8 @@ case 2:
                        ;}
     break;
 
-  case 88:
-#line 685 "perly.y"
+  case 90:
+#line 696 "perly.y"
     {
 #ifdef MAD
                          (yyval.opval) = package((ps[(3) - (4)].val.opval));
@@ -685,8 +702,8 @@ case 2:
                        ;}
     break;
 
-  case 89:
-#line 702 "perly.y"
+  case 91:
+#line 713 "perly.y"
     {
                          int save_3_latefree = (ps[(3) - (5)].val.opval)->op_latefree;
                          (ps[(3) - (5)].val.opval)->op_latefree = 1;
@@ -701,8 +718,8 @@ case 2:
                        ;}
     break;
 
-  case 90:
-#line 715 "perly.y"
+  case 92:
+#line 726 "perly.y"
     { if (PL_parser->copline > (line_t)IVAL((ps[(4) - (8)].val.i_tkval)))
                              PL_parser->copline = (line_t)IVAL((ps[(4) - (8)].val.i_tkval));
                          (yyval.opval) = block_end((ps[(5) - (8)].val.ival), (ps[(7) - (8)].val.opval));
@@ -714,13 +731,13 @@ case 2:
                        ;}
     break;
 
-  case 91:
-#line 727 "perly.y"
+  case 93:
+#line 738 "perly.y"
     { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ ;}
     break;
 
-  case 92:
-#line 729 "perly.y"
+  case 94:
+#line 740 "perly.y"
     { SvREFCNT_inc_simple_void(PL_compcv);
 #ifdef MAD
                          (yyval.opval) = utilize(IVAL((ps[(1) - (7)].val.i_tkval)), (ps[(2) - (7)].val.ival), (ps[(4) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval));
@@ -736,29 +753,29 @@ case 2:
                        ;}
     break;
 
-  case 93:
-#line 746 "perly.y"
+  case 95:
+#line 757 "perly.y"
     { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 94:
-#line 750 "perly.y"
+  case 96:
+#line 761 "perly.y"
     { (yyval.opval) = newLOGOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 95:
-#line 754 "perly.y"
+  case 97:
+#line 765 "perly.y"
     { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 97:
-#line 762 "perly.y"
+  case 99:
+#line 773 "perly.y"
     {
 #ifdef MAD
                          OP* op = newNULLLIST();
@@ -770,8 +787,8 @@ case 2:
                        ;}
     break;
 
-  case 98:
-#line 772 "perly.y"
+  case 100:
+#line 783 "perly.y"
     { 
                          OP* term = (ps[(3) - (3)].val.opval);
                          DO_MAD(
@@ -782,16 +799,16 @@ case 2:
                        ;}
     break;
 
-  case 100:
-#line 785 "perly.y"
+  case 102:
+#line 796 "perly.y"
     { (yyval.opval) = convert(IVAL((ps[(1) - (3)].val.i_tkval)), OPf_STACKED,
                                op_prepend_elem(OP_LIST, newGVREF(IVAL((ps[(1) - (3)].val.i_tkval)),(ps[(2) - (3)].val.opval)), (ps[(3) - (3)].val.opval)) );
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 101:
-#line 790 "perly.y"
+  case 103:
+#line 801 "perly.y"
     { (yyval.opval) = convert(IVAL((ps[(1) - (5)].val.i_tkval)), OPf_STACKED,
                                op_prepend_elem(OP_LIST, newGVREF(IVAL((ps[(1) - (5)].val.i_tkval)),(ps[(3) - (5)].val.opval)), (ps[(4) - (5)].val.opval)) );
                          TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
@@ -800,8 +817,8 @@ case 2:
                        ;}
     break;
 
-  case 102:
-#line 797 "perly.y"
+  case 104:
+#line 808 "perly.y"
     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
                                op_append_elem(OP_LIST,
                                    op_prepend_elem(OP_LIST, scalar((ps[(1) - (6)].val.opval)), (ps[(5) - (6)].val.opval)),
@@ -812,8 +829,8 @@ case 2:
                        ;}
     break;
 
-  case 103:
-#line 806 "perly.y"
+  case 105:
+#line 817 "perly.y"
     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
                                op_append_elem(OP_LIST, scalar((ps[(1) - (3)].val.opval)),
                                    newUNOP(OP_METHOD, 0, (ps[(3) - (3)].val.opval))));
@@ -821,8 +838,8 @@ case 2:
                        ;}
     break;
 
-  case 104:
-#line 812 "perly.y"
+  case 106:
+#line 823 "perly.y"
     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
                                op_append_elem(OP_LIST,
                                    op_prepend_elem(OP_LIST, (ps[(2) - (3)].val.opval), (ps[(3) - (3)].val.opval)),
@@ -830,8 +847,8 @@ case 2:
                        ;}
     break;
 
-  case 105:
-#line 818 "perly.y"
+  case 107:
+#line 829 "perly.y"
     { (yyval.opval) = convert(OP_ENTERSUB, OPf_STACKED,
                                op_append_elem(OP_LIST,
                                    op_prepend_elem(OP_LIST, (ps[(2) - (5)].val.opval), (ps[(4) - (5)].val.opval)),
@@ -841,15 +858,15 @@ case 2:
                        ;}
     break;
 
-  case 106:
-#line 826 "perly.y"
+  case 108:
+#line 837 "perly.y"
     { (yyval.opval) = convert(IVAL((ps[(1) - (2)].val.i_tkval)), 0, (ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 107:
-#line 830 "perly.y"
+  case 109:
+#line 841 "perly.y"
     { (yyval.opval) = convert(IVAL((ps[(1) - (4)].val.i_tkval)), 0, (ps[(3) - (4)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
                          TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
@@ -857,22 +874,22 @@ case 2:
                        ;}
     break;
 
-  case 108:
-#line 836 "perly.y"
+  case 110:
+#line 847 "perly.y"
     { SvREFCNT_inc_simple_void(PL_compcv);
                          (yyval.opval) = newANONATTRSUB((ps[(2) - (3)].val.ival), 0, (OP*)NULL, (ps[(3) - (3)].val.opval)); ;}
     break;
 
-  case 109:
-#line 839 "perly.y"
+  case 111:
+#line 850 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                 op_append_elem(OP_LIST,
                                   op_prepend_elem(OP_LIST, (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval)), (ps[(1) - (5)].val.opval)));
                        ;}
     break;
 
-  case 112:
-#line 854 "perly.y"
+  case 114:
+#line 865 "perly.y"
     { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[(1) - (5)].val.opval), scalar((ps[(3) - (5)].val.opval)));
                            PL_parser->expect = XOPERATOR;
                          TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'{');
@@ -881,16 +898,16 @@ case 2:
                        ;}
     break;
 
-  case 113:
-#line 861 "perly.y"
+  case 115:
+#line 872 "perly.y"
     { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[(1) - (4)].val.opval)), scalar((ps[(3) - (4)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'[');
                          TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),']');
                        ;}
     break;
 
-  case 114:
-#line 866 "perly.y"
+  case 116:
+#line 877 "perly.y"
     { (yyval.opval) = newBINOP(OP_AELEM, 0,
                                        ref(newAVREF((ps[(1) - (5)].val.opval)),OP_RV2AV),
                                        scalar((ps[(4) - (5)].val.opval)));
@@ -900,8 +917,8 @@ case 2:
                        ;}
     break;
 
-  case 115:
-#line 874 "perly.y"
+  case 117:
+#line 885 "perly.y"
     { (yyval.opval) = newBINOP(OP_AELEM, 0,
                                        ref(newAVREF((ps[(1) - (4)].val.opval)),OP_RV2AV),
                                        scalar((ps[(3) - (4)].val.opval)));
@@ -910,8 +927,8 @@ case 2:
                        ;}
     break;
 
-  case 116:
-#line 881 "perly.y"
+  case 118:
+#line 892 "perly.y"
     { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[(1) - (5)].val.opval)), jmaybe((ps[(3) - (5)].val.opval)));
                            PL_parser->expect = XOPERATOR;
                          TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'{');
@@ -920,8 +937,8 @@ case 2:
                        ;}
     break;
 
-  case 117:
-#line 888 "perly.y"
+  case 119:
+#line 899 "perly.y"
     { (yyval.opval) = newBINOP(OP_HELEM, 0,
                                        ref(newHVREF((ps[(1) - (6)].val.opval)),OP_RV2HV),
                                        jmaybe((ps[(4) - (6)].val.opval)));
@@ -933,8 +950,8 @@ case 2:
                        ;}
     break;
 
-  case 118:
-#line 898 "perly.y"
+  case 120:
+#line 909 "perly.y"
     { (yyval.opval) = newBINOP(OP_HELEM, 0,
                                        ref(newHVREF((ps[(1) - (5)].val.opval)),OP_RV2HV),
                                        jmaybe((ps[(3) - (5)].val.opval)));
@@ -945,8 +962,8 @@ case 2:
                        ;}
     break;
 
-  case 119:
-#line 907 "perly.y"
+  case 121:
+#line 918 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                   newCVREF(0, scalar((ps[(1) - (4)].val.opval))));
                          TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'a');
@@ -955,8 +972,8 @@ case 2:
                        ;}
     break;
 
-  case 120:
-#line 914 "perly.y"
+  case 122:
+#line 925 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                   op_append_elem(OP_LIST, (ps[(4) - (5)].val.opval),
                                       newCVREF(0, scalar((ps[(1) - (5)].val.opval)))));
@@ -966,8 +983,8 @@ case 2:
                        ;}
     break;
 
-  case 121:
-#line 923 "perly.y"
+  case 123:
+#line 934 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                   op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval),
                                               newCVREF(0, scalar((ps[(1) - (4)].val.opval)))));
@@ -976,8 +993,8 @@ case 2:
                        ;}
     break;
 
-  case 122:
-#line 930 "perly.y"
+  case 124:
+#line 941 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                   newCVREF(0, scalar((ps[(1) - (3)].val.opval))));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
@@ -985,8 +1002,8 @@ case 2:
                        ;}
     break;
 
-  case 123:
-#line 936 "perly.y"
+  case 125:
+#line 947 "perly.y"
     { (yyval.opval) = newSLICEOP(0, (ps[(5) - (6)].val.opval), (ps[(2) - (6)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (6)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(3) - (6)].val.i_tkval),(yyval.opval),')');
@@ -995,16 +1012,16 @@ case 2:
                        ;}
     break;
 
-  case 124:
-#line 943 "perly.y"
+  case 126:
+#line 954 "perly.y"
     { (yyval.opval) = newSLICEOP(0, (ps[(3) - (4)].val.opval), (ps[(1) - (4)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'[');
                          TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),']');
                        ;}
     break;
 
-  case 125:
-#line 948 "perly.y"
+  case 127:
+#line 959 "perly.y"
     { (yyval.opval) = newSLICEOP(0, (ps[(4) - (5)].val.opval), (OP*)NULL);
                          TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),')');
@@ -1013,22 +1030,22 @@ case 2:
                        ;}
     break;
 
-  case 126:
-#line 958 "perly.y"
+  case 128:
+#line 969 "perly.y"
     { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[(1) - (3)].val.opval), IVAL((ps[(2) - (3)].val.i_tkval)), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 127:
-#line 962 "perly.y"
+  case 129:
+#line 973 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 128:
-#line 966 "perly.y"
+  case 130:
+#line 977 "perly.y"
     {   if (IVAL((ps[(2) - (3)].val.i_tkval)) != OP_REPEAT)
                                scalar((ps[(1) - (3)].val.opval));
                            (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, (ps[(1) - (3)].val.opval), scalar((ps[(3) - (3)].val.opval)));
@@ -1036,50 +1053,50 @@ case 2:
                        ;}
     break;
 
-  case 129:
-#line 972 "perly.y"
+  case 131:
+#line 983 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 130:
-#line 976 "perly.y"
+  case 132:
+#line 987 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 131:
-#line 980 "perly.y"
+  case 133:
+#line 991 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 132:
-#line 984 "perly.y"
+  case 134:
+#line 995 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 133:
-#line 988 "perly.y"
+  case 135:
+#line 999 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 134:
-#line 992 "perly.y"
+  case 136:
+#line 1003 "perly.y"
     { (yyval.opval) = newBINOP(IVAL((ps[(2) - (3)].val.i_tkval)), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 135:
-#line 996 "perly.y"
+  case 137:
+#line 1007 "perly.y"
     {
                          (yyval.opval) = newRANGE(IVAL((ps[(2) - (3)].val.i_tkval)), scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval)));
                          DO_MAD({
@@ -1093,29 +1110,29 @@ case 2:
                        ;}
     break;
 
-  case 136:
-#line 1008 "perly.y"
+  case 138:
+#line 1019 "perly.y"
     { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 137:
-#line 1012 "perly.y"
+  case 139:
+#line 1023 "perly.y"
     { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 138:
-#line 1016 "perly.y"
+  case 140:
+#line 1027 "perly.y"
     { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 139:
-#line 1020 "perly.y"
+  case 141:
+#line 1031 "perly.y"
     { (yyval.opval) = bind_match(IVAL((ps[(2) - (3)].val.i_tkval)), (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),
                                ((yyval.opval)->op_type == OP_NOT
@@ -1124,15 +1141,15 @@ case 2:
                        ;}
     break;
 
-  case 140:
-#line 1030 "perly.y"
+  case 142:
+#line 1041 "perly.y"
     { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[(2) - (2)].val.opval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 141:
-#line 1034 "perly.y"
+  case 143:
+#line 1045 "perly.y"
     { (yyval.opval) = IF_MAD(
                                    newUNOP(OP_NULL, 0, (ps[(2) - (2)].val.opval)),
                                    (ps[(2) - (2)].val.opval)
@@ -1141,70 +1158,70 @@ case 2:
                        ;}
     break;
 
-  case 142:
-#line 1041 "perly.y"
+  case 144:
+#line 1052 "perly.y"
     { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 143:
-#line 1045 "perly.y"
+  case 145:
+#line 1056 "perly.y"
     { (yyval.opval) = newUNOP(OP_COMPLEMENT, 0, scalar((ps[(2) - (2)].val.opval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 144:
-#line 1049 "perly.y"
+  case 146:
+#line 1060 "perly.y"
     { (yyval.opval) = newUNOP(OP_POSTINC, 0,
                                        mod(scalar((ps[(1) - (2)].val.opval)), OP_POSTINC));
                          TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 145:
-#line 1054 "perly.y"
+  case 147:
+#line 1065 "perly.y"
     { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
                                        mod(scalar((ps[(1) - (2)].val.opval)), OP_POSTDEC));
                          TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 146:
-#line 1059 "perly.y"
+  case 148:
+#line 1070 "perly.y"
     { (yyval.opval) = newUNOP(OP_PREINC, 0,
                                        mod(scalar((ps[(2) - (2)].val.opval)), OP_PREINC));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 147:
-#line 1064 "perly.y"
+  case 149:
+#line 1075 "perly.y"
     { (yyval.opval) = newUNOP(OP_PREDEC, 0,
                                        mod(scalar((ps[(2) - (2)].val.opval)), OP_PREDEC));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 148:
-#line 1073 "perly.y"
+  case 150:
+#line 1084 "perly.y"
     { (yyval.opval) = newANONLIST((ps[(2) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'[');
                          TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),']');
                        ;}
     break;
 
-  case 149:
-#line 1078 "perly.y"
+  case 151:
+#line 1089 "perly.y"
     { (yyval.opval) = newANONLIST((OP*)NULL);
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'[');
                          TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),']');
                        ;}
     break;
 
-  case 150:
-#line 1083 "perly.y"
+  case 152:
+#line 1094 "perly.y"
     { (yyval.opval) = newANONHASH((ps[(2) - (4)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'{');
                          TOKEN_GETMAD((ps[(3) - (4)].val.i_tkval),(yyval.opval),';');
@@ -1212,8 +1229,8 @@ case 2:
                        ;}
     break;
 
-  case 151:
-#line 1089 "perly.y"
+  case 153:
+#line 1100 "perly.y"
     { (yyval.opval) = newANONHASH((OP*)NULL);
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'{');
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),';');
@@ -1221,8 +1238,8 @@ case 2:
                        ;}
     break;
 
-  case 152:
-#line 1095 "perly.y"
+  case 154:
+#line 1106 "perly.y"
     { SvREFCNT_inc_simple_void(PL_compcv);
                          (yyval.opval) = newANONATTRSUB((ps[(2) - (5)].val.ival), (ps[(3) - (5)].val.opval), (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (5)].val.i_tkval),(yyval.opval),'o');
@@ -1231,22 +1248,22 @@ case 2:
                        ;}
     break;
 
-  case 153:
-#line 1106 "perly.y"
+  case 155:
+#line 1117 "perly.y"
     { (yyval.opval) = dofile((ps[(2) - (2)].val.opval), IVAL((ps[(1) - (2)].val.i_tkval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 154:
-#line 1110 "perly.y"
+  case 156:
+#line 1121 "perly.y"
     { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, scope((ps[(2) - (2)].val.opval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'D');
                        ;}
     break;
 
-  case 155:
-#line 1114 "perly.y"
+  case 157:
+#line 1125 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB,
                            OPf_SPECIAL|OPf_STACKED,
                            op_prepend_elem(OP_LIST,
@@ -1260,8 +1277,8 @@ case 2:
                        ;}
     break;
 
-  case 156:
-#line 1126 "perly.y"
+  case 158:
+#line 1137 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB,
                            OPf_SPECIAL|OPf_STACKED,
                            op_append_elem(OP_LIST,
@@ -1276,8 +1293,8 @@ case 2:
                        ;}
     break;
 
-  case 157:
-#line 1139 "perly.y"
+  case 159:
+#line 1150 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
                            op_prepend_elem(OP_LIST,
                                scalar(newCVREF(0,scalar((ps[(2) - (4)].val.opval)))), (OP*)NULL)); dep();
@@ -1287,8 +1304,8 @@ case 2:
                        ;}
     break;
 
-  case 158:
-#line 1147 "perly.y"
+  case 160:
+#line 1158 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_SPECIAL|OPf_STACKED,
                            op_prepend_elem(OP_LIST,
                                (ps[(4) - (5)].val.opval),
@@ -1299,86 +1316,86 @@ case 2:
                        ;}
     break;
 
-  case 163:
-#line 1163 "perly.y"
+  case 165:
+#line 1174 "perly.y"
     { (yyval.opval) = newCONDOP(0, (ps[(1) - (5)].val.opval), (ps[(3) - (5)].val.opval), (ps[(5) - (5)].val.opval));
                          TOKEN_GETMAD((ps[(2) - (5)].val.i_tkval),(yyval.opval),'?');
                          TOKEN_GETMAD((ps[(4) - (5)].val.i_tkval),(yyval.opval),':');
                        ;}
     break;
 
-  case 164:
-#line 1168 "perly.y"
+  case 166:
+#line 1179 "perly.y"
     { (yyval.opval) = newUNOP(OP_REFGEN, 0, mod((ps[(2) - (2)].val.opval),OP_REFGEN));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 165:
-#line 1172 "perly.y"
+  case 167:
+#line 1183 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 166:
-#line 1174 "perly.y"
+  case 168:
+#line 1185 "perly.y"
     { (yyval.opval) = localize((ps[(2) - (2)].val.opval),IVAL((ps[(1) - (2)].val.i_tkval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'k');
                        ;}
     break;
 
-  case 167:
-#line 1178 "perly.y"
+  case 169:
+#line 1189 "perly.y"
     { (yyval.opval) = sawparens(IF_MAD(newUNOP(OP_NULL,0,(ps[(2) - (3)].val.opval)), (ps[(2) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
                        ;}
     break;
 
-  case 168:
-#line 1183 "perly.y"
+  case 170:
+#line 1194 "perly.y"
     { (yyval.opval) = IF_MAD(newUNOP(OP_NULL,0,(ps[(1) - (1)].val.opval)), (ps[(1) - (1)].val.opval)); ;}
     break;
 
-  case 169:
-#line 1185 "perly.y"
+  case 171:
+#line 1196 "perly.y"
     { (yyval.opval) = sawparens(newNULLLIST());
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),')');
                        ;}
     break;
 
-  case 170:
-#line 1190 "perly.y"
+  case 172:
+#line 1201 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 171:
-#line 1192 "perly.y"
+  case 173:
+#line 1203 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 172:
-#line 1194 "perly.y"
+  case 174:
+#line 1205 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 173:
-#line 1196 "perly.y"
+  case 175:
+#line 1207 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 174:
-#line 1198 "perly.y"
+  case 176:
+#line 1209 "perly.y"
     { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[(1) - (1)].val.opval), OP_AV2ARYLEN));;}
     break;
 
-  case 175:
-#line 1200 "perly.y"
+  case 177:
+#line 1211 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 176:
-#line 1202 "perly.y"
+  case 178:
+#line 1213 "perly.y"
     { (yyval.opval) = op_prepend_elem(OP_ASLICE,
                                newOP(OP_PUSHMARK, 0),
                                    newLISTOP(OP_ASLICE, 0,
@@ -1389,8 +1406,8 @@ case 2:
                        ;}
     break;
 
-  case 177:
-#line 1211 "perly.y"
+  case 179:
+#line 1222 "perly.y"
     { (yyval.opval) = op_prepend_elem(OP_HSLICE,
                                newOP(OP_PUSHMARK, 0),
                                    newLISTOP(OP_HSLICE, 0,
@@ -1403,26 +1420,26 @@ case 2:
                        ;}
     break;
 
-  case 178:
-#line 1222 "perly.y"
+  case 180:
+#line 1233 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 179:
-#line 1224 "perly.y"
+  case 181:
+#line 1235 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[(1) - (1)].val.opval))); ;}
     break;
 
-  case 180:
-#line 1226 "perly.y"
+  case 182:
+#line 1237 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (3)].val.opval)));
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
                        ;}
     break;
 
-  case 181:
-#line 1231 "perly.y"
+  case 183:
+#line 1242 "perly.y"
     {
                          (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval), scalar((ps[(1) - (4)].val.opval))));
@@ -1437,91 +1454,91 @@ case 2:
                        ;}
     break;
 
-  case 182:
-#line 1244 "perly.y"
+  case 184:
+#line 1255 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                            op_append_elem(OP_LIST, (ps[(3) - (3)].val.opval), scalar((ps[(2) - (3)].val.opval))));
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 183:
-#line 1249 "perly.y"
+  case 185:
+#line 1260 "perly.y"
     { (yyval.opval) = newOP(IVAL((ps[(1) - (1)].val.i_tkval)), OPf_SPECIAL);
                            PL_hints |= HINT_BLOCK_SCOPE;
                          TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 184:
-#line 1254 "perly.y"
+  case 186:
+#line 1265 "perly.y"
     { (yyval.opval) = newLOOPEX(IVAL((ps[(1) - (2)].val.i_tkval)),(ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 185:
-#line 1258 "perly.y"
+  case 187:
+#line 1269 "perly.y"
     { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 186:
-#line 1262 "perly.y"
+  case 188:
+#line 1273 "perly.y"
     { (yyval.opval) = newOP(IVAL((ps[(1) - (1)].val.i_tkval)), 0);
                          TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 187:
-#line 1266 "perly.y"
+  case 189:
+#line 1277 "perly.y"
     { (yyval.opval) = newUNOP(IVAL((ps[(1) - (2)].val.i_tkval)), 0, (ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 188:
-#line 1270 "perly.y"
+  case 190:
+#line 1281 "perly.y"
     { (yyval.opval) = newUNOP(IVAL((ps[(1) - (2)].val.i_tkval)), 0, (ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 189:
-#line 1274 "perly.y"
+  case 191:
+#line 1285 "perly.y"
     { (yyval.opval) = newOP(OP_REQUIRE, (ps[(1) - (1)].val.i_tkval) ? OPf_SPECIAL : 0);
                          TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 190:
-#line 1278 "perly.y"
+  case 192:
+#line 1289 "perly.y"
     { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[(1) - (2)].val.i_tkval) ? OPf_SPECIAL : 0, (ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 191:
-#line 1282 "perly.y"
+  case 193:
+#line 1293 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (1)].val.opval))); ;}
     break;
 
-  case 192:
-#line 1284 "perly.y"
+  case 194:
+#line 1295 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                            op_append_elem(OP_LIST, (ps[(2) - (2)].val.opval), scalar((ps[(1) - (2)].val.opval)))); ;}
     break;
 
-  case 193:
-#line 1287 "perly.y"
+  case 195:
+#line 1298 "perly.y"
     { (yyval.opval) = newOP(IVAL((ps[(1) - (1)].val.i_tkval)), 0);
                          TOKEN_GETMAD((ps[(1) - (1)].val.i_tkval),(yyval.opval),'o');
                        ;}
     break;
 
-  case 194:
-#line 1291 "perly.y"
+  case 196:
+#line 1302 "perly.y"
     { (yyval.opval) = newOP(IVAL((ps[(1) - (3)].val.i_tkval)), 0);
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o');
                          TOKEN_GETMAD((ps[(2) - (3)].val.i_tkval),(yyval.opval),'(');
@@ -1529,14 +1546,14 @@ case 2:
                        ;}
     break;
 
-  case 195:
-#line 1297 "perly.y"
+  case 197:
+#line 1308 "perly.y"
     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
                                scalar((ps[(1) - (1)].val.opval))); ;}
     break;
 
-  case 196:
-#line 1300 "perly.y"
+  case 198:
+#line 1311 "perly.y"
     { (yyval.opval) = (IVAL((ps[(1) - (3)].val.i_tkval)) == OP_NOT)
                            ? newUNOP(IVAL((ps[(1) - (3)].val.i_tkval)), 0, newSVOP(OP_CONST, 0, newSViv(0)))
                            : newOP(IVAL((ps[(1) - (3)].val.i_tkval)), OPf_SPECIAL);
@@ -1547,8 +1564,8 @@ case 2:
                        ;}
     break;
 
-  case 197:
-#line 1309 "perly.y"
+  case 199:
+#line 1320 "perly.y"
     { (yyval.opval) = newUNOP(IVAL((ps[(1) - (4)].val.i_tkval)), 0, (ps[(3) - (4)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (4)].val.i_tkval),(yyval.opval),'o');
                          TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
@@ -1556,16 +1573,16 @@ case 2:
                        ;}
     break;
 
-  case 198:
-#line 1315 "perly.y"
+  case 200:
+#line 1326 "perly.y"
     { (yyval.opval) = pmruntime((ps[(1) - (4)].val.opval), (ps[(3) - (4)].val.opval), 1);
                          TOKEN_GETMAD((ps[(2) - (4)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(4) - (4)].val.i_tkval),(yyval.opval),')');
                        ;}
     break;
 
-  case 201:
-#line 1322 "perly.y"
+  case 203:
+#line 1333 "perly.y"
     {
                          (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
                                newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
@@ -1573,8 +1590,8 @@ case 2:
                        ;}
     break;
 
-  case 203:
-#line 1332 "perly.y"
+  case 205:
+#line 1343 "perly.y"
     { (yyval.opval) = my_attrs((ps[(2) - (3)].val.opval),(ps[(3) - (3)].val.opval));
                          DO_MAD(
                              token_getmad((ps[(1) - (3)].val.i_tkval),(yyval.opval),'d');
@@ -1584,143 +1601,143 @@ case 2:
                        ;}
     break;
 
-  case 204:
-#line 1340 "perly.y"
+  case 206:
+#line 1351 "perly.y"
     { (yyval.opval) = localize((ps[(2) - (2)].val.opval),IVAL((ps[(1) - (2)].val.i_tkval)));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'d');
                        ;}
     break;
 
-  case 205:
-#line 1347 "perly.y"
+  case 207:
+#line 1358 "perly.y"
     { (yyval.opval) = sawparens((ps[(2) - (3)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (3)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(3) - (3)].val.i_tkval),(yyval.opval),')');
                        ;}
     break;
 
-  case 206:
-#line 1352 "perly.y"
+  case 208:
+#line 1363 "perly.y"
     { (yyval.opval) = sawparens(newNULLLIST());
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'(');
                          TOKEN_GETMAD((ps[(2) - (2)].val.i_tkval),(yyval.opval),')');
                        ;}
     break;
 
-  case 207:
-#line 1357 "perly.y"
+  case 209:
+#line 1368 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 208:
-#line 1359 "perly.y"
+  case 210:
+#line 1370 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 209:
-#line 1361 "perly.y"
+  case 211:
+#line 1372 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 210:
-#line 1366 "perly.y"
+  case 212:
+#line 1377 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 211:
-#line 1368 "perly.y"
+  case 213:
+#line 1379 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 212:
-#line 1372 "perly.y"
+  case 214:
+#line 1383 "perly.y"
     { (yyval.opval) = (OP*)NULL; ;}
     break;
 
-  case 213:
-#line 1374 "perly.y"
+  case 215:
+#line 1385 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
-  case 214:
-#line 1378 "perly.y"
+  case 216:
+#line 1389 "perly.y"
     { (yyval.i_tkval) = (ps[(1) - (1)].val.i_tkval); ;}
     break;
 
-  case 215:
-#line 1380 "perly.y"
+  case 217:
+#line 1391 "perly.y"
     { munge_qwlist_to_paren_list((ps[(1) - (1)].val.opval)); ;}
     break;
 
-  case 216:
-#line 1382 "perly.y"
+  case 218:
+#line 1393 "perly.y"
     { (yyval.i_tkval) = (ps[(3) - (3)].val.i_tkval); ;}
     break;
 
-  case 217:
-#line 1388 "perly.y"
+  case 219:
+#line 1399 "perly.y"
     { PL_parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); ;}
     break;
 
-  case 218:
-#line 1392 "perly.y"
+  case 220:
+#line 1403 "perly.y"
     { (yyval.opval) = newCVREF(IVAL((ps[(1) - (2)].val.i_tkval)),(ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'&');
                        ;}
     break;
 
-  case 219:
-#line 1398 "perly.y"
+  case 221:
+#line 1409 "perly.y"
     { (yyval.opval) = newSVREF((ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'$');
                        ;}
     break;
 
-  case 220:
-#line 1404 "perly.y"
+  case 222:
+#line 1415 "perly.y"
     { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'@');
                        ;}
     break;
 
-  case 221:
-#line 1410 "perly.y"
+  case 223:
+#line 1421 "perly.y"
     { (yyval.opval) = newHVREF((ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'%');
                        ;}
     break;
 
-  case 222:
-#line 1416 "perly.y"
+  case 224:
+#line 1427 "perly.y"
     { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'l');
                        ;}
     break;
 
-  case 223:
-#line 1422 "perly.y"
+  case 225:
+#line 1433 "perly.y"
     { (yyval.opval) = newGVREF(0,(ps[(2) - (2)].val.opval));
                          TOKEN_GETMAD((ps[(1) - (2)].val.i_tkval),(yyval.opval),'*');
                        ;}
     break;
 
-  case 224:
-#line 1429 "perly.y"
+  case 226:
+#line 1440 "perly.y"
     { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
     break;
 
-  case 225:
-#line 1431 "perly.y"
+  case 227:
+#line 1442 "perly.y"
     { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); ;}
     break;
 
-  case 226:
-#line 1433 "perly.y"
+  case 228:
+#line 1444 "perly.y"
     { (yyval.opval) = scope((ps[(1) - (1)].val.opval)); ;}
     break;
 
-  case 227:
-#line 1436 "perly.y"
+  case 229:
+#line 1447 "perly.y"
     { (yyval.opval) = (ps[(1) - (1)].val.opval); ;}
     break;
 
diff --git a/perly.h b/perly.h
index a266f04..b3a5595 100644 (file)
--- a/perly.h
+++ b/perly.h
       know about them.  */
    enum yytokentype {
      GRAMPROG = 258,
-     GRAMFULLSTMT = 259,
-     GRAMSTMTSEQ = 260,
-     WORD = 261,
-     METHOD = 262,
-     FUNCMETH = 263,
-     THING = 264,
-     PMFUNC = 265,
-     PRIVATEREF = 266,
-     QWLIST = 267,
-     FUNC0SUB = 268,
-     UNIOPSUB = 269,
-     LSTOPSUB = 270,
-     PLUGEXPR = 271,
-     PLUGSTMT = 272,
-     LABEL = 273,
-     FORMAT = 274,
-     SUB = 275,
-     ANONSUB = 276,
-     PACKAGE = 277,
-     USE = 278,
-     WHILE = 279,
-     UNTIL = 280,
-     IF = 281,
-     UNLESS = 282,
-     ELSE = 283,
-     ELSIF = 284,
-     CONTINUE = 285,
-     FOR = 286,
-     GIVEN = 287,
-     WHEN = 288,
-     DEFAULT = 289,
-     LOOPEX = 290,
-     DOTDOT = 291,
-     YADAYADA = 292,
-     FUNC0 = 293,
-     FUNC1 = 294,
-     FUNC = 295,
-     UNIOP = 296,
-     LSTOP = 297,
-     RELOP = 298,
-     EQOP = 299,
-     MULOP = 300,
-     ADDOP = 301,
-     DOLSHARP = 302,
-     DO = 303,
-     HASHBRACK = 304,
-     NOAMP = 305,
-     LOCAL = 306,
-     MY = 307,
-     MYSUB = 308,
-     REQUIRE = 309,
-     COLONATTR = 310,
-     PREC_LOW = 311,
-     DOROP = 312,
-     OROP = 313,
-     ANDOP = 314,
-     NOTOP = 315,
-     ASSIGNOP = 316,
-     DORDOR = 317,
-     OROR = 318,
-     ANDAND = 319,
-     BITOROP = 320,
-     BITANDOP = 321,
-     SHIFTOP = 322,
-     MATCHOP = 323,
-     REFGEN = 324,
-     UMINUS = 325,
-     POWOP = 326,
-     POSTDEC = 327,
-     POSTINC = 328,
-     PREDEC = 329,
-     PREINC = 330,
-     ARROW = 331,
-     PEG = 332
+     GRAMBLOCK = 259,
+     GRAMFULLSTMT = 260,
+     GRAMSTMTSEQ = 261,
+     WORD = 262,
+     METHOD = 263,
+     FUNCMETH = 264,
+     THING = 265,
+     PMFUNC = 266,
+     PRIVATEREF = 267,
+     QWLIST = 268,
+     FUNC0SUB = 269,
+     UNIOPSUB = 270,
+     LSTOPSUB = 271,
+     PLUGEXPR = 272,
+     PLUGSTMT = 273,
+     LABEL = 274,
+     FORMAT = 275,
+     SUB = 276,
+     ANONSUB = 277,
+     PACKAGE = 278,
+     USE = 279,
+     WHILE = 280,
+     UNTIL = 281,
+     IF = 282,
+     UNLESS = 283,
+     ELSE = 284,
+     ELSIF = 285,
+     CONTINUE = 286,
+     FOR = 287,
+     GIVEN = 288,
+     WHEN = 289,
+     DEFAULT = 290,
+     LOOPEX = 291,
+     DOTDOT = 292,
+     YADAYADA = 293,
+     FUNC0 = 294,
+     FUNC1 = 295,
+     FUNC = 296,
+     UNIOP = 297,
+     LSTOP = 298,
+     RELOP = 299,
+     EQOP = 300,
+     MULOP = 301,
+     ADDOP = 302,
+     DOLSHARP = 303,
+     DO = 304,
+     HASHBRACK = 305,
+     NOAMP = 306,
+     LOCAL = 307,
+     MY = 308,
+     MYSUB = 309,
+     REQUIRE = 310,
+     COLONATTR = 311,
+     PREC_LOW = 312,
+     DOROP = 313,
+     OROP = 314,
+     ANDOP = 315,
+     NOTOP = 316,
+     ASSIGNOP = 317,
+     DORDOR = 318,
+     OROR = 319,
+     ANDAND = 320,
+     BITOROP = 321,
+     BITANDOP = 322,
+     SHIFTOP = 323,
+     MATCHOP = 324,
+     REFGEN = 325,
+     UMINUS = 326,
+     POWOP = 327,
+     POSTDEC = 328,
+     POSTINC = 329,
+     PREDEC = 330,
+     PREINC = 331,
+     ARROW = 332,
+     PEG = 333
    };
 #endif
 /* Tokens.  */
 #define GRAMPROG 258
-#define GRAMFULLSTMT 259
-#define GRAMSTMTSEQ 260
-#define WORD 261
-#define METHOD 262
-#define FUNCMETH 263
-#define THING 264
-#define PMFUNC 265
-#define PRIVATEREF 266
-#define QWLIST 267
-#define FUNC0SUB 268
-#define UNIOPSUB 269
-#define LSTOPSUB 270
-#define PLUGEXPR 271
-#define PLUGSTMT 272
-#define LABEL 273
-#define FORMAT 274
-#define SUB 275
-#define ANONSUB 276
-#define PACKAGE 277
-#define USE 278
-#define WHILE 279
-#define UNTIL 280
-#define IF 281
-#define UNLESS 282
-#define ELSE 283
-#define ELSIF 284
-#define CONTINUE 285
-#define FOR 286
-#define GIVEN 287
-#define WHEN 288
-#define DEFAULT 289
-#define LOOPEX 290
-#define DOTDOT 291
-#define YADAYADA 292
-#define FUNC0 293
-#define FUNC1 294
-#define FUNC 295
-#define UNIOP 296
-#define LSTOP 297
-#define RELOP 298
-#define EQOP 299
-#define MULOP 300
-#define ADDOP 301
-#define DOLSHARP 302
-#define DO 303
-#define HASHBRACK 304
-#define NOAMP 305
-#define LOCAL 306
-#define MY 307
-#define MYSUB 308
-#define REQUIRE 309
-#define COLONATTR 310
-#define PREC_LOW 311
-#define DOROP 312
-#define OROP 313
-#define ANDOP 314
-#define NOTOP 315
-#define ASSIGNOP 316
-#define DORDOR 317
-#define OROR 318
-#define ANDAND 319
-#define BITOROP 320
-#define BITANDOP 321
-#define SHIFTOP 322
-#define MATCHOP 323
-#define REFGEN 324
-#define UMINUS 325
-#define POWOP 326
-#define POSTDEC 327
-#define POSTINC 328
-#define PREDEC 329
-#define PREINC 330
-#define ARROW 331
-#define PEG 332
+#define GRAMBLOCK 259
+#define GRAMFULLSTMT 260
+#define GRAMSTMTSEQ 261
+#define WORD 262
+#define METHOD 263
+#define FUNCMETH 264
+#define THING 265
+#define PMFUNC 266
+#define PRIVATEREF 267
+#define QWLIST 268
+#define FUNC0SUB 269
+#define UNIOPSUB 270
+#define LSTOPSUB 271
+#define PLUGEXPR 272
+#define PLUGSTMT 273
+#define LABEL 274
+#define FORMAT 275
+#define SUB 276
+#define ANONSUB 277
+#define PACKAGE 278
+#define USE 279
+#define WHILE 280
+#define UNTIL 281
+#define IF 282
+#define UNLESS 283
+#define ELSE 284
+#define ELSIF 285
+#define CONTINUE 286
+#define FOR 287
+#define GIVEN 288
+#define WHEN 289
+#define DEFAULT 290
+#define LOOPEX 291
+#define DOTDOT 292
+#define YADAYADA 293
+#define FUNC0 294
+#define FUNC1 295
+#define FUNC 296
+#define UNIOP 297
+#define LSTOP 298
+#define RELOP 299
+#define EQOP 300
+#define MULOP 301
+#define ADDOP 302
+#define DOLSHARP 303
+#define DO 304
+#define HASHBRACK 305
+#define NOAMP 306
+#define LOCAL 307
+#define MY 308
+#define MYSUB 309
+#define REQUIRE 310
+#define COLONATTR 311
+#define PREC_LOW 312
+#define DOROP 313
+#define OROP 314
+#define ANDOP 315
+#define NOTOP 316
+#define ASSIGNOP 317
+#define DORDOR 318
+#define OROR 319
+#define ANDAND 320
+#define BITOROP 321
+#define BITANDOP 322
+#define SHIFTOP 323
+#define MATCHOP 324
+#define REFGEN 325
+#define UMINUS 326
+#define POWOP 327
+#define POSTDEC 328
+#define POSTINC 329
+#define PREDEC 330
+#define PREINC 331
+#define ARROW 332
+#define PEG 333
 
 
 
index 834cc9b..6b3a73b 100644 (file)
--- a/perly.tab
+++ b/perly.tab
@@ -1,19 +1,19 @@
-#define YYFINAL  9
+#define YYFINAL  11
 /* YYLAST -- Last index in YYTABLE.  */
-#define YYLAST   2118
+#define YYLAST   2121
 
 /* YYNTOKENS -- Number of terminals.  */
-#define YYNTOKENS  97
+#define YYNTOKENS  98
 /* YYNNTS -- Number of nonterminals.  */
-#define YYNNTS  73
+#define YYNNTS  74
 /* YYNRULES -- Number of rules.  */
-#define YYNRULES  227
+#define YYNRULES  229
 /* YYNRULES -- Number of states.  */
-#define YYNSTATES  448
+#define YYNSTATES  451
 
 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
 #define YYUNDEFTOK  2
-#define YYMAXUTOK   332
+#define YYMAXUTOK   333
 
 #define YYTRANSLATE(YYX)                                               \
   ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
@@ -24,16 +24,16 @@ static const yytype_uint8 yytranslate[] =
        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     2,     2,    84,     2,     2,    12,    14,    16,     2,
-      95,    94,    15,    11,    73,    10,     2,     2,     2,     2,
-       2,     2,     2,     2,     2,     2,     2,     2,    76,    17,
-       2,     2,     2,    75,    13,     2,     2,     2,     2,     2,
+       2,     2,     2,    85,     2,     2,    13,    15,    17,     2,
+      96,    95,    16,    12,    74,    11,     2,     2,     2,     2,
+       2,     2,     2,     2,     2,     2,     2,     2,    77,    18,
+       2,     2,     2,    76,    14,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     8,     2,     9,     2,     2,     2,     2,     2,     2,
+       2,     9,     2,    10,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     2,     2,     6,     2,     7,    85,     2,     2,     2,
+       2,     2,     2,     7,     2,     8,    86,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
@@ -47,14 +47,14 @@ static const yytype_uint8 yytranslate[] =
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     1,     2,     3,     4,
-       5,    18,    19,    20,    21,    22,    23,    24,    25,    26,
+       5,     6,    19,    20,    21,    22,    23,    24,    25,    26,
       27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
       37,    38,    39,    40,    41,    42,    43,    44,    45,    46,
       47,    48,    49,    50,    51,    52,    53,    54,    55,    56,
       57,    58,    59,    60,    61,    62,    63,    64,    65,    66,
-      67,    68,    69,    70,    71,    72,    74,    77,    78,    79,
-      80,    81,    82,    83,    86,    87,    88,    89,    90,    91,
-      92,    93,    96
+      67,    68,    69,    70,    71,    72,    73,    75,    78,    79,
+      80,    81,    82,    83,    84,    87,    88,    89,    90,    91,
+      92,    93,    94,    97
 };
 
 #if YYDEBUG
@@ -62,141 +62,141 @@ static const yytype_uint8 yytranslate[] =
    YYRHS.  */
 static const yytype_uint16 yyprhs[] =
 {
-       0,     0,     3,     6,     7,    11,    12,    16,    19,    24,
-      25,    26,    27,    32,    33,    34,    37,    40,    42,    44,
-      47,    49,    51,    54,    57,    61,    63,    66,    68,    70,
-      74,    78,    82,    86,    90,    94,    95,    98,   105,   113,
-     121,   128,   131,   132,   135,   145,   155,   166,   176,   185,
-     198,   202,   211,   212,   213,   215,   216,   218,   220,   222,
-     224,   226,   227,   229,   231,   233,   235,   237,   239,   241,
-     243,   248,   250,   251,   258,   265,   266,   267,   268,   270,
-     271,   273,   274,   277,   279,   282,   284,   286,   288,   293,
-     294,   303,   304,   312,   316,   320,   324,   326,   329,   333,
-     335,   339,   345,   352,   356,   360,   366,   369,   374,   375,
-     381,   383,   385,   391,   396,   402,   407,   413,   420,   426,
-     431,   437,   442,   446,   453,   458,   464,   468,   472,   476,
-     480,   484,   488,   492,   496,   500,   504,   508,   512,   516,
-     520,   523,   526,   529,   532,   535,   538,   541,   544,   548,
-     551,   556,   560,   566,   569,   572,   577,   583,   588,   594,
-     596,   598,   600,   602,   608,   611,   613,   616,   620,   622,
-     625,   627,   629,   631,   633,   635,   637,   642,   648,   650,
-     652,   656,   661,   665,   667,   670,   673,   675,   678,   681,
-     683,   686,   688,   691,   693,   697,   699,   703,   708,   713,
-     715,   717,   719,   721,   725,   728,   732,   735,   737,   739,
-     741,   742,   744,   745,   747,   749,   750,   754,   756,   759,
-     762,   765,   768,   771,   774,   776,   778,   780
+       0,     0,     3,     6,     7,    11,    12,    16,    17,    21,
+      24,    29,    30,    31,    32,    37,    38,    39,    42,    45,
+      47,    49,    52,    54,    56,    59,    62,    66,    68,    71,
+      73,    75,    79,    83,    87,    91,    95,    99,   100,   103,
+     110,   118,   126,   133,   136,   137,   140,   150,   160,   171,
+     181,   190,   203,   207,   216,   217,   218,   220,   221,   223,
+     225,   227,   229,   231,   232,   234,   236,   238,   240,   242,
+     244,   246,   248,   253,   255,   256,   263,   270,   271,   272,
+     273,   275,   276,   278,   279,   282,   284,   287,   289,   291,
+     293,   298,   299,   308,   309,   317,   321,   325,   329,   331,
+     334,   338,   340,   344,   350,   357,   361,   365,   371,   374,
+     379,   380,   386,   388,   390,   396,   401,   407,   412,   418,
+     425,   431,   436,   442,   447,   451,   458,   463,   469,   473,
+     477,   481,   485,   489,   493,   497,   501,   505,   509,   513,
+     517,   521,   525,   528,   531,   534,   537,   540,   543,   546,
+     549,   553,   556,   561,   565,   571,   574,   577,   582,   588,
+     593,   599,   601,   603,   605,   607,   613,   616,   618,   621,
+     625,   627,   630,   632,   634,   636,   638,   640,   642,   647,
+     653,   655,   657,   661,   666,   670,   672,   675,   678,   680,
+     683,   686,   688,   691,   693,   696,   698,   702,   704,   708,
+     713,   718,   720,   722,   724,   726,   730,   733,   737,   740,
+     742,   744,   746,   747,   749,   750,   752,   754,   755,   759,
+     761,   764,   767,   770,   773,   776,   779,   781,   783,   785
 };
 
 /* YYRHS -- A `-1'-separated list of the rules' RHS.  */
 static const yytype_int16 yyrhs[] =
 {
-      98,     0,    -1,     3,   101,    -1,    -1,     4,    99,   109,
-      -1,    -1,     5,   100,   108,    -1,   105,   108,    -1,     6,
-     103,   108,     7,    -1,    -1,    -1,    -1,     6,   107,   108,
-       7,    -1,    -1,    -1,   108,   126,    -1,   108,   110,    -1,
-     126,    -1,   110,    -1,   125,   113,    -1,   116,    -1,   117,
-      -1,   125,   114,    -1,   125,    17,    -1,   125,   111,    17,
-      -1,   141,    -1,   125,    29,    -1,     1,    -1,   145,    -1,
-     145,    38,   145,    -1,   145,    39,   145,    -1,   145,    36,
-     145,    -1,   145,    37,   121,    -1,   145,    43,   145,    -1,
-     145,    45,   145,    -1,    -1,    40,   106,    -1,    41,   160,
-     122,    94,   106,   112,    -1,    38,   160,   103,   122,    94,
-     106,   112,    -1,    39,   160,   103,   124,    94,   106,   112,
-      -1,    45,   160,   103,   122,    94,   106,    -1,    46,   102,
-      -1,    -1,    42,   102,    -1,   125,    36,   160,   103,   120,
-      94,   118,   106,   115,    -1,   125,    37,   160,   103,   121,
-      94,   118,   106,   115,    -1,   125,    43,    64,   103,   162,
-     160,   122,    94,   106,   115,    -1,   125,    43,   164,   160,
-     103,   122,    94,   106,   115,    -1,   125,    43,   160,   103,
-     122,    94,   106,   115,    -1,   125,    43,   160,   103,   123,
-      17,   120,    17,   118,   123,    94,   106,    -1,   125,   102,
-     115,    -1,   125,    44,   160,   103,   104,   122,    94,   106,
-      -1,    -1,    -1,   111,    -1,    -1,   145,    -1,   145,    -1,
-     145,    -1,   119,    -1,   121,    -1,    -1,    30,    -1,   128,
-      -1,   131,    -1,   130,    -1,   140,    -1,   143,    -1,   127,
-      -1,    96,    -1,    31,   134,   129,   102,    -1,    18,    -1,
-      -1,    65,   132,   135,   136,   137,   139,    -1,    32,   132,
-     135,   136,   137,   139,    -1,    -1,    -1,    -1,    18,    -1,
-      -1,    21,    -1,    -1,    67,    21,    -1,    67,    -1,    67,
-      21,    -1,    67,    -1,   102,    -1,    17,    -1,    34,    18,
-      18,    17,    -1,    -1,    34,    18,    18,     6,   103,   142,
-     108,     7,    -1,    -1,    35,   132,   144,    18,    18,   158,
-      17,    -1,   145,    71,   145,    -1,   145,    70,   145,    -1,
-     145,    69,   145,    -1,   146,    -1,   146,    73,    -1,   146,
-      73,   155,    -1,   155,    -1,    54,   169,   146,    -1,    52,
-      95,   169,   145,    94,    -1,   155,    93,   149,   160,   159,
-      94,    -1,   155,    93,   149,    -1,    19,   169,   158,    -1,
-      20,   169,    95,   159,    94,    -1,    54,   158,    -1,    52,
-      95,   159,    94,    -1,    -1,    27,   133,   102,   148,   158,
-      -1,    19,    -1,   164,    -1,   168,     6,   145,    17,     7,
-      -1,   164,     8,   145,     9,    -1,   155,    93,     8,   145,
-       9,    -1,   150,     8,   145,     9,    -1,   164,     6,   145,
-      17,     7,    -1,   155,    93,     6,   145,    17,     7,    -1,
-     150,     6,   145,    17,     7,    -1,   155,    93,    95,    94,
-      -1,   155,    93,    95,   145,    94,    -1,   150,   160,   145,
-      94,    -1,   150,   160,    94,    -1,    95,   145,    94,     8,
-     145,     9,    -1,    24,     8,   145,     9,    -1,    95,    94,
-       8,   145,     9,    -1,   155,    74,   155,    -1,   155,    88,
-     155,    -1,   155,    57,   155,    -1,   155,    58,   155,    -1,
-     155,    82,   155,    -1,   155,    55,   155,    -1,   155,    56,
-     155,    -1,   155,    81,   155,    -1,   155,    80,   155,    -1,
-     155,    48,   155,    -1,   155,    79,   155,    -1,   155,    78,
-     155,    -1,   155,    77,   155,    -1,   155,    83,   155,    -1,
-      10,   155,    -1,    11,   155,    -1,    84,   155,    -1,    85,
-     155,    -1,   155,    90,    -1,   155,    89,    -1,    92,   155,
-      -1,    91,   155,    -1,     8,   145,     9,    -1,     8,     9,
-      -1,    61,   145,    17,     7,    -1,    61,    17,     7,    -1,
-      33,   133,   136,   137,   102,    -1,    60,   155,    -1,    60,
-     102,    -1,    60,    18,   160,    94,    -1,    60,    18,   160,
-     145,    94,    -1,    60,   164,   160,    94,    -1,    60,   164,
-     160,   145,    94,    -1,   151,    -1,   152,    -1,   153,    -1,
-     154,    -1,   155,    75,   155,    76,   155,    -1,    86,   155,
-      -1,   156,    -1,    63,   155,    -1,    95,   145,    94,    -1,
-      24,    -1,    95,    94,    -1,   164,    -1,   168,    -1,   166,
-      -1,   165,    -1,   167,    -1,   150,    -1,   165,     8,   145,
-       9,    -1,   165,     6,   145,    17,     7,    -1,    21,    -1,
-     163,    -1,   163,   160,    94,    -1,   163,   160,   145,    94,
-      -1,    62,    18,   158,    -1,    47,    -1,    47,   155,    -1,
-      72,   146,    -1,    53,    -1,    53,   102,    -1,    53,   155,
-      -1,    66,    -1,    66,   155,    -1,    26,    -1,    26,   155,
-      -1,    50,    -1,    50,    95,    94,    -1,    25,    -1,    51,
-      95,    94,    -1,    51,    95,   145,    94,    -1,    22,    95,
-     146,    94,    -1,    18,    -1,   147,    -1,    49,    -1,    28,
-      -1,    64,   157,   138,    -1,    64,   157,    -1,    95,   145,
-      94,    -1,    95,    94,    -1,   164,    -1,   166,    -1,   165,
-      -1,    -1,   146,    -1,    -1,   145,    -1,    95,    -1,    -1,
-      24,   161,    95,    -1,   164,    -1,    16,   169,    -1,    12,
-     169,    -1,    13,   169,    -1,    14,   169,    -1,    59,   169,
-      -1,    15,   169,    -1,    18,    -1,   164,    -1,   102,    -1,
-      23,    -1
+      99,     0,    -1,     3,   103,    -1,    -1,     4,   100,   104,
+      -1,    -1,     5,   101,   111,    -1,    -1,     6,   102,   110,
+      -1,   107,   110,    -1,     7,   105,   110,     8,    -1,    -1,
+      -1,    -1,     7,   109,   110,     8,    -1,    -1,    -1,   110,
+     128,    -1,   110,   112,    -1,   128,    -1,   112,    -1,   127,
+     115,    -1,   118,    -1,   119,    -1,   127,   116,    -1,   127,
+      18,    -1,   127,   113,    18,    -1,   143,    -1,   127,    30,
+      -1,     1,    -1,   147,    -1,   147,    39,   147,    -1,   147,
+      40,   147,    -1,   147,    37,   147,    -1,   147,    38,   123,
+      -1,   147,    44,   147,    -1,   147,    46,   147,    -1,    -1,
+      41,   108,    -1,    42,   162,   124,    95,   108,   114,    -1,
+      39,   162,   105,   124,    95,   108,   114,    -1,    40,   162,
+     105,   126,    95,   108,   114,    -1,    46,   162,   105,   124,
+      95,   108,    -1,    47,   104,    -1,    -1,    43,   104,    -1,
+     127,    37,   162,   105,   122,    95,   120,   108,   117,    -1,
+     127,    38,   162,   105,   123,    95,   120,   108,   117,    -1,
+     127,    44,    65,   105,   164,   162,   124,    95,   108,   117,
+      -1,   127,    44,   166,   162,   105,   124,    95,   108,   117,
+      -1,   127,    44,   162,   105,   124,    95,   108,   117,    -1,
+     127,    44,   162,   105,   125,    18,   122,    18,   120,   125,
+      95,   108,    -1,   127,   104,   117,    -1,   127,    45,   162,
+     105,   106,   124,    95,   108,    -1,    -1,    -1,   113,    -1,
+      -1,   147,    -1,   147,    -1,   147,    -1,   121,    -1,   123,
+      -1,    -1,    31,    -1,   130,    -1,   133,    -1,   132,    -1,
+     142,    -1,   145,    -1,   129,    -1,    97,    -1,    32,   136,
+     131,   104,    -1,    19,    -1,    -1,    66,   134,   137,   138,
+     139,   141,    -1,    33,   134,   137,   138,   139,   141,    -1,
+      -1,    -1,    -1,    19,    -1,    -1,    22,    -1,    -1,    68,
+      22,    -1,    68,    -1,    68,    22,    -1,    68,    -1,   104,
+      -1,    18,    -1,    35,    19,    19,    18,    -1,    -1,    35,
+      19,    19,     7,   105,   144,   110,     8,    -1,    -1,    36,
+     134,   146,    19,    19,   160,    18,    -1,   147,    72,   147,
+      -1,   147,    71,   147,    -1,   147,    70,   147,    -1,   148,
+      -1,   148,    74,    -1,   148,    74,   157,    -1,   157,    -1,
+      55,   171,   148,    -1,    53,    96,   171,   147,    95,    -1,
+     157,    94,   151,   162,   161,    95,    -1,   157,    94,   151,
+      -1,    20,   171,   160,    -1,    21,   171,    96,   161,    95,
+      -1,    55,   160,    -1,    53,    96,   161,    95,    -1,    -1,
+      28,   135,   104,   150,   160,    -1,    20,    -1,   166,    -1,
+     170,     7,   147,    18,     8,    -1,   166,     9,   147,    10,
+      -1,   157,    94,     9,   147,    10,    -1,   152,     9,   147,
+      10,    -1,   166,     7,   147,    18,     8,    -1,   157,    94,
+       7,   147,    18,     8,    -1,   152,     7,   147,    18,     8,
+      -1,   157,    94,    96,    95,    -1,   157,    94,    96,   147,
+      95,    -1,   152,   162,   147,    95,    -1,   152,   162,    95,
+      -1,    96,   147,    95,     9,   147,    10,    -1,    25,     9,
+     147,    10,    -1,    96,    95,     9,   147,    10,    -1,   157,
+      75,   157,    -1,   157,    89,   157,    -1,   157,    58,   157,
+      -1,   157,    59,   157,    -1,   157,    83,   157,    -1,   157,
+      56,   157,    -1,   157,    57,   157,    -1,   157,    82,   157,
+      -1,   157,    81,   157,    -1,   157,    49,   157,    -1,   157,
+      80,   157,    -1,   157,    79,   157,    -1,   157,    78,   157,
+      -1,   157,    84,   157,    -1,    11,   157,    -1,    12,   157,
+      -1,    85,   157,    -1,    86,   157,    -1,   157,    91,    -1,
+     157,    90,    -1,    93,   157,    -1,    92,   157,    -1,     9,
+     147,    10,    -1,     9,    10,    -1,    62,   147,    18,     8,
+      -1,    62,    18,     8,    -1,    34,   135,   138,   139,   104,
+      -1,    61,   157,    -1,    61,   104,    -1,    61,    19,   162,
+      95,    -1,    61,    19,   162,   147,    95,    -1,    61,   166,
+     162,    95,    -1,    61,   166,   162,   147,    95,    -1,   153,
+      -1,   154,    -1,   155,    -1,   156,    -1,   157,    76,   157,
+      77,   157,    -1,    87,   157,    -1,   158,    -1,    64,   157,
+      -1,    96,   147,    95,    -1,    25,    -1,    96,    95,    -1,
+     166,    -1,   170,    -1,   168,    -1,   167,    -1,   169,    -1,
+     152,    -1,   167,     9,   147,    10,    -1,   167,     7,   147,
+      18,     8,    -1,    22,    -1,   165,    -1,   165,   162,    95,
+      -1,   165,   162,   147,    95,    -1,    63,    19,   160,    -1,
+      48,    -1,    48,   157,    -1,    73,   148,    -1,    54,    -1,
+      54,   104,    -1,    54,   157,    -1,    67,    -1,    67,   157,
+      -1,    27,    -1,    27,   157,    -1,    51,    -1,    51,    96,
+      95,    -1,    26,    -1,    52,    96,    95,    -1,    52,    96,
+     147,    95,    -1,    23,    96,   148,    95,    -1,    19,    -1,
+     149,    -1,    50,    -1,    29,    -1,    65,   159,   140,    -1,
+      65,   159,    -1,    96,   147,    95,    -1,    96,    95,    -1,
+     166,    -1,   168,    -1,   167,    -1,    -1,   148,    -1,    -1,
+     147,    -1,    96,    -1,    -1,    25,   163,    96,    -1,   166,
+      -1,    17,   171,    -1,    13,   171,    -1,    14,   171,    -1,
+      15,   171,    -1,    60,   171,    -1,    16,   171,    -1,    19,
+      -1,   166,    -1,   104,    -1,    24,    -1
 };
 
 /* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
 static const yytype_uint16 yyrline[] =
 {
-       0,   144,   144,   147,   146,   158,   157,   169,   175,   185,
-     189,   193,   199,   209,   214,   215,   219,   228,   230,   238,
-     241,   242,   244,   246,   263,   279,   284,   289,   291,   293,
-     297,   301,   305,   309,   314,   320,   321,   325,   336,   344,
-     355,   358,   364,   365,   372,   385,   397,   408,   418,   428,
-     460,   468,   478,   484,   485,   490,   493,   497,   502,   506,
-     510,   516,   525,   529,   531,   533,   535,   537,   542,   546,
-     552,   572,   573,   577,   590,   613,   619,   624,   629,   639,
-     640,   645,   646,   650,   660,   664,   674,   675,   684,   702,
-     701,   727,   726,   745,   749,   753,   757,   761,   771,   780,
-     784,   789,   796,   805,   811,   817,   825,   829,   836,   835,
-     846,   847,   851,   860,   865,   873,   880,   887,   897,   906,
-     913,   922,   929,   935,   942,   947,   957,   961,   965,   971,
-     975,   979,   983,   987,   991,   995,  1007,  1011,  1015,  1019,
-    1029,  1033,  1040,  1044,  1048,  1053,  1058,  1063,  1072,  1077,
-    1082,  1088,  1094,  1105,  1109,  1113,  1125,  1138,  1146,  1158,
-    1159,  1160,  1161,  1162,  1167,  1171,  1173,  1177,  1182,  1184,
-    1189,  1191,  1193,  1195,  1197,  1199,  1201,  1210,  1221,  1223,
-    1225,  1230,  1243,  1248,  1253,  1257,  1261,  1265,  1269,  1273,
-    1277,  1281,  1283,  1286,  1290,  1296,  1299,  1308,  1314,  1319,
-    1320,  1321,  1327,  1331,  1339,  1346,  1351,  1356,  1358,  1360,
-    1365,  1367,  1372,  1373,  1377,  1380,  1379,  1387,  1391,  1397,
-    1403,  1409,  1415,  1421,  1428,  1430,  1432,  1435
+       0,   144,   144,   147,   146,   158,   157,   169,   168,   180,
+     186,   196,   200,   204,   210,   220,   225,   226,   230,   239,
+     241,   249,   252,   253,   255,   257,   274,   290,   295,   300,
+     302,   304,   308,   312,   316,   320,   325,   331,   332,   336,
+     347,   355,   366,   369,   375,   376,   383,   396,   408,   419,
+     429,   439,   471,   479,   489,   495,   496,   501,   504,   508,
+     513,   517,   521,   527,   536,   540,   542,   544,   546,   548,
+     553,   557,   563,   583,   584,   588,   601,   624,   630,   635,
+     640,   650,   651,   656,   657,   661,   671,   675,   685,   686,
+     695,   713,   712,   738,   737,   756,   760,   764,   768,   772,
+     782,   791,   795,   800,   807,   816,   822,   828,   836,   840,
+     847,   846,   857,   858,   862,   871,   876,   884,   891,   898,
+     908,   917,   924,   933,   940,   946,   953,   958,   968,   972,
+     976,   982,   986,   990,   994,   998,  1002,  1006,  1018,  1022,
+    1026,  1030,  1040,  1044,  1051,  1055,  1059,  1064,  1069,  1074,
+    1083,  1088,  1093,  1099,  1105,  1116,  1120,  1124,  1136,  1149,
+    1157,  1169,  1170,  1171,  1172,  1173,  1178,  1182,  1184,  1188,
+    1193,  1195,  1200,  1202,  1204,  1206,  1208,  1210,  1212,  1221,
+    1232,  1234,  1236,  1241,  1254,  1259,  1264,  1268,  1272,  1276,
+    1280,  1284,  1288,  1292,  1294,  1297,  1301,  1307,  1310,  1319,
+    1325,  1330,  1331,  1332,  1338,  1342,  1350,  1357,  1362,  1367,
+    1369,  1371,  1376,  1378,  1383,  1384,  1388,  1391,  1390,  1398,
+    1402,  1408,  1414,  1420,  1426,  1432,  1439,  1441,  1443,  1446
 };
 #endif
 
@@ -205,7 +205,7 @@ static const yytype_uint16 yyrline[] =
    First, the terminals, then, starting at YYNTOKENS, nonterminals.  */
 static const char *const yytname[] =
 {
-  "$end", "error", "$undefined", "GRAMPROG", "GRAMFULLSTMT",
+  "$end", "error", "$undefined", "GRAMPROG", "GRAMBLOCK", "GRAMFULLSTMT",
   "GRAMSTMTSEQ", "'{'", "'}'", "'['", "']'", "'-'", "'+'", "'$'", "'@'",
   "'%'", "'*'", "'&'", "';'", "WORD", "METHOD", "FUNCMETH", "THING",
   "PMFUNC", "PRIVATEREF", "QWLIST", "FUNC0SUB", "UNIOPSUB", "LSTOPSUB",
@@ -218,17 +218,18 @@ static const char *const yytname[] =
   "','", "ASSIGNOP", "'?'", "':'", "DORDOR", "OROR", "ANDAND", "BITOROP",
   "BITANDOP", "SHIFTOP", "MATCHOP", "'!'", "'~'", "REFGEN", "UMINUS",
   "POWOP", "POSTDEC", "POSTINC", "PREDEC", "PREINC", "ARROW", "')'", "'('",
-  "PEG", "$accept", "grammar", "@1", "@2", "prog", "block", "remember",
-  "mydefsv", "progstart", "mblock", "mremember", "lineseq", "fullstmt",
-  "line", "sideff", "else", "cond", "case", "cont", "loop", "switch",
-  "mintro", "nexpr", "texpr", "iexpr", "mexpr", "mnexpr", "miexpr",
-  "label", "decl", "peg", "format", "formname", "mysubrout", "subrout",
-  "startsub", "startanonsub", "startformsub", "subname", "proto",
-  "subattrlist", "myattrlist", "subbody", "package", "package_block", "@3",
-  "use", "@4", "expr", "argexpr", "listop", "@5", "method", "subscripted",
-  "termbinop", "termunop", "anonymous", "termdo", "term", "myattrterm",
-  "myterm", "listexpr", "listexprcom", "lpar_or_qw", "@6", "my_scalar",
-  "amper", "scalar", "ary", "hsh", "arylen", "star", "indirob", 0
+  "PEG", "$accept", "grammar", "@1", "@2", "@3", "prog", "block",
+  "remember", "mydefsv", "progstart", "mblock", "mremember", "lineseq",
+  "fullstmt", "line", "sideff", "else", "cond", "case", "cont", "loop",
+  "switch", "mintro", "nexpr", "texpr", "iexpr", "mexpr", "mnexpr",
+  "miexpr", "label", "decl", "peg", "format", "formname", "mysubrout",
+  "subrout", "startsub", "startanonsub", "startformsub", "subname",
+  "proto", "subattrlist", "myattrlist", "subbody", "package",
+  "package_block", "@4", "use", "@5", "expr", "argexpr", "listop", "@6",
+  "method", "subscripted", "termbinop", "termunop", "anonymous", "termdo",
+  "term", "myattrterm", "myterm", "listexpr", "listexprcom", "lpar_or_qw",
+  "@7", "my_scalar", "amper", "scalar", "ary", "hsh", "arylen", "star",
+  "indirob", 0
 };
 #endif
 
@@ -237,73 +238,73 @@ static const char *const yytname[] =
    token YYLEX-NUM.  */
 static const yytype_uint16 yytoknum[] =
 {
-       0,   256,   257,   258,   259,   260,   123,   125,    91,    93,
-      45,    43,    36,    64,    37,    42,    38,    59,   261,   262,
+       0,   256,   257,   258,   259,   260,   261,   123,   125,    91,
+      93,    45,    43,    36,    64,    37,    42,    38,    59,   262,
      263,   264,   265,   266,   267,   268,   269,   270,   271,   272,
      273,   274,   275,   276,   277,   278,   279,   280,   281,   282,
      283,   284,   285,   286,   287,   288,   289,   290,   291,   292,
      293,   294,   295,   296,   297,   298,   299,   300,   301,   302,
      303,   304,   305,   306,   307,   308,   309,   310,   311,   312,
-     313,   314,   315,    44,   316,    63,    58,   317,   318,   319,
-     320,   321,   322,   323,    33,   126,   324,   325,   326,   327,
-     328,   329,   330,   331,    41,    40,   332
+     313,   314,   315,   316,    44,   317,    63,    58,   318,   319,
+     320,   321,   322,   323,   324,    33,   126,   325,   326,   327,
+     328,   329,   330,   331,   332,    41,    40,   333
 };
 # endif
 
 /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
 static const yytype_uint8 yyr1[] =
 {
-       0,    97,    98,    99,    98,   100,    98,   101,   102,   103,
-     104,   105,   106,   107,   108,   108,   108,   109,   109,   110,
-     110,   110,   110,   110,   110,   110,   110,   111,   111,   111,
-     111,   111,   111,   111,   111,   112,   112,   112,   113,   113,
-     114,   114,   115,   115,   116,   116,   116,   116,   116,   116,
-     116,   117,   118,   119,   119,   120,   120,   121,   122,   123,
-     124,   125,   125,   126,   126,   126,   126,   126,   126,   127,
-     128,   129,   129,   130,   131,   132,   133,   134,   135,   136,
-     136,   137,   137,   137,   138,   138,   139,   139,   140,   142,
-     141,   144,   143,   145,   145,   145,   145,   146,   146,   146,
-     147,   147,   147,   147,   147,   147,   147,   147,   148,   147,
-     149,   149,   150,   150,   150,   150,   150,   150,   150,   150,
-     150,   150,   150,   150,   150,   150,   151,   151,   151,   151,
-     151,   151,   151,   151,   151,   151,   151,   151,   151,   151,
+       0,    98,    99,   100,    99,   101,    99,   102,    99,   103,
+     104,   105,   106,   107,   108,   109,   110,   110,   110,   111,
+     111,   112,   112,   112,   112,   112,   112,   112,   112,   113,
+     113,   113,   113,   113,   113,   113,   113,   114,   114,   114,
+     115,   115,   116,   116,   117,   117,   118,   118,   118,   118,
+     118,   118,   118,   119,   120,   121,   121,   122,   122,   123,
+     124,   125,   126,   127,   127,   128,   128,   128,   128,   128,
+     128,   129,   130,   131,   131,   132,   133,   134,   135,   136,
+     137,   138,   138,   139,   139,   139,   140,   140,   141,   141,
+     142,   144,   143,   146,   145,   147,   147,   147,   147,   148,
+     148,   148,   149,   149,   149,   149,   149,   149,   149,   149,
+     150,   149,   151,   151,   152,   152,   152,   152,   152,   152,
      152,   152,   152,   152,   152,   152,   152,   152,   153,   153,
-     153,   153,   153,   154,   154,   154,   154,   154,   154,   155,
-     155,   155,   155,   155,   155,   155,   155,   155,   155,   155,
-     155,   155,   155,   155,   155,   155,   155,   155,   155,   155,
-     155,   155,   155,   155,   155,   155,   155,   155,   155,   155,
-     155,   155,   155,   155,   155,   155,   155,   155,   155,   155,
-     155,   155,   155,   156,   156,   157,   157,   157,   157,   157,
-     158,   158,   159,   159,   160,   161,   160,   162,   163,   164,
-     165,   166,   167,   168,   169,   169,   169,   169
+     153,   153,   153,   153,   153,   153,   153,   153,   153,   153,
+     153,   153,   154,   154,   154,   154,   154,   154,   154,   154,
+     155,   155,   155,   155,   155,   156,   156,   156,   156,   156,
+     156,   157,   157,   157,   157,   157,   157,   157,   157,   157,
+     157,   157,   157,   157,   157,   157,   157,   157,   157,   157,
+     157,   157,   157,   157,   157,   157,   157,   157,   157,   157,
+     157,   157,   157,   157,   157,   157,   157,   157,   157,   157,
+     157,   157,   157,   157,   157,   158,   158,   159,   159,   159,
+     159,   159,   160,   160,   161,   161,   162,   163,   162,   164,
+     165,   166,   167,   168,   169,   170,   171,   171,   171,   171
 };
 
 /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */
 static const yytype_uint8 yyr2[] =
 {
-       0,     2,     2,     0,     3,     0,     3,     2,     4,     0,
-       0,     0,     4,     0,     0,     2,     2,     1,     1,     2,
-       1,     1,     2,     2,     3,     1,     2,     1,     1,     3,
-       3,     3,     3,     3,     3,     0,     2,     6,     7,     7,
-       6,     2,     0,     2,     9,     9,    10,     9,     8,    12,
-       3,     8,     0,     0,     1,     0,     1,     1,     1,     1,
-       1,     0,     1,     1,     1,     1,     1,     1,     1,     1,
-       4,     1,     0,     6,     6,     0,     0,     0,     1,     0,
-       1,     0,     2,     1,     2,     1,     1,     1,     4,     0,
-       8,     0,     7,     3,     3,     3,     1,     2,     3,     1,
-       3,     5,     6,     3,     3,     5,     2,     4,     0,     5,
-       1,     1,     5,     4,     5,     4,     5,     6,     5,     4,
-       5,     4,     3,     6,     4,     5,     3,     3,     3,     3,
+       0,     2,     2,     0,     3,     0,     3,     0,     3,     2,
+       4,     0,     0,     0,     4,     0,     0,     2,     2,     1,
+       1,     2,     1,     1,     2,     2,     3,     1,     2,     1,
+       1,     3,     3,     3,     3,     3,     3,     0,     2,     6,
+       7,     7,     6,     2,     0,     2,     9,     9,    10,     9,
+       8,    12,     3,     8,     0,     0,     1,     0,     1,     1,
+       1,     1,     1,     0,     1,     1,     1,     1,     1,     1,
+       1,     1,     4,     1,     0,     6,     6,     0,     0,     0,
+       1,     0,     1,     0,     2,     1,     2,     1,     1,     1,
+       4,     0,     8,     0,     7,     3,     3,     3,     1,     2,
+       3,     1,     3,     5,     6,     3,     3,     5,     2,     4,
+       0,     5,     1,     1,     5,     4,     5,     4,     5,     6,
+       5,     4,     5,     4,     3,     6,     4,     5,     3,     3,
        3,     3,     3,     3,     3,     3,     3,     3,     3,     3,
-       2,     2,     2,     2,     2,     2,     2,     2,     3,     2,
-       4,     3,     5,     2,     2,     4,     5,     4,     5,     1,
-       1,     1,     1,     5,     2,     1,     2,     3,     1,     2,
-       1,     1,     1,     1,     1,     1,     4,     5,     1,     1,
-       3,     4,     3,     1,     2,     2,     1,     2,     2,     1,
-       2,     1,     2,     1,     3,     1,     3,     4,     4,     1,
-       1,     1,     1,     3,     2,     3,     2,     1,     1,     1,
-       0,     1,     0,     1,     1,     0,     3,     1,     2,     2,
-       2,     2,     2,     2,     1,     1,     1,     1
+       3,     3,     2,     2,     2,     2,     2,     2,     2,     2,
+       3,     2,     4,     3,     5,     2,     2,     4,     5,     4,
+       5,     1,     1,     1,     1,     5,     2,     1,     2,     3,
+       1,     2,     1,     1,     1,     1,     1,     1,     4,     5,
+       1,     1,     3,     4,     3,     1,     2,     2,     1,     2,
+       2,     1,     2,     1,     2,     1,     3,     1,     3,     4,
+       4,     1,     1,     1,     1,     3,     2,     3,     2,     1,
+       1,     1,     0,     1,     0,     1,     1,     0,     3,     1,
+       2,     2,     2,     2,     2,     2,     1,     1,     1,     1
 };
 
 /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
@@ -311,617 +312,622 @@ static const yytype_uint8 yyr2[] =
    means the default is an error.  */
 static const yytype_uint8 yydefact[] =
 {
-       0,    11,     3,     5,     0,     2,    14,    61,    14,     1,
-      61,    62,    77,    75,     0,    75,    75,    69,     4,    18,
-      20,    21,     0,    17,    68,    63,    65,    64,    66,    25,
-      67,    61,    16,    15,    72,     0,     0,    91,     0,    27,
-       9,     0,     0,     0,     0,     0,     0,     0,     0,    23,
-     199,     0,     0,   178,     0,   168,   195,   191,    76,   202,
-      26,    76,     0,     0,     0,     0,     0,     0,     0,     0,
-     183,   201,   193,     0,     0,   186,   210,     0,     0,     0,
-       0,     0,     0,   189,     0,     0,     0,     0,     0,     0,
-       0,    42,     0,    19,    22,    28,    96,   200,   175,   159,
-     160,   161,   162,    99,   165,   179,   170,   173,   172,   174,
-     171,    71,     0,    78,    79,     0,     0,    79,    14,   149,
-       0,   140,   141,   224,   227,   226,   225,   219,   220,   221,
-     223,   218,   210,     0,     0,     0,   192,     0,    79,   215,
-     214,     9,     9,     9,     9,     9,     9,     0,     9,     9,
-      41,   184,     0,     0,   212,   187,   188,   224,   211,   106,
-     225,     0,   222,   199,   154,   153,   170,     0,     0,   210,
-     166,     0,   204,   207,   209,   208,   190,   185,   142,   143,
-     164,   147,   146,   169,     0,     0,    50,    24,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,    97,     0,     0,
+       0,    13,     3,     5,     7,     0,     2,    16,     0,    63,
+      16,     1,    63,    11,     4,    64,    79,    77,     0,    77,
+      77,    71,     6,    20,    22,    23,     0,    19,    70,    65,
+      67,    66,    68,    27,    69,    63,    18,    17,    16,    74,
+       0,     0,    93,     0,    29,     0,     0,     0,     0,     0,
+       0,     0,     0,    25,   201,     0,     0,   180,     0,   170,
+     197,   193,    78,   204,    28,    78,     0,     0,     0,     0,
+       0,     0,     0,     0,   185,   203,   195,     0,     0,   188,
+     212,     0,     0,     0,     0,     0,     0,   191,     0,     0,
+       0,     0,     0,     0,     0,    44,     0,    21,    24,    30,
+      98,   202,   177,   161,   162,   163,   164,   101,   167,   181,
+     172,   175,   174,   176,   173,    63,    73,     0,    80,    81,
+       0,     0,    81,   151,     0,   142,   143,   226,   229,   228,
+     227,   221,   222,   223,   225,   220,   212,     0,     0,     0,
+     194,     0,    81,   217,   216,    11,    11,    11,    11,    11,
+      11,     0,    11,    11,    43,   186,     0,     0,   214,   189,
+     190,   226,   213,   108,   227,     0,   224,   201,   156,   155,
+     172,     0,     0,   212,   168,     0,   206,   209,   211,   210,
+     192,   187,   144,   145,   166,   149,   148,   171,     0,     0,
+      52,    26,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,    99,     0,     0,     0,     0,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   145,   144,     0,     0,
-       0,     0,     0,     0,     0,    70,    80,    81,     9,    88,
-       0,    81,    61,   148,   104,   212,     0,     0,   108,    81,
-       0,    55,     0,     0,     0,     0,     0,     9,    10,     0,
-     194,   196,     0,   213,     0,     0,   100,     0,     0,   151,
-       0,   182,   206,     0,    85,   203,     0,   167,    43,    31,
-      32,    57,    29,    30,    33,    34,    95,    94,    93,    98,
-       0,     0,   122,     0,   135,   131,   132,   128,   129,   126,
-       0,   138,   137,   136,   134,   133,   130,   139,   127,     0,
-       0,   110,     0,   103,   111,   180,     0,     0,     0,     0,
-       0,     0,    83,     0,    89,   210,     0,     8,     0,   198,
-     124,   210,     0,   216,     0,    56,     0,     0,    58,    60,
-       0,     0,   217,    54,    59,     0,     0,    28,     0,     0,
-       0,   197,   107,     0,   155,     0,   157,     0,   150,   205,
-      84,     0,     0,     0,   115,   121,     0,     0,     0,   119,
-       0,   212,   181,     0,   113,     0,   176,     0,    82,    87,
-      86,    74,    14,     0,    73,   105,   109,   152,    52,    52,
-       0,     0,     0,     0,    55,     0,     0,     0,   101,   156,
-     158,   125,     0,   118,   163,     0,   114,   120,     0,   116,
-     177,   112,    61,    92,     0,     0,    13,    35,    35,     0,
-      42,     0,     0,     0,    40,   123,   117,   102,    90,    42,
-      42,    14,     0,     0,    38,    39,     0,    48,    52,    42,
-      51,    44,    45,    61,    36,     0,    42,     0,    47,    12,
-       0,    46,     0,     0,     0,    35,    49,    37
+     147,   146,     0,     0,     0,     0,     0,     0,     0,    10,
+      72,    82,    83,    11,    90,     0,    83,   150,   106,   214,
+       0,     0,   110,    83,     0,    57,     0,     0,     0,     0,
+       0,    11,    12,     0,   196,   198,     0,   215,     0,     0,
+     102,     0,     0,   153,     0,   184,   208,     0,    87,   205,
+       0,   169,    45,    33,    34,    59,    31,    32,    35,    36,
+      97,    96,    95,   100,     0,     0,   124,     0,   137,   133,
+     134,   130,   131,   128,     0,   140,   139,   138,   136,   135,
+     132,   141,   129,     0,     0,   112,     0,   105,   113,   182,
+       0,     0,     0,     0,     0,     0,    85,     0,    91,   212,
+       0,     0,   200,   126,   212,     0,   218,     0,    58,     0,
+       0,    60,    62,     0,     0,   219,    56,    61,     0,     0,
+      30,     0,     0,     0,   199,   109,     0,   157,     0,   159,
+       0,   152,   207,    86,     0,     0,     0,   117,   123,     0,
+       0,     0,   121,     0,   214,   183,     0,   115,     0,   178,
+       0,    84,    89,    88,    76,    16,     0,    75,   107,   111,
+     154,    54,    54,     0,     0,     0,     0,    57,     0,     0,
+       0,   103,   158,   160,   127,     0,   120,   165,     0,   116,
+     122,     0,   118,   179,   114,    63,    94,     0,     0,    15,
+      37,    37,     0,    44,     0,     0,     0,    42,   125,   119,
+     104,    92,    44,    44,    16,     0,     0,    40,    41,     0,
+      50,    54,    44,    53,    46,    47,    63,    38,     0,    44,
+       0,    49,    14,     0,    48,     0,     0,     0,    37,    51,
+      39
 };
 
 /* YYDEFGOTO[NTERM-NUM].  */
 static const yytype_int16 yydefgoto[] =
 {
-      -1,     4,     7,     8,     5,   125,   118,   339,     6,   407,
-     421,    10,    18,    32,   333,   424,    93,    94,   186,    20,
-      21,   404,   334,   324,   270,   327,   336,   330,    22,    33,
-      24,    25,   112,    26,    27,    35,   137,    34,   114,   227,
-     313,   265,   371,    28,    29,   372,    30,   116,   328,    96,
-      97,   321,   303,    98,    99,   100,   101,   102,   103,   104,
-     172,   159,   254,   141,   240,   331,   105,   106,   107,   108,
-     109,   110,   127
+      -1,     5,     8,     9,    10,     6,   129,    38,   342,     7,
+     410,   424,    12,    22,    36,   336,   427,    97,    98,   190,
+      24,    25,   407,   337,   327,   274,   330,   339,   333,    26,
+      37,    28,    29,   117,    30,    31,    40,   141,    39,   119,
+     232,   317,   269,   374,    32,    33,   375,    34,   121,   331,
+     100,   101,   324,   307,   102,   103,   104,   105,   106,   107,
+     108,   176,   163,   258,   145,   244,   334,   109,   110,   111,
+     112,   113,   114,   131
 };
 
 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
    STATE-NUM.  */
-#define YYPACT_NINF -396
+#define YYPACT_NINF -397
 static const yytype_int16 yypact[] =
 {
-     333,  -396,  -396,  -396,    10,  -396,  -396,   311,  -396,  -396,
-      54,  -396,  -396,  -396,     6,  -396,  -396,  -396,  -396,  -396,
-    -396,  -396,   410,  -396,  -396,  -396,  -396,  -396,  -396,  -396,
-    -396,   121,  -396,  -396,    12,    16,    38,  -396,    16,  -396,
-    -396,   909,  1785,  1785,   169,   169,   169,   169,   169,  -396,
-    -396,   169,   169,  -396,   -55,    70,  -396,  1785,  -396,  -396,
-    -396,  -396,    13,    13,    13,    13,    48,    13,    13,    87,
-    1785,  -396,     7,    15,    19,   307,   672,   169,   760,   995,
-      89,  1785,    69,  1785,  1785,  1785,  1785,  1785,  1785,  1785,
-    1081,    78,   141,  -396,  -396,   804,    81,  -396,     3,  -396,
-    -396,  -396,  -396,  1947,  -396,    13,    61,   139,  -396,  -396,
-     136,  -396,    87,  -396,   142,    22,   175,   142,  -396,  -396,
-      91,   137,   137,  -396,  -396,  -396,  -396,  -396,  -396,  -396,
-    -396,  -396,  1785,    85,  1785,  1785,   856,    87,   142,  -396,
-    -396,  -396,  -396,  -396,  -396,  -396,  -396,    13,  -396,  -396,
-    -396,  1947,   109,  1169,   672,  -396,   856,  1845,    81,  -396,
-     822,  1785,  -396,    13,  -396,   856,    53,   200,    -5,  1785,
-     856,  1257,   151,  -396,  -396,  -396,   856,    81,   137,   137,
-     137,   288,   288,   230,   396,    87,  -396,  -396,  1785,  1785,
-    1785,  1785,  1785,  1785,  1785,  1785,  1785,  1785,  1785,  1785,
-    1345,  1785,  1785,  1785,  1785,  1785,  1785,  1785,  1785,  1785,
-    1785,  1785,  1785,  1785,  1785,  1785,  -396,  -396,    23,  1433,
-    1785,  1785,  1785,  1785,  1785,  -396,  -396,   161,  -396,  -396,
-     224,   161,   216,  -396,  -396,  1785,   -41,   114,  -396,   161,
-     150,  1785,  1785,  1785,  1785,   240,   496,  -396,  -396,  1785,
-    -396,  -396,   457,   326,   178,  1785,    81,  1521,  1609,  -396,
-     269,  -396,  -396,   543,   258,  -396,  1785,   278,  -396,   326,
-    -396,   326,   326,   326,   326,   326,   221,   221,  -396,  1947,
-     140,   120,  -396,   553,  2025,  1154,   980,   528,   395,  1947,
-    1908,   570,   570,   659,   895,  1066,   484,   137,   137,  1785,
-    1785,  -396,  1697,    13,  -396,  -396,   633,   199,   125,   204,
-     135,   214,   266,    27,  -396,  1785,    27,  -396,   201,  -396,
-    -396,  1785,    87,  -396,   206,   326,   207,   215,   326,  -396,
-     222,    13,  -396,  -396,  -396,   250,   277,   495,  1785,  1785,
-     256,  -396,  -396,   721,  -396,   793,  -396,   812,  -396,  -396,
-    -396,   170,  1785,   346,  -396,  -396,  1785,   371,   220,  -396,
-     815,  1785,  -396,   348,  -396,   357,  -396,   365,  -396,  -396,
-    -396,  -396,  -396,   297,  -396,  -396,  -396,  -396,  -396,  -396,
-     368,   368,  1785,   368,  1785,   286,   289,   368,  -396,  -396,
-    -396,  -396,   228,  -396,  1986,   379,  -396,  -396,   293,  -396,
-    -396,  -396,   317,  -396,   368,   368,  -396,    56,    56,   295,
-      78,   383,   368,   368,  -396,  -396,  -396,  -396,  -396,    78,
-      78,  -396,   368,    13,  -396,  -396,   368,  -396,  -396,    78,
-    -396,  -396,  -396,   770,  -396,  1785,    78,   582,  -396,  -396,
-     309,  -396,   310,   368,   368,    56,  -396,  -396
+     582,  -397,  -397,  -397,  -397,    16,  -397,  -397,    15,   508,
+    -397,  -397,    28,  -397,  -397,  -397,  -397,  -397,    31,  -397,
+    -397,  -397,  -397,  -397,  -397,  -397,   409,  -397,  -397,  -397,
+    -397,  -397,  -397,  -397,  -397,    53,  -397,  -397,  -397,    37,
+      59,    63,  -397,    59,  -397,   911,  1787,  1787,   105,   105,
+     105,   105,   105,  -397,  -397,   105,   105,  -397,     0,   118,
+    -397,  1787,  -397,  -397,  -397,  -397,    14,    14,    14,    14,
+      58,    14,    14,    15,  1787,  -397,    18,    34,    41,   675,
+     587,   105,   763,   997,   114,  1787,    11,  1787,  1787,  1787,
+    1787,  1787,  1787,  1787,  1083,   119,   189,  -397,  -397,  1257,
+     134,  -397,    84,  -397,  -397,  -397,  -397,  1949,  -397,    14,
+      65,    83,  -397,  -397,   203,   109,  -397,    15,  -397,   201,
+      62,   197,   201,  -397,   169,   443,   443,  -397,  -397,  -397,
+    -397,  -397,  -397,  -397,  -397,  -397,  1787,   136,  1787,  1787,
+     858,    15,   201,  -397,  -397,  -397,  -397,  -397,  -397,  -397,
+    -397,    14,  -397,  -397,  -397,  1949,   135,  1171,   587,  -397,
+     858,  1847,   134,  -397,   824,  1787,  -397,    14,  -397,   858,
+     180,   226,   121,  1787,   858,  1259,   170,  -397,  -397,  -397,
+     858,   134,   443,   443,   443,   155,   155,   228,   370,    15,
+    -397,  -397,  1787,  1787,  1787,  1787,  1787,  1787,  1787,  1787,
+    1787,  1787,  1787,  1787,  1347,  1787,  1787,  1787,  1787,  1787,
+    1787,  1787,  1787,  1787,  1787,  1787,  1787,  1787,  1787,  1787,
+    -397,  -397,    42,  1435,  1787,  1787,  1787,  1787,  1787,  -397,
+    -397,  -397,   184,  -397,  -397,   235,   184,  -397,  -397,  1787,
+     -20,   238,  -397,   184,   167,  1787,  1787,  1787,  1787,   255,
+     272,  -397,  -397,  1787,  -397,  -397,   458,    76,   174,  1787,
+     134,  1523,  1611,  -397,   263,  -397,  -397,   484,   250,  -397,
+    1787,   265,  -397,    76,  -397,    76,    76,    76,    76,    76,
+     207,   207,  -397,  1949,   194,   246,  -397,   496,  2027,  1156,
+     982,   487,   394,  1949,  1910,   663,   663,   795,   897,  1068,
+     137,   443,   443,  1787,  1787,  -397,  1699,    14,  -397,  -397,
+     548,   233,   318,   278,   321,   284,   253,   108,  -397,  1787,
+     108,   187,  -397,  -397,  1787,    15,  -397,   212,    76,   217,
+     218,    76,  -397,   220,    14,  -397,  -397,  -397,   249,   303,
+     586,  1787,  1787,   252,  -397,  -397,   574,  -397,   636,  -397,
+     646,  -397,  -397,  -397,   330,  1787,   322,  -397,  -397,  1787,
+     324,   333,  -397,   724,  1787,  -397,   343,  -397,   344,  -397,
+     345,  -397,  -397,  -397,  -397,  -397,   323,  -397,  -397,  -397,
+    -397,  -397,  -397,   353,   353,  1787,   353,  1787,   268,   275,
+     353,  -397,  -397,  -397,  -397,   336,  -397,  1988,   359,  -397,
+    -397,   276,  -397,  -397,  -397,   120,  -397,   353,   353,  -397,
+     116,   116,   277,   119,   379,   353,   353,  -397,  -397,  -397,
+    -397,  -397,   119,   119,  -397,   353,    14,  -397,  -397,   353,
+    -397,  -397,   119,  -397,  -397,  -397,   128,  -397,  1787,   119,
+     497,  -397,  -397,   304,  -397,   314,   353,   353,   116,  -397,
+    -397
 };
 
 /* YYPGOTO[NTERM-NUM].  */
 static const yytype_int16 yypgoto[] =
 {
-    -396,  -396,  -396,  -396,  -396,   -20,   162,  -396,  -396,  1549,
-    -396,    -7,  -396,   398,   384,  -395,  -396,  -396,   -35,  -396,
-    -396,  -338,  -396,    26,   -10,  -223,   -25,  -396,  -396,   412,
-    -396,  -396,  -396,  -396,  -396,   110,   356,  -396,   406,   -47,
-    -168,  -396,   117,  -396,  -396,  -396,  -396,  -396,   -22,   -33,
-    -396,  -396,  -396,  -396,  -396,  -396,  -396,  -396,    52,  -396,
-    -396,  -107,  -215,   -60,  -396,  -396,  -396,   -30,   363,   369,
-    -396,  -396,    28
+    -397,  -397,  -397,  -397,  -397,  -397,    -6,   -48,  -397,  -397,
+    1549,  -397,    -9,  -397,   389,   385,  -396,  -397,  -397,    68,
+    -397,  -397,  -336,  -397,    25,   -58,  -220,   -27,  -397,  -397,
+     408,  -397,  -397,  -397,  -397,  -397,   162,   354,  -397,   390,
+     -95,  -166,  -397,   124,  -397,  -397,  -397,  -397,  -397,   -26,
+     -57,  -397,  -397,  -397,  -397,  -397,  -397,  -397,  -397,   168,
+    -397,  -397,  -115,  -230,   -64,  -397,  -397,  -397,   -38,   364,
+     365,  -397,  -397,   -15
 };
 
 /* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
    positive, shift that token.  If negative, reduce the rule which
    number is the opposite.  If zero, do what YYDEFACT says.
    If YYTABLE_NINF, syntax error.  */
-#define YYTABLE_NINF -200
+#define YYTABLE_NINF -202
 static const yytype_int16 yytable[] =
 {
-      95,    31,    91,   142,   143,   144,   146,   148,   149,   198,
-       9,   199,   260,   425,   126,   126,   126,   126,   126,   120,
-     318,   126,   126,   335,    36,   234,   340,   139,   228,   299,
-     111,   300,   197,    40,   113,    44,   147,   139,   200,   229,
-     134,   405,   301,   158,   369,   219,   160,   126,   166,   150,
-     447,   177,   173,   319,    -7,   155,   115,   168,   164,   220,
-      44,   221,   261,   316,   194,   195,   196,   220,   184,   221,
-     231,   322,   139,   128,   129,   130,   131,   139,   135,   132,
-     133,    44,    45,    46,    11,    12,    13,   247,    14,    15,
-     437,   239,   225,    40,   121,   122,   422,   423,   140,   158,
-     233,   236,   152,   257,   161,   162,   258,   169,   140,   136,
-     153,   232,   145,   237,   154,   385,   386,   238,   302,    16,
-     185,    -6,   151,   320,   160,    37,    38,   156,   256,   354,
-     165,   252,   253,   170,   364,   176,   158,   178,   179,   180,
-     181,   182,   224,   140,   366,   222,   398,   223,   140,   263,
-      17,    11,    12,    13,   197,    14,    15,   353,   187,   409,
-     194,   195,   196,   226,   171,   268,   269,   271,   272,   273,
-     274,   275,   276,   277,   278,    40,   280,   281,   283,   391,
-     235,    44,   255,   194,   195,   196,    16,   123,   304,   194,
-     195,   196,   124,   230,   194,   195,   196,   306,   307,   308,
-     309,   310,   311,   250,   194,   195,   196,   259,   373,   194,
-     195,   196,   440,   253,   376,   332,   363,    17,   264,   325,
-     271,   365,   271,   317,   337,   215,   216,   217,   312,   396,
-     218,   367,   326,   343,   329,   345,   347,   415,   266,   194,
-     195,   196,   315,   361,   351,   323,    11,    12,    13,   279,
-      14,    15,    44,   284,   285,   286,   287,   288,   289,   290,
-     291,   292,   293,   294,   295,   296,   297,   298,   194,   195,
-     196,   382,   342,   194,   195,   196,   348,   357,   358,   350,
-     360,    16,   158,   194,   195,   196,   352,   368,   158,   194,
-     195,   196,   196,   370,   384,   375,   370,   194,   195,   196,
-     378,   379,   377,   241,   242,   243,   244,   245,   246,   380,
-     248,   249,    17,    40,   403,    41,   381,    42,    43,    44,
-      45,    46,    47,    48,   418,    50,    51,    52,    53,    54,
-     392,    55,    56,    57,    58,    59,     1,     2,     3,   253,
-      61,    11,    12,    13,   383,    14,    15,    11,    12,    13,
-     387,    14,    15,   393,    70,   399,    71,    72,    73,    74,
-      75,    76,   325,   435,   400,   402,    77,    78,    79,    80,
-      81,    82,   401,    83,   406,   427,    16,  -200,  -200,    84,
-     412,   218,    16,   413,   431,   432,   416,   417,   395,   426,
-     314,    85,    86,    87,   438,   194,   195,   196,    88,    89,
-     428,   441,    90,   443,   444,    19,    92,    17,   394,   338,
-     411,    39,   442,    17,   433,    95,    40,   138,    41,    23,
-      42,    43,    44,    45,    46,    47,    48,    49,    50,    51,
-      52,    53,    54,   374,    55,    56,    57,    58,    59,    60,
-     194,   195,   196,    61,   117,   174,    62,    63,    64,    65,
-       0,   175,   204,    66,    67,    68,    69,    70,     0,    71,
-      72,    73,    74,    75,    76,   194,   195,   196,     0,    77,
-      78,    79,    80,    81,    82,     0,    83,     0,   214,     0,
-       0,     0,    84,   215,   216,   217,     0,     0,   218,     0,
-     267,     0,     0,     0,    85,    86,    87,    39,     0,     0,
-       0,    88,    89,     0,    41,    90,    42,    43,    44,    45,
-      46,    47,    48,   -53,    50,    51,    52,    53,    54,     0,
-      55,    56,    57,    58,    59,     0,   194,   195,   196,    61,
-       0,   188,   189,   190,   191,     0,     0,     0,   192,     0,
-     193,   204,   205,    70,     0,    71,    72,    73,    74,    75,
-      76,   341,     0,     0,     0,    77,    78,    79,    80,    81,
-      82,     0,    83,     0,   194,   195,   196,   214,    84,     0,
-       0,     0,   215,   216,   217,     0,     0,   218,     0,     0,
-      85,    86,    87,    39,     0,     0,     0,    88,    89,   -58,
-      41,    90,    42,    43,    44,    45,    46,    47,    48,     0,
-      50,    51,    52,    53,    54,     0,    55,    56,    57,    58,
-      59,   214,   194,   195,   196,    61,   215,   216,   217,     0,
-       0,   218,   194,   195,   196,   202,   203,   204,   205,    70,
-       0,    71,    72,    73,    74,    75,    76,   349,     0,     0,
-       0,    77,    78,    79,    80,    81,    82,   355,    83,   210,
-     211,   212,   213,   214,    84,     0,     0,     0,   215,   216,
-     217,     0,     0,   218,     0,     0,    85,    86,    87,     0,
-       0,     0,     0,    88,    89,     0,   -53,    90,    40,     0,
-      41,     0,    42,    43,    44,    45,    46,    47,    48,     0,
-     157,    51,    52,    53,    54,   124,    55,    56,    57,    58,
-      59,     0,   194,   195,   196,    61,     0,     0,     0,     0,
-       0,     0,     0,     0,   202,   203,   204,   205,     0,    70,
-       0,    71,    72,    73,    74,    75,    76,   362,     0,     0,
-       0,    77,    78,    79,    80,    81,    82,     0,    83,   211,
-     212,   213,   214,     0,    84,     0,     0,   215,   216,   217,
-       0,     0,   218,     0,     0,     0,    85,    86,    87,     0,
-       0,     0,     0,    88,    89,     0,    40,    90,    41,     0,
-      42,    43,    44,    45,    46,    47,    48,   439,   163,    51,
-      52,    53,    54,     0,    55,    56,    57,    58,    59,     0,
-     194,   195,   196,    61,     0,     0,     0,     0,     0,     0,
-      11,    12,    13,     0,    14,    15,     0,    70,     0,    71,
-      72,    73,    74,    75,    76,   388,     0,     0,     0,    77,
-      78,    79,    80,    81,    82,     0,    83,     0,   220,     0,
-     221,  -170,    84,     0,     0,    16,     0,     0,     0,  -170,
-     188,   189,   190,   191,    85,    86,    87,   192,     0,   193,
-       0,    88,    89,     0,     0,    90,     0,     0,  -170,  -170,
-    -170,  -170,   194,   195,   196,  -170,    17,  -170,     0,     0,
-    -170,     0,     0,   194,   195,   196,     0,  -170,  -170,  -170,
-    -170,   194,   195,   196,   194,   195,   196,   389,     0,     0,
-       0,  -170,  -170,  -170,     0,  -170,  -170,  -170,  -170,  -170,
-    -170,  -170,  -170,  -170,  -170,  -170,   390,     0,     0,   397,
-    -170,  -170,  -170,   204,   205,  -170,  -170,    41,   119,    42,
-      43,    44,    45,    46,    47,    48,     0,    50,    51,    52,
-      53,    54,     0,    55,    56,    57,    58,    59,   213,   214,
-       0,     0,    61,     0,   215,   216,   217,     0,     0,   218,
-     202,   203,   204,   205,     0,     0,    70,     0,    71,    72,
-      73,    74,    75,    76,     0,     0,     0,     0,    77,    78,
-      79,    80,    81,    82,     0,    83,   212,   213,   214,     0,
-       0,    84,     0,   215,   216,   217,     0,     0,   218,     0,
-       0,     0,     0,    85,    86,    87,     0,     0,     0,     0,
-      88,    89,     0,    41,    90,    42,    43,    44,    45,    46,
-      47,    48,   167,    50,    51,    52,    53,    54,     0,    55,
-      56,    57,    58,    59,     0,     0,     0,     0,    61,     0,
-       0,     0,     0,     0,     0,   202,  -200,   204,   205,     0,
-       0,     0,    70,     0,    71,    72,    73,    74,    75,    76,
-       0,     0,     0,     0,    77,    78,    79,    80,    81,    82,
-       0,    83,   213,   214,     0,     0,     0,    84,   215,   216,
-     217,     0,     0,   218,     0,     0,     0,     0,     0,    85,
-      86,    87,     0,     0,     0,     0,    88,    89,     0,    41,
-      90,    42,    43,    44,    45,    46,    47,    48,     0,    50,
-      51,    52,    53,    54,     0,    55,    56,    57,    58,    59,
-       0,     0,     0,     0,    61,     0,     0,     0,     0,     0,
-       0,   202,   203,   204,   205,     0,     0,     0,    70,     0,
-      71,    72,    73,    74,    75,    76,     0,     0,     0,     0,
-      77,    78,    79,    80,    81,    82,     0,    83,   213,   214,
-       0,     0,     0,    84,   215,   216,   217,     0,     0,   218,
-       0,     0,     0,     0,     0,    85,    86,    87,     0,     0,
-       0,     0,    88,    89,     0,   183,    90,    41,     0,    42,
-      43,    44,    45,    46,    47,    48,     0,    50,    51,    52,
-      53,    54,     0,    55,    56,    57,    58,    59,     0,     0,
-       0,     0,    61,     0,     0,     0,     0,     0,     0,  -200,
-       0,   204,   205,     0,     0,     0,    70,     0,    71,    72,
-      73,    74,    75,    76,     0,     0,     0,     0,    77,    78,
-      79,    80,    81,    82,     0,    83,   213,   214,     0,     0,
-       0,    84,   215,   216,   217,     0,     0,   218,     0,     0,
-       0,     0,     0,    85,    86,    87,     0,     0,     0,     0,
-      88,    89,     0,   251,    90,    41,     0,    42,    43,    44,
-      45,    46,    47,    48,     0,    50,    51,    52,    53,    54,
-       0,    55,    56,    57,    58,    59,     0,     0,     0,     0,
-      61,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,    70,     0,    71,    72,    73,    74,
-      75,    76,     0,     0,     0,     0,    77,    78,    79,    80,
-      81,    82,     0,    83,     0,     0,     0,     0,     0,    84,
+      99,    35,    14,   146,   147,   148,   150,   152,   153,   321,
+     130,   130,   130,   130,   130,   428,    11,   130,   130,   124,
+      95,   238,    13,   162,    48,    49,    50,   236,    -9,   115,
+     338,   181,   151,   343,   132,   133,   134,   135,   204,   143,
+     136,   137,   164,   130,   170,   223,   408,   243,   177,   303,
+      41,   304,   450,    -8,   201,    48,   116,   172,   265,    15,
+      16,    17,   305,    18,    19,   165,   166,   154,   188,   233,
+     320,    48,   224,   159,   225,   322,   168,   325,   118,   162,
+     234,   240,   120,   143,    15,    16,    17,   251,    18,    19,
+     226,   202,   227,   203,    20,   440,   138,   245,   246,   247,
+     248,   249,   250,   261,   252,   253,   262,   175,   260,   143,
+     144,   230,    13,   241,   156,    13,   162,   229,    48,    20,
+     164,   388,   389,   149,   127,    21,   372,   139,   421,   128,
+     157,   256,   257,   173,   401,   242,   442,   158,   306,   264,
+      15,    16,    17,   259,    18,    19,   198,   199,   200,   267,
+      21,    15,    16,    17,   144,    18,    19,   425,   426,    15,
+      16,    17,   189,    18,    19,   412,   273,   275,   276,   277,
+     278,   279,   280,   281,   282,    20,   284,   285,   287,   237,
+     144,    42,    43,   272,   308,   318,    20,   224,   329,   225,
+     332,   198,   199,   200,    20,   208,   209,   310,   311,   312,
+     313,   314,   315,   341,   376,   143,    21,   191,   201,   379,
+     228,   335,   356,   257,   125,   126,   235,    21,   443,   328,
+     275,   218,   275,   231,   340,    21,   219,   220,   221,   140,
+     254,   222,   239,   346,   263,   348,   350,   270,   268,   198,
+     199,   200,   155,   364,   354,  -202,  -202,   160,   323,   222,
+     169,   366,   316,   174,   319,   180,   357,   182,   183,   184,
+     185,   186,   162,   326,   198,   199,   200,   162,    48,   345,
+     385,   351,   353,    44,   355,   371,   144,   360,   361,   200,
+     363,    45,   378,    46,    47,    48,    49,    50,    51,    52,
+     -55,    54,    55,    56,    57,    58,   368,    59,    60,    61,
+      62,    63,   370,   198,   199,   200,    65,   381,   198,   199,
+     200,   373,   382,   383,   373,   384,   198,   199,   200,   380,
+      74,   387,    75,    76,    77,    78,    79,    80,   367,   395,
+     396,   369,    81,    82,    83,    84,    85,    86,   257,    87,
+     394,   406,   398,   399,   386,    88,   418,   390,   198,   199,
+     200,   402,   403,   404,   198,   199,   200,    89,    90,    91,
+     409,   328,   438,   415,    92,    93,   405,   419,    94,   283,
+     416,   420,   429,   288,   289,   290,   291,   292,   293,   294,
+     295,   296,   297,   298,   299,   300,   301,   302,   198,   199,
+     200,   198,   199,   200,   198,   199,   200,   431,    23,   446,
+     198,   199,   200,   198,   199,   200,   198,   199,   200,   447,
+      44,    96,   414,   445,    99,   436,    13,    27,    45,   142,
+      46,    47,    48,    49,    50,    51,    52,    53,    54,    55,
+      56,    57,    58,   122,    59,    60,    61,    62,    63,    64,
+     198,   199,   200,    65,   377,     0,    66,    67,    68,    69,
+     178,   179,   208,    70,    71,    72,    73,    74,     0,    75,
+      76,    77,    78,    79,    80,   271,     0,     0,     0,    81,
+      82,    83,    84,    85,    86,     0,    87,     0,   218,     0,
+       0,   430,    88,   219,   220,   221,     0,     0,   222,     0,
+     434,   435,     0,     0,    89,    90,    91,     0,    44,     0,
+     441,    92,    93,     0,     0,    94,    45,   444,    46,    47,
+      48,    49,    50,    51,    52,     0,    54,    55,    56,    57,
+      58,     0,    59,    60,    61,    62,    63,   397,   198,   199,
+     200,    65,   219,   220,   221,     0,     0,   222,     0,    15,
+      16,    17,     0,    18,    19,    74,     0,    75,    76,    77,
+      78,    79,    80,   344,   198,   199,   200,    81,    82,    83,
+      84,    85,    86,     0,    87,     0,   198,   199,   200,     0,
+      88,   218,     0,     0,    20,     0,   219,   220,   221,   352,
+       0,   222,    89,    90,    91,     1,     2,     3,     4,    92,
+      93,   358,   -55,    94,    13,     0,    45,     0,    46,    47,
+      48,    49,    50,    51,    52,    21,   161,    55,    56,    57,
+      58,   128,    59,    60,    61,    62,    63,     0,   198,   199,
+     200,    65,     0,   192,   193,   194,   195,     0,     0,     0,
+     196,     0,   197,     0,     0,    74,     0,    75,    76,    77,
+      78,    79,    80,   365,   198,   199,   200,    81,    82,    83,
+      84,    85,    86,     0,    87,     0,   198,   199,   200,     0,
+      88,     0,     0,     0,     0,     0,     0,     0,     0,   391,
+       0,     0,    89,    90,    91,     0,     0,     0,     0,    92,
+      93,   -60,    13,    94,    45,     0,    46,    47,    48,    49,
+      50,    51,    52,     0,    54,    55,    56,    57,    58,     0,
+      59,    60,    61,    62,    63,     0,   198,   199,   200,    65,
+       0,     0,     0,     0,     0,     0,   198,   199,   200,   206,
+     207,   208,   209,    74,     0,    75,    76,    77,    78,    79,
+      80,   392,     0,     0,     0,    81,    82,    83,    84,    85,
+      86,   393,    87,   214,   215,   216,   217,   218,    88,     0,
+       0,     0,   219,   220,   221,     0,     0,   222,     0,     0,
+      89,    90,    91,     0,     0,     0,     0,    92,    93,     0,
+      13,    94,    45,     0,    46,    47,    48,    49,    50,    51,
+      52,     0,   167,    55,    56,    57,    58,     0,    59,    60,
+      61,    62,    63,     0,   198,   199,   200,    65,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,    85,    86,    87,     0,     0,     0,     0,    88,    89,
-       0,   262,    90,    41,     0,    42,    43,    44,    45,    46,
-      47,    48,     0,    50,    51,    52,    53,    54,     0,    55,
-      56,    57,    58,    59,     0,     0,     0,     0,    61,     0,
+       0,    74,     0,    75,    76,    77,    78,    79,    80,   400,
+       0,     0,     0,    81,    82,    83,    84,    85,    86,     0,
+      87,   224,     0,   225,  -172,     0,    88,     0,     0,     0,
+       0,     0,  -172,     0,     0,     0,     0,     0,    89,    90,
+      91,   206,   207,   208,   209,    92,    93,     0,     0,    94,
+       0,  -172,  -172,  -172,  -172,     0,     0,     0,  -172,     0,
+    -172,     0,     0,  -172,     0,     0,   215,   216,   217,   218,
+    -172,  -172,  -172,  -172,   219,   220,   221,     0,     0,   222,
+       0,     0,     0,     0,  -172,  -172,  -172,     0,  -172,  -172,
+    -172,  -172,  -172,  -172,  -172,  -172,  -172,  -172,  -172,     0,
+       0,     0,     0,  -172,  -172,  -172,   208,   209,  -172,  -172,
+      45,   123,    46,    47,    48,    49,    50,    51,    52,     0,
+      54,    55,    56,    57,    58,     0,    59,    60,    61,    62,
+      63,   217,   218,     0,     0,    65,     0,   219,   220,   221,
+       0,     0,   222,   206,   207,   208,   209,     0,     0,    74,
+       0,    75,    76,    77,    78,    79,    80,     0,     0,     0,
+       0,    81,    82,    83,    84,    85,    86,     0,    87,   216,
+     217,   218,     0,     0,    88,     0,   219,   220,   221,     0,
+       0,   222,     0,     0,     0,     0,    89,    90,    91,     0,
+       0,     0,     0,    92,    93,     0,    45,    94,    46,    47,
+      48,    49,    50,    51,    52,   171,    54,    55,    56,    57,
+      58,     0,    59,    60,    61,    62,    63,     0,     0,     0,
+       0,    65,     0,     0,     0,     0,     0,     0,   206,  -202,
+     208,   209,     0,     0,     0,    74,     0,    75,    76,    77,
+      78,    79,    80,     0,     0,     0,     0,    81,    82,    83,
+      84,    85,    86,     0,    87,   217,   218,     0,     0,     0,
+      88,   219,   220,   221,     0,     0,   222,     0,     0,     0,
+       0,     0,    89,    90,    91,     0,     0,     0,     0,    92,
+      93,     0,    45,    94,    46,    47,    48,    49,    50,    51,
+      52,     0,    54,    55,    56,    57,    58,     0,    59,    60,
+      61,    62,    63,     0,     0,     0,     0,    65,     0,     0,
+       0,     0,     0,     0,   206,   207,   208,   209,     0,     0,
+       0,    74,     0,    75,    76,    77,    78,    79,    80,     0,
+       0,     0,     0,    81,    82,    83,    84,    85,    86,     0,
+      87,   217,   218,     0,     0,     0,    88,   219,   220,   221,
+       0,     0,   222,     0,     0,     0,     0,     0,    89,    90,
+      91,     0,     0,     0,     0,    92,    93,     0,   187,    94,
+      45,     0,    46,    47,    48,    49,    50,    51,    52,     0,
+      54,    55,    56,    57,    58,     0,    59,    60,    61,    62,
+      63,     0,     0,     0,     0,    65,     0,     0,     0,     0,
+       0,     0,  -202,     0,   208,   209,     0,     0,     0,    74,
+       0,    75,    76,    77,    78,    79,    80,     0,     0,     0,
+       0,    81,    82,    83,    84,    85,    86,     0,    87,   217,
+     218,     0,     0,     0,    88,   219,   220,   221,     0,     0,
+     222,     0,     0,     0,     0,     0,    89,    90,    91,     0,
+       0,     0,     0,    92,    93,     0,   255,    94,    45,     0,
+      46,    47,    48,    49,    50,    51,    52,     0,    54,    55,
+      56,    57,    58,     0,    59,    60,    61,    62,    63,     0,
+       0,     0,     0,    65,   192,   193,   194,   195,     0,     0,
+       0,   196,     0,   197,     0,     0,     0,    74,     0,    75,
+      76,    77,    78,    79,    80,     0,     0,     0,     0,    81,
+      82,    83,    84,    85,    86,     0,    87,   198,   199,   200,
+       0,     0,    88,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,    89,    90,    91,     0,     0,     0,
+       0,    92,    93,     0,   266,    94,    45,     0,    46,    47,
+      48,    49,    50,    51,    52,     0,    54,    55,    56,    57,
+      58,     0,    59,    60,    61,    62,    63,     0,     0,     0,
+       0,    65,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,    74,     0,    75,    76,    77,
+      78,    79,    80,     0,     0,     0,     0,    81,    82,    83,
+      84,    85,    86,     0,    87,     0,     0,     0,     0,     0,
+      88,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,    89,    90,    91,     0,     0,     0,     0,    92,
+      93,     0,   286,    94,    45,     0,    46,    47,    48,    49,
+      50,    51,    52,     0,    54,    55,    56,    57,    58,     0,
+      59,    60,    61,    62,    63,     0,     0,     0,     0,    65,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,    70,     0,    71,    72,    73,    74,    75,    76,
-       0,     0,     0,     0,    77,    78,    79,    80,    81,    82,
-       0,    83,     0,     0,     0,     0,     0,    84,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,    85,
-      86,    87,     0,     0,     0,     0,    88,    89,     0,   282,
-      90,    41,     0,    42,    43,    44,    45,    46,    47,    48,
-       0,    50,    51,    52,    53,    54,     0,    55,    56,    57,
-      58,    59,     0,     0,     0,     0,    61,     0,     0,     0,
+       0,     0,     0,    74,     0,    75,    76,    77,    78,    79,
+      80,     0,     0,     0,     0,    81,    82,    83,    84,    85,
+      86,     0,    87,     0,     0,     0,     0,     0,    88,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-      70,     0,    71,    72,    73,    74,    75,    76,     0,     0,
-       0,     0,    77,    78,    79,    80,    81,    82,     0,    83,
-       0,     0,     0,     0,     0,    84,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,    85,    86,    87,
-       0,     0,     0,     0,    88,    89,     0,   305,    90,    41,
-       0,    42,    43,    44,    45,    46,    47,    48,     0,    50,
-      51,    52,    53,    54,     0,    55,    56,    57,    58,    59,
-       0,     0,     0,     0,    61,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,    70,     0,
-      71,    72,    73,    74,    75,    76,     0,     0,     0,     0,
-      77,    78,    79,    80,    81,    82,     0,    83,     0,     0,
-       0,     0,     0,    84,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,    85,    86,    87,     0,     0,
-       0,     0,    88,    89,     0,   344,    90,    41,     0,    42,
-      43,    44,    45,    46,    47,    48,     0,    50,    51,    52,
-      53,    54,     0,    55,    56,    57,    58,    59,     0,     0,
-       0,     0,    61,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,    70,     0,    71,    72,
-      73,    74,    75,    76,     0,     0,     0,     0,    77,    78,
-      79,    80,    81,    82,     0,    83,     0,     0,     0,     0,
-       0,    84,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,    85,    86,    87,     0,     0,     0,     0,
-      88,    89,     0,   346,    90,    41,     0,    42,    43,    44,
-      45,    46,    47,    48,     0,    50,    51,    52,    53,    54,
-       0,    55,    56,    57,    58,    59,     0,     0,     0,     0,
-      61,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,    70,     0,    71,    72,    73,    74,
-      75,    76,     0,     0,     0,     0,    77,    78,    79,    80,
-      81,    82,     0,    83,     0,     0,     0,     0,     0,    84,
+      89,    90,    91,     0,     0,     0,     0,    92,    93,     0,
+     309,    94,    45,     0,    46,    47,    48,    49,    50,    51,
+      52,     0,    54,    55,    56,    57,    58,     0,    59,    60,
+      61,    62,    63,     0,     0,     0,     0,    65,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,    85,    86,    87,     0,     0,     0,     0,    88,    89,
-       0,   359,    90,    41,     0,    42,    43,    44,    45,    46,
-      47,    48,     0,    50,    51,    52,    53,    54,     0,    55,
-      56,    57,    58,    59,     0,     0,     0,     0,    61,     0,
+       0,    74,     0,    75,    76,    77,    78,    79,    80,     0,
+       0,     0,     0,    81,    82,    83,    84,    85,    86,     0,
+      87,     0,     0,     0,     0,     0,    88,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,    89,    90,
+      91,     0,     0,     0,     0,    92,    93,     0,   347,    94,
+      45,     0,    46,    47,    48,    49,    50,    51,    52,     0,
+      54,    55,    56,    57,    58,     0,    59,    60,    61,    62,
+      63,     0,     0,     0,     0,    65,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,     0,    74,
+       0,    75,    76,    77,    78,    79,    80,     0,     0,     0,
+       0,    81,    82,    83,    84,    85,    86,     0,    87,     0,
+       0,     0,     0,     0,    88,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,    89,    90,    91,     0,
+       0,     0,     0,    92,    93,     0,   349,    94,    45,     0,
+      46,    47,    48,    49,    50,    51,    52,     0,    54,    55,
+      56,    57,    58,     0,    59,    60,    61,    62,    63,     0,
+       0,     0,     0,    65,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,    74,     0,    75,
+      76,    77,    78,    79,    80,     0,     0,     0,     0,    81,
+      82,    83,    84,    85,    86,     0,    87,     0,     0,     0,
+       0,     0,    88,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,    89,    90,    91,     0,     0,     0,
+       0,    92,    93,     0,   362,    94,    45,     0,    46,    47,
+      48,    49,    50,    51,    52,     0,    54,    55,    56,    57,
+      58,     0,    59,    60,    61,    62,    63,     0,     0,     0,
+       0,    65,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,    74,     0,    75,    76,    77,
+      78,    79,    80,     0,     0,     0,     0,    81,    82,    83,
+      84,    85,    86,     0,    87,     0,     0,  -201,     0,     0,
+      88,     0,     0,     0,     0,  -201,     0,     0,     0,     0,
+       0,     0,    89,    90,    91,     0,     0,     0,     0,    92,
+      93,     0,     0,    94,  -201,  -201,  -201,  -201,     0,     0,
+       0,  -201,     0,  -201,     0,     0,  -201,     0,     0,     0,
+       0,     0,     0,  -201,  -201,  -201,  -201,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,  -201,  -201,  -201,
+       0,  -201,  -201,  -201,  -201,  -201,  -201,  -201,  -201,  -201,
+    -201,  -201,     0,   411,     0,   413,  -201,  -201,  -201,   417,
+       0,  -201,  -201,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,   422,   423,     0,   205,
+       0,     0,     0,     0,   432,   433,   206,   207,   208,   209,
+       0,     0,     0,     0,   437,     0,     0,     0,   439,     0,
+       0,     0,     0,     0,     0,   210,   211,   359,   212,   213,
+     214,   215,   216,   217,   218,   448,   449,     0,   205,   219,
+     220,   221,     0,     0,   222,   206,   207,   208,   209,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,    70,     0,    71,    72,    73,    74,    75,    76,
-       0,     0,     0,     0,    77,    78,    79,    80,    81,    82,
-       0,    83,     0,     0,  -199,     0,     0,    84,     0,     0,
-       0,     0,  -199,     0,     0,     0,     0,     0,     0,    85,
-      86,    87,     0,     0,     0,     0,    88,    89,     0,     0,
-      90,  -199,  -199,  -199,  -199,     0,     0,     0,  -199,     0,
-    -199,     0,     0,  -199,     0,     0,     0,     0,     0,     0,
-    -199,  -199,  -199,  -199,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,  -199,  -199,  -199,     0,  -199,  -199,
-    -199,  -199,  -199,  -199,  -199,  -199,  -199,  -199,  -199,     0,
-     408,     0,   410,  -199,  -199,  -199,   414,     0,  -199,  -199,
+       0,     0,     0,     0,   210,   211,     0,   212,   213,   214,
+     215,   216,   217,   218,     0,     0,     0,   205,   219,   220,
+     221,     0,     0,   222,   206,   207,   208,   209,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,   419,   420,     0,   201,     0,     0,     0,
-       0,   429,   430,   202,   203,   204,   205,     0,     0,     0,
-       0,   434,     0,     0,     0,   436,     0,     0,     0,     0,
-       0,     0,   206,   207,   356,   208,   209,   210,   211,   212,
-     213,   214,   445,   446,     0,   201,   215,   216,   217,     0,
-       0,   218,   202,   203,   204,   205,     0,     0,     0,     0,
+       0,     0,     0,     0,   211,     0,   212,   213,   214,   215,
+     216,   217,   218,     0,     0,     0,  -202,   219,   220,   221,
+       0,     0,   222,   206,   207,   208,   209,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,   206,   207,     0,   208,   209,   210,   211,   212,   213,
-     214,     0,     0,     0,   201,   215,   216,   217,     0,     0,
-     218,   202,   203,   204,   205,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,   207,     0,   208,   209,   210,   211,   212,   213,   214,
-       0,     0,     0,  -200,   215,   216,   217,     0,     0,   218,
-     202,   203,   204,   205,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   208,   209,   210,   211,   212,   213,   214,     0,
-       0,     0,     0,   215,   216,   217,     0,     0,   218
+       0,     0,     0,     0,     0,   212,   213,   214,   215,   216,
+     217,   218,     0,     0,     0,     0,   219,   220,   221,     0,
+       0,   222
 };
 
 static const yytype_int16 yycheck[] =
 {
-      22,     8,    22,    63,    64,    65,    66,    67,    68,     6,
-       0,     8,    17,   408,    44,    45,    46,    47,    48,    41,
-     235,    51,    52,   246,    18,   132,   249,    24,     6,     6,
-      18,     8,    73,     6,    18,    12,    66,    24,    98,    17,
-      95,   379,    19,    76,    17,   105,    76,    77,    78,    69,
-     445,    84,    82,    94,     0,    75,    18,    79,    78,     6,
-      12,     8,   169,   231,    69,    70,    71,     6,    90,     8,
-     117,   239,    24,    45,    46,    47,    48,    24,     8,    51,
-      52,    12,    13,    14,    30,    31,    32,   147,    34,    35,
-     428,   138,   112,     6,    42,    43,    40,    41,    95,   132,
-       9,   134,    95,   163,    76,    77,   166,    18,    95,    57,
-      95,   118,    64,   135,    95,   338,   339,   137,    95,    65,
-      42,     0,    70,     9,   154,    15,    16,    75,   161,     9,
-      78,   153,   154,    81,     9,    83,   169,    85,    86,    87,
-      88,    89,     6,    95,     9,     6,   361,     8,    95,   171,
-      96,    30,    31,    32,    73,    34,    35,    17,    17,   382,
-      69,    70,    71,    21,    95,   185,   188,   189,   190,   191,
-     192,   193,   194,   195,   196,     6,   198,   199,   200,     9,
-      95,    12,   154,    69,    70,    71,    65,    18,   218,    69,
-      70,    71,    23,    18,    69,    70,    71,   219,   220,   221,
-     222,   223,   224,    94,    69,    70,    71,     7,   315,    69,
-      70,    71,   435,   235,   321,   245,    17,    96,    67,   241,
-     242,    17,   244,     7,   246,    88,    89,    90,    67,     9,
-      93,    17,   242,   255,   244,   257,   258,     9,     8,    69,
-      70,    71,    18,   303,   266,    95,    30,    31,    32,   197,
-      34,    35,    12,   201,   202,   203,   204,   205,   206,   207,
-     208,   209,   210,   211,   212,   213,   214,   215,    69,    70,
-      71,   331,    94,    69,    70,    71,     7,   299,   300,    21,
-     302,    65,   315,    69,    70,    71,     8,    21,   321,    69,
-      70,    71,    71,   313,    17,    94,   316,    69,    70,    71,
-      94,    94,   322,   141,   142,   143,   144,   145,   146,    94,
-     148,   149,    96,     6,    17,     8,    94,    10,    11,    12,
-      13,    14,    15,    16,     7,    18,    19,    20,    21,    22,
-     352,    24,    25,    26,    27,    28,     3,     4,     5,   361,
-      33,    30,    31,    32,    94,    34,    35,    30,    31,    32,
-      94,    34,    35,     7,    47,     7,    49,    50,    51,    52,
-      53,    54,   384,   423,     7,   372,    59,    60,    61,    62,
-      63,    64,     7,    66,     6,   410,    65,    89,    90,    72,
-      94,    93,    65,    94,   419,   420,     7,    94,    17,    94,
-     228,    84,    85,    86,   429,    69,    70,    71,    91,    92,
-      17,   436,    95,    94,    94,     7,    22,    96,   356,   247,
-     384,     1,   437,    96,   421,   437,     6,    61,     8,     7,
-      10,    11,    12,    13,    14,    15,    16,    17,    18,    19,
-      20,    21,    22,   316,    24,    25,    26,    27,    28,    29,
-      69,    70,    71,    33,    38,    82,    36,    37,    38,    39,
-      -1,    82,    57,    43,    44,    45,    46,    47,    -1,    49,
-      50,    51,    52,    53,    54,    69,    70,    71,    -1,    59,
-      60,    61,    62,    63,    64,    -1,    66,    -1,    83,    -1,
-      -1,    -1,    72,    88,    89,    90,    -1,    -1,    93,    -1,
-      94,    -1,    -1,    -1,    84,    85,    86,     1,    -1,    -1,
-      -1,    91,    92,    -1,     8,    95,    10,    11,    12,    13,
-      14,    15,    16,    17,    18,    19,    20,    21,    22,    -1,
-      24,    25,    26,    27,    28,    -1,    69,    70,    71,    33,
-      -1,    36,    37,    38,    39,    -1,    -1,    -1,    43,    -1,
-      45,    57,    58,    47,    -1,    49,    50,    51,    52,    53,
-      54,    94,    -1,    -1,    -1,    59,    60,    61,    62,    63,
-      64,    -1,    66,    -1,    69,    70,    71,    83,    72,    -1,
-      -1,    -1,    88,    89,    90,    -1,    -1,    93,    -1,    -1,
-      84,    85,    86,     1,    -1,    -1,    -1,    91,    92,    94,
-       8,    95,    10,    11,    12,    13,    14,    15,    16,    -1,
-      18,    19,    20,    21,    22,    -1,    24,    25,    26,    27,
-      28,    83,    69,    70,    71,    33,    88,    89,    90,    -1,
-      -1,    93,    69,    70,    71,    55,    56,    57,    58,    47,
-      -1,    49,    50,    51,    52,    53,    54,    94,    -1,    -1,
-      -1,    59,    60,    61,    62,    63,    64,    94,    66,    79,
-      80,    81,    82,    83,    72,    -1,    -1,    -1,    88,    89,
-      90,    -1,    -1,    93,    -1,    -1,    84,    85,    86,    -1,
-      -1,    -1,    -1,    91,    92,    -1,    94,    95,     6,    -1,
-       8,    -1,    10,    11,    12,    13,    14,    15,    16,    -1,
-      18,    19,    20,    21,    22,    23,    24,    25,    26,    27,
-      28,    -1,    69,    70,    71,    33,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    55,    56,    57,    58,    -1,    47,
-      -1,    49,    50,    51,    52,    53,    54,    94,    -1,    -1,
-      -1,    59,    60,    61,    62,    63,    64,    -1,    66,    80,
-      81,    82,    83,    -1,    72,    -1,    -1,    88,    89,    90,
-      -1,    -1,    93,    -1,    -1,    -1,    84,    85,    86,    -1,
-      -1,    -1,    -1,    91,    92,    -1,     6,    95,     8,    -1,
-      10,    11,    12,    13,    14,    15,    16,     7,    18,    19,
-      20,    21,    22,    -1,    24,    25,    26,    27,    28,    -1,
-      69,    70,    71,    33,    -1,    -1,    -1,    -1,    -1,    -1,
-      30,    31,    32,    -1,    34,    35,    -1,    47,    -1,    49,
-      50,    51,    52,    53,    54,    94,    -1,    -1,    -1,    59,
-      60,    61,    62,    63,    64,    -1,    66,    -1,     6,    -1,
-       8,     9,    72,    -1,    -1,    65,    -1,    -1,    -1,    17,
-      36,    37,    38,    39,    84,    85,    86,    43,    -1,    45,
-      -1,    91,    92,    -1,    -1,    95,    -1,    -1,    36,    37,
-      38,    39,    69,    70,    71,    43,    96,    45,    -1,    -1,
-      48,    -1,    -1,    69,    70,    71,    -1,    55,    56,    57,
-      58,    69,    70,    71,    69,    70,    71,    94,    -1,    -1,
-      -1,    69,    70,    71,    -1,    73,    74,    75,    76,    77,
-      78,    79,    80,    81,    82,    83,    94,    -1,    -1,    94,
-      88,    89,    90,    57,    58,    93,    94,     8,     9,    10,
-      11,    12,    13,    14,    15,    16,    -1,    18,    19,    20,
-      21,    22,    -1,    24,    25,    26,    27,    28,    82,    83,
-      -1,    -1,    33,    -1,    88,    89,    90,    -1,    -1,    93,
-      55,    56,    57,    58,    -1,    -1,    47,    -1,    49,    50,
-      51,    52,    53,    54,    -1,    -1,    -1,    -1,    59,    60,
-      61,    62,    63,    64,    -1,    66,    81,    82,    83,    -1,
-      -1,    72,    -1,    88,    89,    90,    -1,    -1,    93,    -1,
-      -1,    -1,    -1,    84,    85,    86,    -1,    -1,    -1,    -1,
-      91,    92,    -1,     8,    95,    10,    11,    12,    13,    14,
-      15,    16,    17,    18,    19,    20,    21,    22,    -1,    24,
-      25,    26,    27,    28,    -1,    -1,    -1,    -1,    33,    -1,
-      -1,    -1,    -1,    -1,    -1,    55,    56,    57,    58,    -1,
-      -1,    -1,    47,    -1,    49,    50,    51,    52,    53,    54,
-      -1,    -1,    -1,    -1,    59,    60,    61,    62,    63,    64,
-      -1,    66,    82,    83,    -1,    -1,    -1,    72,    88,    89,
-      90,    -1,    -1,    93,    -1,    -1,    -1,    -1,    -1,    84,
-      85,    86,    -1,    -1,    -1,    -1,    91,    92,    -1,     8,
-      95,    10,    11,    12,    13,    14,    15,    16,    -1,    18,
-      19,    20,    21,    22,    -1,    24,    25,    26,    27,    28,
-      -1,    -1,    -1,    -1,    33,    -1,    -1,    -1,    -1,    -1,
-      -1,    55,    56,    57,    58,    -1,    -1,    -1,    47,    -1,
-      49,    50,    51,    52,    53,    54,    -1,    -1,    -1,    -1,
-      59,    60,    61,    62,    63,    64,    -1,    66,    82,    83,
-      -1,    -1,    -1,    72,    88,    89,    90,    -1,    -1,    93,
-      -1,    -1,    -1,    -1,    -1,    84,    85,    86,    -1,    -1,
-      -1,    -1,    91,    92,    -1,    94,    95,     8,    -1,    10,
-      11,    12,    13,    14,    15,    16,    -1,    18,    19,    20,
-      21,    22,    -1,    24,    25,    26,    27,    28,    -1,    -1,
-      -1,    -1,    33,    -1,    -1,    -1,    -1,    -1,    -1,    55,
-      -1,    57,    58,    -1,    -1,    -1,    47,    -1,    49,    50,
-      51,    52,    53,    54,    -1,    -1,    -1,    -1,    59,    60,
-      61,    62,    63,    64,    -1,    66,    82,    83,    -1,    -1,
-      -1,    72,    88,    89,    90,    -1,    -1,    93,    -1,    -1,
-      -1,    -1,    -1,    84,    85,    86,    -1,    -1,    -1,    -1,
-      91,    92,    -1,    94,    95,     8,    -1,    10,    11,    12,
-      13,    14,    15,    16,    -1,    18,    19,    20,    21,    22,
-      -1,    24,    25,    26,    27,    28,    -1,    -1,    -1,    -1,
-      33,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    47,    -1,    49,    50,    51,    52,
-      53,    54,    -1,    -1,    -1,    -1,    59,    60,    61,    62,
-      63,    64,    -1,    66,    -1,    -1,    -1,    -1,    -1,    72,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    84,    85,    86,    -1,    -1,    -1,    -1,    91,    92,
-      -1,    94,    95,     8,    -1,    10,    11,    12,    13,    14,
-      15,    16,    -1,    18,    19,    20,    21,    22,    -1,    24,
-      25,    26,    27,    28,    -1,    -1,    -1,    -1,    33,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    47,    -1,    49,    50,    51,    52,    53,    54,
-      -1,    -1,    -1,    -1,    59,    60,    61,    62,    63,    64,
-      -1,    66,    -1,    -1,    -1,    -1,    -1,    72,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    84,
-      85,    86,    -1,    -1,    -1,    -1,    91,    92,    -1,    94,
-      95,     8,    -1,    10,    11,    12,    13,    14,    15,    16,
-      -1,    18,    19,    20,    21,    22,    -1,    24,    25,    26,
-      27,    28,    -1,    -1,    -1,    -1,    33,    -1,    -1,    -1,
+      26,    10,     8,    67,    68,    69,    70,    71,    72,   239,
+      48,    49,    50,    51,    52,   411,     0,    55,    56,    45,
+      26,   136,     7,    80,    13,    14,    15,   122,     0,    38,
+     250,    88,    70,   253,    49,    50,    51,    52,   102,    25,
+      55,    56,    80,    81,    82,   109,   382,   142,    86,     7,
+      19,     9,   448,     0,    74,    13,    19,    83,   173,    31,
+      32,    33,    20,    35,    36,    80,    81,    73,    94,     7,
+     236,    13,     7,    79,     9,    95,    82,   243,    19,   136,
+      18,   138,    19,    25,    31,    32,    33,   151,    35,    36,
+       7,     7,     9,     9,    66,   431,    96,   145,   146,   147,
+     148,   149,   150,   167,   152,   153,   170,    96,   165,    25,
+      96,   117,     7,   139,    96,     7,   173,     8,    13,    66,
+     158,   341,   342,    65,    19,    97,    18,     9,     8,    24,
+      96,   157,   158,    19,   364,   141,     8,    96,    96,    18,
+      31,    32,    33,   158,    35,    36,    70,    71,    72,   175,
+      97,    31,    32,    33,    96,    35,    36,    41,    42,    31,
+      32,    33,    43,    35,    36,   385,   192,   193,   194,   195,
+     196,   197,   198,   199,   200,    66,   202,   203,   204,    10,
+      96,    19,    20,   189,   222,   233,    66,     7,   246,     9,
+     248,    70,    71,    72,    66,    58,    59,   223,   224,   225,
+     226,   227,   228,   251,   319,    25,    97,    18,    74,   324,
+       7,   249,    18,   239,    46,    47,    19,    97,   438,   245,
+     246,    84,   248,    22,   250,    97,    89,    90,    91,    61,
+      95,    94,    96,   259,     8,   261,   262,     9,    68,    70,
+      71,    72,    74,   307,   270,    90,    91,    79,    10,    94,
+      82,    18,    68,    85,    19,    87,    10,    89,    90,    91,
+      92,    93,   319,    96,    70,    71,    72,   324,    13,    95,
+     334,     8,    22,     1,     9,    22,    96,   303,   304,    72,
+     306,     9,    95,    11,    12,    13,    14,    15,    16,    17,
+      18,    19,    20,    21,    22,    23,    18,    25,    26,    27,
+      28,    29,    18,    70,    71,    72,    34,    95,    70,    71,
+      72,   317,    95,    95,   320,    95,    70,    71,    72,   325,
+      48,    18,    50,    51,    52,    53,    54,    55,    10,   355,
+       8,    10,    60,    61,    62,    63,    64,    65,   364,    67,
+      10,    18,    18,    10,    95,    73,    10,    95,    70,    71,
+      72,     8,     8,     8,    70,    71,    72,    85,    86,    87,
+       7,   387,   426,    95,    92,    93,   375,     8,    96,   201,
+      95,    95,    95,   205,   206,   207,   208,   209,   210,   211,
+     212,   213,   214,   215,   216,   217,   218,   219,    70,    71,
+      72,    70,    71,    72,    70,    71,    72,    18,     9,    95,
+      70,    71,    72,    70,    71,    72,    70,    71,    72,    95,
+       1,    26,   387,   440,   440,   424,     7,     9,     9,    65,
+      11,    12,    13,    14,    15,    16,    17,    18,    19,    20,
+      21,    22,    23,    43,    25,    26,    27,    28,    29,    30,
+      70,    71,    72,    34,   320,    -1,    37,    38,    39,    40,
+      86,    86,    58,    44,    45,    46,    47,    48,    -1,    50,
+      51,    52,    53,    54,    55,    95,    -1,    -1,    -1,    60,
+      61,    62,    63,    64,    65,    -1,    67,    -1,    84,    -1,
+      -1,   413,    73,    89,    90,    91,    -1,    -1,    94,    -1,
+     422,   423,    -1,    -1,    85,    86,    87,    -1,     1,    -1,
+     432,    92,    93,    -1,    -1,    96,     9,   439,    11,    12,
+      13,    14,    15,    16,    17,    -1,    19,    20,    21,    22,
+      23,    -1,    25,    26,    27,    28,    29,   359,    70,    71,
+      72,    34,    89,    90,    91,    -1,    -1,    94,    -1,    31,
+      32,    33,    -1,    35,    36,    48,    -1,    50,    51,    52,
+      53,    54,    55,    95,    70,    71,    72,    60,    61,    62,
+      63,    64,    65,    -1,    67,    -1,    70,    71,    72,    -1,
+      73,    84,    -1,    -1,    66,    -1,    89,    90,    91,    95,
+      -1,    94,    85,    86,    87,     3,     4,     5,     6,    92,
+      93,    95,    95,    96,     7,    -1,     9,    -1,    11,    12,
+      13,    14,    15,    16,    17,    97,    19,    20,    21,    22,
+      23,    24,    25,    26,    27,    28,    29,    -1,    70,    71,
+      72,    34,    -1,    37,    38,    39,    40,    -1,    -1,    -1,
+      44,    -1,    46,    -1,    -1,    48,    -1,    50,    51,    52,
+      53,    54,    55,    95,    70,    71,    72,    60,    61,    62,
+      63,    64,    65,    -1,    67,    -1,    70,    71,    72,    -1,
+      73,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    95,
+      -1,    -1,    85,    86,    87,    -1,    -1,    -1,    -1,    92,
+      93,    95,     7,    96,     9,    -1,    11,    12,    13,    14,
+      15,    16,    17,    -1,    19,    20,    21,    22,    23,    -1,
+      25,    26,    27,    28,    29,    -1,    70,    71,    72,    34,
+      -1,    -1,    -1,    -1,    -1,    -1,    70,    71,    72,    56,
+      57,    58,    59,    48,    -1,    50,    51,    52,    53,    54,
+      55,    95,    -1,    -1,    -1,    60,    61,    62,    63,    64,
+      65,    95,    67,    80,    81,    82,    83,    84,    73,    -1,
+      -1,    -1,    89,    90,    91,    -1,    -1,    94,    -1,    -1,
+      85,    86,    87,    -1,    -1,    -1,    -1,    92,    93,    -1,
+       7,    96,     9,    -1,    11,    12,    13,    14,    15,    16,
+      17,    -1,    19,    20,    21,    22,    23,    -1,    25,    26,
+      27,    28,    29,    -1,    70,    71,    72,    34,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      47,    -1,    49,    50,    51,    52,    53,    54,    -1,    -1,
-      -1,    -1,    59,    60,    61,    62,    63,    64,    -1,    66,
-      -1,    -1,    -1,    -1,    -1,    72,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    84,    85,    86,
-      -1,    -1,    -1,    -1,    91,    92,    -1,    94,    95,     8,
-      -1,    10,    11,    12,    13,    14,    15,    16,    -1,    18,
-      19,    20,    21,    22,    -1,    24,    25,    26,    27,    28,
-      -1,    -1,    -1,    -1,    33,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    47,    -1,
-      49,    50,    51,    52,    53,    54,    -1,    -1,    -1,    -1,
-      59,    60,    61,    62,    63,    64,    -1,    66,    -1,    -1,
-      -1,    -1,    -1,    72,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    84,    85,    86,    -1,    -1,
-      -1,    -1,    91,    92,    -1,    94,    95,     8,    -1,    10,
-      11,    12,    13,    14,    15,    16,    -1,    18,    19,    20,
-      21,    22,    -1,    24,    25,    26,    27,    28,    -1,    -1,
-      -1,    -1,    33,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    47,    -1,    49,    50,
-      51,    52,    53,    54,    -1,    -1,    -1,    -1,    59,    60,
-      61,    62,    63,    64,    -1,    66,    -1,    -1,    -1,    -1,
-      -1,    72,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    84,    85,    86,    -1,    -1,    -1,    -1,
-      91,    92,    -1,    94,    95,     8,    -1,    10,    11,    12,
-      13,    14,    15,    16,    -1,    18,    19,    20,    21,    22,
-      -1,    24,    25,    26,    27,    28,    -1,    -1,    -1,    -1,
-      33,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    47,    -1,    49,    50,    51,    52,
-      53,    54,    -1,    -1,    -1,    -1,    59,    60,    61,    62,
-      63,    64,    -1,    66,    -1,    -1,    -1,    -1,    -1,    72,
+      -1,    48,    -1,    50,    51,    52,    53,    54,    55,    95,
+      -1,    -1,    -1,    60,    61,    62,    63,    64,    65,    -1,
+      67,     7,    -1,     9,    10,    -1,    73,    -1,    -1,    -1,
+      -1,    -1,    18,    -1,    -1,    -1,    -1,    -1,    85,    86,
+      87,    56,    57,    58,    59,    92,    93,    -1,    -1,    96,
+      -1,    37,    38,    39,    40,    -1,    -1,    -1,    44,    -1,
+      46,    -1,    -1,    49,    -1,    -1,    81,    82,    83,    84,
+      56,    57,    58,    59,    89,    90,    91,    -1,    -1,    94,
+      -1,    -1,    -1,    -1,    70,    71,    72,    -1,    74,    75,
+      76,    77,    78,    79,    80,    81,    82,    83,    84,    -1,
+      -1,    -1,    -1,    89,    90,    91,    58,    59,    94,    95,
+       9,    10,    11,    12,    13,    14,    15,    16,    17,    -1,
+      19,    20,    21,    22,    23,    -1,    25,    26,    27,    28,
+      29,    83,    84,    -1,    -1,    34,    -1,    89,    90,    91,
+      -1,    -1,    94,    56,    57,    58,    59,    -1,    -1,    48,
+      -1,    50,    51,    52,    53,    54,    55,    -1,    -1,    -1,
+      -1,    60,    61,    62,    63,    64,    65,    -1,    67,    82,
+      83,    84,    -1,    -1,    73,    -1,    89,    90,    91,    -1,
+      -1,    94,    -1,    -1,    -1,    -1,    85,    86,    87,    -1,
+      -1,    -1,    -1,    92,    93,    -1,     9,    96,    11,    12,
+      13,    14,    15,    16,    17,    18,    19,    20,    21,    22,
+      23,    -1,    25,    26,    27,    28,    29,    -1,    -1,    -1,
+      -1,    34,    -1,    -1,    -1,    -1,    -1,    -1,    56,    57,
+      58,    59,    -1,    -1,    -1,    48,    -1,    50,    51,    52,
+      53,    54,    55,    -1,    -1,    -1,    -1,    60,    61,    62,
+      63,    64,    65,    -1,    67,    83,    84,    -1,    -1,    -1,
+      73,    89,    90,    91,    -1,    -1,    94,    -1,    -1,    -1,
+      -1,    -1,    85,    86,    87,    -1,    -1,    -1,    -1,    92,
+      93,    -1,     9,    96,    11,    12,    13,    14,    15,    16,
+      17,    -1,    19,    20,    21,    22,    23,    -1,    25,    26,
+      27,    28,    29,    -1,    -1,    -1,    -1,    34,    -1,    -1,
+      -1,    -1,    -1,    -1,    56,    57,    58,    59,    -1,    -1,
+      -1,    48,    -1,    50,    51,    52,    53,    54,    55,    -1,
+      -1,    -1,    -1,    60,    61,    62,    63,    64,    65,    -1,
+      67,    83,    84,    -1,    -1,    -1,    73,    89,    90,    91,
+      -1,    -1,    94,    -1,    -1,    -1,    -1,    -1,    85,    86,
+      87,    -1,    -1,    -1,    -1,    92,    93,    -1,    95,    96,
+       9,    -1,    11,    12,    13,    14,    15,    16,    17,    -1,
+      19,    20,    21,    22,    23,    -1,    25,    26,    27,    28,
+      29,    -1,    -1,    -1,    -1,    34,    -1,    -1,    -1,    -1,
+      -1,    -1,    56,    -1,    58,    59,    -1,    -1,    -1,    48,
+      -1,    50,    51,    52,    53,    54,    55,    -1,    -1,    -1,
+      -1,    60,    61,    62,    63,    64,    65,    -1,    67,    83,
+      84,    -1,    -1,    -1,    73,    89,    90,    91,    -1,    -1,
+      94,    -1,    -1,    -1,    -1,    -1,    85,    86,    87,    -1,
+      -1,    -1,    -1,    92,    93,    -1,    95,    96,     9,    -1,
+      11,    12,    13,    14,    15,    16,    17,    -1,    19,    20,
+      21,    22,    23,    -1,    25,    26,    27,    28,    29,    -1,
+      -1,    -1,    -1,    34,    37,    38,    39,    40,    -1,    -1,
+      -1,    44,    -1,    46,    -1,    -1,    -1,    48,    -1,    50,
+      51,    52,    53,    54,    55,    -1,    -1,    -1,    -1,    60,
+      61,    62,    63,    64,    65,    -1,    67,    70,    71,    72,
+      -1,    -1,    73,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    85,    86,    87,    -1,    -1,    -1,
+      -1,    92,    93,    -1,    95,    96,     9,    -1,    11,    12,
+      13,    14,    15,    16,    17,    -1,    19,    20,    21,    22,
+      23,    -1,    25,    26,    27,    28,    29,    -1,    -1,    -1,
+      -1,    34,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    48,    -1,    50,    51,    52,
+      53,    54,    55,    -1,    -1,    -1,    -1,    60,    61,    62,
+      63,    64,    65,    -1,    67,    -1,    -1,    -1,    -1,    -1,
+      73,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    85,    86,    87,    -1,    -1,    -1,    -1,    92,
+      93,    -1,    95,    96,     9,    -1,    11,    12,    13,    14,
+      15,    16,    17,    -1,    19,    20,    21,    22,    23,    -1,
+      25,    26,    27,    28,    29,    -1,    -1,    -1,    -1,    34,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    84,    85,    86,    -1,    -1,    -1,    -1,    91,    92,
-      -1,    94,    95,     8,    -1,    10,    11,    12,    13,    14,
-      15,    16,    -1,    18,    19,    20,    21,    22,    -1,    24,
-      25,    26,    27,    28,    -1,    -1,    -1,    -1,    33,    -1,
+      -1,    -1,    -1,    48,    -1,    50,    51,    52,    53,    54,
+      55,    -1,    -1,    -1,    -1,    60,    61,    62,    63,    64,
+      65,    -1,    67,    -1,    -1,    -1,    -1,    -1,    73,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    47,    -1,    49,    50,    51,    52,    53,    54,
-      -1,    -1,    -1,    -1,    59,    60,    61,    62,    63,    64,
-      -1,    66,    -1,    -1,     9,    -1,    -1,    72,    -1,    -1,
-      -1,    -1,    17,    -1,    -1,    -1,    -1,    -1,    -1,    84,
-      85,    86,    -1,    -1,    -1,    -1,    91,    92,    -1,    -1,
-      95,    36,    37,    38,    39,    -1,    -1,    -1,    43,    -1,
-      45,    -1,    -1,    48,    -1,    -1,    -1,    -1,    -1,    -1,
-      55,    56,    57,    58,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    69,    70,    71,    -1,    73,    74,
-      75,    76,    77,    78,    79,    80,    81,    82,    83,    -1,
-     381,    -1,   383,    88,    89,    90,   387,    -1,    93,    94,
+      85,    86,    87,    -1,    -1,    -1,    -1,    92,    93,    -1,
+      95,    96,     9,    -1,    11,    12,    13,    14,    15,    16,
+      17,    -1,    19,    20,    21,    22,    23,    -1,    25,    26,
+      27,    28,    29,    -1,    -1,    -1,    -1,    34,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,   404,   405,    -1,    48,    -1,    -1,    -1,
-      -1,   412,   413,    55,    56,    57,    58,    -1,    -1,    -1,
-      -1,   422,    -1,    -1,    -1,   426,    -1,    -1,    -1,    -1,
-      -1,    -1,    74,    75,    76,    77,    78,    79,    80,    81,
-      82,    83,   443,   444,    -1,    48,    88,    89,    90,    -1,
-      -1,    93,    55,    56,    57,    58,    -1,    -1,    -1,    -1,
+      -1,    48,    -1,    50,    51,    52,    53,    54,    55,    -1,
+      -1,    -1,    -1,    60,    61,    62,    63,    64,    65,    -1,
+      67,    -1,    -1,    -1,    -1,    -1,    73,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    85,    86,
+      87,    -1,    -1,    -1,    -1,    92,    93,    -1,    95,    96,
+       9,    -1,    11,    12,    13,    14,    15,    16,    17,    -1,
+      19,    20,    21,    22,    23,    -1,    25,    26,    27,    28,
+      29,    -1,    -1,    -1,    -1,    34,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    48,
+      -1,    50,    51,    52,    53,    54,    55,    -1,    -1,    -1,
+      -1,    60,    61,    62,    63,    64,    65,    -1,    67,    -1,
+      -1,    -1,    -1,    -1,    73,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    85,    86,    87,    -1,
+      -1,    -1,    -1,    92,    93,    -1,    95,    96,     9,    -1,
+      11,    12,    13,    14,    15,    16,    17,    -1,    19,    20,
+      21,    22,    23,    -1,    25,    26,    27,    28,    29,    -1,
+      -1,    -1,    -1,    34,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    48,    -1,    50,
+      51,    52,    53,    54,    55,    -1,    -1,    -1,    -1,    60,
+      61,    62,    63,    64,    65,    -1,    67,    -1,    -1,    -1,
+      -1,    -1,    73,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    85,    86,    87,    -1,    -1,    -1,
+      -1,    92,    93,    -1,    95,    96,     9,    -1,    11,    12,
+      13,    14,    15,    16,    17,    -1,    19,    20,    21,    22,
+      23,    -1,    25,    26,    27,    28,    29,    -1,    -1,    -1,
+      -1,    34,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    48,    -1,    50,    51,    52,
+      53,    54,    55,    -1,    -1,    -1,    -1,    60,    61,    62,
+      63,    64,    65,    -1,    67,    -1,    -1,    10,    -1,    -1,
+      73,    -1,    -1,    -1,    -1,    18,    -1,    -1,    -1,    -1,
+      -1,    -1,    85,    86,    87,    -1,    -1,    -1,    -1,    92,
+      93,    -1,    -1,    96,    37,    38,    39,    40,    -1,    -1,
+      -1,    44,    -1,    46,    -1,    -1,    49,    -1,    -1,    -1,
+      -1,    -1,    -1,    56,    57,    58,    59,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    70,    71,    72,
+      -1,    74,    75,    76,    77,    78,    79,    80,    81,    82,
+      83,    84,    -1,   384,    -1,   386,    89,    90,    91,   390,
+      -1,    94,    95,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,   407,   408,    -1,    49,
+      -1,    -1,    -1,    -1,   415,   416,    56,    57,    58,    59,
+      -1,    -1,    -1,    -1,   425,    -1,    -1,    -1,   429,    -1,
+      -1,    -1,    -1,    -1,    -1,    75,    76,    77,    78,    79,
+      80,    81,    82,    83,    84,   446,   447,    -1,    49,    89,
+      90,    91,    -1,    -1,    94,    56,    57,    58,    59,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    74,    75,    -1,    77,    78,    79,    80,    81,    82,
-      83,    -1,    -1,    -1,    48,    88,    89,    90,    -1,    -1,
-      93,    55,    56,    57,    58,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    75,    76,    -1,    78,    79,    80,
+      81,    82,    83,    84,    -1,    -1,    -1,    49,    89,    90,
+      91,    -1,    -1,    94,    56,    57,    58,    59,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    75,    -1,    77,    78,    79,    80,    81,    82,    83,
-      -1,    -1,    -1,    48,    88,    89,    90,    -1,    -1,    93,
-      55,    56,    57,    58,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    76,    -1,    78,    79,    80,    81,
+      82,    83,    84,    -1,    -1,    -1,    49,    89,    90,    91,
+      -1,    -1,    94,    56,    57,    58,    59,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    77,    78,    79,    80,    81,    82,    83,    -1,
-      -1,    -1,    -1,    88,    89,    90,    -1,    -1,    93
+      -1,    -1,    -1,    -1,    -1,    78,    79,    80,    81,    82,
+      83,    84,    -1,    -1,    -1,    -1,    89,    90,    91,    -1,
+      -1,    94
 };
 
 /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
    symbol of state STATE-NUM.  */
 static const yytype_uint8 yystos[] =
 {
-       0,     3,     4,     5,    98,   101,   105,    99,   100,     0,
-     108,    30,    31,    32,    34,    35,    65,    96,   109,   110,
-     116,   117,   125,   126,   127,   128,   130,   131,   140,   141,
-     143,   108,   110,   126,   134,   132,    18,   132,   132,     1,
-       6,     8,    10,    11,    12,    13,    14,    15,    16,    17,
-      18,    19,    20,    21,    22,    24,    25,    26,    27,    28,
-      29,    33,    36,    37,    38,    39,    43,    44,    45,    46,
-      47,    49,    50,    51,    52,    53,    54,    59,    60,    61,
-      62,    63,    64,    66,    72,    84,    85,    86,    91,    92,
-      95,   102,   111,   113,   114,   145,   146,   147,   150,   151,
-     152,   153,   154,   155,   156,   163,   164,   165,   166,   167,
-     168,    18,   129,    18,   135,    18,   144,   135,   103,     9,
-     145,   155,   155,    18,    23,   102,   164,   169,   169,   169,
-     169,   169,   169,   169,    95,     8,   155,   133,   133,    24,
-      95,   160,   160,   160,   160,    64,   160,   164,   160,   160,
-     102,   155,    95,    95,    95,   102,   155,    18,   146,   158,
-     164,   169,   169,    18,   102,   155,   164,    17,   145,    18,
-     155,    95,   157,   164,   165,   166,   155,   146,   155,   155,
-     155,   155,   155,    94,   145,    42,   115,    17,    36,    37,
-      38,    39,    43,    45,    69,    70,    71,    73,     6,     8,
-     160,    48,    55,    56,    57,    58,    74,    75,    77,    78,
-      79,    80,    81,    82,    83,    88,    89,    90,    93,   160,
-       6,     8,     6,     8,     6,   102,    21,   136,     6,    17,
-      18,   136,   108,     9,   158,    95,   146,   145,   102,   136,
-     161,   103,   103,   103,   103,   103,   103,   160,   103,   103,
-      94,    94,   145,   145,   159,   169,   146,   160,   160,     7,
-      17,   158,    94,   145,    67,   138,     8,    94,   102,   145,
-     121,   145,   145,   145,   145,   145,   145,   145,   145,   155,
-     145,   145,    94,   145,   155,   155,   155,   155,   155,   155,
-     155,   155,   155,   155,   155,   155,   155,   155,   155,     6,
-       8,    19,    95,   149,   164,    94,   145,   145,   145,   145,
-     145,   145,    67,   137,   103,    18,   137,     7,   159,    94,
-       9,   148,   137,    95,   120,   145,   121,   122,   145,   121,
-     124,   162,   164,   111,   119,   122,   123,   145,   103,   104,
-     122,    94,    94,   145,    94,   145,    94,   145,     7,    94,
-      21,   145,     8,    17,     9,    94,    76,   145,   145,    94,
-     145,   160,    94,    17,     9,    17,     9,    17,    21,    17,
-     102,   139,   142,   158,   139,    94,   158,   102,    94,    94,
-      94,    94,   160,    94,    17,   122,   122,    94,    94,    94,
-      94,     9,   145,     7,   155,    17,     9,    94,   159,     7,
-       7,     7,   108,    17,   118,   118,     6,   106,   106,   122,
-     106,   120,    94,    94,   106,     9,     7,    94,     7,   106,
-     106,   107,    40,    41,   112,   112,    94,   115,    17,   106,
-     106,   115,   115,   108,   106,   160,   106,   118,   115,     7,
-     122,   115,   123,    94,    94,   106,   106,   112
+       0,     3,     4,     5,     6,    99,   103,   107,   100,   101,
+     102,     0,   110,     7,   104,    31,    32,    33,    35,    36,
+      66,    97,   111,   112,   118,   119,   127,   128,   129,   130,
+     132,   133,   142,   143,   145,   110,   112,   128,   105,   136,
+     134,    19,   134,   134,     1,     9,    11,    12,    13,    14,
+      15,    16,    17,    18,    19,    20,    21,    22,    23,    25,
+      26,    27,    28,    29,    30,    34,    37,    38,    39,    40,
+      44,    45,    46,    47,    48,    50,    51,    52,    53,    54,
+      55,    60,    61,    62,    63,    64,    65,    67,    73,    85,
+      86,    87,    92,    93,    96,   104,   113,   115,   116,   147,
+     148,   149,   152,   153,   154,   155,   156,   157,   158,   165,
+     166,   167,   168,   169,   170,   110,    19,   131,    19,   137,
+      19,   146,   137,    10,   147,   157,   157,    19,    24,   104,
+     166,   171,   171,   171,   171,   171,   171,   171,    96,     9,
+     157,   135,   135,    25,    96,   162,   162,   162,   162,    65,
+     162,   166,   162,   162,   104,   157,    96,    96,    96,   104,
+     157,    19,   148,   160,   166,   171,   171,    19,   104,   157,
+     166,    18,   147,    19,   157,    96,   159,   166,   167,   168,
+     157,   148,   157,   157,   157,   157,   157,    95,   147,    43,
+     117,    18,    37,    38,    39,    40,    44,    46,    70,    71,
+      72,    74,     7,     9,   162,    49,    56,    57,    58,    59,
+      75,    76,    78,    79,    80,    81,    82,    83,    84,    89,
+      90,    91,    94,   162,     7,     9,     7,     9,     7,     8,
+     104,    22,   138,     7,    18,    19,   138,    10,   160,    96,
+     148,   147,   104,   138,   163,   105,   105,   105,   105,   105,
+     105,   162,   105,   105,    95,    95,   147,   147,   161,   171,
+     148,   162,   162,     8,    18,   160,    95,   147,    68,   140,
+       9,    95,   104,   147,   123,   147,   147,   147,   147,   147,
+     147,   147,   147,   157,   147,   147,    95,   147,   157,   157,
+     157,   157,   157,   157,   157,   157,   157,   157,   157,   157,
+     157,   157,   157,     7,     9,    20,    96,   151,   166,    95,
+     147,   147,   147,   147,   147,   147,    68,   139,   105,    19,
+     139,   161,    95,    10,   150,   139,    96,   122,   147,   123,
+     124,   147,   123,   126,   164,   166,   113,   121,   124,   125,
+     147,   105,   106,   124,    95,    95,   147,    95,   147,    95,
+     147,     8,    95,    22,   147,     9,    18,    10,    95,    77,
+     147,   147,    95,   147,   162,    95,    18,    10,    18,    10,
+      18,    22,    18,   104,   141,   144,   160,   141,    95,   160,
+     104,    95,    95,    95,    95,   162,    95,    18,   124,   124,
+      95,    95,    95,    95,    10,   147,     8,   157,    18,    10,
+      95,   161,     8,     8,     8,   110,    18,   120,   120,     7,
+     108,   108,   124,   108,   122,    95,    95,   108,    10,     8,
+      95,     8,   108,   108,   109,    41,    42,   114,   114,    95,
+     117,    18,   108,   108,   117,   117,   110,   108,   162,   108,
+     120,   117,     8,   124,   117,   125,    95,    95,   108,   108,
+     114
 };
 
 typedef enum {
@@ -931,7 +937,7 @@ typedef enum {
 /* type of each token/terminal */
 static const toketypes yy_type_tab[] =
 {
-  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
+  toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval,
   toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_i_tkval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
   toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
@@ -944,15 +950,16 @@ static const toketypes yy_type_tab[] =
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
   toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival,
-  toketype_i_tkval, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_ival,
-  toketype_ival, toketype_ival, toketype_opval, toketype_ival, toketype_opval, toketype_opval,
+  toketype_i_tkval, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_ival, toketype_opval,
+  toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_ival, toketype_opval,
   toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_p_tkval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_ival, toketype_ival, toketype_ival, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_ival,
-  toketype_opval, toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_ival, toketype_opval, toketype_opval,
+  toketype_opval, toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_p_tkval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_ival, toketype_ival, toketype_ival, toketype_opval,
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval, toketype_ival, toketype_opval, toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_ival,
   toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_i_tkval, toketype_ival, toketype_opval,
-  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval
+  toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_i_tkval,
+  toketype_ival, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval, toketype_opval,
+  toketype_opval
 };
diff --git a/perly.y b/perly.y
index 2b34f7d..a70122d 100644 (file)
--- 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> '{' '}' '[' ']' '-' '+' '$' '@' '%' '*' '&' ';'
 
 /* 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;
diff --git a/proto.h b/proto.h
index 3b962a7..ce9aaf3 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2776,6 +2776,7 @@ PERL_CALLCONV void        Perl_pad_undef(pTHX_ CV* cv)
 #define PERL_ARGS_ASSERT_PAD_UNDEF     \
        assert(cv)
 
+PERL_CALLCONV OP*      Perl_parse_block(pTHX_ U32 flags);
 PERL_CALLCONV OP*      Perl_parse_fullstmt(pTHX_ U32 flags);
 PERL_CALLCONV OP*      Perl_parse_stmtseq(pTHX_ U32 flags);
 PERL_CALLCONV U32      Perl_parse_unicode_opts(pTHX_ const char **popt)
diff --git a/toke.c b/toke.c
index d0af57e..ec2ac73 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -13973,7 +13973,8 @@ Perl_keyword_plugin_standard(pTHX_
 }
 
 #define parse_recdescent(g) S_parse_recdescent(aTHX_ g)
-static void S_parse_recdescent(pTHX_ int gramtype)
+static void
+S_parse_recdescent(pTHX_ int gramtype)
 {
     SAVEI32(PL_lex_brackets);
     if (PL_lex_brackets > 100)
@@ -13983,6 +13984,56 @@ static void S_parse_recdescent(pTHX_ int gramtype)
        qerror(Perl_mess(aTHX_ "Parse error"));
 }
 
+#define parse_recdescent_for_op(g) S_parse_recdescent_for_op(aTHX_ g)
+static OP *
+S_parse_recdescent_for_op(pTHX_ int gramtype)
+{
+    OP *o;
+    ENTER;
+    SAVEVPTR(PL_eval_root);
+    PL_eval_root = NULL;
+    parse_recdescent(gramtype);
+    o = PL_eval_root;
+    LEAVE;
+    return o;
+}
+
+/*
+=for apidoc Amx|OP *|parse_block|U32 flags
+
+Parse a single complete Perl code block.  This consists of an opening
+brace, a sequence of statements, and a closing brace.  The block
+constitutes a lexical scope, so C<my> variables and various compile-time
+effects can be contained within it.  It is up to the caller to ensure
+that the dynamic parser state (L</PL_parser> et al) is correctly set to
+reflect the source of the code to be parsed and the lexical context for
+the statement.
+
+The op tree representing the code block is returned.  This is always a
+real op, never a null pointer.  It will normally be a C<lineseq> list,
+including C<nextstate> or equivalent ops.  No ops to construct any kind
+of runtime scope are included by virtue of it being a block.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree (most likely null) is returned anyway.  The error is reflected in
+the parser state, normally resulting in a single exception at the top
+level of parsing which covers all the compilation errors that occurred.
+Some compilation errors, however, will throw an exception immediately.
+
+The I<flags> parameter is reserved for future use, and must always
+be zero.
+
+=cut
+*/
+
+OP *
+Perl_parse_block(pTHX_ U32 flags)
+{
+    if (flags)
+       Perl_croak(aTHX_ "Parsing code internal error (%s)", "parse_block");
+    return parse_recdescent_for_op(GRAMBLOCK);
+}
+
 /*
 =for apidoc Amx|OP *|parse_fullstmt|U32 flags
 
@@ -14013,16 +14064,9 @@ be zero.
 OP *
 Perl_parse_fullstmt(pTHX_ U32 flags)
 {
-    OP *fullstmtop;
     if (flags)
        Perl_croak(aTHX_ "Parsing code internal error (%s)", "parse_fullstmt");
-    ENTER;
-    SAVEVPTR(PL_eval_root);
-    PL_eval_root = NULL;
-    parse_recdescent(GRAMFULLSTMT);
-    fullstmtop = PL_eval_root;
-    LEAVE;
-    return fullstmtop;
+    return parse_recdescent_for_op(GRAMFULLSTMT);
 }
 
 /*
@@ -14059,16 +14103,13 @@ OP *
 Perl_parse_stmtseq(pTHX_ U32 flags)
 {
     OP *stmtseqop;
+    I32 c;
     if (flags)
        Perl_croak(aTHX_ "Parsing code internal error (%s)", "parse_fullstmt");
-    ENTER;
-    SAVEVPTR(PL_eval_root);
-    PL_eval_root = NULL;
-    parse_recdescent(GRAMSTMTSEQ);
-    if (!((PL_bufptr == PL_bufend && !PL_rsfp) || *PL_bufptr == /*{*/'}'))
+    stmtseqop = parse_recdescent_for_op(GRAMSTMTSEQ);
+    c = lex_peek_unichar(0);
+    if (c != -1 && c != /*{*/'}')
        qerror(Perl_mess(aTHX_ "Parse error"));
-    stmtseqop = PL_eval_root;
-    LEAVE;
     return stmtseqop;
 }