710 |
142, 143, 144, 145, 146, 147, 148, 149, 150, 151, |
142, 143, 144, 145, 146, 147, 148, 149, 150, 151, |
711 |
152, 153, 155, 156, 157, 158, 160, 161, 162, 167, |
152, 153, 155, 156, 157, 158, 160, 161, 162, 167, |
712 |
170, 173, 176, 177, 180, 183, 186, 194, 200, 216, |
170, 173, 176, 177, 180, 183, 186, 194, 200, 216, |
713 |
217, 228, 240, 241, 242, 259, 268, 270, 290, 304, |
217, 228, 240, 241, 242, 259, 268, 270, 290, 305, |
714 |
306, 326, 338, 342, 343, 344, 345, 346, 347, 348, |
307, 327, 339, 343, 344, 345, 346, 347, 348, 349, |
715 |
349, 350, 356, 367, 373, 374, 376, 378, 396, 402, |
350, 351, 357, 368, 374, 375, 377, 379, 397, 403, |
716 |
403, 405, 407, 425, 428, 431, 432, 435, 446, 457, |
404, 406, 408, 426, 429, 432, 433, 436, 447, 458, |
717 |
459, 461, 464, 465, 468, 488, 495, 496, 497, 517 |
460, 462, 465, 466, 469, 489, 496, 497, 498, 518 |
718 |
|
|
719 |
} ; |
} ; |
720 |
|
|
1497 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1498 |
yylval->symbol = symbol_get (last_string, *yylloc); |
yylval->symbol = symbol_get (last_string, *yylloc); |
1499 |
symbol_class_set (yylval->symbol, token_sym, *yylloc); |
symbol_class_set (yylval->symbol, token_sym, *yylloc); |
1500 |
symbol_user_token_number_set (yylval->symbol, last_string[1], *yylloc); |
symbol_user_token_number_set (yylval->symbol, |
1501 |
|
(unsigned char) last_string[1], *yylloc); |
1502 |
YY_OBS_FREE; |
YY_OBS_FREE; |
1503 |
yy_pop_state (); |
yy_pop_state (); |
1504 |
return ID; |
return ID; |
1507 |
YY_BREAK |
YY_BREAK |
1508 |
case 60: |
case 60: |
1509 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1510 |
#line 304 "scan-gram.l" |
#line 305 "scan-gram.l" |
1511 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1512 |
YY_BREAK |
YY_BREAK |
1513 |
case 61: |
case 61: |
1514 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1515 |
#line 306 "scan-gram.l" |
#line 307 "scan-gram.l" |
1516 |
obstack_1grow (&string_obstack, '\n'); YY_LINES; |
obstack_1grow (&string_obstack, '\n'); YY_LINES; |
1517 |
YY_BREAK |
YY_BREAK |
1518 |
case YY_STATE_EOF(SC_ESCAPED_CHARACTER): |
case YY_STATE_EOF(SC_ESCAPED_CHARACTER): |
1519 |
#line 308 "scan-gram.l" |
#line 309 "scan-gram.l" |
1520 |
{ |
{ |
1521 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1522 |
fprintf (stderr, ": unexpected end of file in a character\n"); |
fprintf (stderr, ": unexpected end of file in a character\n"); |
1535 |
|
|
1536 |
case 62: |
case 62: |
1537 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1538 |
#line 326 "scan-gram.l" |
#line 327 "scan-gram.l" |
1539 |
{ |
{ |
1540 |
long c = strtol (yytext + 1, 0, 8); |
long c = strtol (yytext + 1, 0, 8); |
1541 |
if (c > 255) |
if (c > 255) |
1550 |
YY_BREAK |
YY_BREAK |
1551 |
case 63: |
case 63: |
1552 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1553 |
#line 338 "scan-gram.l" |
#line 339 "scan-gram.l" |
1554 |
{ |
{ |
1555 |
obstack_1grow (&string_obstack, strtol (yytext + 2, 0, 16)); |
obstack_1grow (&string_obstack, strtol (yytext + 2, 0, 16)); |
1556 |
} |
} |
1557 |
YY_BREAK |
YY_BREAK |
1558 |
case 64: |
case 64: |
1559 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1560 |
#line 342 "scan-gram.l" |
#line 343 "scan-gram.l" |
1561 |
obstack_1grow (&string_obstack, '\a'); |
obstack_1grow (&string_obstack, '\a'); |
1562 |
YY_BREAK |
YY_BREAK |
1563 |
case 65: |
case 65: |
1564 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1565 |
#line 343 "scan-gram.l" |
#line 344 "scan-gram.l" |
1566 |
obstack_1grow (&string_obstack, '\b'); |
obstack_1grow (&string_obstack, '\b'); |
1567 |
YY_BREAK |
YY_BREAK |
1568 |
case 66: |
case 66: |
1569 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1570 |
#line 344 "scan-gram.l" |
#line 345 "scan-gram.l" |
1571 |
obstack_1grow (&string_obstack, '\f'); |
obstack_1grow (&string_obstack, '\f'); |
1572 |
YY_BREAK |
YY_BREAK |
1573 |
case 67: |
case 67: |
1574 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1575 |
#line 345 "scan-gram.l" |
#line 346 "scan-gram.l" |
1576 |
obstack_1grow (&string_obstack, '\n'); |
obstack_1grow (&string_obstack, '\n'); |
1577 |
YY_BREAK |
YY_BREAK |
1578 |
case 68: |
case 68: |
1579 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1580 |
#line 346 "scan-gram.l" |
#line 347 "scan-gram.l" |
1581 |
obstack_1grow (&string_obstack, '\r'); |
obstack_1grow (&string_obstack, '\r'); |
1582 |
YY_BREAK |
YY_BREAK |
1583 |
case 69: |
case 69: |
1584 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1585 |
#line 347 "scan-gram.l" |
#line 348 "scan-gram.l" |
1586 |
obstack_1grow (&string_obstack, '\t'); |
obstack_1grow (&string_obstack, '\t'); |
1587 |
YY_BREAK |
YY_BREAK |
1588 |
case 70: |
case 70: |
1589 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1590 |
#line 348 "scan-gram.l" |
#line 349 "scan-gram.l" |
1591 |
obstack_1grow (&string_obstack, '\v'); |
obstack_1grow (&string_obstack, '\v'); |
1592 |
YY_BREAK |
YY_BREAK |
1593 |
case 71: |
case 71: |
1594 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1595 |
#line 349 "scan-gram.l" |
#line 350 "scan-gram.l" |
1596 |
obstack_1grow (&string_obstack, yytext[1]); |
obstack_1grow (&string_obstack, yytext[1]); |
1597 |
YY_BREAK |
YY_BREAK |
1598 |
case 72: |
case 72: |
1599 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1600 |
#line 350 "scan-gram.l" |
#line 351 "scan-gram.l" |
1601 |
{ |
{ |
1602 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1603 |
fprintf (stderr, ": unrecognized escape: %s\n", quote (yytext)); |
fprintf (stderr, ": unrecognized escape: %s\n", quote (yytext)); |
1607 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1608 |
case 73: |
case 73: |
1609 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1610 |
#line 356 "scan-gram.l" |
#line 357 "scan-gram.l" |
1611 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1612 |
YY_BREAK |
YY_BREAK |
1613 |
|
|
1619 |
|
|
1620 |
case 74: |
case 74: |
1621 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1622 |
#line 367 "scan-gram.l" |
#line 368 "scan-gram.l" |
1623 |
{ |
{ |
1624 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1625 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1628 |
YY_BREAK |
YY_BREAK |
1629 |
case 75: |
case 75: |
1630 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1631 |
#line 373 "scan-gram.l" |
#line 374 "scan-gram.l" |
1632 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1633 |
YY_BREAK |
YY_BREAK |
1634 |
case 76: |
case 76: |
1635 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1636 |
#line 374 "scan-gram.l" |
#line 375 "scan-gram.l" |
1637 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1638 |
YY_BREAK |
YY_BREAK |
1639 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1640 |
case 77: |
case 77: |
1641 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1642 |
#line 376 "scan-gram.l" |
#line 377 "scan-gram.l" |
1643 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1644 |
YY_BREAK |
YY_BREAK |
1645 |
case 78: |
case 78: |
1646 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1647 |
#line 378 "scan-gram.l" |
#line 379 "scan-gram.l" |
1648 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1649 |
YY_BREAK |
YY_BREAK |
1650 |
case YY_STATE_EOF(SC_CHARACTER): |
case YY_STATE_EOF(SC_CHARACTER): |
1651 |
#line 380 "scan-gram.l" |
#line 381 "scan-gram.l" |
1652 |
{ |
{ |
1653 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1654 |
fprintf (stderr, ": unexpected end of file in a character\n"); |
fprintf (stderr, ": unexpected end of file in a character\n"); |
1665 |
|
|
1666 |
case 79: |
case 79: |
1667 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1668 |
#line 396 "scan-gram.l" |
#line 397 "scan-gram.l" |
1669 |
{ |
{ |
1670 |
assert (yy_top_state () != INITIAL); |
assert (yy_top_state () != INITIAL); |
1671 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1674 |
YY_BREAK |
YY_BREAK |
1675 |
case 80: |
case 80: |
1676 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1677 |
#line 402 "scan-gram.l" |
#line 403 "scan-gram.l" |
1678 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1679 |
YY_BREAK |
YY_BREAK |
1680 |
case 81: |
case 81: |
1681 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1682 |
#line 403 "scan-gram.l" |
#line 404 "scan-gram.l" |
1683 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1684 |
YY_BREAK |
YY_BREAK |
1685 |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
/* FLex wants this rule, in case of a `\<<EOF>>'. */ |
1686 |
case 82: |
case 82: |
1687 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1688 |
#line 405 "scan-gram.l" |
#line 406 "scan-gram.l" |
1689 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1690 |
YY_BREAK |
YY_BREAK |
1691 |
case 83: |
case 83: |
1692 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1693 |
#line 407 "scan-gram.l" |
#line 408 "scan-gram.l" |
1694 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1695 |
YY_BREAK |
YY_BREAK |
1696 |
case YY_STATE_EOF(SC_STRING): |
case YY_STATE_EOF(SC_STRING): |
1697 |
#line 409 "scan-gram.l" |
#line 410 "scan-gram.l" |
1698 |
{ |
{ |
1699 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1700 |
fprintf (stderr, ": unexpected end of file in a string\n"); |
fprintf (stderr, ": unexpected end of file in a string\n"); |
1711 |
/* Characters. We don't check there is only one. */ |
/* Characters. We don't check there is only one. */ |
1712 |
case 84: |
case 84: |
1713 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1714 |
#line 425 "scan-gram.l" |
#line 426 "scan-gram.l" |
1715 |
YY_OBS_GROW; yy_push_state (SC_CHARACTER); |
YY_OBS_GROW; yy_push_state (SC_CHARACTER); |
1716 |
YY_BREAK |
YY_BREAK |
1717 |
/* Strings. */ |
/* Strings. */ |
1718 |
case 85: |
case 85: |
1719 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1720 |
#line 428 "scan-gram.l" |
#line 429 "scan-gram.l" |
1721 |
YY_OBS_GROW; yy_push_state (SC_STRING); |
YY_OBS_GROW; yy_push_state (SC_STRING); |
1722 |
YY_BREAK |
YY_BREAK |
1723 |
/* Comments. */ |
/* Comments. */ |
1724 |
case 86: |
case 86: |
1725 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1726 |
#line 431 "scan-gram.l" |
#line 432 "scan-gram.l" |
1727 |
YY_OBS_GROW; yy_push_state (SC_COMMENT); |
YY_OBS_GROW; yy_push_state (SC_COMMENT); |
1728 |
YY_BREAK |
YY_BREAK |
1729 |
case 87: |
case 87: |
1730 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1731 |
#line 432 "scan-gram.l" |
#line 433 "scan-gram.l" |
1732 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1733 |
YY_BREAK |
YY_BREAK |
1734 |
/* Not comments. */ |
/* Not comments. */ |
1735 |
case 88: |
case 88: |
1736 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1737 |
#line 435 "scan-gram.l" |
#line 436 "scan-gram.l" |
1738 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1739 |
YY_BREAK |
YY_BREAK |
1740 |
|
|
1746 |
|
|
1747 |
case 89: |
case 89: |
1748 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1749 |
#line 446 "scan-gram.l" |
#line 447 "scan-gram.l" |
1750 |
{ |
{ |
1751 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1752 |
if (--braces_level == 0) |
if (--braces_level == 0) |
1760 |
YY_BREAK |
YY_BREAK |
1761 |
case 90: |
case 90: |
1762 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1763 |
#line 457 "scan-gram.l" |
#line 458 "scan-gram.l" |
1764 |
YY_OBS_GROW; braces_level++; |
YY_OBS_GROW; braces_level++; |
1765 |
YY_BREAK |
YY_BREAK |
1766 |
case 91: |
case 91: |
1767 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1768 |
#line 459 "scan-gram.l" |
#line 460 "scan-gram.l" |
1769 |
{ handle_dollar (current_braced_code, |
{ handle_dollar (current_braced_code, |
1770 |
yytext, *yylloc); } |
yytext, *yylloc); } |
1771 |
YY_BREAK |
YY_BREAK |
1772 |
case 92: |
case 92: |
1773 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1774 |
#line 461 "scan-gram.l" |
#line 462 "scan-gram.l" |
1775 |
{ handle_at (current_braced_code, |
{ handle_at (current_braced_code, |
1776 |
yytext, *yylloc); } |
yytext, *yylloc); } |
1777 |
YY_BREAK |
YY_BREAK |
1778 |
case 93: |
case 93: |
1779 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1780 |
#line 464 "scan-gram.l" |
#line 465 "scan-gram.l" |
1781 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1782 |
YY_BREAK |
YY_BREAK |
1783 |
case 94: |
case 94: |
1784 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1785 |
#line 465 "scan-gram.l" |
#line 466 "scan-gram.l" |
1786 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1787 |
YY_BREAK |
YY_BREAK |
1788 |
/* A lose $, or /, or etc. */ |
/* A lose $, or /, or etc. */ |
1789 |
case 95: |
case 95: |
1790 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1791 |
#line 468 "scan-gram.l" |
#line 469 "scan-gram.l" |
1792 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1793 |
YY_BREAK |
YY_BREAK |
1794 |
case YY_STATE_EOF(SC_BRACED_CODE): |
case YY_STATE_EOF(SC_BRACED_CODE): |
1795 |
#line 470 "scan-gram.l" |
#line 471 "scan-gram.l" |
1796 |
{ |
{ |
1797 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1798 |
fprintf (stderr, ": unexpected end of file in a braced code\n"); |
fprintf (stderr, ": unexpected end of file in a braced code\n"); |
1810 |
|
|
1811 |
case 96: |
case 96: |
1812 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1813 |
#line 488 "scan-gram.l" |
#line 489 "scan-gram.l" |
1814 |
{ |
{ |
1815 |
yy_pop_state (); |
yy_pop_state (); |
1816 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1820 |
YY_BREAK |
YY_BREAK |
1821 |
case 97: |
case 97: |
1822 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1823 |
#line 495 "scan-gram.l" |
#line 496 "scan-gram.l" |
1824 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1825 |
YY_BREAK |
YY_BREAK |
1826 |
case 98: |
case 98: |
1827 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1828 |
#line 496 "scan-gram.l" |
#line 497 "scan-gram.l" |
1829 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1830 |
YY_BREAK |
YY_BREAK |
1831 |
case 99: |
case 99: |
1832 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1833 |
#line 497 "scan-gram.l" |
#line 498 "scan-gram.l" |
1834 |
YY_OBS_GROW; YY_LINES; |
YY_OBS_GROW; YY_LINES; |
1835 |
YY_BREAK |
YY_BREAK |
1836 |
case YY_STATE_EOF(SC_PROLOGUE): |
case YY_STATE_EOF(SC_PROLOGUE): |
1837 |
#line 499 "scan-gram.l" |
#line 500 "scan-gram.l" |
1838 |
{ |
{ |
1839 |
LOCATION_PRINT (stderr, *yylloc); |
LOCATION_PRINT (stderr, *yylloc); |
1840 |
fprintf (stderr, ": unexpected end of file in a prologue\n"); |
fprintf (stderr, ": unexpected end of file in a prologue\n"); |
1853 |
|
|
1854 |
case 100: |
case 100: |
1855 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1856 |
#line 517 "scan-gram.l" |
#line 518 "scan-gram.l" |
1857 |
YY_OBS_GROW; |
YY_OBS_GROW; |
1858 |
YY_BREAK |
YY_BREAK |
1859 |
case YY_STATE_EOF(SC_EPILOGUE): |
case YY_STATE_EOF(SC_EPILOGUE): |
1860 |
#line 519 "scan-gram.l" |
#line 520 "scan-gram.l" |
1861 |
{ |
{ |
1862 |
yy_pop_state (); |
yy_pop_state (); |
1863 |
YY_OBS_FINISH; |
YY_OBS_FINISH; |
1868 |
|
|
1869 |
case 101: |
case 101: |
1870 |
YY_RULE_SETUP |
YY_RULE_SETUP |
1871 |
#line 528 "scan-gram.l" |
#line 529 "scan-gram.l" |
1872 |
YY_FATAL_ERROR( "flex scanner jammed" ); |
YY_FATAL_ERROR( "flex scanner jammed" ); |
1873 |
YY_BREAK |
YY_BREAK |
1874 |
#line 1874 "lex.yy.c" |
#line 1875 "lex.yy.c" |
1875 |
case YY_STATE_EOF(INITIAL): |
case YY_STATE_EOF(INITIAL): |
1876 |
yyterminate(); |
yyterminate(); |
1877 |
|
|
2761 |
return 0; |
return 0; |
2762 |
} |
} |
2763 |
#endif |
#endif |
2764 |
#line 528 "scan-gram.l" |
#line 529 "scan-gram.l" |
2765 |
|
|
2766 |
|
|
2767 |
/*------------------------------------------------------------------. |
/*------------------------------------------------------------------. |