/[bison]/bison/src/scan-gram.c
ViewVC logotype

Diff of /bison/src/scan-gram.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by akim, Sun Nov 3 12:14:47 2002 UTC revision 1.40 by akim, Mon Nov 4 08:28:01 2002 UTC
# Line 42  Line 42 
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. */
# Line 718  static yyconst short int yy_rule_linenum Line 712  static yyconst short int yy_rule_linenum
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
# Line 937  static int convert_ucn_to_byte (char con Line 931  static int convert_ucn_to_byte (char con
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.
# Line 1111  YY_DECL Line 1105  YY_DECL
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                  {                  {
# Line 1429  YY_RULE_SETUP Line 1423  YY_RULE_SETUP
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;
# Line 1495  case 51: Line 1489  case 51:
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
# Line 1510  YY_RULE_SETUP Line 1503  YY_RULE_SETUP
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    
# Line 1526  obstack_sgrow (&string_obstack, "@:>@"); Line 1519  obstack_sgrow (&string_obstack, "@:>@");
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;
# Line 1534  YY_RULE_SETUP Line 1527  YY_RULE_SETUP
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
# Line 1553  case YY_STATE_EOF(SC_YACC_COMMENT): Line 1545  case YY_STATE_EOF(SC_YACC_COMMENT):
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
# Line 1577  case YY_STATE_EOF(SC_COMMENT): Line 1568  case YY_STATE_EOF(SC_COMMENT):
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    
# Line 1598  yy_pop_state (); Line 1589  yy_pop_state ();
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;
# Line 1611  YY_RULE_SETUP Line 1602  YY_RULE_SETUP
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;
# Line 1635  case YY_STATE_EOF(SC_ESCAPED_STRING): Line 1625  case YY_STATE_EOF(SC_ESCAPED_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);
# Line 1654  YY_RULE_SETUP Line 1644  YY_RULE_SETUP
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;
# Line 1677  case YY_STATE_EOF(SC_ESCAPED_CHARACTER): Line 1666  case YY_STATE_EOF(SC_ESCAPED_CHARACTER):
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
# Line 1692  YY_RULE_SETUP Line 1680  YY_RULE_SETUP
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
# Line 1709  YY_RULE_SETUP Line 1696  YY_RULE_SETUP
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
# Line 1764  YY_RULE_SETUP Line 1750  YY_RULE_SETUP
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    
# Line 1786  YY_OBS_GROW; Line 1771  YY_OBS_GROW;
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);
# Line 1795  YY_RULE_SETUP Line 1780  YY_RULE_SETUP
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    }    }
# Line 1832  case YY_STATE_EOF(SC_CHARACTER): Line 1816  case YY_STATE_EOF(SC_CHARACTER):
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;
# Line 1841  YY_RULE_SETUP Line 1825  YY_RULE_SETUP
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    }    }
# Line 1878  case YY_STATE_EOF(SC_STRING): Line 1861  case YY_STATE_EOF(SC_STRING):
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    
# Line 1913  YY_OBS_GROW; Line 1896  YY_OBS_GROW;
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)
# Line 1928  YY_RULE_SETUP Line 1911  YY_RULE_SETUP
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;
# Line 1973  case YY_STATE_EOF(SC_BRACED_CODE): Line 1955  case YY_STATE_EOF(SC_BRACED_CODE):
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;
# Line 1983  YY_RULE_SETUP Line 1965  YY_RULE_SETUP
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;
# Line 2011  case YY_STATE_EOF(SC_PROLOGUE): Line 1992  case YY_STATE_EOF(SC_PROLOGUE):
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;
# Line 2026  case YY_STATE_EOF(SC_EPILOGUE): Line 2007  case YY_STATE_EOF(SC_EPILOGUE):
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    
# Line 2919  int main() Line 2900  int main()
2900          return 0;          return 0;
2901          }          }
2902  #endif  #endif
2903  #line 672 "scan-gram.l"  #line 659 "scan-gram.l"
2904    
2905    
2906  /*------------------------------------------------------------------.  /*------------------------------------------------------------------.
# Line 2980  handle_action_dollar (char *text, locati Line 2961  handle_action_dollar (char *text, locati
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    
# Line 2997  handle_symbol_code_dollar (char *text, l Line 2978  handle_symbol_code_dollar (char *text, l
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    
# Line 3052  handle_action_at (char *text, location_t Line 3033  handle_action_at (char *text, location_t
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    
# Line 3069  handle_symbol_code_at (char *text, locat Line 3050  handle_symbol_code_at (char *text, locat
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    
# Line 3147  convert_ucn_to_byte (char const *ucn) Line 3128  convert_ucn_to_byte (char const *ucn)
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    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26