develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35873 - trunk/compilers/pirc/src

From:
kjs
Date:
January 21, 2009 14:44
Subject:
[svn:parrot] r35873 - trunk/compilers/pirc/src
Message ID:
20090121224422.CDA4ECB9AE@x12.develooper.com
Author: kjs
Date: Wed Jan 21 14:44:21 2009
New Revision: 35873

Modified:
   trunk/compilers/pirc/src/hdocprep.c
   trunk/compilers/pirc/src/hdocprep.l

Log:
[pirc] ignore stand-alone =cuts.


Modified: trunk/compilers/pirc/src/hdocprep.c
==============================================================================
--- trunk/compilers/pirc/src/hdocprep.c	(original)
+++ trunk/compilers/pirc/src/hdocprep.c	Wed Jan 21 14:44:21 2009
@@ -5,7 +5,7 @@
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  *
  * This file is generated automatically by the Parrot build process
- * from the file compilers/pirc/src/hdocprep.l.
+ * from the file compilers/pirc/new/hdocprep.l.
  *
  * Any changes made here will be lost!
  *
@@ -469,8 +469,8 @@
     yyg->yy_c_buf_p = yy_cp;
 
 /* %% [4.0] data tables for the DFA and the user's section 1 definitions go here */
-#define YY_NUM_RULES 20
-#define YY_END_OF_BUFFER 21
+#define YY_NUM_RULES 21
+#define YY_END_OF_BUFFER 22
 /* This struct is not used in this scanner,
    but its presence is necessary. */
 struct yy_trans_info
@@ -478,21 +478,22 @@
     flex_int32_t yy_verify;
     flex_int32_t yy_nxt;
     };
-static yyconst flex_int16_t yy_accept[118] =
+static yyconst flex_int16_t yy_accept[123] =
     {   0,
         0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,   21,   19,    5,   19,    1,   19,
-       19,   19,   20,    4,   20,    1,   20,   18,   15,   17,
-       15,   18,    1,   18,   20,    7,   20,    1,   20,    8,
-       20,    1,   20,    9,   20,    1,   13,   12,   13,    1,
-       13,    5,    1,    1,    1,    0,    0,    0,    2,    0,
-        0,    4,    0,    1,    1,    1,    0,   17,    0,   16,
-        0,    0,    0,    7,    0,    1,    1,    1,    0,    8,
-        0,    1,    1,    1,    0,   10,    0,    9,    1,    1,
-        1,   12,    0,    0,    0,    0,    0,    0,    0,    0,
-
-        0,    6,    0,    0,    0,    0,   11,    0,    0,    0,
-        0,    3,    0,    0,    0,   14,    0
+        0,    0,    0,    0,   22,   20,    6,   20,    1,   20,
+       20,   20,   21,    5,   21,    1,   21,   19,   16,   18,
+       16,   19,    1,   19,   21,    8,   21,    1,   21,    9,
+       21,    1,   21,   10,   21,    1,   14,   13,   14,    1,
+       14,    6,    1,    1,    1,    0,    0,    0,    3,    0,
+        0,    0,    5,    0,    1,    1,    1,    0,   18,    0,
+       17,    0,    0,    0,    8,    0,    1,    1,    1,    0,
+        9,    0,    1,    1,    1,    0,   11,    0,   10,    1,
+        1,    1,   13,    0,    0,    0,    0,    0,    0,    0,
+
+        0,    0,    0,    7,    0,    0,    0,    0,    0,   12,
+        0,    0,    0,    2,    0,    0,    4,    0,    0,    0,
+       15,    0
     } ;
 
 static yyconst flex_int32_t yy_ec[256] =
@@ -533,116 +534,120 @@
         1,    1,    1,    1,    1,    1,    1,    1,    1
     } ;
 
