/[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.32 by eggert, Sun Oct 13 09:09:49 2002 UTC revision 1.33 by akim, Thu Oct 17 17:47:33 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>
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. */
# Line 709  int yy_flex_debug = 1; Line 715  int yy_flex_debug = 1;
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    
# Line 837  static void handle_at PARAMS ((braced_co Line 843  static void handle_at PARAMS ((braced_co
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.
# Line 1004  YY_DECL Line 1010  YY_DECL
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                  {                  {
# Line 1124  do_action:     /* This label is used only to Line 1119  do_action:     /* This label is used only to
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++;
# Line 1323  YY_RULE_SETUP Line 1318  YY_RULE_SETUP
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;
# Line 1374  YY_RULE_SETUP Line 1369  YY_RULE_SETUP
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);
# Line 1383  YY_RULE_SETUP Line 1378  YY_RULE_SETUP
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);
# Line 1400  YY_RULE_SETUP Line 1395  YY_RULE_SETUP
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    
# Line 1416  if (YY_START != SC_COMMENT) obstack_sgro Line 1411  if (YY_START != SC_COMMENT) obstack_sgro
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        {        {
# Line 1431  YY_RULE_SETUP Line 1426  YY_RULE_SETUP
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"));
# Line 1461  case YY_STATE_EOF(SC_COMMENT): Line 1456  case YY_STATE_EOF(SC_COMMENT):
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;
# Line 1474  YY_RULE_SETUP Line 1469  YY_RULE_SETUP
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"));
# Line 1503  case YY_STATE_EOF(SC_ESCAPED_STRING): Line 1498  case YY_STATE_EOF(SC_ESCAPED_STRING):
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);
# Line 1522  YY_RULE_SETUP Line 1517  YY_RULE_SETUP
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"));
# Line 1550  case YY_STATE_EOF(SC_ESCAPED_CHARACTER): Line 1545  case YY_STATE_EOF(SC_ESCAPED_CHARACTER):
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)
# Line 1565  YY_RULE_SETUP Line 1560  YY_RULE_SETUP
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));
# Line 1622  YY_RULE_SETUP Line 1617  YY_RULE_SETUP
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    
# Line 1634  YY_OBS_GROW; Line 1629  YY_OBS_GROW;
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);
# Line 1643  YY_RULE_SETUP Line 1638  YY_RULE_SETUP
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"));
# Line 1680  case YY_STATE_EOF(SC_CHARACTER): Line 1675  case YY_STATE_EOF(SC_CHARACTER):
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;
# Line 1689  YY_RULE_SETUP Line 1684  YY_RULE_SETUP
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"));
# Line 1726  case YY_STATE_EOF(SC_STRING): Line 1721  case YY_STATE_EOF(SC_STRING):
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    
# Line 1761  YY_OBS_GROW; Line 1756  YY_OBS_GROW;
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)
# Line 1776  YY_RULE_SETUP Line 1771  YY_RULE_SETUP
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"));
# Line 1826  case YY_STATE_EOF(SC_BRACED_CODE): Line 1821  case YY_STATE_EOF(SC_BRACED_CODE):
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;
# Line 1836  YY_RULE_SETUP Line 1831  YY_RULE_SETUP
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"));
# Line 1869  case YY_STATE_EOF(SC_PROLOGUE): Line 1864  case YY_STATE_EOF(SC_PROLOGUE):
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;
# Line 1884  case YY_STATE_EOF(SC_EPILOGUE): Line 1879  case YY_STATE_EOF(SC_EPILOGUE):
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    
# Line 2777  int main() Line 2772  int main()
2772          return 0;          return 0;
2773          }          }
2774  #endif  #endif
2775  #line 541 "scan-gram.l"  #line 530 "scan-gram.l"
2776    
2777    
2778  /*------------------------------------------------------------------.  /*------------------------------------------------------------------.

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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