Improve handling of %option and %array/%pointer, implement %option prefix=
authorNick Downing <downing.nick@gmail.com>
Wed, 25 Jul 2018 15:07:11 +0000 (01:07 +1000)
committerNick Downing <downing.nick@gmail.com>
Wed, 25 Jul 2018 15:35:03 +0000 (01:35 +1000)
src/parse.c
src/parse.y
src/scan.c
src/scan.l

index f091a77..851dee5 100644 (file)
@@ -593,15 +593,15 @@ static const yytype_uint8 yytranslate[] =
 static const yytype_uint16 yyrline[] =
 {
        0,   118,   118,   148,   155,   161,   166,   167,   171,   179,
-     182,   186,   189,   192,   196,   199,   200,   203,   211,   217,
-     225,   231,   237,   245,   250,   255,   259,   271,   309,   335,
-     360,   365,   368,   374,   394,   407,   409,   411,   415,   442,
-     498,   501,   546,   565,   573,   578,   605,   615,   618,   649,
-     666,   691,   700,   708,   716,   747,   764,   786,   828,   846,
-     856,   859,   867,   885,   891,   895,   900,   902,   911,   976,
-     999,  1009,  1018,  1022,  1026,  1030,  1034,  1038,  1042,  1056,
-    1060,  1064,  1068,  1072,  1087,  1091,  1095,  1099,  1103,  1107,
-    1111,  1115,  1119,  1123,  1127,  1135,  1145,  1166
+     182,   186,   189,   192,   196,   199,   200,   203,   210,   215,
+     222,   227,   232,   239,   244,   249,   253,   265,   303,   329,
+     354,   359,   362,   368,   388,   401,   403,   405,   409,   436,
+     492,   495,   540,   559,   567,   572,   599,   609,   612,   643,
+     660,   685,   694,   702,   710,   741,   758,   780,   822,   840,
+     850,   853,   861,   879,   885,   889,   894,   896,   905,   970,
+     993,  1003,  1012,  1016,  1020,  1024,  1028,  1032,  1036,  1050,
+    1054,  1058,  1062,  1066,  1081,  1085,  1089,  1093,  1097,  1101,
+    1105,  1109,  1113,  1117,  1121,  1129,  1139,  1160
 };
 #endif
 
@@ -1621,85 +1621,79 @@ yyreduce:
     {
                        outfilename = xstrdup(nmstr);
                        did_outfilename = 1;
- insert_after(2, "</Option_OutFile>");
- sprintf(piece_temp, "<Option_OutFile value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_OutFile>");
+ insert_before(0,"<PLex_Section1_Options_OutFile>");
                        }
-#line 1599 "parse.c" /* yacc.c:1646  */
+#line 1598 "parse.c" /* yacc.c:1646  */
     break;
 
   case 18:
-#line 212 "parse.y" /* yacc.c:1646  */
+#line 211 "parse.y" /* yacc.c:1646  */
     { extra_type = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_ExtraType>");
- sprintf(piece_temp, "<Option_ExtraType value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_ExtraType>");
+ insert_before(0, "<PLex_Section1_Options_ExtraType>");
  }
-#line 1609 "parse.c" /* yacc.c:1646  */
+#line 1607 "parse.c" /* yacc.c:1646  */
     break;
 
   case 19:
-#line 218 "parse.y" /* yacc.c:1646  */
+#line 216 "parse.y" /* yacc.c:1646  */
     { prefix = xstrdup(nmstr);
                           if (strchr(prefix, '[') || strchr(prefix, ']'))
                               flexerror(_("Prefix must not contain [ or ]")); /*}*/
- insert_after(2, "</Option_Prefix>");
- sprintf(piece_temp, "<Option_Prefix value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_Prefix>");
+ insert_before(0, "<PLex_Section1_Options_Prefix>");
  }
-#line 1621 "parse.c" /* yacc.c:1646  */
+#line 1618 "parse.c" /* yacc.c:1646  */
     break;
 
   case 20:
-#line 226 "parse.y" /* yacc.c:1646  */
+#line 223 "parse.y" /* yacc.c:1646  */
     { yyclass = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_YYClass>");
- sprintf(piece_temp, "<Option_YYClass value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_YYClass>");
+ insert_before(0, "<PLex_Section1_Options_YYClass>");
  }
-#line 1631 "parse.c" /* yacc.c:1646  */
+#line 1627 "parse.c" /* yacc.c:1646  */
     break;
 
   case 21:
-#line 232 "parse.y" /* yacc.c:1646  */
+#line 228 "parse.y" /* yacc.c:1646  */
     { headerfilename = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_HeaderFile>");
- sprintf(piece_temp, "<Option_HeaderFile value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_HeaderFile>");
+ insert_before(0, "<PLex_Section1_Options_HeaderFile>");
  }
-#line 1641 "parse.c" /* yacc.c:1646  */
+#line 1636 "parse.c" /* yacc.c:1646  */
     break;
 
   case 22:
-#line 238 "parse.y" /* yacc.c:1646  */
+#line 233 "parse.y" /* yacc.c:1646  */
     { tablesext = true; tablesfilename = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_TableFile>");
- sprintf(piece_temp, "<Option_TableFile value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_TablesFile>");
+ insert_before(0, "<PLex_Section1_Options_TablesFile>");
  }
-#line 1651 "parse.c" /* yacc.c:1646  */
+#line 1645 "parse.c" /* yacc.c:1646  */
     break;
 
   case 23:
-#line 246 "parse.y" /* yacc.c:1646  */
+#line 240 "parse.y" /* yacc.c:1646  */
     { scon_stk_ptr = (yyvsp[-3]); /*}*/
  insert_after(4, "</PLex_Section2_Rule>");
  insert_before(1, "<PLex_Section2_Rule>");
  }
-#line 1660 "parse.c" /* yacc.c:1646  */
+#line 1654 "parse.c" /* yacc.c:1646  */
     break;
 
   case 24:
-#line 251 "parse.y" /* yacc.c:1646  */
+#line 245 "parse.y" /* yacc.c:1646  */
     { scon_stk_ptr = (yyvsp[-3]); /*}*/
  insert_after(4, "</PLex_Section2_CompoundRule>");
  insert_before(1, "<PLex_Section2_CompoundRule>");
  }
-#line 1669 "parse.c" /* yacc.c:1646  */
+#line 1663 "parse.c" /* yacc.c:1646  */
     break;
 
   case 26:
-#line 259 "parse.y" /* yacc.c:1646  */
+#line 253 "parse.y" /* yacc.c:1646  */
     {
                        /* Initialize for a parse of one rule. */
                        trlcontxt = variable_trail_rule = varlength = false;
@@ -1710,11 +1704,11 @@ yyreduce:
 
                        new_rule();
                        }
-#line 1684 "parse.c" /* yacc.c:1646  */
+#line 1678 "parse.c" /* yacc.c:1646  */
     break;
 
   case 27:
-#line 272 "parse.y" /* yacc.c:1646  */
+#line 266 "parse.y" /* yacc.c:1646  */
     {
                        pat = (yyvsp[0]);
                        finish_rule( pat, variable_trail_rule,
@@ -1751,11 +1745,11 @@ yyreduce:
  insert_after(1, "</PLex_Section2_Rule_FLexRule>");
  insert_before(0, "<PLex_Section2_Rule_FLexRule bol=\"true\">");
                        }
-#line 1725 "parse.c" /* yacc.c:1646  */
+#line 1719 "parse.c" /* yacc.c:1646  */
     break;
 
   case 28:
-#line 310 "parse.y" /* yacc.c:1646  */
+#line 304 "parse.y" /* yacc.c:1646  */
     {
                        pat = (yyvsp[0]);
                        finish_rule( pat, variable_trail_rule,
@@ -1780,11 +1774,11 @@ yyreduce:
  insert_after(0, "</PLex_Section2_Rule_FLexRule>");
  insert_before(0, "<PLex_Section2_Rule_FLexRule bol=\"false\">");
                        }
-#line 1754 "parse.c" /* yacc.c:1646  */
+#line 1748 "parse.c" /* yacc.c:1646  */
     break;
 
   case 29:
-#line 336 "parse.y" /* yacc.c:1646  */
+#line 330 "parse.y" /* yacc.c:1646  */
     {
                        if ( scon_stk_ptr > 0 )
                                build_eof_action();
@@ -1808,32 +1802,32 @@ yyreduce:
  insert_after(0, "</PLex_Section2_Rule_EOFRule>");
  insert_before(0, "<PLex_Section2_Rule_EOFRule>");
                        }
-#line 1782 "parse.c" /* yacc.c:1646  */
+#line 1776 "parse.c" /* yacc.c:1646  */
     break;
 
   case 30:
-#line 361 "parse.y" /* yacc.c:1646  */
+#line 355 "parse.y" /* yacc.c:1646  */
     { synerr( _("unrecognized rule") ); }
-#line 1788 "parse.c" /* yacc.c:1646  */
+#line 1782 "parse.c" /* yacc.c:1646  */
     break;
 
   case 31:
-#line 365 "parse.y" /* yacc.c:1646  */
+#line 359 "parse.y" /* yacc.c:1646  */
     { (yyval) = scon_stk_ptr; }
-#line 1794 "parse.c" /* yacc.c:1646  */
+#line 1788 "parse.c" /* yacc.c:1646  */
     break;
 
   case 32:
-#line 369 "parse.y" /* yacc.c:1646  */
+#line 363 "parse.y" /* yacc.c:1646  */
     { (yyval) = (yyvsp[-2]); /*}*/
  insert_after(3, "</PLex_Section2_StartConditions>");
  insert_before(0, "<PLex_Section2_StartConditions>");
  }
-#line 1803 "parse.c" /* yacc.c:1646  */
+#line 1797 "parse.c" /* yacc.c:1646  */
     break;
 
   case 33:
-#line 375 "parse.y" /* yacc.c:1646  */
+#line 369 "parse.y" /* yacc.c:1646  */
     {
                        (yyval) = scon_stk_ptr;
 
@@ -1851,11 +1845,11 @@ yyreduce:
  insert_after(2, "</PLex_Section2_StartConditions>");
  insert_before(0, "<PLex_Section2_StartConditions wildcard=\"true\">");
                        }
-#line 1825 "parse.c" /* yacc.c:1646  */
+#line 1819 "parse.c" /* yacc.c:1646  */
     break;
 
   case 34:
-#line 394 "parse.y" /* yacc.c:1646  */
+#line 388 "parse.y" /* yacc.c:1646  */
     { (yyval) = scon_stk_ptr; /*}*/
  /* in this case, want empty rule associated with stuff on the right of us */
  /* therefore, move inter-token text from the right of us over to the left */
@@ -1867,17 +1861,17 @@ yyreduce:
  piece[piece2 - 1] = temp;
  insert_before(0, "<PLex_Section2_StartConditions />");
  }
-#line 1841 "parse.c" /* yacc.c:1646  */
+#line 1835 "parse.c" /* yacc.c:1646  */
     break;
 
   case 37:
-#line 412 "parse.y" /* yacc.c:1646  */
+#line 406 "parse.y" /* yacc.c:1646  */
     { synerr( _("bad start condition list") ); }
-#line 1847 "parse.c" /* yacc.c:1646  */
+#line 1841 "parse.c" /* yacc.c:1646  */
     break;
 
   case 38:
-#line 416 "parse.y" /* yacc.c:1646  */
+#line 410 "parse.y" /* yacc.c:1646  */
     {
                        if ( (scnum = sclookup( nmstr )) == 0 )
                                format_pinpoint_message(
@@ -1898,11 +1892,11 @@ yyreduce:
                                        scon_stk[++scon_stk_ptr] = scnum;
                                }
                        }
-#line 1872 "parse.c" /* yacc.c:1646  */
+#line 1866 "parse.c" /* yacc.c:1646  */
     break;
 
   case 39:
-#line 443 "parse.y" /* yacc.c:1646  */
+#line 437 "parse.y" /* yacc.c:1646  */
     {
                        if ( transchar[lastst[(yyvsp[0])]] != SYM_EPSILON )
                                /* Provide final transition \now/ so it
@@ -1957,17 +1951,17 @@ yyreduce:
 
                        (yyval) = link_machines( (yyvsp[-1]), (yyvsp[0]) );
                        }
-#line 1931 "parse.c" /* yacc.c:1646  */
+#line 1925 "parse.c" /* yacc.c:1646  */
     break;
 
   case 40:
-#line 499 "parse.y" /* yacc.c:1646  */
+#line 493 "parse.y" /* yacc.c:1646  */
     { synerr( _("trailing context used twice") ); }
-#line 1937 "parse.c" /* yacc.c:1646  */
+#line 1931 "parse.c" /* yacc.c:1646  */
     break;
 
   case 41:
-#line 502 "parse.y" /* yacc.c:1646  */
+#line 496 "parse.y" /* yacc.c:1646  */
     {
                        headcnt = 0;
                        trailcnt = 1;
@@ -2011,11 +2005,11 @@ yyreduce:
  insert_after(1, "</RegexCharacterLiteral>");
  insert_before(1, "<RegexCharacterLiteral character_set=\"10 11\">");
                        }
-#line 1985 "parse.c" /* yacc.c:1646  */
+#line 1979 "parse.c" /* yacc.c:1646  */
     break;
 
   case 42:
-#line 547 "parse.y" /* yacc.c:1646  */
+#line 541 "parse.y" /* yacc.c:1646  */
     {
                        (yyval) = (yyvsp[0]);
 
@@ -2031,28 +2025,28 @@ yyreduce:
                                }
  insert_after(0, "<RegexEmpty />");
                        }
-#line 2005 "parse.c" /* yacc.c:1646  */
+#line 1999 "parse.c" /* yacc.c:1646  */
     break;
 
   case 43:
-#line 566 "parse.y" /* yacc.c:1646  */
+#line 560 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
                        (yyval) = mkor( (yyvsp[-2]), (yyvsp[0]) );
  insert_after(2, "</RegexOr>");
  insert_before(0, "<RegexOr>");
                        }
-#line 2016 "parse.c" /* yacc.c:1646  */
+#line 2010 "parse.c" /* yacc.c:1646  */
     break;
 
   case 44:
-#line 574 "parse.y" /* yacc.c:1646  */
+#line 568 "parse.y" /* yacc.c:1646  */
     { (yyval) = (yyvsp[0]); }
-#line 2022 "parse.c" /* yacc.c:1646  */
+#line 2016 "parse.c" /* yacc.c:1646  */
     break;
 
   case 45:
-#line 579 "parse.y" /* yacc.c:1646  */
+#line 573 "parse.y" /* yacc.c:1646  */
     {
                        /* This rule is written separately so the
                         * reduction will occur before the trailing
@@ -2077,11 +2071,11 @@ yyreduce:
                        current_state_type = STATE_TRAILING_CONTEXT;
                        (yyval) = (yyvsp[-1]);
                        }
-#line 2051 "parse.c" /* yacc.c:1646  */
+#line 2045 "parse.c" /* yacc.c:1646  */
     break;
 
   case 46:
-#line 606 "parse.y" /* yacc.c:1646  */
+#line 600 "parse.y" /* yacc.c:1646  */
     {
                        /* This is where concatenation of adjacent patterns
                         * gets done.
@@ -2090,17 +2084,17 @@ yyreduce:
  insert_after(1, "</RegexSequence>");
  insert_before(0, "<RegexSequence>");
                        }
-#line 2064 "parse.c" /* yacc.c:1646  */
+#line 2058 "parse.c" /* yacc.c:1646  */
     break;
 
   case 47:
-#line 616 "parse.y" /* yacc.c:1646  */
+#line 610 "parse.y" /* yacc.c:1646  */
     { (yyval) = (yyvsp[0]); }
-#line 2070 "parse.c" /* yacc.c:1646  */
+#line 2064 "parse.c" /* yacc.c:1646  */
     break;
 
   case 48:
-#line 619 "parse.y" /* yacc.c:1646  */
+#line 613 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
 
@@ -2130,11 +2124,11 @@ yyreduce:
  sprintf(piece_temp, "<RegexRepeat count0=\"%d\" count1=\"%d\">", (yyvsp[-3]), (yyvsp[-1]));
  insert_before(0, piece_temp);
                        }
-#line 2104 "parse.c" /* yacc.c:1646  */
+#line 2098 "parse.c" /* yacc.c:1646  */
     break;
 
   case 49:
-#line 650 "parse.y" /* yacc.c:1646  */
+#line 644 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
 
@@ -2150,11 +2144,11 @@ yyreduce:
  sprintf(piece_temp, "<RegexRepeat count0=\"%d\">", (yyvsp[-2]));
  insert_before(0, piece_temp);
                        }
-#line 2124 "parse.c" /* yacc.c:1646  */
+#line 2118 "parse.c" /* yacc.c:1646  */
     break;
 
   case 50:
-#line 667 "parse.y" /* yacc.c:1646  */
+#line 661 "parse.y" /* yacc.c:1646  */
     {
                        /* The series could be something like "(foo)",
                         * in which case we have no idea what its length
@@ -2176,11 +2170,11 @@ yyreduce:
  sprintf(piece_temp, "<RegexRepeat count0=\"%d\" count1=\"%d\">", (yyvsp[-1]), (yyvsp[-1]));
  insert_before(0, piece_temp);
                        }
-#line 2150 "parse.c" /* yacc.c:1646  */
+#line 2144 "parse.c" /* yacc.c:1646  */
     break;
 
   case 51:
-#line 692 "parse.y" /* yacc.c:1646  */
+#line 686 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
 
@@ -2188,33 +2182,33 @@ yyreduce:
  insert_after(1, "</RegexRepeat>");
  insert_before(0, "<RegexRepeat count0=\"0\">");
                        }
-#line 2162 "parse.c" /* yacc.c:1646  */
+#line 2156 "parse.c" /* yacc.c:1646  */
     break;
 
   case 52:
-#line 701 "parse.y" /* yacc.c:1646  */
+#line 695 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
                        (yyval) = mkposcl( (yyvsp[-1]) );
  insert_after(1, "</RegexRepeat>");
  insert_before(0, "<RegexRepeat count0=\"1\">");
                        }