-static yyconst flex_int16_t yy_base[142] =
+static yyconst flex_int16_t yy_base[147] =
     {   0,
         0,    7,   15,   19,   28,   34,   39,   43,   47,   51,
-       55,   59,   63,   70,  220,  221,  221,  216,   23,  203,
-      208,   67,   74,  221,   77,   79,   81,  221,  221,  221,
-      176,    9,   83,  171,   85,  221,   87,   91,   93,  221,
-       95,   97,   99,  221,  101,  103,  221,  221,  173,  105,
-      154,  221,  107,  221,  109,  143,    0,  111,  221,  113,
-      115,  221,  117,  119,  221,  121,  123,  221,  123,  221,
-        0,  134,  126,  221,  128,  132,  221,  134,  136,  221,
-      140,  142,  221,  144,  146,  221,  148,  221,  150,  221,
-      152,  221,  152,  121,  153,   85,  162,  156,   68,   52,
-
-      157,  221,    0,   57,  166,  166,  221,    0,   53,   37,
-      169,  221,  171,   39,   34,  221,  221,  180,  182,  184,
-      186,  188,  190,  192,  194,  196,  198,  200,   43,   27,
-      202,  204,  206,  208,  210,  212,   23,   11,    1,    0,
-      214
+       55,   59,   63,   70,  194,  238,  238,  190,   23,  177,
+      182,   77,   67,  238,   74,   79,   87,  238,  238,  238,
+      187,    9,   81,  176,   83,  238,   89,   91,   93,  238,
+       97,   99,  101,  238,  103,  105,  238,  238,  165,  107,
+      156,  238,  109,  238,  111,  135,    0,  113,  238,  115,
+      117,  119,  238,  121,  123,  238,  125,  134,  238,  128,
+      238,    0,  125,  127,  238,  131,  137,  238,  139,  141,
+      238,  143,  145,  238,  147,  151,  238,  153,  238,  155,
+      238,  157,  238,  157,   86,  158,   81,  167,  183,  161,
+
+       68,   52,  162,  238,    0,   57,  171,  173,  173,  238,
+        0,   53,   37,  238,  176,  178,  238,  185,   39,   34,
+      238,  238,  201,  203,  205,  207,  209,  211,  213,  215,
+      217,  219,  221,   43,   27,  223,  225,  227,  229,  231,
+      233,   23,   11,    1,    0,  235
     } ;
 
-static yyconst flex_int16_t yy_def[142] =
+static yyconst flex_int16_t yy_def[147] =
     {   0,
-      118,  118,  119,  119,  120,  120,  121,  121,  122,  122,
-      123,  123,  124,  124,  117,  117,  117,  117,  125,  117,
-      117,  126,  127,  117,  127,  128,  127,  117,  117,  117,
-      117,  129,  125,  130,  131,  117,  131,  132,  133,  117,
-      133,  134,  135,  117,  135,  136,  117,  117,  117,  125,
-      117,  117,  125,  117,  125,  117,  117,  126,  117,  126,
-      127,  117,  127,  128,  117,  128,  127,  117,  129,  117,
-      129,  130,  131,  117,  131,  132,  117,  132,  133,  117,
-      133,  134,  117,  134,  135,  117,  135,  117,  136,  117,
-      136,  117,  117,  117,  137,  138,  127,  139,  140,  117,
-
-      137,  117,  137,  138,  141,  139,  117,  139,  140,  117,
-      141,  117,  141,  117,  117,  117,    0,  117,  117,  117,
-      117,  117,  117,  117,  117,  117,  117,  117,  117,  117,
-      117,  117,  117,  117,  117,  117,  117,  117,  117,  117,
-      117
+      123,  123,  124,  124,  125,  125,  126,  126,  127,  127,
+      128,  128,  129,  129,  122,  122,  122,  122,  130,  122,
+      122,  131,  132,  122,  132,  133,  132,  122,  122,  122,
+      122,  134,  130,  135,  136,  122,  136,  137,  138,  122,
+      138,  139,  140,  122,  140,  141,  122,  122,  122,  130,
+      122,  122,  130,  122,  130,  122,  122,  131,  122,  131,
+      131,  132,  122,  132,  133,  122,  133,  132,  122,  134,
+      122,  134,  135,  136,  122,  136,  137,  122,  137,  138,
+      122,  138,  139,  122,  139,  140,  122,  140,  122,  141,
+      122,  141,  122,  122,  122,  142,  143,  131,  132,  144,
+
+      145,  122,  142,  122,  142,  143,  131,  146,  144,  122,
+      144,  145,  122,  122,  131,  146,  122,  146,  122,  122,
+      122,    0,  122,  122,  122,  122,  122,  122,  122,  122,
+      122,  122,  122,  122,  122,  122,  122,  122,  122,  122,
+      122,  122,  122,  122,  122,  122
     } ;
 
