tests/actions.at

   1 # Executing Actions.                               -*- Autotest -*-
   2 # Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2, or (at your option)
   7 # any later version.
   8
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  17 # 02110-1301, USA.
  18
  19 AT_BANNER([[User Actions.]])
  20
  21 ## ------------------ ##
  22 ## Mid-rule actions.  ##
  23 ## ------------------ ##
  24
  25 AT_SETUP([Mid-rule actions])
  26
  27 # Bison once forgot the mid-rule actions.  It was because the action
  28 # was attached to the host rule (the one with the mid-rule action),
  29 # instead of being attached to the empty rule dedicated to this
  30 # action.
  31
  32 AT_DATA_GRAMMAR([[input.y]],
  33 [[%error-verbose
  34 %debug
  35 %{
  36 # include <stdio.h>
  37 # include <stdlib.h>
  38   static void yyerror (const char *msg);
  39   static int yylex (void);
  40 %}
  41 %%
  42 exp:     { putchar ('0'); }
  43      '1' { putchar ('1'); }
  44      '2' { putchar ('2'); }
  45      '3' { putchar ('3'); }
  46      '4' { putchar ('4'); }
  47      '5' { putchar ('5'); }
  48      '6' { putchar ('6'); }
  49      '7' { putchar ('7'); }
  50      '8' { putchar ('8'); }
  51      '9' { putchar ('9'); }
  52          { putchar ('\n'); }
  53    ;
  54 %%
  55 static int
  56 yylex (void)
  57 {
  58   static char const input[] = "123456789";
  59   static size_t toknum;
  60   if (! (toknum < sizeof input))
  61     abort ();
  62   return input[toknum++];
  63 }
  64
  65 static void
  66 yyerror (const char *msg)
  67 {
  68   fprintf (stderr, "%s\n", msg);
  69 }
  70
  71 int
  72 main (void)
  73 {
  74   return yyparse ();
  75 }
  76 ]])
  77
  78 AT_CHECK([bison -d -v -o input.c input.y])
  79 AT_COMPILE([input])
  80 AT_PARSER_CHECK([./input], 0,
  81 [[0123456789
  82 ]])
  83
  84 AT_CLEANUP
  85
  86
  87
  88
  89
  90 ## ---------------- ##
  91 ## Exotic Dollars.  ##
  92 ## ---------------- ##
  93
  94 AT_SETUP([Exotic Dollars])
  95
  96 AT_DATA_GRAMMAR([[input.y]],
  97 [[%error-verbose
  98 %debug
  99 %{
 100 # include <stdio.h>
 101 # include <stdlib.h>
 102   static void yyerror (const char *msg);
 103   static int yylex (void);
 104 # define USE(Var)
 105 %}
 106
 107 %union
 108 {
 109   int val;
 110 };
 111
 112 %type <val> a_1 a_2 a_5
 113             sum_of_the_five_previous_values
 114
 115 %%
 116 exp: a_1 a_2 { $<val>$ = 3; } { $<val>$ = $<val>3 + 1; } a_5
 117      sum_of_the_five_previous_values
 118     {
 119        USE (($1, $2, $<foo>3, $<foo>4, $5));
 120        printf ("%d\n", $6);
 121     }
 122 ;
 123 a_1: { $$ = 1; };
 124 a_2: { $$ = 2; };
 125 a_5: { $$ = 5; };
 126
 127 sum_of_the_five_previous_values:
 128     {
 129        $$ = $<val>0 + $<val>-1 + $<val>-2 + $<val>-3 + $<val>-4;
 130     }
 131 ;
 132
 133 %%
 134 static int
 135 yylex (void)
 136 {
 137   static int called;
 138   if (called++)
 139     abort ();
 140   return EOF;
 141 }
 142
 143 static void
 144 yyerror (const char *msg)
 145 {
 146   fprintf (stderr, "%s\n", msg);
 147 }
 148
 149 int
 150 main (void)
 151 {
 152   return yyparse ();
 153 }
 154 ]])
 155
 156 AT_CHECK([bison -d -v -o input.c input.y], 0)
 157 AT_COMPILE([input])
 158 AT_PARSER_CHECK([./input], 0,
 159 [[15
 160 ]])
 161
 162 AT_CLEANUP
 163
 164
 165
 166 ## -------------------------- ##
 167 ## Printers and Destructors.  ##
 168 ## -------------------------- ##
 169
 170 # _AT_CHECK_PRINTER_AND_DESTRUCTOR($1, $2, $3, $4, BISON-DIRECTIVE, UNION-FLAG)
 171 # -----------------------------------------------------------------------------
 172 m4_define([_AT_CHECK_PRINTER_AND_DESTRUCTOR],
 173 [# Make sure complex $n work.
 174 m4_if([$1$2$3], $[1]$[2]$[3], [],
 175        [m4_fatal([$0: Invalid arguments: $@])])dnl
 176
 177 # Be sure to pass all the %directives to this macro to have correct
 178 # helping macros.  So don't put any directly in the Bison file.
 179 AT_BISON_OPTION_PUSHDEFS([$5])
 180 AT_DATA_GRAMMAR([[input.y]],
 181 [[%requires {
 182 #include <stdio.h>
 183 #include <stdlib.h>
 184 #include <string.h>
 185 #include <assert.h>
 186
 187 #define YYINITDEPTH 10
 188 #define YYMAXDEPTH 10
 189 ]AT_LALR1_CC_IF(
 190   [#define RANGE(Location) (Location).begin.line, (Location).end.line],
 191   [#define RANGE(Location) (Location).first_line, (Location).last_line])
 192 [}
 193
 194 $5]
 195 m4_ifval([$6], [%union
 196 {
 197   int ival;
 198 }])
 199 AT_LALR1_CC_IF([%define "global_tokens_and_yystype"])
 200 m4_ifval([$6], [[%provides {]], [[%code {]])
 201 AT_LALR1_CC_IF([typedef yy::location YYLTYPE;])
 202 [static int yylex (]AT_LEX_FORMALS[);
 203 ]AT_LALR1_CC_IF([], [static void yyerror (const char *msg);])
 204 [}
 205
 206 ]m4_ifval([$6], [%type <ival> '(' 'x' 'y' ')' ';' thing line input END])[
 207
 208 /* FIXME: This %printer isn't actually tested.  */
 209 %printer
 210   {
 211     ]AT_LALR1_CC_IF([debug_stream () << $$;],
 212                     [fprintf (yyoutput, "%d", $$)])[;
 213   }
 214   input line thing 'x' 'y'
 215
 216 %destructor
 217   { printf ("Freeing nterm input (%d@%d-%d)\n", $$, RANGE (@$)); }
 218   input
 219
 220 %destructor
 221   { printf ("Freeing nterm line (%d@%d-%d)\n", $$, RANGE (@$)); }
 222   line
 223
 224 %destructor
 225   { printf ("Freeing nterm thing (%d@%d-%d)\n", $$, RANGE (@$)); }
 226   thing
 227
 228 %destructor
 229   { printf ("Freeing token 'x' (%d@%d-%d)\n", $$, RANGE (@$)); }
 230   'x'
 231
 232 %destructor
 233   { printf ("Freeing token 'y' (%d@%d-%d)\n", $$, RANGE (@$)); }
 234   'y'
 235
 236 %token END 0
 237 %destructor
 238   { printf ("Freeing token END (%d@%d-%d)\n", $$, RANGE (@$)); }
 239   END
 240
 241 %%
 242 /*
 243    This grammar is made to exercise error recovery.
 244    "Lines" starting with `(' support error recovery, with
 245    ')' as synchronizing token.  Lines starting with 'x' can never
 246    be recovered from if in error.
 247 */
 248
 249 input:
 250   /* Nothing. */
 251     {
 252       $$ = 0;
 253       printf ("input (%d@%d-%d): /* Nothing */\n", $$, RANGE (@$));
 254     }
 255 | line input /* Right recursive to load the stack so that popping at
 256                 END can be exercised.  */
 257     {
 258       $$ = 2;
 259       printf ("input (%d@%d-%d): line (%d@%d-%d) input (%d@%d-%d)\n",
 260               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2));
 261     }
 262 ;
 263
 264 line:
 265   thing thing thing ';'
 266     {
 267       $$ = $1;
 268       printf ("line (%d@%d-%d): thing (%d@%d-%d) thing (%d@%d-%d) thing (%d@%d-%d) ';' (%d@%d-%d)\n",
 269               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2),
 270               $3, RANGE (@3), $4, RANGE (@4));
 271     }
 272 | '(' thing thing ')'
 273     {
 274       $$ = $1;
 275       printf ("line (%d@%d-%d): '(' (%d@%d-%d) thing (%d@%d-%d) thing (%d@%d-%d) ')' (%d@%d-%d)\n",
 276               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2),
 277               $3, RANGE (@3), $4, RANGE (@4));
 278     }
 279 | '(' thing ')'
 280     {
 281       $$ = $1;
 282       printf ("line (%d@%d-%d): '(' (%d@%d-%d) thing (%d@%d-%d) ')' (%d@%d-%d)\n",
 283               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2), $3, RANGE (@3));
 284     }
 285 | '(' error ')'
 286     {
 287       $$ = -1;
 288       printf ("line (%d@%d-%d): '(' (%d@%d-%d) error (@%d-%d) ')' (%d@%d-%d)\n",
 289               $$, RANGE (@$), $1, RANGE (@1), RANGE (@2), $3, RANGE (@3));
 290     }
 291 ;
 292
 293 thing:
 294   'x'
 295     {
 296       $$ = $1;
 297       printf ("thing (%d@%d-%d): 'x' (%d@%d-%d)\n",
 298               $$, RANGE (@$), $1, RANGE (@1));
 299     }
 300 ;
 301 %%
 302 /* Alias to ARGV[1]. */
 303 const char *source = 0;
 304
 305 static int
 306 yylex (]AT_LEX_FORMALS[)
 307 {
 308   static unsigned int counter = 0;
 309
 310   int c = ]AT_VAL[]m4_ifval([$6], [.ival])[ = counter++;
 311   /* As in BASIC, line numbers go from 10 to 10.  */
 312 ]AT_LALR1_CC_IF(
 313 [ AT_LOC.begin.line = AT_LOC.begin.column = 10 * c;
 314   AT_LOC.end.line = AT_LOC.end.column = AT_LOC.begin.line + 9;
 315 ],
 316 [ AT_LOC.first_line = AT_LOC.first_column = 10 * c;
 317   AT_LOC.last_line = AT_LOC.last_column = AT_LOC.first_line + 9;
 318 ])[
 319
 320   if (! (0 <= c && c <= strlen (source)))
 321     abort ();
 322   if (source[c])
 323     printf ("sending: '%c'", source[c]);
 324   else
 325     printf ("sending: END");
 326   printf (" (%d@%d-%d)\n", c, RANGE (]AT_LOC[));
 327   return source[c];
 328 }
 329
 330 ]AT_LALR1_CC_IF(
 331 [/* A C++ error reporting function. */
 332 void
 333 yy::parser::error (const location& l, const std::string& m)
 334 {
 335   printf ("%d-%d: %s\n", RANGE (l), m.c_str());
 336 }
 337
 338 static bool yydebug;
 339 int
 340 yyparse ()
 341 {
 342   yy::parser parser;
 343   parser.set_debug_level (yydebug);
 344   return parser.parse ();
 345 }
 346 ],
 347 [static void
 348 yyerror (const char *msg)
 349 {
 350   printf ("%d-%d: %s\n", RANGE (yylloc), msg);
 351 }])[
 352
 353 int
 354 main (int argc, const char *argv[])
 355 {
 356   int status;
 357   yydebug = !!getenv ("YYDEBUG");
 358   assert (argc == 2);
 359   source = argv[1];
 360   status = yyparse ();
 361   switch (status)
 362     {
 363       case 0: printf ("Successful parse.\n"); break;
 364       case 1: printf ("Parsing FAILED.\n"); break;
 365       default: printf ("Parsing FAILED (status %d).\n", status); break;
 366     }
 367   return status;
 368 }
 369 ]])
 370
 371 AT_LALR1_CC_IF(
 372   [AT_CHECK([bison -o input.cc input.y])
 373    AT_COMPILE_CXX([input])],
 374   [AT_CHECK([bison -o input.c input.y])
 375    AT_COMPILE([input])])
 376
 377
 378 # Check the location of "empty"
 379 # -----------------------------
 380 # I.e., epsilon-reductions, as in "(x)" which ends by reducing
 381 # an empty "line" nterm.
 382 # FIXME: This location is not satisfying.  Depend on the lookahead?
 383 AT_PARSER_CHECK([./input '(x)'], 0,
 384 [[sending: '(' (0@0-9)
 385 sending: 'x' (1@10-19)
 386 thing (1@10-19): 'x' (1@10-19)
 387 sending: ')' (2@20-29)
 388 line (0@0-29): '(' (0@0-9) thing (1@10-19) ')' (2@20-29)
 389 sending: END (3@30-39)
 390 input (0@29-29): /* Nothing */
 391 input (2@0-29): line (0@0-29) input (0@29-29)
 392 Freeing token END (3@30-39)
 393 Freeing nterm input (2@0-29)
 394 Successful parse.
 395 ]])
 396
 397
 398 # Check locations in error recovery
 399 # ---------------------------------
 400 # '(y)' is an error, but can be recovered from.  But what's the location
 401 # of the error itself ('y'), and of the resulting reduction ('(error)').
 402 AT_PARSER_CHECK([./input '(y)'], 0,
 403 [[sending: '(' (0@0-9)
 404 sending: 'y' (1@10-19)
 405 10-19: syntax error, unexpected 'y', expecting 'x'
 406 Freeing token 'y' (1@10-19)
 407 sending: ')' (2@20-29)
 408 line (-1@0-29): '(' (0@0-9) error (@10-19) ')' (2@20-29)
 409 sending: END (3@30-39)
 410 input (0@29-29): /* Nothing */
 411 input (2@0-29): line (-1@0-29) input (0@29-29)
 412 Freeing token END (3@30-39)
 413 Freeing nterm input (2@0-29)
 414 Successful parse.
 415 ]])
 416
 417
 418 # Syntax errors caught by the parser
 419 # ----------------------------------
 420 # Exercise the discarding of stack top and input until `error'
 421 # can be reduced.
 422 #
 423 #     '(', 'x', 'x', 'x', 'x', 'x', ')',
 424 #
 425 # Load the stack and provoke an error that cannot be caught by the
 426 # grammar, to check that the stack is cleared.  And make sure the
 427 # lookahead is freed.
 428 #
 429 #     '(', 'x', ')',
 430 #     '(', 'x', ')',
 431 #     'y'
 432 AT_PARSER_CHECK([./input '(xxxxx)(x)(x)y'], 1,
 433 [[sending: '(' (0@0-9)
 434 sending: 'x' (1@10-19)
 435 thing (1@10-19): 'x' (1@10-19)
 436 sending: 'x' (2@20-29)
 437 thing (2@20-29): 'x' (2@20-29)
 438 sending: 'x' (3@30-39)
 439 30-39: syntax error, unexpected 'x', expecting ')'
 440 Freeing nterm thing (2@20-29)
 441 Freeing nterm thing (1@10-19)
 442 Freeing token 'x' (3@30-39)
 443 sending: 'x' (4@40-49)
 444 Freeing token 'x' (4@40-49)
 445 sending: 'x' (5@50-59)
 446 Freeing token 'x' (5@50-59)
 447 sending: ')' (6@60-69)
 448 line (-1@0-69): '(' (0@0-9) error (@10-59) ')' (6@60-69)
 449 sending: '(' (7@70-79)
 450 sending: 'x' (8@80-89)
 451 thing (8@80-89): 'x' (8@80-89)
 452 sending: ')' (9@90-99)
 453 line (7@70-99): '(' (7@70-79) thing (8@80-89) ')' (9@90-99)
 454 sending: '(' (10@100-109)
 455 sending: 'x' (11@110-119)
 456 thing (11@110-119): 'x' (11@110-119)
 457 sending: ')' (12@120-129)
 458 line (10@100-129): '(' (10@100-109) thing (11@110-119) ')' (12@120-129)
 459 sending: 'y' (13@130-139)
 460 input (0@129-129): /* Nothing */
 461 input (2@100-129): line (10@100-129) input (0@129-129)
 462 input (2@70-129): line (7@70-99) input (2@100-129)
 463 input (2@0-129): line (-1@0-69) input (2@70-129)
 464 130-139: syntax error, unexpected 'y', expecting END
 465 Freeing nterm input (2@0-129)
 466 Freeing token 'y' (13@130-139)
 467 Parsing FAILED.
 468 ]])
 469
 470
 471 # Syntax error caught by the parser where lookahead = END
 472 # --------------------------------------------------------
 473 # Load the stack and provoke an error that cannot be caught by the
 474 # grammar, to check that the stack is cleared.  And make sure the
 475 # lookahead is freed.
 476 #
 477 #     '(', 'x', ')',
 478 #     '(', 'x', ')',
 479 #     'x'
 480 AT_PARSER_CHECK([./input '(x)(x)x'], 1,
 481 [[sending: '(' (0@0-9)
 482 sending: 'x' (1@10-19)
 483 thing (1@10-19): 'x' (1@10-19)
 484 sending: ')' (2@20-29)
 485 line (0@0-29): '(' (0@0-9) thing (1@10-19) ')' (2@20-29)
 486 sending: '(' (3@30-39)
 487 sending: 'x' (4@40-49)
 488 thing (4@40-49): 'x' (4@40-49)
 489 sending: ')' (5@50-59)
 490 line (3@30-59): '(' (3@30-39) thing (4@40-49) ')' (5@50-59)
 491 sending: 'x' (6@60-69)
 492 thing (6@60-69): 'x' (6@60-69)
 493 sending: END (7@70-79)
 494 70-79: syntax error, unexpected END, expecting 'x'
 495 Freeing nterm thing (6@60-69)
 496 Freeing nterm line (3@30-59)
 497 Freeing nterm line (0@0-29)
 498 Freeing token END (7@70-79)
 499 Parsing FAILED.
 500 ]])
 501
 502
 503 # Check destruction upon stack overflow
 504 # -------------------------------------
 505 # Upon stack overflow, all symbols on the stack should be destroyed.
 506 # Only check for yacc.c.
 507 AT_YACC_IF([
 508 AT_PARSER_CHECK([./input '(x)(x)(x)(x)(x)(x)(x)'], 2,
 509 [[sending: '(' (0@0-9)
 510 sending: 'x' (1@10-19)
 511 thing (1@10-19): 'x' (1@10-19)
 512 sending: ')' (2@20-29)
 513 line (0@0-29): '(' (0@0-9) thing (1@10-19) ')' (2@20-29)
 514 sending: '(' (3@30-39)
 515 sending: 'x' (4@40-49)
 516 thing (4@40-49): 'x' (4@40-49)
 517 sending: ')' (5@50-59)
 518 line (3@30-59): '(' (3@30-39) thing (4@40-49) ')' (5@50-59)
 519 sending: '(' (6@60-69)
 520 sending: 'x' (7@70-79)
 521 thing (7@70-79): 'x' (7@70-79)
 522 sending: ')' (8@80-89)
 523 line (6@60-89): '(' (6@60-69) thing (7@70-79) ')' (8@80-89)
 524 sending: '(' (9@90-99)
 525 sending: 'x' (10@100-109)
 526 thing (10@100-109): 'x' (10@100-109)
 527 sending: ')' (11@110-119)
 528 line (9@90-119): '(' (9@90-99) thing (10@100-109) ')' (11@110-119)
 529 sending: '(' (12@120-129)
 530 sending: 'x' (13@130-139)
 531 thing (13@130-139): 'x' (13@130-139)
 532 sending: ')' (14@140-149)
 533 line (12@120-149): '(' (12@120-129) thing (13@130-139) ')' (14@140-149)
 534 sending: '(' (15@150-159)
 535 sending: 'x' (16@160-169)
 536 thing (16@160-169): 'x' (16@160-169)
 537 sending: ')' (17@170-179)
 538 line (15@150-179): '(' (15@150-159) thing (16@160-169) ')' (17@170-179)
 539 sending: '(' (18@180-189)
 540 sending: 'x' (19@190-199)
 541 thing (19@190-199): 'x' (19@190-199)
 542 sending: ')' (20@200-209)
 543 200-209: memory exhausted
 544 Freeing nterm thing (19@190-199)
 545 Freeing nterm line (15@150-179)
 546 Freeing nterm line (12@120-149)
 547 Freeing nterm line (9@90-119)
 548 Freeing nterm line (6@60-89)
 549 Freeing nterm line (3@30-59)
 550 Freeing nterm line (0@0-29)
 551 Parsing FAILED (status 2).
 552 ]])
 553 ])
 554
 555 ])
 556
 557
 558 # AT_CHECK_PRINTER_AND_DESTRUCTOR([BISON-OPTIONS], [UNION-FLAG], [SKIP_FLAG])
 559 # ---------------------------------------------------------------------------
 560 m4_define([AT_CHECK_PRINTER_AND_DESTRUCTOR],
 561 [AT_SETUP([Printers and Destructors $2: $1])
 562
 563 $3
 564 _AT_CHECK_PRINTER_AND_DESTRUCTOR($[1], $[2], $[3], $[4],
 565 [%error-verbose
 566 %debug
 567 %verbose
 568 %locations
 569 $1], [$2])
 570
 571 AT_CLEANUP
 572 ])
 573
 574
 575 AT_CHECK_PRINTER_AND_DESTRUCTOR([])
 576 AT_CHECK_PRINTER_AND_DESTRUCTOR([], [with union])
 577
 578 AT_CHECK_PRINTER_AND_DESTRUCTOR([%defines %skeleton "lalr1.cc"])
 579 AT_CHECK_PRINTER_AND_DESTRUCTOR([%defines %skeleton "lalr1.cc"], [with union])
 580
 581 AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser])
 582 AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser], [with union])
 583
 584
 585
 586 ## --------------------------------- ##
 587 ## Default %printer and %destructor. ##
 588 ## --------------------------------- ##
 589
 590 # Check that the right %printer and %destructor are called, that they're not
 591 # called for $end, and that $$ and @$ work correctly.
 592
 593 AT_SETUP([Default %printer and %destructor])
 594
 595 AT_DATA_GRAMMAR([[input.y]],
 596 [[%error-verbose
 597 %debug
 598 %locations
 599 %initial-action {
 600   @$.first_line = @$.last_line = 1;
 601   @$.first_column = @$.last_column = 1;
 602 }
 603
 604 %{
 605 # include <stdio.h>
 606 # include <stdlib.h>
 607   static void yyerror (const char *msg);
 608   static int yylex (void);
 609 # define USE(SYM)
 610 %}
 611
 612 %printer {
 613   fprintf (yyoutput, "Default printer for '%c' @ %d", $$, @$.first_column);
 614 } %symbol-default
 615 %destructor {
 616   fprintf (stdout, "Default destructor for '%c' @ %d.\n", $$, @$.first_column);
 617 } %symbol-default
 618
 619 %printer {
 620   fprintf (yyoutput, "'b'/'c' printer for '%c' @ %d", $$, @$.first_column);
 621 } 'b' 'c'
 622 %destructor {
 623   fprintf (stdout, "'b'/'c' destructor for '%c' @ %d.\n", $$, @$.first_column);
 624 } 'b' 'c'
 625
 626 %%
 627
 628 start: 'a' 'b' 'c' 'd' 'e' { $$ = 'S'; USE(($1, $2, $3, $4, $5)); } ;
 629
 630 %%
 631
 632 static int
 633 yylex (void)
 634 {
 635   static char const input[] = "abcd";
 636   static size_t toknum;
 637   if (! (toknum < sizeof input))
 638     abort ();
 639   yylval = input[toknum++];
 640   yylloc.first_line = yylloc.last_line = 1;
 641   yylloc.first_column = yylloc.last_column = toknum;
 642   return yylval;
 643 }
 644
 645 static void
 646 yyerror (const char *msg)
 647 {
 648   fprintf (stderr, "%s\n", msg);
 649 }
 650
 651 int
 652 main (void)
 653 {
 654   yydebug = 1;
 655   return yyparse ();
 656 }
 657 ]])
 658
 659 AT_CHECK([bison -o input.c input.y])
 660 AT_COMPILE([input])
 661 AT_PARSER_CHECK([./input], 1,
 662 [[Default destructor for 'd' @ 4.
 663 'b'/'c' destructor for 'c' @ 3.
 664 'b'/'c' destructor for 'b' @ 2.
 665 Default destructor for 'a' @ 1.
 666 ]],
 667 [[Starting parse
 668 Entering state 0
 669 Reading a token: Next token is token 'a' (1.1-1.1: Default printer for 'a' @ 1)
 670 Shifting token 'a' (1.1-1.1: Default printer for 'a' @ 1)
 671 Entering state 1
 672 Reading a token: Next token is token 'b' (1.2-1.2: 'b'/'c' printer for 'b' @ 2)
 673 Shifting token 'b' (1.2-1.2: 'b'/'c' printer for 'b' @ 2)
 674 Entering state 3
 675 Reading a token: Next token is token 'c' (1.3-1.3: 'b'/'c' printer for 'c' @ 3)
 676 Shifting token 'c' (1.3-1.3: 'b'/'c' printer for 'c' @ 3)
 677 Entering state 5
 678 Reading a token: Next token is token 'd' (1.4-1.4: Default printer for 'd' @ 4)
 679 Shifting token 'd' (1.4-1.4: Default printer for 'd' @ 4)
 680 Entering state 6
 681 Reading a token: Now at end of input.
 682 syntax error, unexpected $end, expecting 'e'
 683 Error: popping token 'd' (1.4-1.4: Default printer for 'd' @ 4)
 684 Stack now 0 1 3 5
 685 Error: popping token 'c' (1.3-1.3: 'b'/'c' printer for 'c' @ 3)
 686 Stack now 0 1 3
 687 Error: popping token 'b' (1.2-1.2: 'b'/'c' printer for 'b' @ 2)
 688 Stack now 0 1
 689 Error: popping token 'a' (1.1-1.1: Default printer for 'a' @ 1)
 690 Stack now 0
 691 Cleanup: discarding lookahead token $end (1.5-1.5: )
 692 Stack now 0
 693 ]])
 694
 695 AT_CLEANUP
 696
 697
 698
 699 ## ----------------------------------- ##
 700 ## Per-type %printer and %destructor.  ##
 701 ## ----------------------------------- ##
 702
 703 AT_SETUP([Per-type %printer and %destructor])
 704
 705 AT_DATA_GRAMMAR([[input.y]],
 706 [[%error-verbose
 707 %debug
 708
 709 %{
 710 # include <stdio.h>
 711 # include <stdlib.h>
 712   static void yyerror (const char *msg);
 713   static int yylex (void);
 714 # define USE(SYM)
 715 %}
 716
 717 %union { int field0; int field1; int field2; }
 718 %type <field0> start 'a' 'g'
 719 %type <field1> 'e'
 720 %type <field2> 'f'
 721 %printer {
 722   fprintf (yyoutput, "%%symbol-default/<field2>/e printer");
 723 } %symbol-default 'e' <field2>
 724 %destructor {
 725   fprintf (stdout, "%%symbol-default/<field2>/e destructor.\n");
 726 } %symbol-default 'e' <field2>
 727
 728 %type <field1> 'b'
 729 %printer { fprintf (yyoutput, "<field1> printer"); } <field1>
 730 %destructor { fprintf (stdout, "<field1> destructor.\n"); } <field1>
 731
 732 %type <field0> 'c'
 733 %printer { fprintf (yyoutput, "'c' printer"); } 'c'
 734 %destructor { fprintf (stdout, "'c' destructor.\n"); } 'c'
 735
 736 %type <field1> 'd'
 737 %printer { fprintf (yyoutput, "'d' printer"); } 'd'
 738 %destructor { fprintf (stdout, "'d' destructor.\n"); } 'd'
 739
 740 %%
 741
 742 start:
 743   'a' 'b' 'c' 'd' 'e' 'f' 'g'
 744     {
 745       USE(($1, $2, $3, $4, $5, $6, $7));
 746       $$ = 'S';
 747     }
 748   ;
 749
 750 %%
 751
 752 static int
 753 yylex (void)
 754 {
 755   static char const input[] = "abcdef";
 756   static size_t toknum;
 757   if (! (toknum < sizeof input))
 758     abort ();
 759   return input[toknum++];
 760 }
 761
 762 static void
 763 yyerror (const char *msg)
 764 {
 765   fprintf (stderr, "%s\n", msg);
 766 }
 767
 768 int
 769 main (void)
 770 {
 771   yydebug = 1;
 772   return yyparse ();
 773 }
 774 ]])
 775
 776 AT_CHECK([bison -o input.c input.y])
 777 AT_COMPILE([input])
 778 AT_PARSER_CHECK([./input], 1,
 779 [[%symbol-default/<field2>/e destructor.
 780 %symbol-default/<field2>/e destructor.
 781 'd' destructor.
 782 'c' destructor.
 783 <field1> destructor.
 784 %symbol-default/<field2>/e destructor.
 785 ]],
 786 [[Starting parse
 787 Entering state 0
 788 Reading a token: Next token is token 'a' (%symbol-default/<field2>/e printer)
 789 Shifting token 'a' (%symbol-default/<field2>/e printer)
 790 Entering state 1
 791 Reading a token: Next token is token 'b' (<field1> printer)
 792 Shifting token 'b' (<field1> printer)
 793 Entering state 3
 794 Reading a token: Next token is token 'c' ('c' printer)
 795 Shifting token 'c' ('c' printer)
 796 Entering state 5
 797 Reading a token: Next token is token 'd' ('d' printer)
 798 Shifting token 'd' ('d' printer)
 799 Entering state 6
 800 Reading a token: Next token is token 'e' (%symbol-default/<field2>/e printer)
 801 Shifting token 'e' (%symbol-default/<field2>/e printer)
 802 Entering state 7
 803 Reading a token: Next token is token 'f' (%symbol-default/<field2>/e printer)
 804 Shifting token 'f' (%symbol-default/<field2>/e printer)
 805 Entering state 8
 806 Reading a token: Now at end of input.
 807 syntax error, unexpected $end, expecting 'g'
 808 Error: popping token 'f' (%symbol-default/<field2>/e printer)
 809 Stack now 0 1 3 5 6 7
 810 Error: popping token 'e' (%symbol-default/<field2>/e printer)
 811 Stack now 0 1 3 5 6
 812 Error: popping token 'd' ('d' printer)
 813 Stack now 0 1 3 5
 814 Error: popping token 'c' ('c' printer)
 815 Stack now 0 1 3
 816 Error: popping token 'b' (<field1> printer)
 817 Stack now 0 1
 818 Error: popping token 'a' (%symbol-default/<field2>/e printer)
 819 Stack now 0
 820 Cleanup: discarding lookahead token $end ()
 821 Stack now 0
 822 ]])
 823
 824 AT_CLEANUP
 825
 826
 827
 828 ## ------------------------------------------------------------- ##
 829 ## Default %printer and %destructor for user-defined end token. ##
 830 ## ------------------------------------------------------------- ##
 831
 832 AT_SETUP([Default %printer and %destructor for user-defined end token])
 833
 834 AT_DATA_GRAMMAR([[input.y]],
 835 [[%error-verbose
 836 %debug
 837 %locations
 838 %initial-action {
 839   @$.first_line = @$.last_line = 1;
 840   @$.first_column = @$.last_column = 1;
 841 }
 842
 843 %{
 844 # include <stdio.h>
 845 # include <stdlib.h>
 846   static void yyerror (const char *msg);
 847   static int yylex (void);
 848 # define USE(SYM)
 849 %}
 850
 851 %token END 0
 852 %printer {
 853   fprintf (yyoutput, "Default printer for '%c' @ %d", $$, @$.first_column);
 854 } %symbol-default
 855 %destructor {
 856   fprintf (stdout, "Default destructor for '%c' @ %d.\n", $$, @$.first_column);
 857 } %symbol-default
 858
 859 %%
 860
 861 start: { $$ = 'S'; } ;
 862
 863 %%
 864
 865 static int
 866 yylex (void)
 867 {
 868   static int called;
 869   if (called++)
 870     abort ();
 871   yylval = 'E';
 872   yylloc.first_line = yylloc.last_line = 1;
 873   yylloc.first_column = yylloc.last_column = 1;
 874   return 0;
 875 }
 876
 877 static void
 878 yyerror (const char *msg)
 879 {
 880   fprintf (stderr, "%s\n", msg);
 881 }
 882
 883 int
 884 main (void)
 885 {
 886   yydebug = 1;
 887   return yyparse ();
 888 }
 889 ]])
 890
 891 AT_CHECK([bison -o input.c input.y])
 892 AT_COMPILE([input])
 893 AT_PARSER_CHECK([./input], 0,
 894 [[Default destructor for 'E' @ 1.
 895 Default destructor for 'S' @ 1.
 896 ]],
 897 [[Starting parse
 898 Entering state 0
 899 Reducing stack by rule 1 (line 35):
 900 -> $$ = nterm start (1.1-1.1: Default printer for 'S' @ 1)
 901 Stack now 0
 902 Entering state 1
 903 Reading a token: Now at end of input.
 904 Shifting token END (1.1-1.1: Default printer for 'E' @ 1)
 905 Entering state 2
 906 Stack now 0 1 2
 907 Cleanup: popping token END (1.1-1.1: Default printer for 'E' @ 1)
 908 Cleanup: popping nterm start (1.1-1.1: Default printer for 'S' @ 1)
 909 ]])
 910
 911 AT_CLEANUP
 912
 913
 914
 915 ## ------------------------------------------------------------------ ##
 916 ## Default %printer and %destructor are not for error or $undefined.  ##
 917 ## ------------------------------------------------------------------ ##
 918
 919 AT_SETUP([Default %printer and %destructor are not for error or \$undefined])
 920
 921 # If Bison were to apply the default %printer and %destructor to the error
 922 # token or to $undefined:
 923 #   - For the error token:
 924 #     - It would generate warnings for unused $n.
 925 #     - It would invoke the %printer and %destructor on the error token's
 926 #       semantic value, which would be initialized from the lookahead, which
 927 #       would be destroyed separately.
 928 #   - For $undefined, who knows what the semantic value would be.
 929
 930 AT_DATA_GRAMMAR([[input.y]],
 931 [[%debug
 932
 933 %{
 934 # include <stdio.h>
 935 # include <stdlib.h>
 936   static void yyerror (const char *msg);
 937   static int yylex (void);
 938 # define USE(SYM)
 939 %}
 940
 941 %printer {
 942   fprintf (yyoutput, "'%c'", $$);
 943 } %symbol-default
 944 %destructor {
 945   fprintf (stderr, "DESTROY '%c'\n", $$);
 946 } %symbol-default
 947
 948 %%
 949
 950 start:
 951   { $$ = 'S'; }
 952   /* In order to reveal the problems that this bug caused during parsing, add
 953    * $2 to USE.  */
 954   | 'a' error 'b' 'c' { USE(($1, $3, $4)); $$ = 'S'; }
 955   ;
 956
 957 %%
 958
 959 static int
 960 yylex (void)
 961 {
 962   static char const input[] = "abd";
 963   static size_t toknum;
 964   if (! (toknum < sizeof input))
 965     abort ();
 966   yylval = input[toknum++];
 967   return yylval;
 968 }
 969
 970 static void
 971 yyerror (const char *msg)
 972 {
 973   fprintf (stderr, "%s\n", msg);
 974 }
 975
 976 int
 977 main (void)
 978 {
 979   yydebug = 1;
 980   return yyparse ();
 981 }
 982 ]])
 983
 984 AT_CHECK([bison -o input.c input.y])
 985 AT_COMPILE([input])
 986 AT_PARSER_CHECK([./input], [1], [],
 987 [[Starting parse
 988 Entering state 0
 989 Reading a token: Next token is token 'a' ('a')
 990 Shifting token 'a' ('a')
 991 Entering state 1
 992 Reading a token: Next token is token 'b' ('b')
 993 syntax error
 994 Shifting token error ()
 995 Entering state 3
 996 Next token is token 'b' ('b')
 997 Shifting token 'b' ('b')
 998 Entering state 5
 999 Reading a token: Next token is token $undefined ()
1000 Error: popping token 'b' ('b')
1001 DESTROY 'b'
1002 Stack now 0 1 3
1003 Error: popping token error ()
1004 Stack now 0 1
1005 Shifting token error ()
1006 Entering state 3
1007 Next token is token $undefined ()
1008 Error: discarding token $undefined ()
1009 Error: popping token error ()
1010 Stack now 0 1
1011 Shifting token error ()
1012 Entering state 3
1013 Reading a token: Now at end of input.
1014 Cleanup: discarding lookahead token $end ()
1015 Stack now 0 1 3
1016 Cleanup: popping token error ()
1017 Cleanup: popping token 'a' ('a')
1018 DESTROY 'a'
1019 ]])
1020
1021 AT_CLEANUP
1022
1023
1024
1025 ## ------------------------------------------------------ ##
1026 ## Default %printer and %destructor are not for $accept.  ##
1027 ## ------------------------------------------------------ ##
1028
1029 AT_SETUP([Default %printer and %destructor are not for \$accept])
1030
1031 # If YYSTYPE is a union and Bison were to apply the default %printer and
1032 # %destructor to $accept:
1033 #   - The %printer and %destructor code generated for $accept would always be
1034 #     dead code because $accept is currently never shifted onto the stack.
1035 #   - $$ for $accept would always be of type YYSTYPE because it's not possible
1036 #     to declare `%type <field> $accept'.  (Also true for $undefined.)
1037 #   - Thus, the compiler might complain that the user code assumes the wrong
1038 #     type for $$ since the code might assume the type associated with a
1039 #     specific union field, which is especially reasonable in C++ since that
1040 #     type may be a base type.  This test case checks for this problem.  (Also
1041 #     true for $undefined and the error token, so there are three warnings for
1042 #     %printer and three for %destructor.)
1043
1044 AT_DATA_GRAMMAR([[input.y]],
1045 [[%debug /* So that %printer is actually compiled.  */
1046
1047 %{
1048 # include <stdio.h>
1049 # include <stdlib.h>
1050   static void yyerror (const char *msg);
1051   static int yylex (void);
1052 # define USE(SYM)
1053 %}
1054
1055 %printer {
1056   char chr = $$;
1057   fprintf (yyoutput, "'%c'", chr);
1058 } %symbol-default
1059 %destructor {
1060   char chr = $$;
1061   fprintf (stderr, "DESTROY '%c'\n", chr);
1062 } %symbol-default
1063
1064 %union { char chr; }
1065 %type <chr> start
1066
1067 %%
1068
1069 start: { USE($$); } ;
1070
1071 %%
1072
1073 static int
1074 yylex (void)
1075 {
1076   static int called;
1077   if (called++)
1078     abort ();
1079   return 0;
1080 }
1081
1082 static void
1083 yyerror (const char *msg)
1084 {
1085   fprintf (stderr, "%s\n", msg);
1086 }
1087
1088 int
1089 main (void)
1090 {
1091   return yyparse ();
1092 }
1093 ]])
1094
1095 AT_CHECK([bison -o input.c input.y])
1096 AT_COMPILE([input])
1097
1098 AT_CLEANUP