[svn:parrot] r35873 - trunk/compilers/pirc/src
[email protected] Wed, 21 Jan 2009 14:44:22 -0800 (PST)
| Newsgroups | perl.cvs.parrot |
|---|---|
| Message-ID | <[email protected]> |
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); }