-static yyconst flex_int16_t yy_nxt[241] =
+static yyconst flex_int16_t yy_nxt[258] =
     {   0,
-      109,  106,   17,   18,   95,   19,   96,   20,   21,   17,
-       18,  104,   19,   70,   20,   21,   22,   24,   25,   71,
-       26,   24,   25,  101,   26,   54,   55,   72,   27,   29,
+      112,  109,   17,   18,   96,   19,   97,   20,   21,   17,
+       18,  106,   19,   71,   20,   21,   22,   24,   25,   72,
+       26,   24,   25,  103,   26,   54,   55,   73,   27,   29,
        30,   31,   32,   33,   34,   29,   30,   31,   32,   33,
-       34,   36,   37,   69,   38,   36,   37,  116,   38,   40,
-       41,  115,   42,   40,   41,  114,   42,   44,   45,  107,
-       46,   44,   45,  102,   46,   48,   49,  110,   50,   59,
-       60,   51,   48,   49,  107,   50,   62,   63,   51,   62,
-       63,   65,   66,   62,   63,   54,   55,   74,   75,   74,
-       75,  102,   67,   77,   78,   80,   81,   80,   81,   83,
-
-       84,   86,   87,   88,   87,   90,   91,   54,   55,   54,
-       55,   54,   55,   59,   60,   59,   60,   62,   63,   62,
-       63,   65,   66,   65,   66,   62,   63,   70,   74,   75,
-       74,   75,  100,   71,   77,   78,   77,   78,   80,   81,
-       70,   97,   80,   81,   83,   84,   83,   84,   86,   87,
-       86,   87,   90,   91,   90,   91,   98,  102,   99,   94,
-      107,  102,   93,  103,   62,   63,  108,  103,  112,  113,
-      107,  112,  113,  112,  113,   92,  108,   70,   68,  105,
-       16,   16,   23,   23,   28,   28,   35,   35,   39,   39,
-       43,   43,   47,   47,   53,   53,   58,   58,   61,   61,
-
-       64,   64,   73,   73,   76,   76,   79,   79,   82,   82,
-       85,   85,   89,   89,  111,  111,   57,   56,   52,  117,
-       15,  117,  117,  117,  117,  117,  117,  117,  117,  117,
-      117,  117,  117,  117,  117,  117,  117,  117,  117,  117
+       34,   36,   37,   70,   38,   36,   37,  121,   38,   40,
+       41,  120,   42,   40,   41,  119,   42,   44,   45,  110,
+       46,   44,   45,  104,   46,   48,   49,  113,   50,   63,
+       64,   51,   48,   49,  110,   50,   63,   64,   51,   59,
+       60,   66,   67,   54,   55,   75,   76,  104,   61,   63,
+       64,   75,   76,   78,   79,   81,   82,  102,   68,   81,
+
+       82,   84,   85,   87,   88,   89,   88,   91,   92,   54,
+       55,   54,   55,   54,   55,   59,   60,   59,   60,   59,
+       60,   63,   64,   63,   64,   66,   67,   66,   67,   75,
+       76,   71,   71,   75,   76,   98,   63,   64,   72,   78,
+       79,   78,   79,   81,   82,   81,   82,   84,   85,   84,
+       85,   95,   99,   87,   88,   87,   88,   91,   92,   91,
+       92,  100,  104,  101,   94,  110,  104,   93,  105,   59,
+       60,  111,  105,  114,  115,  117,  118,  110,  114,   60,
+      117,  118,   71,  111,  107,   63,   64,  117,  118,   69,
+       57,   56,   52,  122,  122,  122,  122,  122,  122,  122,
+
+      108,   16,   16,   23,   23,   28,   28,   35,   35,   39,
+       39,   43,   43,   47,   47,   53,   53,   58,   58,   62,
+       62,   65,   65,   74,   74,   77,   77,   80,   80,   83,
+       83,   86,   86,   90,   90,  116,  116,   15,  122,  122,
+      122,  122,  122,  122,  122,  122,  122,  122,  122,  122,
+      122,  122,  122,  122,  122,  122,  122
     } ;
 