-#line 2173 "parse.c" /* yacc.c:1646  */
+#line 2167 "parse.c" /* yacc.c:1646  */
     break;
 
   case 53:
-#line 709 "parse.y" /* yacc.c:1646  */
+#line 703 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
                        (yyval) = mkopt( (yyvsp[-1]) );
  insert_after(1, "</RegexRepeat>");
  insert_before(0, "<RegexRepeat count0=\"0\" count1=\"1\">");
                        }
-#line 2184 "parse.c" /* yacc.c:1646  */
+#line 2178 "parse.c" /* yacc.c:1646  */
     break;
 
   case 54:
-#line 717 "parse.y" /* yacc.c:1646  */
+#line 711 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
 
@@ -2244,11 +2238,11 @@ yyreduce:
  sprintf(piece_temp, "<RegexRepeat count0=\"%d\" count1=\"%d\">", (yyvsp[-3]), (yyvsp[-1]));
  insert_before(0, piece_temp);
                        }
-#line 2218 "parse.c" /* yacc.c:1646  */
+#line 2212 "parse.c" /* yacc.c:1646  */
     break;
 
   case 55:
-#line 748 "parse.y" /* yacc.c:1646  */
+#line 742 "parse.y" /* yacc.c:1646  */
     {
                        varlength = true;
 
@@ -2264,11 +2258,11 @@ yyreduce:
  sprintf(piece_temp, "<RegexRepeat count0=\"%d\">", (yyvsp[-2]));
  insert_before(0, piece_temp);
                        }
-#line 2238 "parse.c" /* yacc.c:1646  */
+#line 2232 "parse.c" /* yacc.c:1646  */
     break;
 
   case 56:
-#line 765 "parse.y" /* yacc.c:1646  */
+#line 759 "parse.y" /* yacc.c:1646  */
     {
                        /* The singleton could be something like "(foo)",
                         * in which case we have no idea what its length
@@ -2289,11 +2283,11 @@ yyreduce:
  sprintf(piece_temp, "<RegexRepeat count0=\"%d\" count1=\"%d\">", (yyvsp[-1]), (yyvsp[-1]));
  insert_before(0, piece_temp);
                        }
-#line 2263 "parse.c" /* yacc.c:1646  */
+#line 2257 "parse.c" /* yacc.c:1646  */
     break;
 
   case 57:
-#line 787 "parse.y" /* yacc.c:1646  */
+#line 781 "parse.y" /* yacc.c:1646  */
     {
                        if ( ! madeany )
                                {
@@ -2334,11 +2328,11 @@ yyreduce:
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 10 11 256\">");
  }
                        }
-#line 2308 "parse.c" /* yacc.c:1646  */
+#line 2302 "parse.c" /* yacc.c:1646  */
     break;
 
   case 58:
-#line 829 "parse.y" /* yacc.c:1646  */
+#line 823 "parse.y" /* yacc.c:1646  */
     {
                                /* Sort characters for fast searching.
                                 */
@@ -2355,11 +2349,11 @@ yyreduce:
 
                        (yyval) = mkstate( -(yyvsp[0]) );
                        }
-#line 2329 "parse.c" /* yacc.c:1646  */
+#line 2323 "parse.c" /* yacc.c:1646  */
     break;
 
   case 59:
-#line 847 "parse.y" /* yacc.c:1646  */
+#line 841 "parse.y" /* yacc.c:1646  */
     {
                        ++rulelen;
 
@@ -2368,28 +2362,28 @@ yyreduce:
 
                        (yyval) = mkstate( -(yyvsp[0]) );
                        }
-#line 2342 "parse.c" /* yacc.c:1646  */
+#line 2336 "parse.c" /* yacc.c:1646  */
     break;
 
   case 60:
-#line 857 "parse.y" /* yacc.c:1646  */
+#line 851 "parse.y" /* yacc.c:1646  */
     { (yyval) = (yyvsp[-1]); }
-#line 2348 "parse.c" /* yacc.c:1646  */
+#line 2342 "parse.c" /* yacc.c:1646  */
     break;
 
   case 61:
-#line 860 "parse.y" /* yacc.c:1646  */
+#line 854 "parse.y" /* yacc.c:1646  */
     { (yyval) = (yyvsp[-1]); /*}*/
 #if 0 /* for now do things in the traditional lex way without subexpressions */
  insert_after(2, "</RegexGroup>");
  insert_before(0, "<RegexGroup>");
 #endif
  }
-#line 2359 "parse.c" /* yacc.c:1646  */
+#line 2353 "parse.c" /* yacc.c:1646  */
     break;
 
   case 62:
-#line 868 "parse.y" /* yacc.c:1646  */
+#line 862 "parse.y" /* yacc.c:1646  */
     {
                        ++rulelen;
 
@@ -2405,48 +2399,48 @@ yyreduce:
  sprintf(piece_temp, "<RegexCharacterLiteral character_set=\"%d %d\">", (yyvsp[0]), (yyvsp[0]) + 1);
  insert_before(0, piece_temp);
                        }
-#line 2379 "parse.c" /* yacc.c:1646  */
+#line 2373 "parse.c" /* yacc.c:1646  */
     break;
 
   case 63:
-#line 885 "parse.y" /* yacc.c:1646  */
+#line 879 "parse.y" /* yacc.c:1646  */
     { (yyval) = ccl_set_diff  ((yyvsp[-2]), (yyvsp[0])); /*}*/
  insert_after(2, "</RegexCharacterAnd>");
  insert_after(2, "</RegexCharacterNot>");
  insert_before(2, "<RegexCharacterNot>");
  insert_before(0, "<RegexCharacterAnd>");
  }
-#line 2390 "parse.c" /* yacc.c:1646  */
+#line 2384 "parse.c" /* yacc.c:1646  */
     break;
 
   case 64:
-#line 891 "parse.y" /* yacc.c:1646  */
+#line 885 "parse.y" /* yacc.c:1646  */
     { (yyval) = ccl_set_union ((yyvsp[-2]), (yyvsp[0])); /*}*/
  insert_after(2, "</RegexCharacterOr>");
  insert_before(0, "<RegexCharacterOr>");
  }
-#line 2399 "parse.c" /* yacc.c:1646  */
+#line 2393 "parse.c" /* yacc.c:1646  */
     break;
 
   case 66:
-#line 900 "parse.y" /* yacc.c:1646  */
+#line 894 "parse.y" /* yacc.c:1646  */
     { (yyval) = (yyvsp[-1]); }
-#line 2405 "parse.c" /* yacc.c:1646  */
+#line 2399 "parse.c" /* yacc.c:1646  */
     break;
 
   case 67:
-#line 903 "parse.y" /* yacc.c:1646  */
+#line 897 "parse.y" /* yacc.c:1646  */
     {
                        cclnegate( (yyvsp[-1]) );
                        (yyval) = (yyvsp[-1]);
  insert_after(2, "</RegexCharacterNot>");
  insert_before(1, "<RegexCharacterNot>");
                        }
-#line 2416 "parse.c" /* yacc.c:1646  */
+#line 2410 "parse.c" /* yacc.c:1646  */
     break;
 
   case 68:
-#line 912 "parse.y" /* yacc.c:1646  */
+#line 906 "parse.y" /* yacc.c:1646  */
     {
 
                        if (sf_case_ins())
@@ -2510,11 +2504,11 @@ yyreduce:
  insert_before(1, piece_temp);
  insert_before(0, "<RegexCharacterOr>");
                        }
-#line 2484 "parse.c" /* yacc.c:1646  */
+#line 2478 "parse.c" /* yacc.c:1646  */
     break;
 
   case 69:
-#line 977 "parse.y" /* yacc.c:1646  */
+#line 971 "parse.y" /* yacc.c:1646  */
     {
                        ccladd( (yyvsp[-1]), (yyvsp[0]) );
                        cclsorted = cclsorted && ((yyvsp[0]) > lastchar);
@@ -2536,11 +2530,11 @@ yyreduce:
  insert_before(1, piece_temp);
  insert_before(0, "<RegexCharacterOr>");
                        }
-#line 2510 "parse.c" /* yacc.c:1646  */
+#line 2504 "parse.c" /* yacc.c:1646  */
     break;
 
   case 70:
-#line 1000 "parse.y" /* yacc.c:1646  */
+#line 994 "parse.y" /* yacc.c:1646  */
     {
                        /* Too hard to properly maintain cclsorted. */
                        cclsorted = false;
@@ -2548,76 +2542,76 @@ yyreduce:
  insert_after(1, "</RegexCharacterOr>");
  insert_before(0, "<RegexCharacterOr>");
                        }
