X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/db89d400f26fe44997c601d783800849e96fb0c9..eb1b07409f0ccad9970c8a60ded9f2a56d205b9c:/src/parse-gram.c?ds=sidebyside diff --git a/src/parse-gram.c b/src/parse-gram.c index 1453ee90..a0a24f2e 100644 --- a/src/parse-gram.c +++ b/src/parse-gram.c @@ -675,17 +675,17 @@ static const yytype_int8 yyrhs[] = /* YYRLINE[YYN] -- source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { - 0, 210, 210, 218, 220, 224, 225, 235, 236, 250, - 251, 256, 257, 258, 259, 260, 261, 266, 275, 276, - 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, - 287, 288, 289, 290, 291, 292, 293, 297, 298, 299, - 303, 310, 317, 321, 325, 330, 353, 354, 358, 370, - 370, 375, 375, 380, 391, 406, 407, 408, 412, 413, - 418, 420, 425, 426, 430, 431, 432, 433, 438, 443, - 448, 454, 460, 471, 472, 481, 482, 488, 489, 490, - 497, 497, 501, 502, 503, 508, 509, 511, 513, 515, - 517, 527, 528, 534, 538, 547, 567, 569, 578, 583, - 584, 589, 596, 598 + 0, 210, 210, 218, 220, 224, 225, 235, 236, 240, + 241, 246, 247, 248, 249, 250, 251, 256, 265, 266, + 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, + 277, 278, 279, 303, 304, 305, 306, 310, 311, 312, + 316, 323, 330, 334, 338, 345, 360, 361, 365, 377, + 377, 382, 382, 387, 398, 413, 414, 415, 419, 420, + 425, 427, 432, 433, 437, 438, 439, 440, 445, 450, + 455, 461, 467, 478, 479, 488, 489, 495, 496, 497, + 504, 504, 508, 509, 510, 515, 516, 518, 520, 522, + 524, 534, 535, 541, 544, 553, 573, 575, 584, 589, + 590, 595, 602, 604 }; #endif @@ -1272,11 +1272,11 @@ yy_reduce_print (yyvsp, yylsp, yyrule) /* The symbols being reduced. */ for (yyi = 0; yyi < yynrhs; yyi++) { - fprintf (stderr, " $%d = ", yyi + 1); + YYFPRINTF (stderr, " $%d = ", yyi + 1); yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], &(yyvsp[(yyi + 1) - (yynrhs)]) , &(yylsp[(yyi + 1) - (yynrhs)]) ); - fprintf (stderr, "\n"); + YYFPRINTF (stderr, "\n"); } } @@ -1914,31 +1914,21 @@ yyreduce: /* Line 1537 of yacc.c */ #line 237 "parse-gram.y" { - char const name_prefix[] = "percent_define("; - size_t length = strlen ((yyvsp[(2) - (3)].uniqstr)); - char *name = xmalloc (sizeof name_prefix + length + 1); - strcpy (name, name_prefix); - strcpy (name + sizeof name_prefix - 1, (yyvsp[(2) - (3)].uniqstr)); - strcpy (name + sizeof name_prefix - 1 + length, ")"); - if (muscle_find_const (name)) - warn_at ((yylsp[(2) - (3)]), _("%s `%s' redefined"), "%define variable", (yyvsp[(2) - (3)].uniqstr)); - MUSCLE_INSERT_STRING (uniqstr_new (name), (yyvsp[(3) - (3)].chars)); - free (name); - muscle_grow_user_name_list ("percent_define_user_variables", (yyvsp[(2) - (3)].uniqstr), (yylsp[(2) - (3)])); + muscle_percent_define_insert ((yyvsp[(2) - (3)].uniqstr), (yylsp[(2) - (3)]), (yyvsp[(3) - (3)].chars)); } break; case 9: /* Line 1537 of yacc.c */ -#line 250 "parse-gram.y" +#line 240 "parse-gram.y" { defines_flag = true; } break; case 10: /* Line 1537 of yacc.c */ -#line 252 "parse-gram.y" +#line 242 "parse-gram.y" { defines_flag = true; spec_defines_file = xstrdup ((yyvsp[(2) - (2)].chars)); @@ -1948,42 +1938,42 @@ yyreduce: case 11: /* Line 1537 of yacc.c */ -#line 256 "parse-gram.y" +#line 246 "parse-gram.y" { error_verbose = true; } break; case 12: /* Line 1537 of yacc.c */ -#line 257 "parse-gram.y" +#line 247 "parse-gram.y" { expected_sr_conflicts = (yyvsp[(2) - (2)].integer); } break; case 13: /* Line 1537 of yacc.c */ -#line 258 "parse-gram.y" +#line 248 "parse-gram.y" { expected_rr_conflicts = (yyvsp[(2) - (2)].integer); } break; case 14: /* Line 1537 of yacc.c */ -#line 259 "parse-gram.y" +#line 249 "parse-gram.y" { spec_file_prefix = (yyvsp[(2) - (2)].chars); } break; case 15: /* Line 1537 of yacc.c */ -#line 260 "parse-gram.y" +#line 250 "parse-gram.y" { spec_file_prefix = (yyvsp[(3) - (3)].chars); } break; case 16: /* Line 1537 of yacc.c */ -#line 262 "parse-gram.y" +#line 252 "parse-gram.y" { nondeterministic_parser = true; glr_parser = true; @@ -1993,7 +1983,7 @@ yyreduce: case 17: /* Line 1537 of yacc.c */ -#line 267 "parse-gram.y" +#line 257 "parse-gram.y" { code_props action; code_props_symbol_action_init (&action, (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); @@ -2007,133 +1997,155 @@ yyreduce: case 18: /* Line 1537 of yacc.c */ -#line 275 "parse-gram.y" +#line 265 "parse-gram.y" { language_argmatch ((yyvsp[(2) - (2)].chars), 1, &(yylsp[(1) - (2)])); } break; case 19: /* Line 1537 of yacc.c */ -#line 276 "parse-gram.y" +#line 266 "parse-gram.y" { add_param ("lex_param", (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); } break; case 20: /* Line 1537 of yacc.c */ -#line 277 "parse-gram.y" +#line 267 "parse-gram.y" { locations_flag = true; } break; case 21: /* Line 1537 of yacc.c */ -#line 278 "parse-gram.y" +#line 268 "parse-gram.y" { spec_name_prefix = (yyvsp[(2) - (2)].chars); } break; case 22: /* Line 1537 of yacc.c */ -#line 279 "parse-gram.y" +#line 269 "parse-gram.y" { spec_name_prefix = (yyvsp[(3) - (3)].chars); } break; case 23: /* Line 1537 of yacc.c */ -#line 280 "parse-gram.y" +#line 270 "parse-gram.y" { no_lines_flag = true; } break; case 24: /* Line 1537 of yacc.c */ -#line 281 "parse-gram.y" +#line 271 "parse-gram.y" { nondeterministic_parser = true; } break; case 25: /* Line 1537 of yacc.c */ -#line 282 "parse-gram.y" +#line 272 "parse-gram.y" { spec_outfile = (yyvsp[(2) - (2)].chars); } break; case 26: /* Line 1537 of yacc.c */ -#line 283 "parse-gram.y" +#line 273 "parse-gram.y" { spec_outfile = (yyvsp[(3) - (3)].chars); } break; case 27: /* Line 1537 of yacc.c */ -#line 284 "parse-gram.y" +#line 274 "parse-gram.y" { add_param ("parse_param", (yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); } break; case 28: /* Line 1537 of yacc.c */ -#line 285 "parse-gram.y" +#line 275 "parse-gram.y" { pure_parser = true; } break; case 29: /* Line 1537 of yacc.c */ -#line 286 "parse-gram.y" +#line 276 "parse-gram.y" { push_parser = true; pull_parser = false; } break; case 30: /* Line 1537 of yacc.c */ -#line 287 "parse-gram.y" +#line 277 "parse-gram.y" { push_parser = true; pull_parser = true; } break; case 31: /* Line 1537 of yacc.c */ -#line 288 "parse-gram.y" +#line 278 "parse-gram.y" { version_check (&(yylsp[(2) - (2)]), (yyvsp[(2) - (2)].chars)); } break; case 32: /* Line 1537 of yacc.c */ -#line 289 "parse-gram.y" - { skeleton_arg ((yyvsp[(2) - (2)].chars), 1, &(yylsp[(1) - (2)])); } +#line 280 "parse-gram.y" + { + char const *skeleton_user = (yyvsp[(2) - (2)].chars); + if (strchr (skeleton_user, '/')) + { + size_t dir_length = strlen (current_file); + char *skeleton_build; + while (dir_length && current_file[dir_length - 1] != '/') + --dir_length; + while (dir_length && current_file[dir_length - 1] == '/') + --dir_length; + skeleton_build = + xmalloc (dir_length + 1 + strlen (skeleton_user) + 1); + if (dir_length > 0) + { + strncpy (skeleton_build, current_file, dir_length); + skeleton_build[dir_length++] = '/'; + } + strcpy (skeleton_build + dir_length, skeleton_user); + skeleton_user = uniqstr_new (skeleton_build); + free (skeleton_build); + } + skeleton_arg (skeleton_user, 1, &(yylsp[(1) - (2)])); + } break; case 33: /* Line 1537 of yacc.c */ -#line 290 "parse-gram.y" +#line 303 "parse-gram.y" { token_table_flag = true; } break; case 34: /* Line 1537 of yacc.c */ -#line 291 "parse-gram.y" +#line 304 "parse-gram.y" { report_flag = report_states; } break; case 35: /* Line 1537 of yacc.c */ -#line 292 "parse-gram.y" +#line 305 "parse-gram.y" { yacc_flag = true; } break; case 39: /* Line 1537 of yacc.c */ -#line 300 "parse-gram.y" +#line 313 "parse-gram.y" { grammar_start_symbol_set ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)])); } @@ -2142,7 +2154,7 @@ yyreduce: case 40: /* Line 1537 of yacc.c */ -#line 304 "parse-gram.y" +#line 317 "parse-gram.y" { symbol_list *list; for (list = (yyvsp[(3) - (3)].list); list; list = list->next) @@ -2154,7 +2166,7 @@ yyreduce: case 41: /* Line 1537 of yacc.c */ -#line 311 "parse-gram.y" +#line 324 "parse-gram.y" { symbol_list *list; for (list = (yyvsp[(3) - (3)].list); list; list = list->next) @@ -2166,7 +2178,7 @@ yyreduce: case 42: /* Line 1537 of yacc.c */ -#line 318 "parse-gram.y" +#line 331 "parse-gram.y" { default_prec = true; } @@ -2175,7 +2187,7 @@ yyreduce: case 43: /* Line 1537 of yacc.c */ -#line 322 "parse-gram.y" +#line 335 "parse-gram.y" { default_prec = false; } @@ -2184,9 +2196,11 @@ yyreduce: case 44: /* Line 1537 of yacc.c */ -#line 326 "parse-gram.y" +#line 339 "parse-gram.y" { - muscle_code_grow ("percent_code_unqualified", (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); + /* Do not invoke muscle_percent_code_grow here since it invokes + muscle_user_name_list_grow. */ + muscle_code_grow ("percent_code()", (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); code_scanner_last_string_free (); } break; @@ -2194,39 +2208,31 @@ yyreduce: case 45: /* Line 1537 of yacc.c */ -#line 331 "parse-gram.y" +#line 346 "parse-gram.y" { - char const name_prefix[] = "percent_code("; - size_t length = strlen ((yyvsp[(2) - (3)].uniqstr)); - char *name = xmalloc (sizeof name_prefix + length + 1); - strcpy (name, name_prefix); - strcpy (name + sizeof name_prefix - 1, (yyvsp[(2) - (3)].uniqstr)); - strcpy (name + sizeof name_prefix - 1 + length, ")"); - muscle_code_grow (uniqstr_new (name), (yyvsp[(3) - (3)].chars), (yylsp[(3) - (3)])); - free (name); + muscle_percent_code_grow ((yyvsp[(2) - (3)].uniqstr), (yylsp[(2) - (3)]), (yyvsp[(3) - (3)].chars), (yylsp[(3) - (3)])); code_scanner_last_string_free (); - muscle_grow_user_name_list ("percent_code_user_qualifiers", (yyvsp[(2) - (3)].uniqstr), (yylsp[(2) - (3)])); } break; case 46: /* Line 1537 of yacc.c */ -#line 353 "parse-gram.y" +#line 360 "parse-gram.y" {} break; case 47: /* Line 1537 of yacc.c */ -#line 354 "parse-gram.y" +#line 361 "parse-gram.y" { muscle_code_grow ("union_name", (yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); } break; case 48: /* Line 1537 of yacc.c */ -#line 359 "parse-gram.y" +#line 366 "parse-gram.y" { union_seen = true; muscle_code_grow ("stype", (yyvsp[(3) - (3)].chars), (yylsp[(3) - (3)])); @@ -2237,14 +2243,14 @@ yyreduce: case 49: /* Line 1537 of yacc.c */ -#line 370 "parse-gram.y" +#line 377 "parse-gram.y" { current_class = nterm_sym; } break; case 50: /* Line 1537 of yacc.c */ -#line 371 "parse-gram.y" +#line 378 "parse-gram.y" { current_class = unknown_sym; current_type = NULL; @@ -2254,14 +2260,14 @@ yyreduce: case 51: /* Line 1537 of yacc.c */ -#line 375 "parse-gram.y" +#line 382 "parse-gram.y" { current_class = token_sym; } break; case 52: /* Line 1537 of yacc.c */ -#line 376 "parse-gram.y" +#line 383 "parse-gram.y" { current_class = unknown_sym; current_type = NULL; @@ -2271,7 +2277,7 @@ yyreduce: case 53: /* Line 1537 of yacc.c */ -#line 381 "parse-gram.y" +#line 388 "parse-gram.y" { symbol_list *list; tag_seen = true; @@ -2284,7 +2290,7 @@ yyreduce: case 54: /* Line 1537 of yacc.c */ -#line 392 "parse-gram.y" +#line 399 "parse-gram.y" { symbol_list *list; ++current_prec; @@ -2301,98 +2307,98 @@ yyreduce: case 55: /* Line 1537 of yacc.c */ -#line 406 "parse-gram.y" +#line 413 "parse-gram.y" { (yyval.assoc) = left_assoc; } break; case 56: /* Line 1537 of yacc.c */ -#line 407 "parse-gram.y" +#line 414 "parse-gram.y" { (yyval.assoc) = right_assoc; } break; case 57: /* Line 1537 of yacc.c */ -#line 408 "parse-gram.y" +#line 415 "parse-gram.y" { (yyval.assoc) = non_assoc; } break; case 58: /* Line 1537 of yacc.c */ -#line 412 "parse-gram.y" +#line 419 "parse-gram.y" { current_type = NULL; } break; case 59: /* Line 1537 of yacc.c */ -#line 413 "parse-gram.y" +#line 420 "parse-gram.y" { current_type = (yyvsp[(1) - (1)].uniqstr); tag_seen = true; } break; case 60: /* Line 1537 of yacc.c */ -#line 419 "parse-gram.y" +#line 426 "parse-gram.y" { (yyval.list) = symbol_list_sym_new ((yyvsp[(1) - (1)].symbol), (yylsp[(1) - (1)])); } break; case 61: /* Line 1537 of yacc.c */ -#line 421 "parse-gram.y" +#line 428 "parse-gram.y" { (yyval.list) = symbol_list_prepend ((yyvsp[(1) - (2)].list), symbol_list_sym_new ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)]))); } break; case 62: /* Line 1537 of yacc.c */ -#line 425 "parse-gram.y" +#line 432 "parse-gram.y" { (yyval.list) = (yyvsp[(1) - (1)].list); } break; case 63: /* Line 1537 of yacc.c */ -#line 426 "parse-gram.y" +#line 433 "parse-gram.y" { (yyval.list) = symbol_list_prepend ((yyvsp[(1) - (2)].list), (yyvsp[(2) - (2)].list)); } break; case 64: /* Line 1537 of yacc.c */ -#line 430 "parse-gram.y" +#line 437 "parse-gram.y" { (yyval.list) = symbol_list_sym_new ((yyvsp[(1) - (1)].symbol), (yylsp[(1) - (1)])); } break; case 65: /* Line 1537 of yacc.c */ -#line 431 "parse-gram.y" +#line 438 "parse-gram.y" { (yyval.list) = symbol_list_type_new ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); } break; case 66: /* Line 1537 of yacc.c */ -#line 432 "parse-gram.y" +#line 439 "parse-gram.y" { (yyval.list) = symbol_list_default_tagged_new ((yylsp[(1) - (1)])); } break; case 67: /* Line 1537 of yacc.c */ -#line 433 "parse-gram.y" +#line 440 "parse-gram.y" { (yyval.list) = symbol_list_default_tagless_new ((yylsp[(1) - (1)])); } break; case 68: /* Line 1537 of yacc.c */ -#line 439 "parse-gram.y" +#line 446 "parse-gram.y" { current_type = (yyvsp[(1) - (1)].uniqstr); tag_seen = true; @@ -2402,7 +2408,7 @@ yyreduce: case 69: /* Line 1537 of yacc.c */ -#line 444 "parse-gram.y" +#line 451 "parse-gram.y" { symbol_class_set ((yyvsp[(1) - (1)].symbol), current_class, (yylsp[(1) - (1)]), true); symbol_type_set ((yyvsp[(1) - (1)].symbol), current_type, (yylsp[(1) - (1)])); @@ -2412,7 +2418,7 @@ yyreduce: case 70: /* Line 1537 of yacc.c */ -#line 449 "parse-gram.y" +#line 456 "parse-gram.y" { symbol_class_set ((yyvsp[(1) - (2)].symbol), current_class, (yylsp[(1) - (2)]), true); symbol_type_set ((yyvsp[(1) - (2)].symbol), current_type, (yylsp[(1) - (2)])); @@ -2423,7 +2429,7 @@ yyreduce: case 71: /* Line 1537 of yacc.c */ -#line 455 "parse-gram.y" +#line 462 "parse-gram.y" { symbol_class_set ((yyvsp[(1) - (2)].symbol), current_class, (yylsp[(1) - (2)]), true); symbol_type_set ((yyvsp[(1) - (2)].symbol), current_type, (yylsp[(1) - (2)])); @@ -2434,7 +2440,7 @@ yyreduce: case 72: /* Line 1537 of yacc.c */ -#line 461 "parse-gram.y" +#line 468 "parse-gram.y" { symbol_class_set ((yyvsp[(1) - (3)].symbol), current_class, (yylsp[(1) - (3)]), true); symbol_type_set ((yyvsp[(1) - (3)].symbol), current_type, (yylsp[(1) - (3)])); @@ -2446,7 +2452,7 @@ yyreduce: case 79: /* Line 1537 of yacc.c */ -#line 491 "parse-gram.y" +#line 498 "parse-gram.y" { yyerrok; } @@ -2455,87 +2461,86 @@ yyreduce: case 80: /* Line 1537 of yacc.c */ -#line 497 "parse-gram.y" +#line 504 "parse-gram.y" { current_lhs = (yyvsp[(1) - (1)].symbol); current_lhs_location = (yylsp[(1) - (1)]); } break; case 82: /* Line 1537 of yacc.c */ -#line 501 "parse-gram.y" +#line 508 "parse-gram.y" { grammar_current_rule_end ((yylsp[(1) - (1)])); } break; case 83: /* Line 1537 of yacc.c */ -#line 502 "parse-gram.y" +#line 509 "parse-gram.y" { grammar_current_rule_end ((yylsp[(3) - (3)])); } break; case 85: /* Line 1537 of yacc.c */ -#line 508 "parse-gram.y" +#line 515 "parse-gram.y" { grammar_current_rule_begin (current_lhs, current_lhs_location); } break; case 86: /* Line 1537 of yacc.c */ -#line 510 "parse-gram.y" +#line 517 "parse-gram.y" { grammar_current_rule_symbol_append ((yyvsp[(2) - (2)].symbol), (yylsp[(2) - (2)])); } break; case 87: /* Line 1537 of yacc.c */ -#line 512 "parse-gram.y" +#line 519 "parse-gram.y" { grammar_current_rule_action_append ((yyvsp[(2) - (2)].code), (yylsp[(2) - (2)])); } break; case 88: /* Line 1537 of yacc.c */ -#line 514 "parse-gram.y" +#line 521 "parse-gram.y" { grammar_current_rule_prec_set ((yyvsp[(3) - (3)].symbol), (yylsp[(3) - (3)])); } break; case 89: /* Line 1537 of yacc.c */ -#line 516 "parse-gram.y" +#line 523 "parse-gram.y" { grammar_current_rule_dprec_set ((yyvsp[(3) - (3)].integer), (yylsp[(3) - (3)])); } break; case 90: /* Line 1537 of yacc.c */ -#line 518 "parse-gram.y" +#line 525 "parse-gram.y" { grammar_current_rule_merge_set ((yyvsp[(3) - (3)].uniqstr), (yylsp[(3) - (3)])); } break; case 92: /* Line 1537 of yacc.c */ -#line 528 "parse-gram.y" +#line 535 "parse-gram.y" { (yyval.uniqstr) = uniqstr_new ((yyvsp[(1) - (1)].chars)); } break; case 93: /* Line 1537 of yacc.c */ -#line 534 "parse-gram.y" +#line 541 "parse-gram.y" { - static char one[] = "1"; - (yyval.chars) = one; + (yyval.chars) = ""; } break; case 95: /* Line 1537 of yacc.c */ -#line 548 "parse-gram.y" +#line 554 "parse-gram.y" { code_props plain_code; (yyvsp[(1) - (1)].code)[strlen ((yyvsp[(1) - (1)].code)) - 1] = '\n'; @@ -2549,14 +2554,14 @@ yyreduce: case 96: /* Line 1537 of yacc.c */ -#line 568 "parse-gram.y" +#line 574 "parse-gram.y" { (yyval.symbol) = symbol_from_uniqstr ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); } break; case 97: /* Line 1537 of yacc.c */ -#line 570 "parse-gram.y" +#line 576 "parse-gram.y" { (yyval.symbol) = symbol_get (char_name ((yyvsp[(1) - (1)].character)), (yylsp[(1) - (1)])); symbol_class_set ((yyval.symbol), token_sym, (yylsp[(1) - (1)]), false); @@ -2567,14 +2572,14 @@ yyreduce: case 98: /* Line 1537 of yacc.c */ -#line 578 "parse-gram.y" +#line 584 "parse-gram.y" { (yyval.symbol) = symbol_from_uniqstr ((yyvsp[(1) - (1)].uniqstr), (yylsp[(1) - (1)])); } break; case 101: /* Line 1537 of yacc.c */ -#line 590 "parse-gram.y" +#line 596 "parse-gram.y" { (yyval.symbol) = symbol_get (quotearg_style (c_quoting_style, (yyvsp[(1) - (1)].chars)), (yylsp[(1) - (1)])); symbol_class_set ((yyval.symbol), token_sym, (yylsp[(1) - (1)]), false); @@ -2584,7 +2589,7 @@ yyreduce: case 103: /* Line 1537 of yacc.c */ -#line 599 "parse-gram.y" +#line 605 "parse-gram.y" { code_props plain_code; code_props_plain_init (&plain_code, (yyvsp[(2) - (2)].chars), (yylsp[(2) - (2)])); @@ -2598,7 +2603,7 @@ yyreduce: /* Line 1537 of yacc.c */ -#line 2602 "parse-gram.c" +#line 2607 "parse-gram.c" default: break; } YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); @@ -2817,7 +2822,7 @@ yyreturn: /* Line 1537 of yacc.c */ -#line 609 "parse-gram.y" +#line 615 "parse-gram.y"