-static yyconst flex_int16_t yy_chk[241] =
+static yyconst flex_int16_t yy_chk[258] =
     {   0,
-      140,  139,    1,    1,   57,    1,   57,    1,    1,    2,
-        2,  138,    2,   32,    2,    2,    2,    3,    3,   32,
-        3,    4,    4,  137,    4,   19,   19,  130,    4,    5,
+      145,  144,    1,    1,   57,    1,   57,    1,    1,    2,
+        2,  143,    2,   32,    2,    2,    2,    3,    3,   32,
+        3,    4,    4,  142,    4,   19,   19,  135,    4,    5,
         5,    5,    5,    5,    5,    6,    6,    6,    6,    6,
-        6,    7,    7,  129,    7,    8,    8,  115,    8,    9,
-        9,  114,    9,   10,   10,  110,   10,   11,   11,  109,
-       11,   12,   12,  104,   12,   13,   13,  100,   13,   22,
-       22,   13,   14,   14,   99,   14,   23,   23,   14,   25,
-       25,   26,   26,   27,   27,   33,   33,   35,   35,   37,
-       37,   96,   27,   38,   38,   39,   39,   41,   41,   42,
-
-       42,   43,   43,   45,   45,   46,   46,   50,   50,   53,
-       53,   55,   55,   58,   58,   60,   60,   61,   61,   63,
-       63,   64,   64,   66,   66,   67,   67,   69,   73,   73,
-       75,   75,   94,   69,   76,   76,   78,   78,   79,   79,
-       72,   67,   81,   81,   82,   82,   84,   84,   85,   85,
-       87,   87,   89,   89,   91,   91,   93,   95,   93,   56,
-       98,  101,   51,   95,   97,   97,   98,  101,  105,  105,
-      106,  111,  111,  113,  113,   49,  106,   34,   31,   97,
-      118,  118,  119,  119,  120,  120,  121,  121,  122,  122,
-      123,  123,  124,  124,  125,  125,  126,  126,  127,  127,
-
-      128,  128,  131,  131,  132,  132,  133,  133,  134,  134,
-      135,  135,  136,  136,  141,  141,   21,   20,   18,   15,
-      117,  117,  117,  117,  117,  117,  117,  117,  117,  117,
-      117,  117,  117,  117,  117,  117,  117,  117,  117,  117
+        6,    7,    7,  134,    7,    8,    8,  120,    8,    9,
+        9,  119,    9,   10,   10,  113,   10,   11,   11,  112,
+       11,   12,   12,  106,   12,   13,   13,  102,   13,   23,
+       23,   13,   14,   14,  101,   14,   25,   25,   14,   22,
+       22,   26,   26,   33,   33,   35,   35,   97,   22,   27,
+       27,   37,   37,   38,   38,   39,   39,   95,   27,   41,
+
+       41,   42,   42,   43,   43,   45,   45,   46,   46,   50,
+       50,   53,   53,   55,   55,   58,   58,   60,   60,   61,
+       61,   62,   62,   64,   64,   65,   65,   67,   67,   74,
+       74,   73,   70,   76,   76,   61,   68,   68,   70,   77,
+       77,   79,   79,   80,   80,   82,   82,   83,   83,   85,
+       85,   56,   68,   86,   86,   88,   88,   90,   90,   92,
+       92,   94,   96,   94,   51,  100,  103,   49,   96,   98,
+       98,  100,  103,  107,  107,  108,  108,  109,  115,  115,
+      116,  116,   34,  109,   98,   99,   99,  118,  118,   31,
+       21,   20,   18,   15,    0,    0,    0,    0,    0,    0,
+
+       99,  123,  123,  124,  124,  125,  125,  126,  126,  127,
+      127,  128,  128,  129,  129,  130,  130,  131,  131,  132,
+      132,  133,  133,  136,  136,  137,  137,  138,  138,  139,
+      139,  140,  140,  141,  141,  146,  146,  122,  122,  122,
+      122,  122,  122,  122,  122,  122,  122,  122,  122,  122,
+      122,  122,  122,  122,  122,  122,  122
     } ;
 
 /* Table of booleans, true if rule could match eol. */
