42 |
#include <stdlib.h> |
#include <stdlib.h> |
43 |
#ifndef _WIN32 |
#ifndef _WIN32 |
44 |
#include <unistd.h> |
#include <unistd.h> |
45 |
|
#else |
46 |
|
#ifndef YY_ALWAYS_INTERACTIVE |
47 |
|
#ifndef YY_NEVER_INTERACTIVE |
48 |
|
extern int isatty YY_PROTO(( int )); |
49 |
|
#endif |
50 |
|
#endif |
51 |
#endif |
#endif |
52 |
|
|
53 |
/* Use prototypes in function declarations. */ |
/* Use prototypes in function declarations. */ |
715 |
|
|
716 |
static yyconst short int yy_rule_linenum[101] = |
static yyconst short int yy_rule_linenum[101] = |
717 |
{ 0, |
{ 0, |
718 |
130, 131, 132, 133, 134, 135, 136, 137, 138, 139, |
119, 120, 121, 122, 123, 124, 125, 126, 127, 128, |
719 |
140, 141, 142, 143, 144, 145, 146, 147, 148, 149, |
129, 130, 131, 132, 133, 134, 135, 136, 137, 138, |
720 |
150, 151, 152, 153, 154, 155, 156, 157, 158, 159, |
139, 140, 141, 142, 143, 144, 145, 146, 147, 148, |
721 |
160, 161, 163, 164, 165, 166, 168, 169, 170, 176, |
149, 150, 152, 153, 154, 155, 157, 158, 159, 165, |
722 |
179, 182, 185, 186, 189, 192, 195, 203, 209, 225, |
168, 171, 174, 175, 178, 181, 184, 192, 198, 214, |
723 |
226, 237, 249, 250, 251, 268, 278, 280, 300, 316, |
215, 226, 238, 239, 240, 257, 267, 269, 289, 305, |
724 |
318, 338, 350, 354, 355, 356, 357, 358, 359, 360, |
307, 327, 339, 343, 344, 345, 346, 347, 348, 349, |
725 |
361, 362, 368, 379, 385, 386, 388, 390, 408, 414, |
350, 351, 357, 368, 374, 375, 377, 379, 397, 403, |
726 |
415, 417, 419, 437, 440, 443, 444, 447, 458, 470, |
404, 406, 408, 426, 429, 432, 433, 436, 447, 459, |
727 |
472, 474, 477, 478, 481, 501, 508, 509, 510, 530 |
461, 463, 466, 467, 470, 490, 497, 498, 499, 519 |
728 |
|
|
729 |
} ; |
} ; |
730 |
|
|
843 |
#define SC_PROLOGUE 7 |
#define SC_PROLOGUE 7 |
844 |
#define SC_EPILOGUE 8 |
#define SC_EPILOGUE 8 |
845 |
|
|
846 |
#line 841 "scan-gram.c" |
#line 847 "scan-gram.c" |
847 |
|
|
848 |
/* Macros after this point can all be overridden by user definitions in |
/* Macros after this point can all be overridden by user definitions in |
849 |
* section 1. |
* section 1. |
1010 |
|
|
1011 |
/* At each yylex invocation, mark the current position as the |
/* At each yylex invocation, mark the current position as the |
1012 |
start of the next token. */ |
start of the next token. */ |
|
#define TR_POS 0 |
|
|
#if TR_POS |
|
|
fprintf (stderr, "FOO1: %p: ", yylloc); |
|
|
LOCATION_PRINT (stderr, *yylloc); |
|
|
fprintf (stderr, "\n"); |
|
|
#endif |
|
1013 |
YY_STEP; |
YY_STEP; |
|
#if TR_POS |
|
|
fprintf (stderr, "BAR1: "); |
|
|
LOCATION_PRINT (stderr, *yylloc); |
|
|
fprintf (stderr, "\n"); |
|
|
#endif |
|
1014 |
|
|
1015 |
|
|
1016 |
|
|
1017 |
/*----------------------------. |
/*----------------------------. |
1018 |
| Scanning Bison directives. | |
| Scanning Bison directives. | |
1019 |
`----------------------------*/ |
`----------------------------*/ |
1020 |
#line 1026 "scan-gram.c" |
#line 1021 "scan-gram.c" |
1021 |
|
|
1022 |
if ( yy_init ) |
if ( yy_init ) |
1023 |
{ |
{ |
1119 |
|
|
1120 |
case 1: |
case 1: |
1121 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1122 |
#line 130 "scan-gram.l" |
#line 119 "scan-gram.l" |
1123 |
return PERCENT_NONASSOC; |
return PERCENT_NONASSOC; |
1124 |
YY_BREAK |
YY_BREAK |
1125 |
case 2: |
case 2: |
1126 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1127 |
#line 131 "scan-gram.l" |
#line 120 "scan-gram.l" |
1128 |
return PERCENT_DEBUG; |
return PERCENT_DEBUG; |
1129 |
YY_BREAK |
YY_BREAK |
1130 |
case 3: |
case 3: |
1131 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1132 |
#line 132 "scan-gram.l" |
#line 121 "scan-gram.l" |
1133 |
return PERCENT_DEFINE; |
return PERCENT_DEFINE; |
1134 |
YY_BREAK |
YY_BREAK |
1135 |
case 4: |
case 4: |
1136 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1137 |
#line 133 "scan-gram.l" |
#line 122 "scan-gram.l" |
1138 |
return PERCENT_DEFINES; |
return PERCENT_DEFINES; |
1139 |
YY_BREAK |
YY_BREAK |
1140 |
case 5: |
case 5: |
1141 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1142 |
#line 134 "scan-gram.l" |
#line 123 "scan-gram.l" |
1143 |
return PERCENT_DESTRUCTOR; |
return PERCENT_DESTRUCTOR; |
1144 |
YY_BREAK |
YY_BREAK |
1145 |
case 6: |
case 6: |
1146 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1147 |
#line 135 "scan-gram.l" |
#line 124 "scan-gram.l" |
1148 |
return PERCENT_DPREC; |
return PERCENT_DPREC; |
1149 |
YY_BREAK |
YY_BREAK |
1150 |
case 7: |
case 7: |
1151 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1152 |
#line 136 "scan-gram.l" |
#line 125 "scan-gram.l" |
1153 |
return PERCENT_ERROR_VERBOSE; |
return PERCENT_ERROR_VERBOSE; |
1154 |
YY_BREAK |
YY_BREAK |
1155 |
case 8: |
case 8: |
1156 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1157 |
#line 137 "scan-gram.l" |
#line 126 "scan-gram.l" |
1158 |
return PERCENT_EXPECT; |
return PERCENT_EXPECT; |
1159 |
YY_BREAK |
YY_BREAK |
1160 |
case 9: |
case 9: |
1161 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1162 |
#line 138 "scan-gram.l" |
#line 127 "scan-gram.l" |
1163 |
return PERCENT_FILE_PREFIX; |
return PERCENT_FILE_PREFIX; |
1164 |
YY_BREAK |
YY_BREAK |
1165 |
case 10: |
case 10: |
1166 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1167 |
#line 139 "scan-gram.l" |
#line 128 "scan-gram.l" |
1168 |
return PERCENT_YACC; |
return PERCENT_YACC; |
1169 |
YY_BREAK |
YY_BREAK |
1170 |
case 11: |
case 11: |
1171 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1172 |
#line 140 "scan-gram.l" |
#line 129 "scan-gram.l" |
1173 |
return PERCENT_GLR_PARSER; |
return PERCENT_GLR_PARSER; |
1174 |
YY_BREAK |
YY_BREAK |
1175 |
case 12: |
case 12: |
1176 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1177 |
#line 141 "scan-gram.l" |
#line 130 "scan-gram.l" |
1178 |
return PERCENT_LEFT; |
return PERCENT_LEFT; |
1179 |
YY_BREAK |
YY_BREAK |
1180 |
case 13: |
case 13: |
1181 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1182 |
#line 142 "scan-gram.l" |
#line 131 "scan-gram.l" |
1183 |
return PERCENT_LOCATIONS; |
return PERCENT_LOCATIONS; |
1184 |
YY_BREAK |
YY_BREAK |
1185 |
case 14: |
case 14: |
1186 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1187 |
#line 143 "scan-gram.l" |
#line 132 "scan-gram.l" |
1188 |
return PERCENT_MERGE; |
return PERCENT_MERGE; |
1189 |
YY_BREAK |
YY_BREAK |
1190 |
case 15: |
case 15: |
1191 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1192 |
#line 144 "scan-gram.l" |
#line 133 "scan-gram.l" |
1193 |
return PERCENT_NAME_PREFIX; |
return PERCENT_NAME_PREFIX; |
1194 |
YY_BREAK |
YY_BREAK |
1195 |
case 16: |
case 16: |
1196 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1197 |
#line 145 "scan-gram.l" |
#line 134 "scan-gram.l" |
1198 |
return PERCENT_NO_LINES; |
return PERCENT_NO_LINES; |
1199 |
YY_BREAK |
YY_BREAK |
1200 |
case 17: |
case 17: |
1201 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1202 |
#line 146 "scan-gram.l" |
#line 135 "scan-gram.l" |
1203 |
return PERCENT_NONASSOC; |
return PERCENT_NONASSOC; |
1204 |
YY_BREAK |
YY_BREAK |
1205 |
case 18: |
case 18: |
1206 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1207 |
#line 147 "scan-gram.l" |
#line 136 "scan-gram.l" |
1208 |
return PERCENT_NTERM; |
return PERCENT_NTERM; |
1209 |
YY_BREAK |
YY_BREAK |
1210 |
case 19: |
case 19: |
1211 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1212 |
#line 148 "scan-gram.l" |
#line 137 "scan-gram.l" |
1213 |
return PERCENT_OUTPUT; |
return PERCENT_OUTPUT; |
1214 |
YY_BREAK |
YY_BREAK |
1215 |
case 20: |
case 20: |
1216 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1217 |
#line 149 "scan-gram.l" |
#line 138 "scan-gram.l" |
1218 |
{ rule_length--; return PERCENT_PREC; } |
{ rule_length--; return PERCENT_PREC; } |
1219 |
YY_BREAK |
YY_BREAK |
1220 |
case 21: |
case 21: |
1221 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1222 |
#line 150 "scan-gram.l" |
#line 139 "scan-gram.l" |
1223 |
return PERCENT_PRINTER; |
return PERCENT_PRINTER; |
1224 |
YY_BREAK |
YY_BREAK |
1225 |
case 22: |
case 22: |
1226 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1227 |
#line 151 "scan-gram.l" |
#line 140 "scan-gram.l" |
1228 |
return PERCENT_PURE_PARSER; |
return PERCENT_PURE_PARSER; |
1229 |
YY_BREAK |
YY_BREAK |
1230 |
case 23: |
case 23: |
1231 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1232 |
#line 152 "scan-gram.l" |
#line 141 "scan-gram.l" |
1233 |
return PERCENT_RIGHT; |
return PERCENT_RIGHT; |
1234 |
YY_BREAK |
YY_BREAK |
1235 |
case 24: |
case 24: |
1236 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1237 |
#line 153 "scan-gram.l" |
#line 142 "scan-gram.l" |
1238 |
return PERCENT_SKELETON; |
return PERCENT_SKELETON; |
1239 |
YY_BREAK |
YY_BREAK |
1240 |
case 25: |
case 25: |
1241 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1242 |
#line 154 "scan-gram.l" |
#line 143 "scan-gram.l" |
1243 |
return PERCENT_START; |
return PERCENT_START; |
1244 |
YY_BREAK |
YY_BREAK |
1245 |
case 26: |
case 26: |
1246 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1247 |
#line 155 "scan-gram.l" |
#line 144 "scan-gram.l" |
1248 |
return PERCENT_TOKEN; |
return PERCENT_TOKEN; |
1249 |
YY_BREAK |
YY_BREAK |
1250 |
case 27: |
case 27: |
1251 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1252 |
#line 156 "scan-gram.l" |
#line 145 "scan-gram.l" |
1253 |
return PERCENT_TOKEN; |
return PERCENT_TOKEN; |
1254 |
YY_BREAK |
YY_BREAK |
1255 |
case 28: |
case 28: |
1256 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1257 |
#line 157 "scan-gram.l" |
#line 146 "scan-gram.l" |
1258 |
return PERCENT_TOKEN_TABLE; |
return PERCENT_TOKEN_TABLE; |
1259 |
YY_BREAK |
YY_BREAK |
1260 |
case 29: |
case 29: |
1261 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1262 |
#line 158 "scan-gram.l" |
#line 147 "scan-gram.l" |
1263 |
return PERCENT_TYPE; |
return PERCENT_TYPE; |
1264 |
YY_BREAK |
YY_BREAK |
1265 |
case 30: |
case 30: |
1266 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1267 |
#line 159 "scan-gram.l" |
#line 148 "scan-gram.l" |
1268 |
return PERCENT_UNION; |
return PERCENT_UNION; |
1269 |
YY_BREAK |
YY_BREAK |
1270 |
case 31: |
case 31: |
1271 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1272 |
#line 160 "scan-gram.l" |
#line 149 "scan-gram.l" |
1273 |
return PERCENT_VERBOSE; |
return PERCENT_VERBOSE; |
1274 |
YY_BREAK |
YY_BREAK |
1275 |
case 32: |
case 32: |
1276 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1277 |
#line 161 "scan-gram.l" |
#line 150 "scan-gram.l" |
1278 |
return PERCENT_YACC; |
return PERCENT_YACC; |
1279 |
YY_BREAK |
YY_BREAK |
1280 |
case 33: |
case 33: |
1281 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1282 |
#line 163 "scan-gram.l" |
#line 152 "scan-gram.l" |
1283 |
return EQUAL; |
return EQUAL; |
1284 |
YY_BREAK |
YY_BREAK |
1285 |
case 34: |
case 34: |
1286 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1287 |
#line 164 "scan-gram.l" |
#line 153 "scan-gram.l" |
1288 |
{ rule_length = 0; return COLON; } |
{ rule_length = 0; return COLON; } |
1289 |
YY_BREAK |
YY_BREAK |
1290 |
case 35: |
case 35: |
1291 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1292 |
#line 165 "scan-gram.l" |
#line 154 "scan-gram.l" |
1293 |
{ rule_length = 0; return PIPE; } |
{ rule_length = 0; return PIPE; } |
1294 |
YY_BREAK |
YY_BREAK |
1295 |
case 36: |
case 36: |
1296 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1297 |
#line 166 "scan-gram.l" |
#line 155 "scan-gram.l" |
1298 |
return SEMICOLON; |
return SEMICOLON; |
1299 |
YY_BREAK |
YY_BREAK |
1300 |
case 37: |
case 37: |
1301 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1302 |
#line 168 "scan-gram.l" |
#line 157 "scan-gram.l" |
1303 |
YY_LINES; YY_STEP; |
YY_LINES; YY_STEP; |
1304 |
YY_BREAK |
YY_BREAK |
1305 |
case 38: |
case 38: |
1306 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1307 |
#line 169 "scan-gram.l" |
#line 158 "scan-gram.l" |
1308 |
YY_STEP; |
YY_STEP; |
1309 |
YY_BREAK |
YY_BREAK |
1310 |
case 39: |
case 39: |
1311 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1312 |
#line 170 "scan-gram.l" |
#line 159 "scan-gram.l" |
1313 |
{ |
{ |
1314 |
yylval->symbol = symbol_get (yytext, *yylloc); |
yylval->symbol = symbol_get (yytext, *yylloc); |
1315 |
rule_length++; |
rule_length++; |
1318 |
YY_BREAK |
YY_BREAK |
1319 |
case 40: |
case 40: |
1320 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1321 |
#line 176 "scan-gram.l" |
#line 165 "scan-gram.l" |
1322 |
yylval->integer = strtol (yytext, 0, 10); return INT; |
yylval->integer = strtol (yytext, 0, 10); return INT; |
1323 |
YY_BREAK |
YY_BREAK |
1324 |
/* Characters. We don't check there is only one. */ |
/* Characters. We don't check there is only one. */ |
1325 |
case 41: |
case 41: |
1326 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1327 |
#line 179 "scan-gram.l" |
#line 168 "scan-gram.l" |
1328 |
YY_OBS_GROW; yy_push_state (SC_ESCAPED_CHARACTER); |
YY_OBS_GROW; yy_push_state (SC_ESCAPED_CHARACTER); |
1329 |
YY_BREAK |
YY_BREAK |
1330 |
/* Strings. */ |
/* Strings. */ |
1331 |
case 42: |
case 42: |
1332 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1333 |
#line 182 "scan-gram.l" |
#line 171 "scan-gram.l" |
1334 |
YY_OBS_GROW; yy_push_state (SC_ESCAPED_STRING); |
YY_OBS_GROW; yy_push_state (SC_ESCAPED_STRING); |
1335 |
YY_BREAK |
YY_BREAK |
1336 |
/* Comments. */ |
/* Comments. */ |
1337 |
case 43: |
case 43: |
1338 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1339 |
#line 185 "scan-gram.l" |
#line 174 "scan-gram.l" |
1340 |
yy_push_state (SC_COMMENT); |
yy_push_state (SC_COMMENT); |
1341 |
YY_BREAK |
YY_BREAK |
1342 |
case 44: |
case 44: |
1343 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1344 |
#line 186 "scan-gram.l" |
#line 175 "scan-gram.l" |
1345 |
YY_STEP; |
YY_STEP; |
1346 |
YY_BREAK |
YY_BREAK |
1347 |
/* Prologue. */ |
/* Prologue. */ |
1348 |
case 45: |
case 45: |
1349 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1350 |
#line 189 "scan-gram.l" |
#line 178 "scan-gram.l" |
1351 |
yy_push_state (SC_PROLOGUE); |
yy_push_state (SC_PROLOGUE); |
1352 |
YY_BREAK |
YY_BREAK |
1353 |
/* Code in between braces. */ |
/* Code in between braces. */ |
1354 |
case 46: |
case 46: |
1355 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1356 |
#line 192 "scan-gram.l" |
#line 181 "scan-gram.l" |
1357 |
YY_OBS_GROW; ++braces_level; yy_push_state (SC_BRACED_CODE); |
YY_OBS_GROW; ++braces_level; yy_push_state (SC_BRACED_CODE); |
1358 |
YY_BREAK |
YY_BREAK |
1359 |
/* A type. */ |
/* A type. */ |
1360 |
case 47: |
case 47: |
1361 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1362 |
#line 195 "scan-gram.l" |
#line 184 "scan-gram.l" |
1363 |
{ |
{ |
1364 |
obstack_grow (&string_obstack, yytext + 1, yyleng - 2); |
obstack_grow (&string_obstack, yytext + 1, yyleng - 2); |
1365 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1369 |
YY_BREAK |
YY_BREAK |
1370 |
case 48: |
case 48: |
1371 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1372 |
#line 203 "scan-gram.l" |
#line 192 "scan-gram.l" |
1373 |
{ |
{ |
1374 |
if (++percent_percent_count == 2) |
if (++percent_percent_count == 2) |
1375 |
yy_push_state (SC_EPILOGUE); |
yy_push_state (SC_EPILOGUE); |
1378 |
YY_BREAK |
YY_BREAK |
1379 |
case 49: |
case 49: |
1380 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1381 |
#line 209 "scan-gram.l" |
#line 198 "scan-gram.l" |
1382 |
{ |
{ |
1383 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1384 |
fprintf (stderr, _(": invalid character: `%c'\n"), *yytext); |
fprintf (stderr, _(": invalid character: `%c'\n"), *yytext); |
1395 |
|
|
1396 |
case 50: |
case 50: |
1397 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1398 |
#line 225 "scan-gram.l" |
#line 214 "scan-gram.l" |
1399 |
if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@<:@"); |
if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@<:@"); |
1400 |
YY_BREAK |
YY_BREAK |
1401 |
case 51: |
case 51: |
1402 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1403 |
#line 226 "scan-gram.l" |
#line 215 "scan-gram.l" |
1404 |
if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@:>@"); |
if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@:>@"); |
1405 |
YY_BREAK |
YY_BREAK |
1406 |
|
|
1411 |
|
|
1412 |
case 52: |
case 52: |
1413 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1414 |
#line 237 "scan-gram.l" |
#line 226 "scan-gram.l" |
1415 |
{ /* End of the comment. */ |
{ /* End of the comment. */ |
1416 |
if (yy_top_state () == INITIAL) |
if (yy_top_state () == INITIAL) |
1417 |
{ |
{ |
1426 |
YY_BREAK |
YY_BREAK |
1427 |
case 53: |
case 53: |
1428 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1429 |
#line 249 "scan-gram.l" |
#line 238 "scan-gram.l" |
1430 |
if (yy_top_state () != INITIAL) YY_OBS_GROW; |
if (yy_top_state () != INITIAL) YY_OBS_GROW; |
1431 |
YY_BREAK |
YY_BREAK |
1432 |
case 54: |
case 54: |
1433 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1434 |
#line 250 "scan-gram.l" |
#line 239 "scan-gram.l" |
1435 |
if (yy_top_state () != INITIAL) YY_OBS_GROW; YY_LINES; |
if (yy_top_state () != INITIAL) YY_OBS_GROW; YY_LINES; |
1436 |
YY_BREAK |
YY_BREAK |
1437 |
case 55: |
case 55: |
1438 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1439 |
#line 251 "scan-gram.l" |
#line 240 "scan-gram.l" |
1440 |
/* Stray `*'. */if (yy_top_state () != INITIAL) YY_OBS_GROW; |
/* Stray `*'. */if (yy_top_state () != INITIAL) YY_OBS_GROW; |
1441 |
YY_BREAK |
YY_BREAK |
1442 |
case YY_STATE_EOF(SC_COMMENT): |
case YY_STATE_EOF(SC_COMMENT): |
1443 |
#line 253 "scan-gram.l" |
#line 242 "scan-gram.l" |
1444 |
{ |
{ |
1445 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1446 |
fprintf (stderr, _(": unexpected end of file in a comment\n")); |
fprintf (stderr, _(": unexpected end of file in a comment\n")); |
1456 |
|
|
1457 |
case 56: |
case 56: |
1458 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1459 |
#line 268 "scan-gram.l" |
#line 257 "scan-gram.l" |
1460 |
{ |
{ |
1461 |
assert (yy_top_state () == INITIAL); |
assert (yy_top_state () == INITIAL); |
1462 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1469 |
YY_BREAK |
YY_BREAK |
1470 |
case 57: |
case 57: |
1471 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1472 |
#line 278 "scan-gram.l" |
#line 267 "scan-gram.l" |
1473 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1474 |
YY_BREAK |
YY_BREAK |
1475 |
case 58: |
case 58: |
1476 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1477 |
#line 280 "scan-gram.l" |
#line 269 "scan-gram.l" |
1478 |
obstack_1grow (&string_obstack, '\n'); YY_LINES; |
obstack_1grow (&string_obstack, '\n'); YY_LINES; |
1479 |
YY_BREAK |
YY_BREAK |
1480 |
case YY_STATE_EOF(SC_ESCAPED_STRING): |
case YY_STATE_EOF(SC_ESCAPED_STRING): |
1481 |
#line 282 "scan-gram.l" |
#line 271 "scan-gram.l" |
1482 |
{ |
{ |
1483 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1484 |
fprintf (stderr, _(": unexpected end of file in a string\n")); |
fprintf (stderr, _(": unexpected end of file in a string\n")); |
1498 |
|
|
1499 |
case 59: |
case 59: |
1500 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1501 |
#line 300 "scan-gram.l" |
#line 289 "scan-gram.l" |
1502 |
{ |
{ |
1503 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1504 |
assert (yy_top_state () == INITIAL); |
assert (yy_top_state () == INITIAL); |
1517 |
YY_BREAK |
YY_BREAK |
1518 |
case 60: |
case 60: |
1519 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1520 |
#line 316 "scan-gram.l" |
#line 305 "scan-gram.l" |
1521 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1522 |
YY_BREAK |
YY_BREAK |
1523 |
case 61: |
case 61: |
1524 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1525 |
#line 318 "scan-gram.l" |
#line 307 "scan-gram.l" |
1526 |
obstack_1grow (&string_obstack, '\n'); YY_LINES; |
obstack_1grow (&string_obstack, '\n'); YY_LINES; |
1527 |
YY_BREAK |
YY_BREAK |
1528 |
case YY_STATE_EOF(SC_ESCAPED_CHARACTER): |
case YY_STATE_EOF(SC_ESCAPED_CHARACTER): |
1529 |
#line 320 "scan-gram.l" |
#line 309 "scan-gram.l" |
1530 |
{ |
{ |
1531 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1532 |
fprintf (stderr, _(": unexpected end of file in a character\n")); |
fprintf (stderr, _(": unexpected end of file in a character\n")); |
1545 |
|
|
1546 |
case 62: |
case 62: |
1547 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1548 |
#line 338 "scan-gram.l" |
#line 327 "scan-gram.l" |
1549 |
{ |
{ |
1550 |
long c = strtol (yytext + 1, 0, 8); |
long c = strtol (yytext + 1, 0, 8); |
1551 |
if (c > 255) |
if (c > 255) |
1560 |
YY_BREAK |
YY_BREAK |
1561 |
case 63: |
case 63: |
1562 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1563 |
#line 350 "scan-gram.l" |
#line 339 "scan-gram.l" |
1564 |
{ |
{ |
1565 |
obstack_1grow (&string_obstack, strtol (yytext + 2, 0, 16)); |
obstack_1grow (&string_obstack, strtol (yytext + 2, 0, 16)); |
1566 |
} |
} |
1567 |
YY_BREAK |
YY_BREAK |
1568 |
case 64: |
case 64: |
1569 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1570 |
#line 354 "scan-gram.l" |
#line 343 "scan-gram.l" |
1571 |
obstack_1grow (&string_obstack, '\a'); |
obstack_1grow (&string_obstack, '\a'); |
1572 |
YY_BREAK |
YY_BREAK |
1573 |
case 65: |
case 65: |
1574 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1575 |
#line 355 "scan-gram.l" |
#line 344 "scan-gram.l" |
1576 |
obstack_1grow (&string_obstack, '\b'); |
obstack_1grow (&string_obstack, '\b'); |
1577 |
YY_BREAK |
YY_BREAK |
1578 |
case 66: |
case 66: |
1579 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1580 |
#line 356 "scan-gram.l" |
#line 345 "scan-gram.l" |
1581 |
obstack_1grow (&string_obstack, '\f'); |
obstack_1grow (&string_obstack, '\f'); |
1582 |
YY_BREAK |
YY_BREAK |
1583 |
case 67: |
case 67: |
1584 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1585 |
#line 357 "scan-gram.l" |
#line 346 "scan-gram.l" |
1586 |
obstack_1grow (&string_obstack, '\n'); |
obstack_1grow (&string_obstack, '\n'); |
1587 |
YY_BREAK |
YY_BREAK |
1588 |
case 68: |
case 68: |
1589 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1590 |
#line 358 "scan-gram.l" |
#line 347 "scan-gram.l" |
1591 |
obstack_1grow (&string_obstack, '\r'); |
obstack_1grow (&string_obstack, '\r'); |
1592 |
YY_BREAK |
YY_BREAK |
1593 |
case 69: |
case 69: |
1594 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1595 |
#line 359 "scan-gram.l" |
#line 348 "scan-gram.l" |
1596 |
obstack_1grow (&string_obstack, '\t'); |
obstack_1grow (&string_obstack, '\t'); |
1597 |
YY_BREAK |
YY_BREAK |
1598 |
case 70: |
case 70: |
1599 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1600 |
#line 360 "scan-gram.l" |
#line 349 "scan-gram.l" |
1601 |
obstack_1grow (&string_obstack, '\v'); |
obstack_1grow (&string_obstack, '\v'); |
1602 |
YY_BREAK |
YY_BREAK |
1603 |
case 71: |
case 71: |
1604 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1605 |
#line 361 "scan-gram.l" |
#line 350 "scan-gram.l" |
1606 |
obstack_1grow (&string_obstack, yytext[1]); |
obstack_1grow (&string_obstack, yytext[1]); |
1607 |
YY_BREAK |
YY_BREAK |
1608 |
case 72: |
case 72: |
1609 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1610 |
#line 362 "scan-gram.l" |
#line 351 "scan-gram.l" |
1611 |
{ |
{ |
1612 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1613 |
fprintf (stderr, _(": unrecognized escape: %s\n"), quote (yytext)); |
fprintf (stderr, _(": unrecognized escape: %s\n"), quote (yytext)); |
1617 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1618 |
case 73: |
case 73: |
1619 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1620 |
#line 368 "scan-gram.l" |
#line 357 "scan-gram.l" |
1621 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1622 |
YY_BREAK |
YY_BREAK |
1623 |
|
|
1629 |
|
|
1630 |
case 74: |
case 74: |
1631 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1632 |
#line 379 "scan-gram.l" |
#line 368 "scan-gram.l" |
1633 |
{ |
{ |
1634 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1635 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1638 |
YY_BREAK |
YY_BREAK |
1639 |
case 75: |
case 75: |
1640 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1641 |
#line 385 "scan-gram.l" |
#line 374 "scan-gram.l" |
1642 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1643 |
YY_BREAK |
YY_BREAK |
1644 |
case 76: |
case 76: |
1645 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1646 |
#line 386 "scan-gram.l" |
#line 375 "scan-gram.l" |
1647 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1648 |
YY_BREAK |
YY_BREAK |
1649 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1650 |
case 77: |
case 77: |
1651 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1652 |
#line 388 "scan-gram.l" |
#line 377 "scan-gram.l" |
1653 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1654 |
YY_BREAK |
YY_BREAK |
1655 |
case 78: |
case 78: |
1656 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1657 |
#line 390 "scan-gram.l" |
#line 379 "scan-gram.l" |
1658 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1659 |
YY_BREAK |
YY_BREAK |
1660 |
case YY_STATE_EOF(SC_CHARACTER): |
case YY_STATE_EOF(SC_CHARACTER): |
1661 |
#line 392 "scan-gram.l" |
#line 381 "scan-gram.l" |
1662 |
{ |
{ |
1663 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1664 |
fprintf (stderr, _(": unexpected end of file in a character\n")); |
fprintf (stderr, _(": unexpected end of file in a character\n")); |
1675 |
|
|
1676 |
case 79: |
case 79: |
1677 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1678 |
#line 408 "scan-gram.l" |
#line 397 "scan-gram.l" |
1679 |
{ |
{ |
1680 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1681 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1684 |
YY_BREAK |
YY_BREAK |
1685 |
case 80: |
case 80: |
1686 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1687 |
#line 414 "scan-gram.l" |
#line 403 "scan-gram.l" |
1688 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1689 |
YY_BREAK |
YY_BREAK |
1690 |
case 81: |
case 81: |
1691 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1692 |
#line 415 "scan-gram.l" |
#line 404 "scan-gram.l" |
1693 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1694 |
YY_BREAK |
YY_BREAK |
1695 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1696 |
case 82: |
case 82: |
1697 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1698 |
#line 417 "scan-gram.l" |
#line 406 "scan-gram.l" |
1699 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1700 |
YY_BREAK |
YY_BREAK |
1701 |
case 83: |
case 83: |
1702 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1703 |
#line 419 "scan-gram.l" |
#line 408 "scan-gram.l" |
1704 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1705 |
YY_BREAK |
YY_BREAK |
1706 |
case YY_STATE_EOF(SC_STRING): |
case YY_STATE_EOF(SC_STRING): |
1707 |
#line 421 "scan-gram.l" |
#line 410 "scan-gram.l" |
1708 |
{ |
{ |
1709 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1710 |
fprintf (stderr, _(": unexpected end of file in a string\n")); |
fprintf (stderr, _(": unexpected end of file in a string\n")); |
1721 |
/* Characters. We don't check there is only one. */ |
/* Characters. We don't check there is only one. */ |
1722 |
case 84: |
case 84: |
1723 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1724 |
#line 437 "scan-gram.l" |
#line 426 "scan-gram.l" |
1725 |
YY_OBS_GROW; yy_push_state (SC_CHARACTER); |
YY_OBS_GROW; yy_push_state (SC_CHARACTER); |
1726 |
YY_BREAK |
YY_BREAK |
1727 |
/* Strings. */ |
/* Strings. */ |
1728 |
case 85: |
case 85: |
1729 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1730 |
#line 440 "scan-gram.l" |
#line 429 "scan-gram.l" |
1731 |
YY_OBS_GROW; yy_push_state (SC_STRING); |
YY_OBS_GROW; yy_push_state (SC_STRING); |
1732 |
YY_BREAK |
YY_BREAK |
1733 |
/* Comments. */ |
/* Comments. */ |
1734 |
case 86: |
case 86: |
1735 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1736 |
#line 443 "scan-gram.l" |
#line 432 "scan-gram.l" |
1737 |
YY_OBS_GROW; yy_push_state (SC_COMMENT); |
YY_OBS_GROW; yy_push_state (SC_COMMENT); |
1738 |
YY_BREAK |
YY_BREAK |
1739 |
case 87: |
case 87: |
1740 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1741 |
#line 444 "scan-gram.l" |
#line 433 "scan-gram.l" |
1742 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1743 |
YY_BREAK |
YY_BREAK |
1744 |
/* Not comments. */ |
/* Not comments. */ |
1745 |
case 88: |
case 88: |
1746 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1747 |
#line 447 "scan-gram.l" |
#line 436 "scan-gram.l" |
1748 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1749 |
YY_BREAK |
YY_BREAK |
1750 |
|
|
1756 |
|
|
1757 |
case 89: |
case 89: |
1758 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1759 |
#line 458 "scan-gram.l" |
#line 447 "scan-gram.l" |
1760 |
{ |
{ |
1761 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1762 |
if (--braces_level == 0) |
if (--braces_level == 0) |
1771 |
YY_BREAK |
YY_BREAK |
1772 |
case 90: |
case 90: |
1773 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1774 |
#line 470 "scan-gram.l" |
#line 459 "scan-gram.l" |
1775 |
YY_OBS_GROW; braces_level++; |
YY_OBS_GROW; braces_level++; |
1776 |
YY_BREAK |
YY_BREAK |
1777 |
case 91: |
case 91: |
1778 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1779 |
#line 472 "scan-gram.l" |
#line 461 "scan-gram.l" |
1780 |
{ handle_dollar (current_braced_code, |
{ handle_dollar (current_braced_code, |
1781 |
yytext, *yylloc); } |
yytext, *yylloc); } |
1782 |
YY_BREAK |
YY_BREAK |
1783 |
case 92: |
case 92: |
1784 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1785 |
#line 474 "scan-gram.l" |
#line 463 "scan-gram.l" |
1786 |
{ handle_at (current_braced_code, |
{ handle_at (current_braced_code, |
1787 |
yytext, *yylloc); } |
yytext, *yylloc); } |
1788 |
YY_BREAK |
YY_BREAK |
1789 |
case 93: |
case 93: |
1790 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1791 |
#line 477 "scan-gram.l" |
#line 466 "scan-gram.l" |
1792 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1793 |
YY_BREAK |
YY_BREAK |
1794 |
case 94: |
case 94: |
1795 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1796 |
#line 478 "scan-gram.l" |
#line 467 "scan-gram.l" |
1797 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1798 |
YY_BREAK |
YY_BREAK |
1799 |
/* A lose $, or /, or etc. */ |
/* A lose $, or /, or etc. */ |
1800 |
case 95: |
case 95: |
1801 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1802 |
#line 481 "scan-gram.l" |
#line 470 "scan-gram.l" |
1803 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1804 |
YY_BREAK |
YY_BREAK |
1805 |
case YY_STATE_EOF(SC_BRACED_CODE): |
case YY_STATE_EOF(SC_BRACED_CODE): |
1806 |
#line 483 "scan-gram.l" |
#line 472 "scan-gram.l" |
1807 |
{ |
{ |
1808 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1809 |
fprintf (stderr, _(": unexpected end of file in a braced code\n")); |
fprintf (stderr, _(": unexpected end of file in a braced code\n")); |
1821 |
|
|
1822 |
case 96: |
case 96: |
1823 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1824 |
#line 501 "scan-gram.l" |
#line 490 "scan-gram.l" |
1825 |
{ |
{ |
1826 |
yy_pop_state (); |
yy_pop_state (); |
1827 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1831 |
YY_BREAK |
YY_BREAK |
1832 |
case 97: |
case 97: |
1833 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1834 |
#line 508 "scan-gram.l" |
#line 497 "scan-gram.l" |
1835 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1836 |
YY_BREAK |
YY_BREAK |
1837 |
case 98: |
case 98: |
1838 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1839 |
#line 509 "scan-gram.l" |
#line 498 "scan-gram.l" |
1840 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1841 |
YY_BREAK |
YY_BREAK |
1842 |
case 99: |
case 99: |
1843 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1844 |
#line 510 "scan-gram.l" |
#line 499 "scan-gram.l" |
1845 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1846 |
YY_BREAK |
YY_BREAK |
1847 |
case YY_STATE_EOF(SC_PROLOGUE): |
case YY_STATE_EOF(SC_PROLOGUE): |
1848 |
#line 512 "scan-gram.l" |
#line 501 "scan-gram.l" |
1849 |
{ |
{ |
1850 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1851 |
fprintf (stderr, _(": unexpected end of file in a prologue\n")); |
fprintf (stderr, _(": unexpected end of file in a prologue\n")); |
1864 |
|
|
1865 |
case 100: |
case 100: |
1866 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1867 |
#line 530 "scan-gram.l" |
#line 519 "scan-gram.l" |
1868 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1869 |
YY_BREAK |
YY_BREAK |
1870 |
case YY_STATE_EOF(SC_EPILOGUE): |
case YY_STATE_EOF(SC_EPILOGUE): |
1871 |
#line 532 "scan-gram.l" |
#line 521 "scan-gram.l" |
1872 |
{ |
{ |
1873 |
yy_pop_state (); |
yy_pop_state (); |
1874 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1879 |
|
|
1880 |
case 101: |
case 101: |
1881 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1882 |
#line 541 "scan-gram.l" |
#line 530 "scan-gram.l" |
1883 |
YY_FATAL_ERROR( "flex scanner jammed" ); |
YY_FATAL_ERROR( "flex scanner jammed" ); |
1884 |
YY_BREAK |
YY_BREAK |
1885 |
#line 1891 "scan-gram.c" |
#line 1886 "scan-gram.c" |
1886 |
case YY_STATE_EOF(INITIAL): |
case YY_STATE_EOF(INITIAL): |
1887 |
yyterminate(); |
yyterminate(); |
1888 |
|
|
2772 |
return 0; |
return 0; |
2773 |
} |
} |
2774 |
#endif |
#endif |
2775 |
#line 541 "scan-gram.l" |
#line 530 "scan-gram.l" |
2776 |
|
|
2777 |
|
|
2778 |
/*------------------------------------------------------------------. |
/*------------------------------------------------------------------. |