-#line 2522 "parse.c" /* yacc.c:1646  */
+#line 2516 "parse.c" /* yacc.c:1646  */
     break;
 
   case 71:
-#line 1009 "parse.y" /* yacc.c:1646  */
+#line 1003 "parse.y" /* yacc.c:1646  */
     {
                        cclsorted = true;
                        lastchar = 0;
                        currccl = (yyval) = cclinit();
  insert_before(0, "<RegexCharacterLiteral character_set=\"\" />");
                        }
-#line 2533 "parse.c" /* yacc.c:1646  */
+#line 2527 "parse.c" /* yacc.c:1646  */
     break;
 
   case 72:
-#line 1018 "parse.y" /* yacc.c:1646  */
+#line 1012 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isalnum); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"48 58 65 91 97 123\">");
  }
-#line 2542 "parse.c" /* yacc.c:1646  */
+#line 2536 "parse.c" /* yacc.c:1646  */
     break;
 
   case 73:
-#line 1022 "parse.y" /* yacc.c:1646  */
+#line 1016 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isalpha); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"65 91 97 123\">");
  }
-#line 2551 "parse.c" /* yacc.c:1646  */
+#line 2545 "parse.c" /* yacc.c:1646  */
     break;
 
   case 74:
-#line 1026 "parse.y" /* yacc.c:1646  */
+#line 1020 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(IS_BLANK); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"9 10 32 33\">");
  }
-#line 2560 "parse.c" /* yacc.c:1646  */
+#line 2554 "parse.c" /* yacc.c:1646  */
     break;
 
   case 75:
-#line 1030 "parse.y" /* yacc.c:1646  */
+#line 1024 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(iscntrl); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 32\">");
  }
-#line 2569 "parse.c" /* yacc.c:1646  */
+#line 2563 "parse.c" /* yacc.c:1646  */
     break;
 
   case 76:
-#line 1034 "parse.y" /* yacc.c:1646  */
+#line 1028 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isdigit); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"48 58\">");
  }
-#line 2578 "parse.c" /* yacc.c:1646  */
+#line 2572 "parse.c" /* yacc.c:1646  */
     break;
 
   case 77:
-#line 1038 "parse.y" /* yacc.c:1646  */
+#line 1032 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isgraph); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"33 127\">");
  }
-#line 2587 "parse.c" /* yacc.c:1646  */
+#line 2581 "parse.c" /* yacc.c:1646  */
     break;
 
   case 78:
-#line 1042 "parse.y" /* yacc.c:1646  */
+#line 1036 "parse.y" /* yacc.c:1646  */
     { 
                           CCL_EXPR(islower);
                           if (sf_case_ins())
@@ -2632,47 +2626,47 @@ yyreduce:
  insert_before(0, "<RegexCharacterLiteral character_set=\"97 123\">");
  }
                         }
-#line 2606 "parse.c" /* yacc.c:1646  */
+#line 2600 "parse.c" /* yacc.c:1646  */
     break;
 
   case 79:
-#line 1056 "parse.y" /* yacc.c:1646  */
+#line 1050 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isprint); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"32 127\">");
  }
-#line 2615 "parse.c" /* yacc.c:1646  */
+#line 2609 "parse.c" /* yacc.c:1646  */
     break;
 
   case 80:
-#line 1060 "parse.y" /* yacc.c:1646  */
+#line 1054 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(ispunct); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"33 48 58 65 91 97 123 127\">");
  }
-#line 2624 "parse.c" /* yacc.c:1646  */
+#line 2618 "parse.c" /* yacc.c:1646  */
     break;
 
   case 81:
-#line 1064 "parse.y" /* yacc.c:1646  */
+#line 1058 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isspace); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"9 14 32 33\">");
  }
-#line 2633 "parse.c" /* yacc.c:1646  */
+#line 2627 "parse.c" /* yacc.c:1646  */
     break;
 
   case 82:
-#line 1068 "parse.y" /* yacc.c:1646  */
+#line 1062 "parse.y" /* yacc.c:1646  */
     { CCL_EXPR(isxdigit); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"48 58 65 71 97 103\">");
  }
-#line 2642 "parse.c" /* yacc.c:1646  */
+#line 2636 "parse.c" /* yacc.c:1646  */
     break;
 
   case 83:
-#line 1072 "parse.y" /* yacc.c:1646  */
+#line 1066 "parse.y" /* yacc.c:1646  */
     {
                     CCL_EXPR(isupper);
                     if (sf_case_ins())
@@ -2687,101 +2681,101 @@ yyreduce:
  insert_before(0, "<RegexCharacterLiteral character_set=\"65 91\">");
  }
                                }
-#line 2661 "parse.c" /* yacc.c:1646  */
+#line 2655 "parse.c" /* yacc.c:1646  */
     break;
 
   case 84:
-#line 1087 "parse.y" /* yacc.c:1646  */
+#line 1081 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isalnum); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 48 58 65 91 97 123 256\">");
  }
-#line 2670 "parse.c" /* yacc.c:1646  */
+#line 2664 "parse.c" /* yacc.c:1646  */
     break;
 
   case 85:
-#line 1091 "parse.y" /* yacc.c:1646  */
+#line 1085 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isalpha); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 65 91 97 123 256\">");
  }
-#line 2679 "parse.c" /* yacc.c:1646  */
+#line 2673 "parse.c" /* yacc.c:1646  */
     break;
 
   case 86:
-#line 1095 "parse.y" /* yacc.c:1646  */
+#line 1089 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(IS_BLANK); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 9 10 32 33 256\">");
  }
-#line 2688 "parse.c" /* yacc.c:1646  */
+#line 2682 "parse.c" /* yacc.c:1646  */
     break;
 
   case 87:
-#line 1099 "parse.y" /* yacc.c:1646  */
+#line 1093 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(iscntrl); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"32 256\">");
  }
-#line 2697 "parse.c" /* yacc.c:1646  */
+#line 2691 "parse.c" /* yacc.c:1646  */
     break;
 
   case 88:
-#line 1103 "parse.y" /* yacc.c:1646  */
+#line 1097 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isdigit); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 48 58 256\">");
  }
-#line 2706 "parse.c" /* yacc.c:1646  */
+#line 2700 "parse.c" /* yacc.c:1646  */
     break;
 
   case 89:
-#line 1107 "parse.y" /* yacc.c:1646  */
+#line 1101 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isgraph); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 33 127 256\">");
  }
-#line 2715 "parse.c" /* yacc.c:1646  */
+#line 2709 "parse.c" /* yacc.c:1646  */
     break;
 
   case 90:
-#line 1111 "parse.y" /* yacc.c:1646  */
+#line 1105 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isprint); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 32 127 256\">");
  }
-#line 2724 "parse.c" /* yacc.c:1646  */
+#line 2718 "parse.c" /* yacc.c:1646  */
     break;
 
   case 91:
-#line 1115 "parse.y" /* yacc.c:1646  */
+#line 1109 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(ispunct); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 33 48 58 65 91 97 123 127 256\">");
  }
-#line 2733 "parse.c" /* yacc.c:1646  */
+#line 2727 "parse.c" /* yacc.c:1646  */
     break;
 
   case 92:
-#line 1119 "parse.y" /* yacc.c:1646  */
+#line 1113 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isspace); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 9 14 32 33 256\">");
  }
-#line 2742 "parse.c" /* yacc.c:1646  */
+#line 2736 "parse.c" /* yacc.c:1646  */
     break;
 
   case 93:
-#line 1123 "parse.y" /* yacc.c:1646  */
+#line 1117 "parse.y" /* yacc.c:1646  */
     { CCL_NEG_EXPR(isxdigit); /*}*/
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 48 58 65 71 97 103 256\">");
  }
-#line 2751 "parse.c" /* yacc.c:1646  */
+#line 2745 "parse.c" /* yacc.c:1646  */
     break;
 
   case 94:
-#line 1127 "parse.y" /* yacc.c:1646  */
+#line 1121 "parse.y" /* yacc.c:1646  */
     { 
                                if ( sf_case_ins() )
                                        lwarn(_("[:^lower:] is ambiguous in case insensitive scanner"));
@@ -2790,11 +2784,11 @@ yyreduce:
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 97 123 256\">");
                                }
-#line 2764 "parse.c" /* yacc.c:1646  */
+#line 2758 "parse.c" /* yacc.c:1646  */
     break;
 
   case 95:
-#line 1135 "parse.y" /* yacc.c:1646  */
+#line 1129 "parse.y" /* yacc.c:1646  */
     {
                                if ( sf_case_ins() )
                                        lwarn(_("[:^upper:] ambiguous in case insensitive scanner"));
@@ -2803,11 +2797,11 @@ yyreduce:
  insert_after(0, "</RegexCharacterLiteral>");
  insert_before(0, "<RegexCharacterLiteral character_set=\"0 65 91 256\">");
                                }
-#line 2777 "parse.c" /* yacc.c:1646  */
+#line 2771 "parse.c" /* yacc.c:1646  */
     break;
 
   case 96:
-#line 1146 "parse.y" /* yacc.c:1646  */
+#line 1140 "parse.y" /* yacc.c:1646  */
     {
                        if ( (yyvsp[0]) == nlch )
                                rule_has_nl[num_rules] = true;
@@ -2826,19 +2820,19 @@ yyreduce:
  insert_before(1, piece_temp);
  insert_before(0, "<RegexSequence>");
                        }
-#line 2800 "parse.c" /* yacc.c:1646  */
+#line 2794 "parse.c" /* yacc.c:1646  */
     break;
 
   case 97:
-#line 1166 "parse.y" /* yacc.c:1646  */
+#line 1160 "parse.y" /* yacc.c:1646  */
     { (yyval) = mkstate( SYM_EPSILON ); /*}*/
  insert_before(0, "<RegexEmpty />");
  }
-#line 2808 "parse.c" /* yacc.c:1646  */
+#line 2802 "parse.c" /* yacc.c:1646  */
     break;
 
 
-#line 2812 "parse.c" /* yacc.c:1646  */
+#line 2806 "parse.c" /* yacc.c:1646  */
       default: break;
     }
  int i;
@@ -3083,7 +3077,7 @@ yyreturn:
 #endif
   return yyresult;
 }
-#line 1172 "parse.y" /* yacc.c:1906  */
+#line 1166 "parse.y" /* yacc.c:1906  */
 
 
 
index f524e83..72dd7f4 100644 (file)
@@ -204,41 +204,35 @@ option            :  TOK_OUTFILE '=' NAME
                        {
                        outfilename = xstrdup(nmstr);
                        did_outfilename = 1;
- insert_after(2, "</Option_OutFile>");
- sprintf(piece_temp, "<Option_OutFile value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_OutFile>");
+ insert_before(0,"<PLex_Section1_Options_OutFile>");
                        }
                |  TOK_EXTRA_TYPE '=' NAME
                        { extra_type = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_ExtraType>");
- sprintf(piece_temp, "<Option_ExtraType value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_ExtraType>");
+ insert_before(0, "<PLex_Section1_Options_ExtraType>");
  }
                |  TOK_PREFIX '=' NAME
                        { prefix = xstrdup(nmstr);
                           if (strchr(prefix, '[') || strchr(prefix, ']'))
                               flexerror(_("Prefix must not contain [ or ]")); /*}*/
- insert_after(2, "</Option_Prefix>");
- sprintf(piece_temp, "<Option_Prefix value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_Prefix>");
+ insert_before(0, "<PLex_Section1_Options_Prefix>");
  }
                |  TOK_YYCLASS '=' NAME
                        { yyclass = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_YYClass>");
- sprintf(piece_temp, "<Option_YYClass value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_YYClass>");
+ insert_before(0, "<PLex_Section1_Options_YYClass>");
  }
                |  TOK_HEADER_FILE '=' NAME
                        { headerfilename = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_HeaderFile>");
- sprintf(piece_temp, "<Option_HeaderFile value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_HeaderFile>");
+ insert_before(0, "<PLex_Section1_Options_HeaderFile>");
  }
            |  TOK_TABLES_FILE '=' NAME
             { tablesext = true; tablesfilename = xstrdup(nmstr); /*}*/
- insert_after(2, "</Option_TableFile>");
- sprintf(piece_temp, "<Option_TableFile value=\"%s\">", nmstr);
- insert_before(0, piece_temp);
+ insert_after(2, "</PLex_Section1_Options_TablesFile>");
+ insert_before(0, "<PLex_Section1_Options_TablesFile>");
  }
                ;
 