-static yyconst flex_int32_t yy_rule_can_match_eol[21] =
+static yyconst flex_int32_t yy_rule_can_match_eol[22] =
     {   0,
-1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0,
-    0,     };
+1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0,
+    0, 0,     };
 
-static yyconst flex_int16_t yy_rule_linenum[20] =
+static yyconst flex_int16_t yy_rule_linenum[21] =
     {   0,
-      285,  287,  290,  294,  301,  304,  321,  333,  355,  374,
-      426,  445,  447,  477,  481,  483,  526,  530,  532
+      285,  287,  289,  292,  296,  303,  306,  323,  335,  357,
+      376,  428,  447,  449,  479,  483,  485,  528,  532,  534
     } ;
 
 /* The intent behind this definition is that it'll catch
@@ -884,7 +889,7 @@
 
 
 
-#line 888 "hdocprep.c"
+#line 893 "hdocprep.c"
 
 #define INITIAL 0
 #define POD 1
@@ -1178,7 +1183,7 @@
 #line 283 "hdocprep.l"
 
 
-#line 1182 "hdocprep.c"
+#line 1187 "hdocprep.c"
 
     if ( !yyg->yy_init )
         {
@@ -1242,13 +1247,13 @@
             while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
                 {
                 yy_current_state = (int) yy_def[yy_current_state];
-                if ( yy_current_state >= 118 )
+                if ( yy_current_state >= 123 )
                     yy_c = yy_meta[(unsigned int) yy_c];
                 }
             yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
             ++yy_cp;
             }
-        while ( yy_current_state != 117 );
+        while ( yy_current_state != 122 );
         yy_cp = yyg->yy_last_accepting_cpos;
         yy_current_state = yyg->yy_last_accepting_state;
 
@@ -1279,13 +1284,13 @@
             {
             if ( yy_act == 0 )
                 fprintf( stderr, "--scanner backing up\n" );
-            else if ( yy_act < 20 )
+            else if ( yy_act < 21 )
                 fprintf( stderr, "--accepting rule at line %ld (\"%s\")\n",
                          (long)yy_rule_linenum[yy_act], yytext );
-            else if ( yy_act == 20 )
+            else if ( yy_act == 21 )
                 fprintf( stderr, "--accepting default rule (\"%s\")\n",
                          yytext );
-            else if ( yy_act == 21 )
+            else if ( yy_act == 22 )
                 fprintf( stderr, "--(end of buffer or a NUL)\n" );
             else
                 fprintf( stderr, "--EOF (start condition %d)\n", YY_START );
@@ -1311,38 +1316,44 @@
 /* rule 2 can match eol */
 YY_RULE_SETUP
 #line 287 "hdocprep.l"
-{ yy_push_state(POD, yyscanner); }
+{ /* ignore a "=cut" if it's not in a POD comment */ }
     YY_BREAK
 case 3:
 /* rule 3 can match eol */
 YY_RULE_SETUP
-#line 290 "hdocprep.l"
+#line 289 "hdocprep.l"
+{ yy_push_state(POD, yyscanner); }
+    YY_BREAK
+case 4:
+/* rule 4 can match eol */
+YY_RULE_SETUP
+#line 292 "hdocprep.l"
 { /* end of POD comment */
                           yy_pop_state(yyscanner);
                         }
     YY_BREAK
-case 4:
-/* rule 4 can match eol */
+case 5:
+/* rule 5 can match eol */
 YY_RULE_SETUP
