42 |
#include <stdlib.h> |
#include <stdlib.h> |
43 |
#ifndef _WIN32 |
#ifndef _WIN32 |
44 |
#include <unistd.h> |
#include <unistd.h> |
|
#else |
|
|
#ifndef YY_ALWAYS_INTERACTIVE |
|
|
#ifndef YY_NEVER_INTERACTIVE |
|
|
extern int isatty YY_PROTO(( int )); |
|
|
#endif |
|
|
#endif |
|
45 |
#endif |
#endif |
46 |
|
|
47 |
/* Use prototypes in function declarations. */ |
/* Use prototypes in function declarations. */ |
712 |
235, 236, 237, 238, 239, 240, 241, 242, 243, 244, |
235, 236, 237, 238, 239, 240, 241, 242, 243, 244, |
713 |
245, 246, 247, 248, 250, 251, 252, 253, 254, 256, |
245, 246, 247, 248, 250, 251, 252, 253, 254, 256, |
714 |
258, 264, 278, 281, 284, 285, 288, 291, 294, 302, |
258, 264, 278, 281, 284, 285, 288, 291, 294, 302, |
715 |
308, 324, 325, 335, 340, 356, 357, 373, 374, 386, |
308, 323, 324, 334, 339, 354, 355, 370, 371, 383, |
716 |
396, 416, 432, 452, 464, 478, 479, 480, 481, 482, |
393, 412, 428, 447, 458, 471, 472, 473, 474, 475, |
717 |
483, 484, 485, 486, 497, 503, 514, 520, 521, 522, |
476, 477, 478, 479, 489, 494, 505, 511, 512, 513, |
718 |
524, 542, 548, 549, 550, 552, 570, 573, 576, 577, |
515, 532, 538, 539, 540, 542, 559, 562, 565, 566, |
719 |
580, 591, 603, 605, 607, 610, 613, 633, 640, 641, |
569, 580, 592, 594, 596, 599, 602, 621, 628, 629, |
720 |
|
|
721 |
661 |
648 |
722 |
} ; |
} ; |
723 |
|
|
724 |
/* The intent behind this definition is that it'll catch |
/* The intent behind this definition is that it'll catch |
931 |
NUL and newline, as this simplifies our implementation. */ |
NUL and newline, as this simplifies our implementation. */ |
932 |
/* Zero or more instances of backslash-newline. Following GCC, allow |
/* Zero or more instances of backslash-newline. Following GCC, allow |
933 |
white space between the backslash and the newline. */ |
white space between the backslash and the newline. */ |
934 |
#line 941 "scan-gram.c" |
#line 935 "scan-gram.c" |
935 |
|
|
936 |
/* Macros after this point can all be overridden by user definitions in |
/* Macros after this point can all be overridden by user definitions in |
937 |
* section 1. |
* section 1. |
1105 |
/*----------------------------. |
/*----------------------------. |
1106 |
| Scanning Bison directives. | |
| Scanning Bison directives. | |
1107 |
`----------------------------*/ |
`----------------------------*/ |
1108 |
#line 1115 "scan-gram.c" |
#line 1109 "scan-gram.c" |
1109 |
|
|
1110 |
if ( yy_init ) |
if ( yy_init ) |
1111 |
{ |
{ |
1423 |
num = strtoul (yytext, 0, 10); |
num = strtoul (yytext, 0, 10); |
1424 |
if (INT_MAX < num || errno) |
if (INT_MAX < num || errno) |
1425 |
{ |
{ |
1426 |
complain_at (*yylloc, _("%s is invalid"), yytext); |
complain_at (*yylloc, _("invalid value: %s"), quote (yytext)); |
1427 |
num = INT_MAX; |
num = INT_MAX; |
1428 |
} |
} |
1429 |
yylval->integer = num; |
yylval->integer = num; |
1489 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1490 |
#line 308 "scan-gram.l" |
#line 308 "scan-gram.l" |
1491 |
{ |
{ |
1492 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("invalid character: %s"), quote (yytext)); |
|
fprintf (stderr, _(": invalid character: `%c'\n"), *yytext); |
|
1493 |
YY_STEP; |
YY_STEP; |
1494 |
} |
} |
1495 |
YY_BREAK |
YY_BREAK |
1503 |
|
|
1504 |
case 52: |
case 52: |
1505 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1506 |
#line 324 "scan-gram.l" |
#line 323 "scan-gram.l" |
1507 |
obstack_sgrow (&string_obstack, "@<:@"); |
obstack_sgrow (&string_obstack, "@<:@"); |
1508 |
YY_BREAK |
YY_BREAK |
1509 |
case 53: |
case 53: |
1510 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1511 |
#line 325 "scan-gram.l" |
#line 324 "scan-gram.l" |
1512 |
obstack_sgrow (&string_obstack, "@:>@"); |
obstack_sgrow (&string_obstack, "@:>@"); |
1513 |
YY_BREAK |
YY_BREAK |
1514 |
|
|
1519 |
|
|
1520 |
case 54: |
case 54: |
1521 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1522 |
#line 335 "scan-gram.l" |
#line 334 "scan-gram.l" |
1523 |
{ |
{ |
1524 |
YY_STEP; |
YY_STEP; |
1525 |
BEGIN INITIAL; |
BEGIN INITIAL; |
1527 |
YY_BREAK |
YY_BREAK |
1528 |
case 55: |
case 55: |
1529 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1530 |
#line 340 "scan-gram.l" |
#line 339 "scan-gram.l" |
1531 |
; |
; |
1532 |
YY_BREAK |
YY_BREAK |
1533 |
case YY_STATE_EOF(SC_YACC_COMMENT): |
case YY_STATE_EOF(SC_YACC_COMMENT): |
1534 |
#line 342 "scan-gram.l" |
#line 341 "scan-gram.l" |
1535 |
{ |
{ |
1536 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a comment")); |
|
fprintf (stderr, _(": unexpected end of file in a comment\n")); |
|
1537 |
BEGIN INITIAL; |
BEGIN INITIAL; |
1538 |
} |
} |
1539 |
YY_BREAK |
YY_BREAK |
1545 |
|
|
1546 |
case 56: |
case 56: |
1547 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1548 |
#line 356 "scan-gram.l" |
#line 354 "scan-gram.l" |
1549 |
YY_OBS_GROW; yy_pop_state (); |
YY_OBS_GROW; yy_pop_state (); |
1550 |
YY_BREAK |
YY_BREAK |
1551 |
case 57: |
case 57: |
1552 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1553 |
#line 357 "scan-gram.l" |
#line 355 "scan-gram.l" |
1554 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1555 |
YY_BREAK |
YY_BREAK |
1556 |
case YY_STATE_EOF(SC_COMMENT): |
case YY_STATE_EOF(SC_COMMENT): |
1557 |
#line 359 "scan-gram.l" |
#line 357 "scan-gram.l" |
1558 |
{ |
{ |
1559 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a comment")); |
|
fprintf (stderr, _(": unexpected end of file in a comment\n")); |
|
1560 |
yy_pop_state (); |
yy_pop_state (); |
1561 |
} |
} |
1562 |
YY_BREAK |
YY_BREAK |
1568 |
|
|
1569 |
case 58: |
case 58: |
1570 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1571 |
#line 373 "scan-gram.l" |
#line 370 "scan-gram.l" |
1572 |
YY_OBS_GROW; yy_pop_state (); |
YY_OBS_GROW; yy_pop_state (); |
1573 |
YY_BREAK |
YY_BREAK |
1574 |
case 59: |
case 59: |
1575 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1576 |
#line 374 "scan-gram.l" |
#line 371 "scan-gram.l" |
1577 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1578 |
YY_BREAK |
YY_BREAK |
1579 |
case YY_STATE_EOF(SC_LINE_COMMENT): |
case YY_STATE_EOF(SC_LINE_COMMENT): |
1580 |
#line 375 "scan-gram.l" |
#line 372 "scan-gram.l" |
1581 |
yy_pop_state (); |
yy_pop_state (); |
1582 |
YY_BREAK |
YY_BREAK |
1583 |
|
|
1589 |
|
|
1590 |
case 60: |
case 60: |
1591 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1592 |
#line 386 "scan-gram.l" |
#line 383 "scan-gram.l" |
1593 |
{ |
{ |
1594 |
assert (yy_top_state () == INITIAL); |
assert (yy_top_state () == INITIAL); |
1595 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1602 |
YY_BREAK |
YY_BREAK |
1603 |
case 61: |
case 61: |
1604 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1605 |
#line 396 "scan-gram.l" |
#line 393 "scan-gram.l" |
1606 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1607 |
YY_BREAK |
YY_BREAK |
1608 |
case YY_STATE_EOF(SC_ESCAPED_STRING): |
case YY_STATE_EOF(SC_ESCAPED_STRING): |
1609 |
#line 398 "scan-gram.l" |
#line 395 "scan-gram.l" |
1610 |
{ |
{ |
1611 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a string")); |
|
fprintf (stderr, _(": unexpected end of file in a string\n")); |
|
1612 |
assert (yy_top_state () == INITIAL); |
assert (yy_top_state () == INITIAL); |
1613 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1614 |
yylval->string = last_string; |
yylval->string = last_string; |
1625 |
|
|
1626 |
case 62: |
case 62: |
1627 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1628 |
#line 416 "scan-gram.l" |
#line 412 "scan-gram.l" |
1629 |
{ |
{ |
1630 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1631 |
assert (yy_top_state () == INITIAL); |
assert (yy_top_state () == INITIAL); |
1644 |
YY_BREAK |
YY_BREAK |
1645 |
case 63: |
case 63: |
1646 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1647 |
#line 432 "scan-gram.l" |
#line 428 "scan-gram.l" |
1648 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1649 |
YY_BREAK |
YY_BREAK |
1650 |
case YY_STATE_EOF(SC_ESCAPED_CHARACTER): |
case YY_STATE_EOF(SC_ESCAPED_CHARACTER): |
1651 |
#line 434 "scan-gram.l" |
#line 430 "scan-gram.l" |
1652 |
{ |
{ |
1653 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a character")); |
|
fprintf (stderr, _(": unexpected end of file in a character\n")); |
|
1654 |
assert (yy_top_state () == INITIAL); |
assert (yy_top_state () == INITIAL); |
1655 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1656 |
yylval->string = last_string; |
yylval->string = last_string; |
1666 |
|
|
1667 |
case 64: |
case 64: |
1668 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1669 |
#line 452 "scan-gram.l" |
#line 447 "scan-gram.l" |
1670 |
{ |
{ |
1671 |
unsigned long c = strtoul (yytext + 1, 0, 8); |
unsigned long c = strtoul (yytext + 1, 0, 8); |
1672 |
if (UCHAR_MAX < c) |
if (UCHAR_MAX < c) |
1673 |
{ |
{ |
1674 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("invalid escape: %s"), quote (yytext)); |
|
fprintf (stderr, _(": invalid escape: %s\n"), quote (yytext)); |
|
1675 |
YY_STEP; |
YY_STEP; |
1676 |
} |
} |
1677 |
else |
else |
1680 |
YY_BREAK |
YY_BREAK |
1681 |
case 65: |
case 65: |
1682 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1683 |
#line 464 "scan-gram.l" |
#line 458 "scan-gram.l" |
1684 |
{ |
{ |
1685 |
unsigned long c; |
unsigned long c; |
1686 |
errno = 0; |
errno = 0; |
1687 |
c = strtoul (yytext + 2, 0, 16); |
c = strtoul (yytext + 2, 0, 16); |
1688 |
if (UCHAR_MAX < c || errno) |
if (UCHAR_MAX < c || errno) |
1689 |
{ |
{ |
1690 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("invalid escape: %s"), quote (yytext)); |
|
fprintf (stderr, _(": invalid escape: %s\n"), quote (yytext)); |
|
1691 |
YY_STEP; |
YY_STEP; |
1692 |
} |
} |
1693 |
else |
else |
1696 |
YY_BREAK |
YY_BREAK |
1697 |
case 66: |
case 66: |
1698 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1699 |
#line 478 "scan-gram.l" |
#line 471 "scan-gram.l" |
1700 |
obstack_1grow (&string_obstack, '\a'); |
obstack_1grow (&string_obstack, '\a'); |
1701 |
YY_BREAK |
YY_BREAK |
1702 |
case 67: |
case 67: |
1703 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1704 |
#line 479 "scan-gram.l" |
#line 472 "scan-gram.l" |
1705 |
obstack_1grow (&string_obstack, '\b'); |
obstack_1grow (&string_obstack, '\b'); |
1706 |
YY_BREAK |
YY_BREAK |
1707 |
case 68: |
case 68: |
1708 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1709 |
#line 480 "scan-gram.l" |
#line 473 "scan-gram.l" |
1710 |
obstack_1grow (&string_obstack, '\f'); |
obstack_1grow (&string_obstack, '\f'); |
1711 |
YY_BREAK |
YY_BREAK |
1712 |
case 69: |
case 69: |
1713 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1714 |
#line 481 "scan-gram.l" |
#line 474 "scan-gram.l" |
1715 |
obstack_1grow (&string_obstack, '\n'); |
obstack_1grow (&string_obstack, '\n'); |
1716 |
YY_BREAK |
YY_BREAK |
1717 |
case 70: |
case 70: |
1718 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1719 |
#line 482 "scan-gram.l" |
#line 475 "scan-gram.l" |
1720 |
obstack_1grow (&string_obstack, '\r'); |
obstack_1grow (&string_obstack, '\r'); |
1721 |
YY_BREAK |
YY_BREAK |
1722 |
case 71: |
case 71: |
1723 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1724 |
#line 483 "scan-gram.l" |
#line 476 "scan-gram.l" |
1725 |
obstack_1grow (&string_obstack, '\t'); |
obstack_1grow (&string_obstack, '\t'); |
1726 |
YY_BREAK |
YY_BREAK |
1727 |
case 72: |
case 72: |
1728 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1729 |
#line 484 "scan-gram.l" |
#line 477 "scan-gram.l" |
1730 |
obstack_1grow (&string_obstack, '\v'); |
obstack_1grow (&string_obstack, '\v'); |
1731 |
YY_BREAK |
YY_BREAK |
1732 |
case 73: |
case 73: |
1733 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1734 |
#line 485 "scan-gram.l" |
#line 478 "scan-gram.l" |
1735 |
obstack_1grow (&string_obstack, yytext[1]); |
obstack_1grow (&string_obstack, yytext[1]); |
1736 |
YY_BREAK |
YY_BREAK |
1737 |
case 74: |
case 74: |
1738 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1739 |
#line 486 "scan-gram.l" |
#line 479 "scan-gram.l" |
1740 |
{ |
{ |
1741 |
int c = convert_ucn_to_byte (yytext); |
int c = convert_ucn_to_byte (yytext); |
1742 |
if (c < 0) |
if (c < 0) |
1743 |
{ |
{ |
1744 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("invalid escape: %s"), quote (yytext)); |
|
fprintf (stderr, _(": invalid escape: %s\n"), quote (yytext)); |
|
1745 |
YY_STEP; |
YY_STEP; |
1746 |
} |
} |
1747 |
else |
else |
1750 |
YY_BREAK |
YY_BREAK |
1751 |
case 75: |
case 75: |
1752 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1753 |
#line 497 "scan-gram.l" |
#line 489 "scan-gram.l" |
1754 |
{ |
{ |
1755 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unrecognized escape: %s"), quote (yytext)); |
|
fprintf (stderr, _(": unrecognized escape: %s\n"), quote (yytext)); |
|
1756 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1757 |
} |
} |
1758 |
YY_BREAK |
YY_BREAK |
1759 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1760 |
case 76: |
case 76: |
1761 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1762 |
#line 503 "scan-gram.l" |
#line 494 "scan-gram.l" |
1763 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1764 |
YY_BREAK |
YY_BREAK |
1765 |
|
|
1771 |
|
|
1772 |
case 77: |
case 77: |
1773 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1774 |
#line 514 "scan-gram.l" |
#line 505 "scan-gram.l" |
1775 |
{ |
{ |
1776 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1777 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1780 |
YY_BREAK |
YY_BREAK |
1781 |
case 78: |
case 78: |
1782 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1783 |
#line 520 "scan-gram.l" |
#line 511 "scan-gram.l" |
1784 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1785 |
YY_BREAK |
YY_BREAK |
1786 |
case 79: |
case 79: |
1787 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1788 |
#line 521 "scan-gram.l" |
#line 512 "scan-gram.l" |
1789 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1790 |
YY_BREAK |
YY_BREAK |
1791 |
case 80: |
case 80: |
1792 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1793 |
#line 522 "scan-gram.l" |
#line 513 "scan-gram.l" |
1794 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1795 |
YY_BREAK |
YY_BREAK |
1796 |
/* Needed for `\<<EOF>>', `\\<<newline>>[', and `\\<<newline>>]'. */ |
/* Needed for `\<<EOF>>', `\\<<newline>>[', and `\\<<newline>>]'. */ |
1797 |
case 81: |
case 81: |
1798 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1799 |
#line 524 "scan-gram.l" |
#line 515 "scan-gram.l" |
1800 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1801 |
YY_BREAK |
YY_BREAK |
1802 |
case YY_STATE_EOF(SC_CHARACTER): |
case YY_STATE_EOF(SC_CHARACTER): |
1803 |
#line 526 "scan-gram.l" |
#line 517 "scan-gram.l" |
1804 |
{ |
{ |
1805 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a character")); |
|
fprintf (stderr, _(": unexpected end of file in a character\n")); |
|
1806 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1807 |
yy_pop_state (); |
yy_pop_state (); |
1808 |
} |
} |
1816 |
|
|
1817 |
case 82: |
case 82: |
1818 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1819 |
#line 542 "scan-gram.l" |
#line 532 "scan-gram.l" |
1820 |
{ |
{ |
1821 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1822 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1825 |
YY_BREAK |
YY_BREAK |
1826 |
case 83: |
case 83: |
1827 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1828 |
#line 548 "scan-gram.l" |
#line 538 "scan-gram.l" |
1829 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1830 |
YY_BREAK |
YY_BREAK |
1831 |
case 84: |
case 84: |
1832 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1833 |
#line 549 "scan-gram.l" |
#line 539 "scan-gram.l" |
1834 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1835 |
YY_BREAK |
YY_BREAK |
1836 |
case 85: |
case 85: |
1837 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1838 |
#line 550 "scan-gram.l" |
#line 540 "scan-gram.l" |
1839 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1840 |
YY_BREAK |
YY_BREAK |
1841 |
/* Needed for `\<<EOF>>', `\\<<newline>>[', and `\\<<newline>>]'. */ |
/* Needed for `\<<EOF>>', `\\<<newline>>[', and `\\<<newline>>]'. */ |
1842 |
case 86: |
case 86: |
1843 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1844 |
#line 552 "scan-gram.l" |
#line 542 "scan-gram.l" |
1845 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1846 |
YY_BREAK |
YY_BREAK |
1847 |
case YY_STATE_EOF(SC_STRING): |
case YY_STATE_EOF(SC_STRING): |
1848 |
#line 554 "scan-gram.l" |
#line 544 "scan-gram.l" |
1849 |
{ |
{ |
1850 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a string")); |
|
fprintf (stderr, _(": unexpected end of file in a string\n")); |
|
1851 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1852 |
yy_pop_state (); |
yy_pop_state (); |
1853 |
} |
} |
1861 |
/* Characters. We don't check there is only one. */ |
/* Characters. We don't check there is only one. */ |
1862 |
case 87: |
case 87: |
1863 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1864 |
#line 570 "scan-gram.l" |
#line 559 "scan-gram.l" |
1865 |
YY_OBS_GROW; yy_push_state (SC_CHARACTER); |
YY_OBS_GROW; yy_push_state (SC_CHARACTER); |
1866 |
YY_BREAK |
YY_BREAK |
1867 |
/* Strings. */ |
/* Strings. */ |
1868 |
case 88: |
case 88: |
1869 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1870 |
#line 573 "scan-gram.l" |
#line 562 "scan-gram.l" |
1871 |
YY_OBS_GROW; yy_push_state (SC_STRING); |
YY_OBS_GROW; yy_push_state (SC_STRING); |
1872 |
YY_BREAK |
YY_BREAK |
1873 |
/* Comments. */ |
/* Comments. */ |
1874 |
case 89: |
case 89: |
1875 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1876 |
#line 576 "scan-gram.l" |
#line 565 "scan-gram.l" |
1877 |
YY_OBS_GROW; yy_push_state (SC_COMMENT); |
YY_OBS_GROW; yy_push_state (SC_COMMENT); |
1878 |
YY_BREAK |
YY_BREAK |
1879 |
case 90: |
case 90: |
1880 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1881 |
#line 577 "scan-gram.l" |
#line 566 "scan-gram.l" |
1882 |
YY_OBS_GROW; yy_push_state (SC_LINE_COMMENT); |
YY_OBS_GROW; yy_push_state (SC_LINE_COMMENT); |
1883 |
YY_BREAK |
YY_BREAK |
1884 |
/* Not comments. */ |
/* Not comments. */ |
1885 |
case 91: |
case 91: |
1886 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1887 |
#line 580 "scan-gram.l" |
#line 569 "scan-gram.l" |
1888 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1889 |
YY_BREAK |
YY_BREAK |
1890 |
|
|
1896 |
|
|
1897 |
case 92: |
case 92: |
1898 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1899 |
#line 591 "scan-gram.l" |
#line 580 "scan-gram.l" |
1900 |
{ |
{ |
1901 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1902 |
if (--braces_level == 0) |
if (--braces_level == 0) |
1911 |
YY_BREAK |
YY_BREAK |
1912 |
case 93: |
case 93: |
1913 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1914 |
#line 603 "scan-gram.l" |
#line 592 "scan-gram.l" |
1915 |
YY_OBS_GROW; braces_level++; |
YY_OBS_GROW; braces_level++; |
1916 |
YY_BREAK |
YY_BREAK |
1917 |
case 94: |
case 94: |
1918 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1919 |
#line 605 "scan-gram.l" |
#line 594 "scan-gram.l" |
1920 |
{ handle_dollar (current_braced_code, |
{ handle_dollar (current_braced_code, |
1921 |
yytext, *yylloc); } |
yytext, *yylloc); } |
1922 |
YY_BREAK |
YY_BREAK |
1923 |
case 95: |
case 95: |
1924 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1925 |
#line 607 "scan-gram.l" |
#line 596 "scan-gram.l" |
1926 |
{ handle_at (current_braced_code, |
{ handle_at (current_braced_code, |
1927 |
yytext, *yylloc); } |
yytext, *yylloc); } |
1928 |
YY_BREAK |
YY_BREAK |
1929 |
case 96: |
case 96: |
1930 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1931 |
#line 610 "scan-gram.l" |
#line 599 "scan-gram.l" |
1932 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1933 |
YY_BREAK |
YY_BREAK |
1934 |
/* A stray $, or /, or etc. */ |
/* A stray $, or /, or etc. */ |
1935 |
case 97: |
case 97: |
1936 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1937 |
#line 613 "scan-gram.l" |
#line 602 "scan-gram.l" |
1938 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1939 |
YY_BREAK |
YY_BREAK |
1940 |
case YY_STATE_EOF(SC_BRACED_CODE): |
case YY_STATE_EOF(SC_BRACED_CODE): |
1941 |
#line 615 "scan-gram.l" |
#line 604 "scan-gram.l" |
1942 |
{ |
{ |
1943 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a braced code")); |
|
fprintf (stderr, _(": unexpected end of file in a braced code\n")); |
|
1944 |
yy_pop_state (); |
yy_pop_state (); |
1945 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1946 |
yylval->string = last_string; |
yylval->string = last_string; |
1955 |
|
|
1956 |
case 98: |
case 98: |
1957 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1958 |
#line 633 "scan-gram.l" |
#line 621 "scan-gram.l" |
1959 |
{ |
{ |
1960 |
yy_pop_state (); |
yy_pop_state (); |
1961 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1965 |
YY_BREAK |
YY_BREAK |
1966 |
case 99: |
case 99: |
1967 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1968 |
#line 640 "scan-gram.l" |
#line 628 "scan-gram.l" |
1969 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1970 |
YY_BREAK |
YY_BREAK |
1971 |
case 100: |
case 100: |
1972 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1973 |
#line 641 "scan-gram.l" |
#line 629 "scan-gram.l" |
1974 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1975 |
YY_BREAK |
YY_BREAK |
1976 |
case YY_STATE_EOF(SC_PROLOGUE): |
case YY_STATE_EOF(SC_PROLOGUE): |
1977 |
#line 643 "scan-gram.l" |
#line 631 "scan-gram.l" |
1978 |
{ |
{ |
1979 |
LOCATION_PRINT (stderr, *yylloc); |
complain_at (*yylloc, _("unexpected end of file in a prologue")); |
|
fprintf (stderr, _(": unexpected end of file in a prologue\n")); |
|
1980 |
yy_pop_state (); |
yy_pop_state (); |
1981 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1982 |
yylval->string = last_string; |
yylval->string = last_string; |
1992 |
|
|
1993 |
case 101: |
case 101: |
1994 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1995 |
#line 661 "scan-gram.l" |
#line 648 "scan-gram.l" |
1996 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1997 |
YY_BREAK |
YY_BREAK |
1998 |
case YY_STATE_EOF(SC_EPILOGUE): |
case YY_STATE_EOF(SC_EPILOGUE): |
1999 |
#line 663 "scan-gram.l" |
#line 650 "scan-gram.l" |
2000 |
{ |
{ |
2001 |
yy_pop_state (); |
yy_pop_state (); |
2002 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
2007 |
|
|
2008 |
case 102: |
case 102: |
2009 |
YY_RULE_SETUP |
YY_RULE_SETUP |
2010 |
#line 672 "scan-gram.l" |
#line 659 "scan-gram.l" |
2011 |
YY_FATAL_ERROR( "flex scanner jammed" ); |
YY_FATAL_ERROR( "flex scanner jammed" ); |
2012 |
YY_BREAK |
YY_BREAK |
2013 |
#line 2033 "scan-gram.c" |
#line 2014 "scan-gram.c" |
2014 |
case YY_STATE_EOF(INITIAL): |
case YY_STATE_EOF(INITIAL): |
2015 |
yyterminate(); |
yyterminate(); |
2016 |
|
|
2900 |
return 0; |
return 0; |
2901 |
} |
} |
2902 |
#endif |
#endif |
2903 |
#line 672 "scan-gram.l" |
#line 659 "scan-gram.l" |
2904 |
|
|
2905 |
|
|
2906 |
/*------------------------------------------------------------------. |
/*------------------------------------------------------------------. |
2961 |
rule_length, n, type_name); |
rule_length, n, type_name); |
2962 |
} |
} |
2963 |
else |
else |
2964 |
complain_at (location, _("invalid value: %s"), text); |
complain_at (location, _("invalid value: %s"), quote (text)); |
2965 |
} |
} |
2966 |
} |
} |
2967 |
|
|
2978 |
if (*cp == '$') |
if (*cp == '$') |
2979 |
obstack_sgrow (&string_obstack, "]b4_dollar_dollar["); |
obstack_sgrow (&string_obstack, "]b4_dollar_dollar["); |
2980 |
else |
else |
2981 |
complain_at (location, _("%s is invalid"), quote_n (1, text)); |
complain_at (location, _("invalid value: %s"), quote (text)); |
2982 |
} |
} |
2983 |
|
|
2984 |
|
|
3033 |
rule_length, n); |
rule_length, n); |
3034 |
} |
} |
3035 |
else |
else |
3036 |
complain_at (location, _("invalid value: %s"), text); |
complain_at (location, _("invalid value: %s"), quote (text)); |
3037 |
} |
} |
3038 |
} |
} |
3039 |
|
|
3050 |
if (*cp == '$') |
if (*cp == '$') |
3051 |
obstack_sgrow (&string_obstack, "]b4_at_dollar["); |
obstack_sgrow (&string_obstack, "]b4_at_dollar["); |
3052 |
else |
else |
3053 |
complain_at (location, _("%s is invalid"), quote_n (1, text)); |
complain_at (location, _("invalid value: %s"), quote (text)); |
3054 |
} |
} |
3055 |
|
|
3056 |
|
|
3128 |
code = code < sizeof table ? table[code] : -1; |
code = code < sizeof table ? table[code] : -1; |
3129 |
} |
} |
3130 |
#endif |
#endif |
3131 |
|
|
3132 |
return code; |
return code; |
3133 |
} |
} |
3134 |
|
|