index b6781bf..95f27bf 100644 (file)
@@ -7735,10 +7735,13 @@ extern const char *escaped_qstart, *escaped_qend;
        if(yyleng < MAXLINE) \
          { \
        strncpy( nmstr, yytext, sizeof(nmstr) ); \
+ piece_pack(); \
  piece_append("<PLex_Name>"); \
flush(); \
piece_esc(yytext, strlen(yytext)); \
  piece_append("</PLex_Name>"); \
-       return NAME; \
+ piece_pack(); \
+ return ~NAME; \
+ /*    return NAME;*/ \
         } \
        else \
         do { \
@@ -7796,7 +7799,7 @@ static void markup_option(const char *name, int sense);
 
 
 
-#line 7773 "scan.c"
+#line 7776 "scan.c"
 
 #define INITIAL 0
 #define SECT2 1
@@ -8100,7 +8103,7 @@ static int real_yylex(void)
        register char *yy_cp, *yy_bp;
        register int yy_act;
     
-#line 170 "scan.l"
+#line 173 "scan.l"
 
        static int bracelevel, didadef, indented_code;
        static int doing_rule_action = false;
@@ -8111,7 +8114,7 @@ static int real_yylex(void)
        char nmdef[MAXLINE];
 
 
-#line 8008 "scan.c"
+#line 8011 "scan.c"
 
        if ( !(yy_init) )
                {
@@ -8206,39 +8209,39 @@ do_action:      /* This label is used only to access EOF actions. */
 
 case 1:
 YY_RULE_SETUP
-#line 181 "scan.l"
+#line 184 "scan.l"
 START_CODEBLOCK(true); piece_append("<PLex_Text>");
        YY_BREAK
 case 2:
 YY_RULE_SETUP
-#line 182 "scan.l"
+#line 185 "scan.l"
 add_action("/*[""["); yy_push_state( COMMENT );
        YY_BREAK
 case 3:
 YY_RULE_SETUP
-#line 183 "scan.l"
+#line 186 "scan.l"
 yy_push_state( LINEDIR );
        YY_BREAK
 case 4:
 YY_RULE_SETUP
-#line 184 "scan.l"
+#line 187 "scan.l"
 return SCDECL;
        YY_BREAK
 case 5:
 YY_RULE_SETUP
-#line 185 "scan.l"
+#line 188 "scan.l"
 return XSCDECL;
        YY_BREAK
 case 6:
 /* rule 6 can match eol */
 YY_RULE_SETUP
-#line 186 "scan.l"
+#line 189 "scan.l"
 START_CODEBLOCK(false); flush(); piece_append("<PLex_Text>");
        YY_BREAK
 case 7:
 /* rule 7 can match eol */
 YY_RULE_SETUP
-#line 187 "scan.l"
+#line 190 "scan.l"
 {
                 brace_start_line = linenum;
                 ++linenum;
@@ -8249,17 +8252,17 @@ YY_RULE_SETUP
        YY_BREAK
 case 8:
 YY_RULE_SETUP
-#line 195 "scan.l"
+#line 198 "scan.l"
 synerr( _("malformed '%top' directive") );
        YY_BREAK
 case 9:
 YY_RULE_SETUP
-#line 197 "scan.l"
+#line 200 "scan.l"
 /* discard */
        YY_BREAK
 case 10:
 YY_RULE_SETUP
-#line 199 "scan.l"
+#line 202 "scan.l"
 {
                        sectnum = 2;
                        bracelevel = 0;
@@ -8281,42 +8284,42 @@ YY_RULE_SETUP
 case 11:
 /* rule 11 can match eol */
 YY_RULE_SETUP
-#line 217 "scan.l"
-yytext_is_array = false; ++linenum;
+#line 220 "scan.l"
+yytext_is_array = false; ++linenum; piece_append("<PLex_Section1_Options><PLex_Section1_Options_Array>"); { int i = strlen(yytext) - 1; piece_esc(yytext, i); yytext += i; } piece_append("</PLex_Section1_Options_Array></PLex_Section1_Options>"); 
        YY_BREAK
 case 12:
 /* rule 12 can match eol */
 YY_RULE_SETUP
-#line 218 "scan.l"
-yytext_is_array = true; ++linenum;
+#line 221 "scan.l"
+yytext_is_array = true; ++linenum; piece_append("<PLex_Section1_Options><PLex_Section1_Options_Array value=\"true\">"); { int i = strlen(yytext) - 1; piece_esc(yytext, i); yytext += i; } piece_append("</PLex_Section1_Options_Array></PLex_Section1_Options>");
        YY_BREAK
 case 13:
 YY_RULE_SETUP
-#line 220 "scan.l"
+#line 223 "scan.l"
 BEGIN(OPTION); return TOK_OPTION;
        YY_BREAK
 case 14:
 /* rule 14 can match eol */
 YY_RULE_SETUP
-#line 222 "scan.l"
+#line 225 "scan.l"
 ++linenum; /* ignore */
        YY_BREAK
 case 15:
 /* rule 15 can match eol */
 YY_RULE_SETUP
-#line 223 "scan.l"
+#line 226 "scan.l"
 ++linenum;     /* ignore */
        YY_BREAK
 /* xgettext: no-c-format */
 case 16:
 /* rule 16 can match eol */
 YY_RULE_SETUP
-#line 226 "scan.l"
+#line 229 "scan.l"
 synerr( _( "unrecognized '%' directive" ) );
        YY_BREAK
 case 17:
 YY_RULE_SETUP
-#line 228 "scan.l"
+#line 231 "scan.l"
 {
                        if(yyleng < MAXLINE)
                         {
@@ -8334,51 +8337,51 @@ YY_RULE_SETUP
        YY_BREAK
 case 18:
 YY_RULE_SETUP
-#line 243 "scan.l"
+#line 246 "scan.l"
 RETURNNAME;
        YY_BREAK
 case 19:
 /* rule 19 can match eol */
 YY_RULE_SETUP
-#line 244 "scan.l"
+#line 247 "scan.l"
 ++linenum; /* allows blank lines in section 1 */
        YY_BREAK
 case 20:
 /* rule 20 can match eol */
 YY_RULE_SETUP
-#line 245 "scan.l"
+#line 248 "scan.l"
 ACTION_ECHO; ++linenum; /* maybe end of comment line */
        YY_BREAK
 
 /* */
 case 21:
 YY_RULE_SETUP
-#line 250 "scan.l"
+#line 253 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 22:
 YY_RULE_SETUP
-#line 251 "scan.l"
+#line 254 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 23:
 /* rule 23 can match eol */
 YY_RULE_SETUP
-#line 253 "scan.l"
+#line 256 "scan.l"
 ++linenum; ACTION_ECHO;
        YY_BREAK
 
 
 case 24:
 YY_RULE_SETUP
-#line 256 "scan.l"
+#line 259 "scan.l"
 add_action("*/]""]"); yy_pop_state();
        YY_BREAK
 
 
 case 25:
 YY_RULE_SETUP
-#line 259 "scan.l"
+#line 262 "scan.l"
 ACTION_ECHO; yy_pop_state();
        YY_BREAK
 
@@ -8386,41 +8389,41 @@ ACTION_ECHO; yy_pop_state();
 /* This is the same as COMMENT, but is discarded rather than output. */
 case 26:
 YY_RULE_SETUP
-#line 264 "scan.l"
+#line 267 "scan.l"
 yy_pop_state();
        YY_BREAK
 case 27:
 YY_RULE_SETUP
-#line 265 "scan.l"
+#line 268 "scan.l"
 ;
        YY_BREAK
 case 28:
 YY_RULE_SETUP
-#line 266 "scan.l"
+#line 269 "scan.l"
 ;
        YY_BREAK
 case 29:
 /* rule 29 can match eol */
 YY_RULE_SETUP
-#line 267 "scan.l"
+#line 270 "scan.l"
 ++linenum;
        YY_BREAK
 
 
 case 30:
 YY_RULE_SETUP
-#line 271 "scan.l"
+#line 274 "scan.l"
 yy_pop_state();
        YY_BREAK
 case 31:
 YY_RULE_SETUP
-#line 272 "scan.l"
+#line 275 "scan.l"
 ;
        YY_BREAK
 case 32:
 /* rule 32 can match eol */
 YY_RULE_SETUP
-#line 273 "scan.l"
+#line 276 "scan.l"
 ++linenum;
        YY_BREAK
 
@@ -8428,17 +8431,17 @@ YY_RULE_SETUP
 case 33:
 /* rule 33 can match eol */
 YY_RULE_SETUP
-#line 277 "scan.l"
+#line 280 "scan.l"
 yy_pop_state();
        YY_BREAK
 case 34:
 YY_RULE_SETUP
-#line 278 "scan.l"
+#line 281 "scan.l"
 linenum = myctoi( yytext );
        YY_BREAK
 case 35:
 YY_RULE_SETUP
-#line 280 "scan.l"
+#line 283 "scan.l"
 {
                        free(infilename);
                        infilename = xstrdup(yytext + 1);
@@ -8447,19 +8450,19 @@ YY_RULE_SETUP
        YY_BREAK
 case 36:
 YY_RULE_SETUP
-#line 285 "scan.l"
+#line 288 "scan.l"
 /* ignore spurious characters */
        YY_BREAK
 
 
 case 37:
 YY_RULE_SETUP
-#line 288 "scan.l"
+#line 291 "scan.l"
 ACTION_ECHO_QSTART;
        YY_BREAK
 case 38:
 YY_RULE_SETUP
-#line 289 "scan.l"
+#line 292 "scan.l"
 ACTION_ECHO_QEND;
        YY_BREAK
 
@@ -8467,23 +8470,23 @@ ACTION_ECHO_QEND;
 case 39:
 /* rule 39 can match eol */
 YY_RULE_SETUP
-#line 293 "scan.l"
+#line 296 "scan.l"
 ++linenum; piece_append("</PLex_Text>"); flush(); END_CODEBLOCK;
        YY_BREAK
 case 40:
 YY_RULE_SETUP
-#line 294 "scan.l"
+#line 297 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 41:
 YY_RULE_SETUP
-#line 295 "scan.l"
+#line 298 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 42:
 /* rule 42 can match eol */
 YY_RULE_SETUP
-#line 296 "scan.l"
+#line 299 "scan.l"
 {
                        ++linenum;
                        ACTION_ECHO;
@@ -8494,7 +8497,7 @@ YY_RULE_SETUP
 
 case 43:
 YY_RULE_SETUP
-#line 304 "scan.l"
+#line 307 "scan.l"
 {
                 if( --brace_depth == 0){
                     /* TODO: Matched. */
@@ -8505,7 +8508,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 44:
 YY_RULE_SETUP
-#line 312 "scan.l"
+#line 315 "scan.l"
 {
                 brace_depth++;
                 buf_strnappend(&top_buf, yytext, yyleng);
@@ -8514,7 +8517,7 @@ YY_RULE_SETUP
 case 45:
 /* rule 45 can match eol */
 YY_RULE_SETUP
-#line 317 "scan.l"
+#line 320 "scan.l"
 {
                 ++linenum;
                 buf_strnappend(&top_buf, yytext, yyleng);
@@ -8522,23 +8525,23 @@ YY_RULE_SETUP
        YY_BREAK
 case 46:
 YY_RULE_SETUP
-#line 322 "scan.l"
+#line 325 "scan.l"
 buf_strnappend(&top_buf, escaped_qstart, (int) strlen(escaped_qstart));
        YY_BREAK
 case 47:
 YY_RULE_SETUP
-#line 323 "scan.l"
+#line 326 "scan.l"
 buf_strnappend(&top_buf, escaped_qend, (int) strlen(escaped_qend));
        YY_BREAK
 case 48:
 YY_RULE_SETUP
-#line 324 "scan.l"
+#line 327 "scan.l"
 {
        buf_strnappend(&top_buf, yytext, yyleng);
     }
        YY_BREAK
 case YY_STATE_EOF(CODEBLOCK_MATCH_BRACE):
-#line 328 "scan.l"
+#line 331 "scan.l"
 {
                 linenum = brace_start_line;
                 synerr(_("Unmatched '{'"));
@@ -8549,12 +8552,12 @@ case YY_STATE_EOF(CODEBLOCK_MATCH_BRACE):
 
 case 49:
 YY_RULE_SETUP
-#line 337 "scan.l"
+#line 340 "scan.l"
 /* separates name and definition */
        YY_BREAK
 case 50:
 YY_RULE_SETUP
-#line 339 "scan.l"
+#line 342 "scan.l"
 {
                        if(yyleng < MAXLINE)
                         {
@@ -8580,7 +8583,7 @@ YY_RULE_SETUP
 case 51:
 /* rule 51 can match eol */
 YY_RULE_SETUP
-#line 361 "scan.l"
+#line 364 "scan.l"
 {
                        if ( ! didadef )
                                synerr( _( "incomplete name definition" ) );
@@ -8593,410 +8596,417 @@ YY_RULE_SETUP
 case 52:
 /* rule 52 can match eol */
 YY_RULE_SETUP
-#line 371 "scan.l"
+#line 374 "scan.l"
 ++linenum; BEGIN(INITIAL);
        YY_BREAK
 case 53:
 YY_RULE_SETUP
-#line 372 "scan.l"
+#line 375 "scan.l"
 option_sense = true;
        YY_BREAK
 case 54:
 YY_RULE_SETUP
-#line 374 "scan.l"
+#line 377 "scan.l"
 return '=';
        YY_BREAK
 case 55:
 YY_RULE_SETUP
-#line 376 "scan.l"
+#line 379 "scan.l"
 option_sense = ! option_sense;
        YY_BREAK
 case 56:
 YY_RULE_SETUP
-#line 378 "scan.l"
-csize = option_sense ? 128 : 256; markup_option("7bit", option_sense);
+#line 381 "scan.l"
+csize = option_sense ? 128 : 256; markup_option("SevenBit", option_sense);
        YY_BREAK
 case 57:
 YY_RULE_SETUP
-#line 379 "scan.l"
-csize = option_sense ? 256 : 128; markup_option("8bit", option_sense);
+#line 382 "scan.l"
+csize = option_sense ? 256 : 128; markup_option("SevenBit", !option_sense);
        YY_BREAK
 case 58:
 YY_RULE_SETUP
-#line 381 "scan.l"
+#line 384 "scan.l"
 long_align = option_sense; markup_option("Align", option_sense);
        YY_BREAK
 case 59:
 YY_RULE_SETUP
-#line 382 "scan.l"
-{ markup_option("AlwaysInteractive", option_sense);
+#line 385 "scan.l"
+{
                        ACTION_M4_IFDEF( "M4""_YY_ALWAYS_INTERACTIVE", option_sense );
             interactive = option_sense;
+ markup_option("AlwaysInteractive", option_sense);
                        }
        YY_BREAK
 case 60:
 YY_RULE_SETUP
-#line 386 "scan.l"
+#line 390 "scan.l"
 yytext_is_array = option_sense; markup_option("Array", option_sense);
        YY_BREAK
 case 61:
 YY_RULE_SETUP
-#line 387 "scan.l"
+#line 391 "scan.l"
 backing_up_report = option_sense; markup_option("Backup", option_sense);
        YY_BREAK
 case 62:
 YY_RULE_SETUP
-#line 388 "scan.l"
-interactive = ! option_sense; markup_option("Batch", option_sense);
+#line 392 "scan.l"
+interactive = ! option_sense; markup_option("Interactive", !option_sense);
        YY_BREAK
 case 63:
 YY_RULE_SETUP
-#line 389 "scan.l"
+#line 393 "scan.l"
 bison_bridge_lval = option_sense; markup_option("BisonBridge", option_sense);
        YY_BREAK
 case 64:
 YY_RULE_SETUP
-#line 390 "scan.l"
-{ if((bison_bridge_lloc = option_sense)) markup_option("BisonLocations", option_sense);
+#line 394 "scan.l"
+{ if((bison_bridge_lloc = option_sense))
                             bison_bridge_lval = true;
+ markup_option("BisonLocations", option_sense);
                      }
        YY_BREAK
 case 65:
 YY_RULE_SETUP
-#line 393 "scan.l"
+#line 398 "scan.l"
 C_plus_plus = option_sense; markup_option("CPlusPlus", option_sense);
        YY_BREAK
 case 66:
 YY_RULE_SETUP
-#line 394 "scan.l"
+#line 399 "scan.l"
 sf_set_case_ins(!option_sense); markup_option("Caseless", !option_sense);
        YY_BREAK
 case 67:
 YY_RULE_SETUP
-#line 395 "scan.l"
+#line 400 "scan.l"
 sf_set_case_ins(option_sense); markup_option("Caseless", option_sense);
        YY_BREAK
 case 68:
 YY_RULE_SETUP
-#line 396 "scan.l"
+#line 401 "scan.l"
 ddebug = option_sense; markup_option("Debug", option_sense);
        YY_BREAK
 case 69:
 YY_RULE_SETUP
-#line 397 "scan.l"
+#line 402 "scan.l"
 spprdflt = ! option_sense; markup_option("Default", option_sense);
        YY_BREAK
 case 70:
 YY_RULE_SETUP
-#line 398 "scan.l"
+#line 403 "scan.l"
 useecs = option_sense; markup_option("ECS", option_sense);
        YY_BREAK
 case 71:
 YY_RULE_SETUP
-#line 399 "scan.l"
-{ markup_option("Fast", option_sense);
+#line 404 "scan.l"
+{
                        useecs = usemecs = false;
                        use_read = fullspd = true;
+ markup_option("Fast", option_sense);
                        }
        YY_BREAK
 case 72:
 YY_RULE_SETUP
-#line 403 "scan.l"
-{ markup_option("Full", option_sense);
+#line 409 "scan.l"
+{
                        useecs = usemecs = false;
                        use_read = fulltbl = true;
+ markup_option("Full", option_sense);
                        }
        YY_BREAK
 case 73:
 YY_RULE_SETUP
-#line 407 "scan.l"
+#line 414 "scan.l"
 ACTION_IFDEF("YY_NO_INPUT", ! option_sense); markup_option("Input", option_sense);
        YY_BREAK
 case 74:
 YY_RULE_SETUP
-#line 408 "scan.l"
+#line 415 "scan.l"
 interactive = option_sense; markup_option("Interactive", option_sense);
        YY_BREAK
 case 75:
 YY_RULE_SETUP
-#line 409 "scan.l"
+#line 416 "scan.l"
 lex_compat = option_sense; markup_option("LexCompat", option_sense);
        YY_BREAK
 case 76:
 YY_RULE_SETUP
-#line 410 "scan.l"
+#line 417 "scan.l"
 posix_compat = option_sense; markup_option("PosixCompat", option_sense);
        YY_BREAK
 case 77:
 YY_RULE_SETUP
-#line 411 "scan.l"
+#line 418 "scan.l"
 gen_line_dirs = option_sense; markup_option("Line", option_sense);
        YY_BREAK
 case 78:
 YY_RULE_SETUP
-#line 412 "scan.l"
-{ markup_option("Main", option_sense);
+#line 419 "scan.l"
+{
                        ACTION_M4_IFDEF( "M4""_YY_MAIN", option_sense);
             /* Override yywrap */
             if( option_sense == true )
                 do_yywrap = false;
+ markup_option("Main", option_sense);
                        }
        YY_BREAK
 case 79:
 YY_RULE_SETUP
-#line 418 "scan.l"
+#line 426 "scan.l"
 usemecs = option_sense; markup_option("MetaECS", option_sense);
        YY_BREAK
 case 80:
 YY_RULE_SETUP
-#line 419 "scan.l"
-{ markup_option("NeverInteractive", option_sense);
+#line 427 "scan.l"
+{
                        ACTION_M4_IFDEF( "M4""_YY_NEVER_INTERACTIVE", option_sense );
             interactive = !option_sense;
+ markup_option("NeverInteractive", option_sense);
                        }
        YY_BREAK
 case 81:
 YY_RULE_SETUP
-#line 423 "scan.l"
+#line 432 "scan.l"
 performance_report += option_sense ? 1 : -1; markup_option("PerfReport", option_sense);
        YY_BREAK
 case 82:
 YY_RULE_SETUP
-#line 424 "scan.l"
-yytext_is_array = ! option_sense; markup_option("Pointer", option_sense);
+#line 433 "scan.l"
+yytext_is_array = ! option_sense; markup_option("Array", !option_sense);
        YY_BREAK
 case 83:
 YY_RULE_SETUP
-#line 425 "scan.l"
+#line 434 "scan.l"
 use_read = option_sense; markup_option("Read", option_sense);
        YY_BREAK
 case 84:
 YY_RULE_SETUP
-#line 426 "scan.l"
+#line 435 "scan.l"
 reentrant = option_sense; markup_option("Reentrant", option_sense);
        YY_BREAK
 case 85:
 YY_RULE_SETUP
-#line 427 "scan.l"
+#line 436 "scan.l"
 reject_really_used = option_sense; markup_option("Reject", option_sense);
        YY_BREAK
 case 86:
 YY_RULE_SETUP
-#line 428 "scan.l"
+#line 437 "scan.l"
 ACTION_M4_IFDEF( "M4""_YY_STACK_USED", option_sense ); markup_option("Stack", option_sense);
        YY_BREAK
 case 87:
 YY_RULE_SETUP
-#line 429 "scan.l"
+#line 438 "scan.l"
 do_stdinit = option_sense; markup_option("StdInit", option_sense);
        YY_BREAK
 case 88:
 YY_RULE_SETUP
-#line 430 "scan.l"
+#line 439 "scan.l"
 use_stdout = option_sense; markup_option("StdOut", option_sense);
        YY_BREAK
 case 89:
 YY_RULE_SETUP
-#line 431 "scan.l"
-ACTION_IFDEF("YY_NO_UNISTD_H", ! option_sense); markup_option("Unistd", option_sense);
+#line 440 "scan.l"
+ACTION_IFDEF("YY_NO_UNISTD_H", ! option_sense); markup_option("UniStd", option_sense);
        YY_BREAK
 case 90:
 YY_RULE_SETUP
-#line 432 "scan.l"
+#line 441 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_UNPUT", ! option_sense); markup_option("Unput", option_sense);
        YY_BREAK
 case 91:
 YY_RULE_SETUP
-#line 433 "scan.l"
+#line 442 "scan.l"
 printstats = option_sense; markup_option("Verbose", option_sense);
        YY_BREAK
 case 92:
 YY_RULE_SETUP
-#line 434 "scan.l"
+#line 443 "scan.l"
 nowarn = ! option_sense; markup_option("Warn", option_sense);
        YY_BREAK
 case 93:
 YY_RULE_SETUP
-#line 435 "scan.l"
+#line 444 "scan.l"
 do_yylineno = option_sense; ACTION_M4_IFDEF("M4""_YY_USE_LINENO", option_sense); markup_option("YYLineNo", option_sense);
        YY_BREAK
 case 94:
 YY_RULE_SETUP
-#line 436 "scan.l"
+#line 445 "scan.l"
 yymore_really_used = option_sense; markup_option("YYMore", option_sense);
        YY_BREAK
 case 95:
 YY_RULE_SETUP
-#line 437 "scan.l"
+#line 446 "scan.l"
 do_yywrap = option_sense; markup_option("YYWrap", option_sense);
        YY_BREAK
 case 96:
 YY_RULE_SETUP
-#line 439 "scan.l"
+#line 448 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_PUSH_STATE", ! option_sense); markup_option("YYPushState", option_sense);
        YY_BREAK
 case 97:
 YY_RULE_SETUP
-#line 440 "scan.l"
+#line 449 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_POP_STATE", ! option_sense); markup_option("YYPopState", option_sense);
        YY_BREAK
 case 98:
 YY_RULE_SETUP
-#line 441 "scan.l"
+#line 450 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_TOP_STATE", ! option_sense); markup_option("YYTopState", option_sense);
        YY_BREAK
 case 99:
 YY_RULE_SETUP
-#line 443 "scan.l"
+#line 452 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SCAN_BUFFER", ! option_sense); markup_option("YYScanBuffer", option_sense);
        YY_BREAK
 case 100:
 YY_RULE_SETUP
-#line 444 "scan.l"
+#line 453 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SCAN_BYTES", ! option_sense); markup_option("YYScanBytes", option_sense);
        YY_BREAK
 case 101:
 YY_RULE_SETUP
-#line 445 "scan.l"
+#line 454 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SCAN_STRING", ! option_sense); markup_option("YYScanString", option_sense);
        YY_BREAK
 case 102:
 YY_RULE_SETUP
-#line 447 "scan.l"
+#line 456 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_FLEX_ALLOC", ! option_sense); markup_option("YYAlloc", option_sense);
        YY_BREAK
 case 103:
 YY_RULE_SETUP
-#line 448 "scan.l"
+#line 457 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_FLEX_REALLOC", ! option_sense); markup_option("YYRealloc", option_sense);
        YY_BREAK
 case 104:
 YY_RULE_SETUP
-#line 449 "scan.l"
+#line 458 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_FLEX_FREE", ! option_sense); markup_option("YYFree", option_sense);
        YY_BREAK
 case 105:
 YY_RULE_SETUP
-#line 451 "scan.l"
+#line 460 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_DEBUG", ! option_sense); markup_option("YYGetDebug", option_sense);
        YY_BREAK
 case 106:
 YY_RULE_SETUP
-#line 452 "scan.l"
+#line 461 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_DEBUG", ! option_sense); markup_option("YYSetDebug", option_sense);
        YY_BREAK
 case 107:
 YY_RULE_SETUP
-#line 453 "scan.l"
+#line 462 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_EXTRA", ! option_sense); markup_option("YYGetExtra", option_sense);
        YY_BREAK
 case 108:
 YY_RULE_SETUP
-#line 454 "scan.l"
+#line 463 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_EXTRA", ! option_sense); markup_option("YYSetExtra", option_sense);
        YY_BREAK
 case 109:
 YY_RULE_SETUP
-#line 455 "scan.l"
+#line 464 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_LENG", ! option_sense); markup_option("YYGetLeng", option_sense);
        YY_BREAK
 case 110:
 YY_RULE_SETUP
-#line 456 "scan.l"
+#line 465 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_TEXT", ! option_sense); markup_option("YYGetText", option_sense);
        YY_BREAK
 case 111:
 YY_RULE_SETUP
-#line 457 "scan.l"
+#line 466 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_LINENO", ! option_sense); markup_option("YYGetLineNo", option_sense);
        YY_BREAK
 case 112:
 YY_RULE_SETUP
-#line 458 "scan.l"
+#line 467 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_LINENO", ! option_sense); markup_option("YYSetLineNo", option_sense);
        YY_BREAK
 case 113:
 YY_RULE_SETUP
-#line 459 "scan.l"
+#line 468 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_IN", ! option_sense); markup_option("YYGetIn", option_sense);
        YY_BREAK
 case 114:
 YY_RULE_SETUP
-#line 460 "scan.l"
+#line 469 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_IN", ! option_sense); markup_option("YYSetIn", option_sense);
        YY_BREAK
 case 115:
 YY_RULE_SETUP
-#line 461 "scan.l"
+#line 470 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_OUT", ! option_sense); markup_option("YYGetOut", option_sense);
        YY_BREAK
 case 116:
 YY_RULE_SETUP
-#line 462 "scan.l"
+#line 471 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_OUT", ! option_sense); markup_option("YYSetOut", option_sense);
        YY_BREAK
 case 117:
 YY_RULE_SETUP
-#line 463 "scan.l"
+#line 472 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_LVAL", ! option_sense); markup_option("YYGetLVal", option_sense);
        YY_BREAK
 case 118:
 YY_RULE_SETUP
-#line 464 "scan.l"
+#line 473 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_LVAL", ! option_sense); markup_option("YYSetLVal", option_sense);
        YY_BREAK
 case 119:
 YY_RULE_SETUP
-#line 465 "scan.l"
+#line 474 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_GET_LLOC", ! option_sense); markup_option("YYGetLLoc", option_sense);
        YY_BREAK
 case 120:
 YY_RULE_SETUP
-#line 466 "scan.l"
+#line 475 "scan.l"
 ACTION_M4_IFDEF("M4""_YY_NO_SET_LLOC", ! option_sense); markup_option("YYSetLLoc", option_sense);
        YY_BREAK
 case 121:
 YY_RULE_SETUP
-#line 468 "scan.l"
+#line 477 "scan.l"
 return TOK_EXTRA_TYPE;
        YY_BREAK
 case 122:
 YY_RULE_SETUP
-#line 469 "scan.l"
+#line 478 "scan.l"
 return TOK_OUTFILE;
        YY_BREAK
 case 123:
 YY_RULE_SETUP
-#line 470 "scan.l"
+#line 479 "scan.l"
 return TOK_PREFIX;
        YY_BREAK
 case 124:
 YY_RULE_SETUP
-#line 471 "scan.l"
+#line 480 "scan.l"
 return TOK_YYCLASS;
        YY_BREAK
 case 125:
 YY_RULE_SETUP
-#line 472 "scan.l"
+#line 481 "scan.l"
 return TOK_HEADER_FILE;
        YY_BREAK
 case 126:
 YY_RULE_SETUP
-#line 473 "scan.l"
+#line 482 "scan.l"
 return TOK_TABLES_FILE;
        YY_BREAK
 case 127:
 YY_RULE_SETUP
-#line 474 "scan.l"
-{ markup_option("TablesVerify", option_sense);
+#line 483 "scan.l"
+{
                     tablesverify = option_sense;
                     if(!tablesext && option_sense)
                         tablesext = true;
+ markup_option("TablesVerify", option_sense);
                     }
        YY_BREAK
 case 128:
 YY_RULE_SETUP
-#line 481 "scan.l"
+#line 491 "scan.l"
 {
                        if(yyleng-1 < MAXLINE)
                         {
@@ -9008,12 +9018,21 @@ YY_RULE_SETUP
                           FLEX_EXIT(EXIT_FAILURE);
                         }
                        nmstr[strlen( nmstr ) - 1] = '\0';
+#if 1
+ piece_pack();
+ piece_append("<PLex_String>\"<PLex_Text>");
+ piece_esc(yytext + 1, strlen(yytext + 1) - 1);
+ piece_append("</PLex_Text>\"</PLex_String>");
+ piece_pack();
+ return ~NAME; /* actually a misnomer */
+#else
                        return NAME;
+#endif
                        }
        YY_BREAK
 case 129:
 YY_RULE_SETUP
-#line 495 "scan.l"
+#line 514 "scan.l"
 {
                        format_synerr( _( "unrecognized %%option: %s" ),
                                yytext );
@@ -9024,28 +9043,28 @@ YY_RULE_SETUP
 case 130:
 /* rule 130 can match eol */
 YY_RULE_SETUP
-#line 502 "scan.l"
+#line 521 "scan.l"
 ++linenum; BEGIN(INITIAL);
        YY_BREAK
 
 case 131:
 YY_RULE_SETUP
-#line 506 "scan.l"
+#line 525 "scan.l"
 ++bracelevel; yyless( 2 );     /* eat only %{ */
        YY_BREAK
 case 132:
 YY_RULE_SETUP
-#line 507 "scan.l"
+#line 526 "scan.l"
 --bracelevel; yyless( 2 );     /* eat only %} */
        YY_BREAK
 case 133:
 YY_RULE_SETUP
-#line 509 "scan.l"
+#line 528 "scan.l"
 START_CODEBLOCK(true); piece_append("<PLex_Text>"); /* indented code in prolog */
        YY_BREAK
 case 134:
 YY_RULE_SETUP
-#line 511 "scan.l"
+#line 530 "scan.l"
 {
         /* non-indented code */
                if ( bracelevel <= 0 ) {
@@ -9062,17 +9081,17 @@ YY_RULE_SETUP
        YY_BREAK
 case 135:
 YY_RULE_SETUP
-#line 525 "scan.l"
+#line 544 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 136:
 /* rule 136 can match eol */
 YY_RULE_SETUP
-#line 526 "scan.l"
+#line 545 "scan.l"
 ++linenum; ACTION_ECHO;
        YY_BREAK
 case YY_STATE_EOF(SECT2PROLOG):
-#line 528 "scan.l"
+#line 547 "scan.l"
 {
                        mark_prolog();
                        sectnum = 0;
@@ -9091,12 +9110,12 @@ case YY_STATE_EOF(SECT2PROLOG):
 case 137:
 /* rule 137 can match eol */
 YY_RULE_SETUP
-#line 543 "scan.l"
+#line 562 "scan.l"
 ++linenum; /* allow blank lines in section 2 */
        YY_BREAK
 case 138:
 YY_RULE_SETUP
-#line 545 "scan.l"
+#line 564 "scan.l"
 {
                        indented_code = false;
                        doing_codeblock = true;
@@ -9112,7 +9131,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 139:
 YY_RULE_SETUP
-#line 558 "scan.l"
+#line 577 "scan.l"
 {
                         /* Allow "<" to appear in (?x) patterns. */
                         if (!sf_skip_ws())
@@ -9122,12 +9141,12 @@ YY_RULE_SETUP
        YY_BREAK
 case 140:
 YY_RULE_SETUP
-#line 564 "scan.l"
+#line 583 "scan.l"
 return '^';
        YY_BREAK
 case 141:
 YY_RULE_SETUP
-#line 565 "scan.l"
+#line 584 "scan.l"
 BEGIN(QUOTE); return '"';
        YY_BREAK
 case 142:
@@ -9135,7 +9154,7 @@ case 142:
 (yy_c_buf_p) = yy_cp = yy_bp + 1;
 YY_DO_BEFORE_ACTION; /* set up yytext again */
 YY_RULE_SETUP
-#line 566 "scan.l"
+#line 585 "scan.l"
 {
                        BEGIN(NUM);
                        if ( lex_compat || posix_compat )
@@ -9150,12 +9169,12 @@ case 143:
 (yy_c_buf_p) = yy_cp = yy_bp + 1;
 YY_DO_BEFORE_ACTION; /* set up yytext again */
 YY_RULE_SETUP
-#line 573 "scan.l"
+#line 592 "scan.l"
 return '$';
        YY_BREAK
 case 144:
 YY_RULE_SETUP
-#line 575 "scan.l"
+#line 594 "scan.l"
 {
                        bracelevel = 1;
                        BEGIN(PERCENT_BRACE_ACTION);
@@ -9189,7 +9208,7 @@ YY_RULE_SETUP
 case 145:
 /* rule 145 can match eol */
 YY_RULE_SETUP
-#line 604 "scan.l"
+#line 623 "scan.l"
 {
                         if (sf_skip_ws()){
                             /* We're in the middle of a (?x: ) pattern. */
@@ -9221,7 +9240,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 146:
 YY_RULE_SETUP
-#line 633 "scan.l"
+#line 652 "scan.l"
 {
 
                 if (sf_skip_ws()){
@@ -9238,12 +9257,12 @@ YY_RULE_SETUP
        YY_BREAK
 case 147:
 YY_RULE_SETUP
-#line 647 "scan.l"
+#line 666 "scan.l"
 /* allow indented rules */ ;
        YY_BREAK
 case 148:
 YY_RULE_SETUP
-#line 649 "scan.l"
+#line 668 "scan.l"
 {
             if (sf_skip_ws()){
                 /* We're in the middle of a (?x: ) pattern. */
@@ -9277,7 +9296,7 @@ YY_RULE_SETUP
 case 149:
 /* rule 149 can match eol */
 YY_RULE_SETUP
-#line 679 "scan.l"
+#line 698 "scan.l"
 {
             if (sf_skip_ws()){
                 /* We're in the middle of a (?x: ) pattern. */
@@ -9311,15 +9330,15 @@ YY_RULE_SETUP
                        }
        YY_BREAK
 case 150:
-#line 712 "scan.l"
+#line 731 "scan.l"
 case 151:
 YY_RULE_SETUP
-#line 712 "scan.l"
+#line 731 "scan.l"
 return EOF_OP;
        YY_BREAK
 case 152:
 YY_RULE_SETUP
-#line 714 "scan.l"
+#line 733 "scan.l"
 {
                        sectnum = 3;
                        BEGIN(no_section3_escape ? SECT3_NOESCAPE : SECT3);
@@ -9339,7 +9358,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 153:
 YY_RULE_SETUP
-#line 731 "scan.l"
+#line 750 "scan.l"
 {
                        int cclval;
 
@@ -9389,12 +9408,12 @@ YY_RULE_SETUP
        YY_BREAK
 case 154:
 YY_RULE_SETUP
-#line 777 "scan.l"
+#line 796 "scan.l"
 return CCL_OP_DIFF;
        YY_BREAK
 case 155:
 YY_RULE_SETUP
-#line 778 "scan.l"
+#line 797 "scan.l"
 return CCL_OP_UNION;
        YY_BREAK
 /* Check for :space: at the end of the rule so we don't
@@ -9404,7 +9423,7 @@ return CCL_OP_UNION;
 case 156:
 /* rule 156 can match eol */
 YY_RULE_SETUP
-#line 785 "scan.l"
+#line 804 "scan.l"
 {
                        char *nmdefptr;
             int end_is_ws, end_ch;
@@ -9459,7 +9478,7 @@ nmstr[yyleng - 2 - end_is_ws] = '\0';  /* chop trailing brace */
        YY_BREAK
 case 157:
 YY_RULE_SETUP
-#line 837 "scan.l"
+#line 856 "scan.l"
 {
                     if (sf_skip_ws())
                         yy_push_state(COMMENT_DISCARD);
@@ -9472,7 +9491,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 158:
 YY_RULE_SETUP
-#line 847 "scan.l"
+#line 866 "scan.l"
 {
                     if (lex_compat || posix_compat){
                         /* Push back the "?#" and treat it like a normal parens. */
@@ -9486,7 +9505,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 159:
 YY_RULE_SETUP
-#line 857 "scan.l"
+#line 876 "scan.l"
 {
                     sf_push();
                     if (lex_compat || posix_compat)
@@ -9499,12 +9518,12 @@ YY_RULE_SETUP
        YY_BREAK
 case 160:
 YY_RULE_SETUP
-#line 866 "scan.l"
+#line 885 "scan.l"
 sf_push(); return '(';
        YY_BREAK
 case 161:
 YY_RULE_SETUP
-#line 867 "scan.l"
+#line 886 "scan.l"
 {
                     if (_sf_top_ix > 0) {
                         sf_pop();
@@ -9515,17 +9534,17 @@ YY_RULE_SETUP
        YY_BREAK
 case 162:
 YY_RULE_SETUP
-#line 875 "scan.l"
+#line 894 "scan.l"
 return (unsigned char) yytext[0];
        YY_BREAK
 case 163:
 YY_RULE_SETUP
-#line 876 "scan.l"
+#line 895 "scan.l"
 RETURNCHAR;
        YY_BREAK
 /* Nick added this rule for consistency with rest of scanner */
 case YY_STATE_EOF(SECT2):
-#line 879 "scan.l"
+#line 898 "scan.l"
 {
                        sectnum = 0;
 #if 1
@@ -9543,17 +9562,17 @@ case YY_STATE_EOF(SECT2):
 case 164:
 /* rule 164 can match eol */
 YY_RULE_SETUP
-#line 894 "scan.l"
+#line 913 "scan.l"
 ++linenum;     /* Allow blank lines & continuations */
        YY_BREAK
 case 165:
 YY_RULE_SETUP
-#line 895 "scan.l"
+#line 914 "scan.l"
 return (unsigned char) yytext[0];
        YY_BREAK
 case 166:
 YY_RULE_SETUP
-#line 896 "scan.l"
+#line 915 "scan.l"
 BEGIN(SECT2); return '>';
        YY_BREAK
 case 167:
@@ -9561,17 +9580,17 @@ case 167:
 (yy_c_buf_p) = yy_cp = yy_bp + 1;
 YY_DO_BEFORE_ACTION; /* set up yytext again */
 YY_RULE_SETUP
-#line 897 "scan.l"
+#line 916 "scan.l"
 BEGIN(CARETISBOL); return '>';
        YY_BREAK
 case 168:
 YY_RULE_SETUP
-#line 898 "scan.l"
+#line 917 "scan.l"
 RETURNNAME;
        YY_BREAK
 case 169:
 YY_RULE_SETUP
-#line 899 "scan.l"
+#line 918 "scan.l"
 {
                        format_synerr( _( "bad <start condition>: %s" ),
                                yytext );
@@ -9580,24 +9599,24 @@ YY_RULE_SETUP
 
 case 170:
 YY_RULE_SETUP
-#line 905 "scan.l"
+#line 924 "scan.l"
 BEGIN(SECT2); return '^';
        YY_BREAK
 
 case 171:
 YY_RULE_SETUP
-#line 909 "scan.l"
+#line 928 "scan.l"
 RETURNCHAR;
        YY_BREAK
 case 172:
 YY_RULE_SETUP
-#line 910 "scan.l"
+#line 929 "scan.l"
 BEGIN(SECT2); return '"';
        YY_BREAK
 case 173:
 /* rule 173 can match eol */
 YY_RULE_SETUP
-#line 912 "scan.l"
+#line 931 "scan.l"
 {
                        synerr( _( "missing quote" ) );
                        BEGIN(SECT2);
@@ -9609,49 +9628,49 @@ YY_RULE_SETUP
 
 case 174:
 YY_RULE_SETUP
-#line 921 "scan.l"
+#line 940 "scan.l"
 BEGIN(SECT2);
        YY_BREAK
 case 175:
 YY_RULE_SETUP
-#line 922 "scan.l"
+#line 941 "scan.l"
 BEGIN(GROUP_MINUS_PARAMS);
        YY_BREAK
 case 176:
 YY_RULE_SETUP
-#line 923 "scan.l"
+#line 942 "scan.l"
 sf_set_case_ins(1);
        YY_BREAK
 case 177:
 YY_RULE_SETUP
-#line 924 "scan.l"
+#line 943 "scan.l"
 sf_set_dot_all(1);
        YY_BREAK
 case 178:
 YY_RULE_SETUP
-#line 925 "scan.l"
+#line 944 "scan.l"
 sf_set_skip_ws(1);
        YY_BREAK
 
 
 case 179:
 YY_RULE_SETUP
-#line 928 "scan.l"
+#line 947 "scan.l"
 BEGIN(SECT2);
        YY_BREAK
 case 180:
 YY_RULE_SETUP
-#line 929 "scan.l"
+#line 948 "scan.l"
 sf_set_case_ins(0);
        YY_BREAK
 case 181:
 YY_RULE_SETUP
-#line 930 "scan.l"
+#line 949 "scan.l"
 sf_set_dot_all(0);
        YY_BREAK
 case 182:
 YY_RULE_SETUP
-#line 931 "scan.l"
+#line 950 "scan.l"
 sf_set_skip_ws(0);
        YY_BREAK
 
@@ -9661,7 +9680,7 @@ case 183:
 (yy_c_buf_p) = yy_cp = yy_bp + 1;
 YY_DO_BEFORE_ACTION; /* set up yytext again */
 YY_RULE_SETUP
-#line 935 "scan.l"
+#line 954 "scan.l"
 BEGIN(CCL); return '^';
        YY_BREAK
 case 184:
@@ -9669,12 +9688,12 @@ case 184:
 (yy_c_buf_p) = yy_cp = yy_bp + 1;
 YY_DO_BEFORE_ACTION; /* set up yytext again */
 YY_RULE_SETUP
-#line 936 "scan.l"
+#line 955 "scan.l"
 return '^';
        YY_BREAK
 case 185:
 YY_RULE_SETUP
-#line 937 "scan.l"
+#line 956 "scan.l"
 BEGIN(CCL); RETURNCHAR;
        YY_BREAK
 
@@ -9684,23 +9703,23 @@ case 186:
 (yy_c_buf_p) = yy_cp = yy_bp + 1;
 YY_DO_BEFORE_ACTION; /* set up yytext again */
 YY_RULE_SETUP
-#line 941 "scan.l"
+#line 960 "scan.l"
 return '-';
        YY_BREAK
 case 187:
 YY_RULE_SETUP
-#line 942 "scan.l"
+#line 961 "scan.l"
 RETURNCHAR;
        YY_BREAK
 case 188:
 YY_RULE_SETUP
-#line 943 "scan.l"
+#line 962 "scan.l"
 BEGIN(SECT2); return ']';
        YY_BREAK
 case 189:
 /* rule 189 can match eol */
 YY_RULE_SETUP
-#line 944 "scan.l"
+#line 963 "scan.l"
 {
                        synerr( _( "bad character class" ) );
                        BEGIN(SECT2);
@@ -9711,127 +9730,127 @@ YY_RULE_SETUP
 
 case 190:
 YY_RULE_SETUP
-#line 952 "scan.l"
+#line 971 "scan.l"
 BEGIN(CCL); return CCE_ALNUM;
        YY_BREAK
 case 191:
 YY_RULE_SETUP
-#line 953 "scan.l"
+#line 972 "scan.l"
 BEGIN(CCL); return CCE_ALPHA;
        YY_BREAK
 case 192:
 YY_RULE_SETUP
-#line 954 "scan.l"
+#line 973 "scan.l"
 BEGIN(CCL); return CCE_BLANK;
        YY_BREAK
 case 193:
 YY_RULE_SETUP
-#line 955 "scan.l"
+#line 974 "scan.l"
 BEGIN(CCL); return CCE_CNTRL;
        YY_BREAK
 case 194:
 YY_RULE_SETUP
-#line 956 "scan.l"
+#line 975 "scan.l"
 BEGIN(CCL); return CCE_DIGIT;
        YY_BREAK
 case 195:
 YY_RULE_SETUP
-#line 957 "scan.l"
+#line 976 "scan.l"
 BEGIN(CCL); return CCE_GRAPH;
        YY_BREAK
 case 196:
 YY_RULE_SETUP
-#line 958 "scan.l"
+#line 977 "scan.l"
 BEGIN(CCL); return CCE_LOWER;
        YY_BREAK
 case 197:
 YY_RULE_SETUP
-#line 959 "scan.l"
+#line 978 "scan.l"
 BEGIN(CCL); return CCE_PRINT;
        YY_BREAK
 case 198:
 YY_RULE_SETUP
-#line 960 "scan.l"
+#line 979 "scan.l"
 BEGIN(CCL); return CCE_PUNCT;
        YY_BREAK
 case 199:
 YY_RULE_SETUP
-#line 961 "scan.l"
+#line 980 "scan.l"
 BEGIN(CCL); return CCE_SPACE;
        YY_BREAK
 case 200:
 YY_RULE_SETUP
-#line 962 "scan.l"
+#line 981 "scan.l"
 BEGIN(CCL); return CCE_UPPER;
        YY_BREAK
 case 201:
 YY_RULE_SETUP
-#line 963 "scan.l"
+#line 982 "scan.l"
 BEGIN(CCL); return CCE_XDIGIT;
        YY_BREAK
 case 202:
 YY_RULE_SETUP
-#line 965 "scan.l"
+#line 984 "scan.l"
 BEGIN(CCL); return CCE_NEG_ALNUM;
        YY_BREAK
 case 203:
 YY_RULE_SETUP
-#line 966 "scan.l"
+#line 985 "scan.l"
 BEGIN(CCL); return CCE_NEG_ALPHA;
        YY_BREAK
 case 204:
 YY_RULE_SETUP
-#line 967 "scan.l"
+#line 986 "scan.l"
 BEGIN(CCL); return CCE_NEG_BLANK;
        YY_BREAK
 case 205:
 YY_RULE_SETUP
-#line 968 "scan.l"
+#line 987 "scan.l"
 BEGIN(CCL); return CCE_NEG_CNTRL;
        YY_BREAK
 case 206:
 YY_RULE_SETUP
-#line 969 "scan.l"
+#line 988 "scan.l"
 BEGIN(CCL); return CCE_NEG_DIGIT;
        YY_BREAK
 case 207:
 YY_RULE_SETUP
-#line 970 "scan.l"
+#line 989 "scan.l"
 BEGIN(CCL); return CCE_NEG_GRAPH;
        YY_BREAK
 case 208:
 YY_RULE_SETUP
-#line 971 "scan.l"
+#line 990 "scan.l"
 BEGIN(CCL); return CCE_NEG_LOWER;
        YY_BREAK
 case 209:
 YY_RULE_SETUP
-#line 972 "scan.l"
+#line 991 "scan.l"
 BEGIN(CCL); return CCE_NEG_PRINT;
        YY_BREAK
 case 210:
 YY_RULE_SETUP
-#line 973 "scan.l"
+#line 992 "scan.l"
 BEGIN(CCL); return CCE_NEG_PUNCT;
        YY_BREAK
 case 211:
 YY_RULE_SETUP
-#line 974 "scan.l"
+#line 993 "scan.l"
 BEGIN(CCL); return CCE_NEG_SPACE;
        YY_BREAK
 case 212:
 YY_RULE_SETUP
-#line 975 "scan.l"
+#line 994 "scan.l"
 BEGIN(CCL); return CCE_NEG_UPPER;
        YY_BREAK
 case 213:
 YY_RULE_SETUP
-#line 976 "scan.l"
+#line 995 "scan.l"
 BEGIN(CCL); return CCE_NEG_XDIGIT;
        YY_BREAK
 case 214:
 YY_RULE_SETUP
-#line 977 "scan.l"
+#line 996 "scan.l"
 {
                        format_synerr(
                                _( "bad character class expression: %s" ),
@@ -9843,7 +9862,7 @@ YY_RULE_SETUP
 
 case 215:
 YY_RULE_SETUP
-#line 986 "scan.l"
+#line 1005 "scan.l"
 {
                        yylval = myctoi( yytext );
                        return NUMBER;
@@ -9851,12 +9870,12 @@ YY_RULE_SETUP
        YY_BREAK
 case 216:
 YY_RULE_SETUP
-#line 991 "scan.l"
+#line 1010 "scan.l"
 return ',';
        YY_BREAK
 case 217:
 YY_RULE_SETUP
-#line 992 "scan.l"
+#line 1011 "scan.l"
 {
                        BEGIN(SECT2);
                        if ( lex_compat || posix_compat )
@@ -9867,7 +9886,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 218:
 YY_RULE_SETUP
-#line 1000 "scan.l"
+#line 1019 "scan.l"
 {
                        synerr( _( "bad character inside {}'s" ) );
                        BEGIN(SECT2);
@@ -9877,7 +9896,7 @@ YY_RULE_SETUP
 case 219:
 /* rule 219 can match eol */
 YY_RULE_SETUP
-#line 1006 "scan.l"
+#line 1025 "scan.l"
 {
                        synerr( _( "missing }" ) );
                        BEGIN(SECT2);
@@ -9889,18 +9908,18 @@ YY_RULE_SETUP
 
 case 220:
 YY_RULE_SETUP
-#line 1016 "scan.l"
+#line 1035 "scan.l"
 bracelevel = 0; piece_append("</PLex_Text>");
        YY_BREAK
 case 221:
 YY_RULE_SETUP
-#line 1018 "scan.l"
+#line 1037 "scan.l"
 ACTION_ECHO; yy_push_state( CODE_COMMENT );
        YY_BREAK
 
 case 222:
 YY_RULE_SETUP
-#line 1021 "scan.l"
+#line 1040 "scan.l"
 {
             ACTION_ECHO;
             CHECK_REJECT(yytext);
@@ -9908,7 +9927,7 @@ YY_RULE_SETUP
        YY_BREAK
 case 223:
 YY_RULE_SETUP
-#line 1025 "scan.l"
+#line 1044 "scan.l"
 {
             ACTION_ECHO;
             CHECK_YYMORE(yytext);
@@ -9917,13 +9936,13 @@ YY_RULE_SETUP
 
 case 224:
 YY_RULE_SETUP
-#line 1031 "scan.l"
+#line 1050 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 225:
 /* rule 225 can match eol */
 YY_RULE_SETUP
-#line 1032 "scan.l"
+#line 1051 "scan.l"
 {
                ++linenum;
                ACTION_ECHO;
@@ -9946,43 +9965,43 @@ YY_RULE_SETUP
 
 case 226:
 YY_RULE_SETUP
-#line 1053 "scan.l"
+#line 1072 "scan.l"
 ACTION_ECHO; ++bracelevel;
        YY_BREAK
 case 227:
 YY_RULE_SETUP
-#line 1054 "scan.l"
+#line 1073 "scan.l"
 ACTION_ECHO; --bracelevel;
        YY_BREAK
 case 228:
 YY_RULE_SETUP
-#line 1055 "scan.l"
+#line 1074 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 229:
 YY_RULE_SETUP
-#line 1056 "scan.l"
+#line 1075 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 230:
 YY_RULE_SETUP
-#line 1057 "scan.l"
+#line 1076 "scan.l"
 ACTION_ECHO; /* character constant */
        YY_BREAK
 case 231:
 YY_RULE_SETUP
-#line 1058 "scan.l"
+#line 1077 "scan.l"
 ACTION_ECHO; BEGIN(CHARACTER_CONSTANT);
        YY_BREAK
 case 232:
 YY_RULE_SETUP
-#line 1059 "scan.l"
+#line 1078 "scan.l"
 ACTION_ECHO; BEGIN(ACTION_STRING);
        YY_BREAK
 case 233:
 /* rule 233 can match eol */
 YY_RULE_SETUP
-#line 1060 "scan.l"
+#line 1079 "scan.l"
 {
                 ++linenum;
                 ACTION_ECHO;
@@ -10001,31 +10020,31 @@ YY_RULE_SETUP
        YY_BREAK
 case 234:
 YY_RULE_SETUP
-#line 1075 "scan.l"
+#line 1094 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 
 
 case 235:
 YY_RULE_SETUP
-#line 1079 "scan.l"
+#line 1098 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 236:
 YY_RULE_SETUP
-#line 1080 "scan.l"
+#line 1099 "scan.l"
 ACTION_ECHO; BEGIN(ACTION);
        YY_BREAK
 
 
 case 237:
 YY_RULE_SETUP
-#line 1083 "scan.l"
+#line 1102 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 238:
 YY_RULE_SETUP
-#line 1084 "scan.l"
+#line 1103 "scan.l"
 ACTION_ECHO; BEGIN(ACTION);
        YY_BREAK
 
@@ -10033,24 +10052,24 @@ ACTION_ECHO; BEGIN(ACTION);
 case 239:
 /* rule 239 can match eol */
 YY_RULE_SETUP
-#line 1087 "scan.l"
+#line 1106 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 240:
 /* rule 240 can match eol */
 YY_RULE_SETUP
-#line 1088 "scan.l"
+#line 1107 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 case 241:
 /* rule 241 can match eol */
 YY_RULE_SETUP
-#line 1089 "scan.l"
+#line 1108 "scan.l"
 ++linenum; ACTION_ECHO; if (bracelevel <= 0) { BEGIN(SECT2); flush(); if (doing_rule_action) markup_action("</PLex_Text></PLex_Section2_Rule_Action>"); } else { BEGIN(ACTION); }
        YY_BREAK
 case 242:
 YY_RULE_SETUP
-#line 1090 "scan.l"
+#line 1109 "scan.l"
 ACTION_ECHO;
        YY_BREAK
 
@@ -10060,7 +10079,7 @@ case YY_STATE_EOF(COMMENT_DISCARD):
 case YY_STATE_EOF(ACTION):
 case YY_STATE_EOF(ACTION_STRING):
 case YY_STATE_EOF(CHARACTER_CONSTANT):
-#line 1093 "scan.l"
+#line 1112 "scan.l"
 {
                        synerr( _( "EOF encountered inside an action" ) );
                        yyterminate();
@@ -10069,7 +10088,7 @@ case YY_STATE_EOF(CHARACTER_CONSTANT):
 case YY_STATE_EOF(EXTENDED_COMMENT):
 case YY_STATE_EOF(GROUP_WITH_PARAMS):
 case YY_STATE_EOF(GROUP_MINUS_PARAMS):
-#line 1098 "scan.l"
+#line 1117 "scan.l"
 {
                        synerr( _( "EOF encountered inside pattern" ) );
                        yyterminate();
@@ -10077,7 +10096,7 @@ case YY_STATE_EOF(GROUP_MINUS_PARAMS):
        YY_BREAK
 case 243:
 YY_RULE_SETUP
-#line 1103 "scan.l"
+#line 1122 "scan.l"
 {
                        yylval = myesc( (unsigned char *) yytext );
 
@@ -10090,27 +10109,27 @@ YY_RULE_SETUP
 
 case 244:
 YY_RULE_SETUP
-#line 1113 "scan.l"
+#line 1132 "scan.l"
 fputs(escaped_qstart, yyout);
        YY_BREAK
 case 245:
 YY_RULE_SETUP
-#line 1114 "scan.l"
+#line 1133 "scan.l"
 fputs(escaped_qend, yyout);
        YY_BREAK
 case 246:
 /* rule 246 can match eol */
 YY_RULE_SETUP
-#line 1115 "scan.l"
+#line 1134 "scan.l"
 ECHO;
        YY_BREAK
 case 247:
 YY_RULE_SETUP
-#line 1116 "scan.l"
+#line 1135 "scan.l"
 ECHO;
        YY_BREAK
 case YY_STATE_EOF(SECT3):
-#line 1117 "scan.l"
+#line 1136 "scan.l"
 {
         sectnum = 0;
 #if 1
@@ -10127,27 +10146,27 @@ case YY_STATE_EOF(SECT3):
 
 case 248:
 YY_RULE_SETUP
-#line 1130 "scan.l"
+#line 1149 "scan.l"
 fprintf(yyout, "[""[%s]""]", escaped_qstart);
        YY_BREAK
 case 249:
 YY_RULE_SETUP
-#line 1131 "scan.l"
+#line 1150 "scan.l"
 fprintf(yyout, "[""[%s]""]", escaped_qend);
        YY_BREAK
 case 250:
 /* rule 250 can match eol */
 YY_RULE_SETUP
-#line 1132 "scan.l"
+#line 1151 "scan.l"
 ECHO;
        YY_BREAK
 case 251:
 YY_RULE_SETUP
-#line 1133 "scan.l"
+#line 1152 "scan.l"
 ECHO;
        YY_BREAK
 case YY_STATE_EOF(SECT3_NOESCAPE):
-#line 1134 "scan.l"
+#line 1153 "scan.l"
 {
        sectnum = 0;
 #if 1
@@ -10164,15 +10183,15 @@ case YY_STATE_EOF(SECT3_NOESCAPE):
 case 252:
 /* rule 252 can match eol */
 YY_RULE_SETUP
-#line 1146 "scan.l"
+#line 1165 "scan.l"
 format_synerr( _( "bad character: %s" ), yytext );
        YY_BREAK
 case 253:
 YY_RULE_SETUP
-#line 1148 "scan.l"
+#line 1167 "scan.l"
 YY_FATAL_ERROR( "flex scanner jammed" );
        YY_BREAK
-#line 10064 "scan.c"
+#line 10083 "scan.c"
 case YY_STATE_EOF(INITIAL):
 case YY_STATE_EOF(CODEBLOCK):
 case YY_STATE_EOF(PICKUPDEF):
@@ -11220,7 +11239,7 @@ void yyfree (void * ptr )
 
 #define YYTABLES_NAME "yytables"
 
-#line 1148 "scan.l"
+#line 1167 "scan.l"
 
 
 
index a90c987..e96c7ec 100644 (file)
@@ -78,10 +78,13 @@ extern const char *escaped_qstart, *escaped_qend;
        if(yyleng < MAXLINE) \
          { \
        strncpy( nmstr, yytext, sizeof(nmstr) ); \
+ piece_pack(); \
  piece_append("<PLex_Name>"); \
flush(); \
piece_esc(yytext, strlen(yytext)); \
  piece_append("</PLex_Name>"); \
-       return NAME; \
+ piece_pack(); \
+ return ~NAME; \
+ /*    return NAME;*/ \
         } \
        else \
         do { \
@@ -214,8 +217,8 @@ M4QEND      "]""]"
 #endif
                        }
 
-       ^"%pointer".*{NL}       yytext_is_array = false; ++linenum;
-       ^"%array".*{NL}         yytext_is_array = true; ++linenum;
+       ^"%pointer".*{NL}       yytext_is_array = false; ++linenum; piece_append("<PLex_Section1_Options><PLex_Section1_Options_Array>"); { int i = strlen(yytext) - 1; piece_esc(yytext, i); yytext += i; } piece_append("</PLex_Section1_Options_Array></PLex_Section1_Options>"); 
+       ^"%array".*{NL}         yytext_is_array = true; ++linenum; piece_append("<PLex_Section1_Options><PLex_Section1_Options_Array value=\"true\">"); { int i = strlen(yytext) - 1; piece_esc(yytext, i); yytext += i; } piece_append("</PLex_Section1_Options_Array></PLex_Section1_Options>");
 
        ^"%option"      BEGIN(OPTION); return TOK_OPTION;
 
@@ -375,20 +378,22 @@ M4QEND      "]""]"
 
        no              option_sense = ! option_sense;
 
-       7bit            csize = option_sense ? 128 : 256; markup_option("7bit", option_sense);
-       8bit            csize = option_sense ? 256 : 128; markup_option("8bit", option_sense);
+       7bit            csize = option_sense ? 128 : 256; markup_option("SevenBit", option_sense);
+       8bit            csize = option_sense ? 256 : 128; markup_option("SevenBit", !option_sense);
 
        align           long_align = option_sense; markup_option("Align", option_sense);
-       always-interactive      { markup_option("AlwaysInteractive", option_sense);
+       always-interactive      {
                        ACTION_M4_IFDEF( "M4""_YY_ALWAYS_INTERACTIVE", option_sense );
             interactive = option_sense;
+ markup_option("AlwaysInteractive", option_sense);
                        }
        array           yytext_is_array = option_sense; markup_option("Array", option_sense);
        backup          backing_up_report = option_sense; markup_option("Backup", option_sense);
-       batch           interactive = ! option_sense; markup_option("Batch", option_sense);
+       batch           interactive = ! option_sense; markup_option("Interactive", !option_sense);
     bison-bridge     bison_bridge_lval = option_sense; markup_option("BisonBridge", option_sense);
-    bison-locations  { if((bison_bridge_lloc = option_sense)) markup_option("BisonLocations", option_sense);
+    bison-locations  { if((bison_bridge_lloc = option_sense))
                             bison_bridge_lval = true;
+ markup_option("BisonLocations", option_sense);
                      }
        "c++"           C_plus_plus = option_sense; markup_option("CPlusPlus", option_sense);
        caseful|case-sensitive          sf_set_case_ins(!option_sense); markup_option("Caseless", !option_sense);
@@ -396,39 +401,43 @@ M4QEND      "]""]"
        debug           ddebug = option_sense; markup_option("Debug", option_sense);
        default         spprdflt = ! option_sense; markup_option("Default", option_sense);
        ecs             useecs = option_sense; markup_option("ECS", option_sense);
-       fast            { markup_option("Fast", option_sense);
+       fast            {
                        useecs = usemecs = false;
                        use_read = fullspd = true;
+ markup_option("Fast", option_sense);
                        }
-       full            { markup_option("Full", option_sense);
+       full            {
                        useecs = usemecs = false;
                        use_read = fulltbl = true;
+ markup_option("Full", option_sense);
                        }
        input           ACTION_IFDEF("YY_NO_INPUT", ! option_sense); markup_option("Input", option_sense);
        interactive     interactive = option_sense; markup_option("Interactive", option_sense);
        lex-compat      lex_compat = option_sense; markup_option("LexCompat", option_sense);
        posix-compat    posix_compat = option_sense; markup_option("PosixCompat", option_sense);
        line            gen_line_dirs = option_sense; markup_option("Line", option_sense);
-       main            { markup_option("Main", option_sense);
+       main            {
                        ACTION_M4_IFDEF( "M4""_YY_MAIN", option_sense);
             /* Override yywrap */
             if( option_sense == true )
                 do_yywrap = false;
+ markup_option("Main", option_sense);
                        }
        meta-ecs        usemecs = option_sense; markup_option("MetaECS", option_sense);
-       never-interactive       { markup_option("NeverInteractive", option_sense);
+       never-interactive       {
                        ACTION_M4_IFDEF( "M4""_YY_NEVER_INTERACTIVE", option_sense );
             interactive = !option_sense;
+ markup_option("NeverInteractive", option_sense);
                        }
        perf-report     performance_report += option_sense ? 1 : -1; markup_option("PerfReport", option_sense);
-       pointer         yytext_is_array = ! option_sense; markup_option("Pointer", option_sense);
+       pointer         yytext_is_array = ! option_sense; markup_option("Array", !option_sense);
        read            use_read = option_sense; markup_option("Read", option_sense);
     reentrant   reentrant = option_sense; markup_option("Reentrant", option_sense);
        reject          reject_really_used = option_sense; markup_option("Reject", option_sense);
        stack           ACTION_M4_IFDEF( "M4""_YY_STACK_USED", option_sense ); markup_option("Stack", option_sense);
        stdinit         do_stdinit = option_sense; markup_option("StdInit", option_sense);
        stdout          use_stdout = option_sense; markup_option("StdOut", option_sense);
-    unistd      ACTION_IFDEF("YY_NO_UNISTD_H", ! option_sense); markup_option("Unistd", option_sense);
+    unistd      ACTION_IFDEF("YY_NO_UNISTD_H", ! option_sense); markup_option("UniStd", option_sense);
        unput           ACTION_M4_IFDEF("M4""_YY_NO_UNPUT", ! option_sense); markup_option("Unput", option_sense);
        verbose         printstats = option_sense; markup_option("Verbose", option_sense);
        warn            nowarn = ! option_sense; markup_option("Warn", option_sense);
@@ -471,10 +480,11 @@ M4QEND      "]""]"
        yyclass         return TOK_YYCLASS;
        header(-file)?      return TOK_HEADER_FILE;
        tables-file         return TOK_TABLES_FILE;
-       tables-verify   { markup_option("TablesVerify", option_sense);
+       tables-verify   {
                     tablesverify = option_sense;
                     if(!tablesext && option_sense)
                         tablesext = true;
+ markup_option("TablesVerify", option_sense);
                     }
 
 
@@ -489,7 +499,16 @@ M4QEND      "]""]"
                           FLEX_EXIT(EXIT_FAILURE);
                         }
                        nmstr[strlen( nmstr ) - 1] = '\0';
+#if 1
+ piece_pack();
+ piece_append("<PLex_String>\"<PLex_Text>");
+ piece_esc(yytext + 1, strlen(yytext + 1) - 1);
+ piece_append("</PLex_Text>\"</PLex_String>");
+ piece_pack();
+ return ~NAME; /* actually a misnomer */
+#else
                        return NAME;
+#endif
                        }
 
        (([a-mo-z]|n[a-np-z])[[:alpha:]\-+]*)|. {