-#line 294 "hdocprep.l"
+#line 296 "hdocprep.l"
 { /* ignore pod comments */ }
     YY_BREAK
 case YY_STATE_EOF(POD):
-#line 296 "hdocprep.l"
+#line 298 "hdocprep.l"
 { /* we're scanning a POD comment, but encountered end-of-file. */
                           lex_error(yyscanner, "POD comment not closed!");
                           yyterminate();
                         }
     YY_BREAK
-case 5:
-/* rule 5 can match eol */
+case 6:
+/* rule 6 can match eol */
 YY_RULE_SETUP
-#line 301 "hdocprep.l"
+#line 303 "hdocprep.l"
 { fprintf(yyget_extra(yyscanner)->outfile, "\n"); }
     YY_BREAK
-case 6:
+case 7:
 YY_RULE_SETUP
-#line 304 "hdocprep.l"
+#line 306 "hdocprep.l"
 {
                           global_state * const state = yyget_extra(yyscanner);
 
@@ -1359,10 +1370,10 @@
 
                         }
     YY_BREAK
-case 7:
-/* rule 7 can match eol */
+case 8:
+/* rule 8 can match eol */
 YY_RULE_SETUP
-#line 321 "hdocprep.l"
+#line 323 "hdocprep.l"
 { /* match the rest of the line */
                               global_state * const state = yyget_extra(yyscanner);
 
@@ -1375,10 +1386,10 @@
 
                             }
     YY_BREAK
-case 8:
-/* rule 8 can match eol */
+case 9:
+/* rule 9 can match eol */
 YY_RULE_SETUP
-#line 333 "hdocprep.l"
+#line 335 "hdocprep.l"
 { /* match the rest of the line */
                               global_state * const state = yyget_extra(yyscanner);
 
@@ -1400,10 +1411,10 @@
 
                             }
     YY_BREAK
-case 9:
-/* rule 9 can match eol */
+case 10:
+/* rule 10 can match eol */
 YY_RULE_SETUP
-#line 355 "hdocprep.l"
+#line 357 "hdocprep.l"
 {
                               global_state * const state = yyget_extra(yyscanner);
 
@@ -1423,10 +1434,10 @@
 
                             }
     YY_BREAK
-case 10:
-/* rule 10 can match eol */
+case 11:
+/* rule 11 can match eol */
 YY_RULE_SETUP
-#line 374 "hdocprep.l"
+#line 376 "hdocprep.l"
 {
                              global_state * const state = yyget_extra(yyscanner);
 
@@ -1475,15 +1486,15 @@
                            }
     YY_BREAK
 case YY_STATE_EOF(HEREDOC_STRING):
-#line 421 "hdocprep.l"
+#line 423 "hdocprep.l"
 { /* end of file while reading heredoc */
                               lex_error(yyscanner, "runaway heredoc string");
                               yyterminate();
                             }
     YY_BREAK
-case 11:
+case 12:
 YY_RULE_SETUP
-#line 426 "hdocprep.l"
+#line 428 "hdocprep.l"
 { /* a 'nested' heredoc string */
                               global_state *state = yyget_extra(yyscanner);
 
@@ -1503,19 +1514,19 @@
                               BEGIN(SAVE_REST_AGAIN);
                             }
     YY_BREAK
-case 12:
-/* rule 12 can match eol */
+case 13:
+/* rule 13 can match eol */
 YY_RULE_SETUP
-#line 445 "hdocprep.l"
+#line 447 "hdocprep.l"
 { /* do nothing */ }
     YY_BREAK
-case 13:
+case 14:
 YY_RULE_SETUP
-#line 447 "hdocprep.l"
+#line 449 "hdocprep.l"
 { fprintf(yyget_extra(yyscanner)->outfile, "%s", yytext); }
     YY_BREAK
 case YY_STATE_EOF(SCAN_STRING):
-#line 449 "hdocprep.l"
+#line 451 "hdocprep.l"
 {
                               global_state * const state = yyget_extra(yyscanner);
 
@@ -1539,26 +1550,26 @@
                             }
     YY_BREAK
 case YY_STATE_EOF(INITIAL):
-#line 473 "hdocprep.l"
+#line 475 "hdocprep.l"
 { /* end of file */
                               yyterminate();
                             }
     YY_BREAK
-case 14:
+case 15:
 YY_RULE_SETUP
-#line 477 "hdocprep.l"
+#line 479 "hdocprep.l"
 { /* .include directives must be handled here */
                               yy_push_state(INCLUDE, yyscanner);
                             }
     YY_BREAK
-case 15:
+case 16:
 YY_RULE_SETUP
-#line 481 "hdocprep.l"
+#line 483 "hdocprep.l"
 { /* skip whitespace */ }
     YY_BREAK
-case 16:
+case 17:
 YY_RULE_SETUP
-#line 483 "hdocprep.l"
+#line 485 "hdocprep.l"
 { /* include this file */
                               global_state * const state = yyget_extra(yyscanner);
 
@@ -1602,30 +1613,30 @@
                               mem_sys_free(fullpath);
                             }
     YY_BREAK
-case 17:
-/* rule 17 can match eol */
+case 18:
+/* rule 18 can match eol */
 YY_RULE_SETUP
-#line 526 "hdocprep.l"
+#line 528 "hdocprep.l"
 { /* after .include "foo.pir", go back to the state we were in */
                               yy_pop_state(yyscanner);
                             }
     YY_BREAK
-case 18:
-YY_RULE_SETUP
-#line 530 "hdocprep.l"
-{ lex_error(yyscanner, "wrong scanner state\n"); }
-    YY_BREAK
 case 19:
 YY_RULE_SETUP
 #line 532 "hdocprep.l"
-{ fprintf(yyget_extra(yyscanner)->outfile, "%s", yytext); }
+{ lex_error(yyscanner, "wrong scanner state\n"); }
     YY_BREAK
 case 20:
 YY_RULE_SETUP
 #line 534 "hdocprep.l"
+{ fprintf(yyget_extra(yyscanner)->outfile, "%s", yytext); }
+    YY_BREAK
+case 21:
+YY_RULE_SETUP
+#line 536 "hdocprep.l"
 ECHO;
     YY_BREAK
-#line 1629 "hdocprep.c"
+#line 1640 "hdocprep.c"
 case YY_STATE_EOF(INCLUDE):
 case YY_STATE_EOF(SAVE_REST_OF_LINE):
 case YY_STATE_EOF(SAVE_REST_AGAIN):
@@ -1936,7 +1947,7 @@
         while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
             {
             yy_current_state = (int) yy_def[yy_current_state];
-            if ( yy_current_state >= 118 )
+            if ( yy_current_state >= 123 )
                 yy_c = yy_meta[(unsigned int) yy_c];
             }
         yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
@@ -1970,11 +1981,11 @@
     while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
         {
         yy_current_state = (int) yy_def[yy_current_state];
-        if ( yy_current_state >= 118 )
+        if ( yy_current_state >= 123 )
             yy_c = yy_meta[(unsigned int) yy_c];
         }
     yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-    yy_is_jam = (yy_current_state == 117);
+    yy_is_jam = (yy_current_state == 122);
 
     return yy_is_jam ? 0 : yy_current_state;
 }
@@ -2878,7 +2889,7 @@
 
 /* %ok-for-header */
 
-#line 534 "hdocprep.l"
+#line 536 "hdocprep.l"
 
 
 

Modified: trunk/compilers/pirc/src/hdocprep.l
==============================================================================
--- trunk/compilers/pirc/src/hdocprep.l	(original)
+++ trunk/compilers/pirc/src/hdocprep.l	Wed Jan 21 14:44:21 2009
@@ -284,6 +284,8 @@
 
 <*>{LINECOMMENT}        { /* ignore line comments */ }
 
+<INITIAL>^"=cut"{EOL}   { /* ignore a "=cut" if it's not in a POD comment */ }
+
 <INITIAL>^"=".*{EOL}    { yy_push_state(POD, yyscanner); }
 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About