tests/actions.at

   1 # Executing Actions.                               -*- Autotest -*-
   2 # Copyright (C) 2001, 2002, 2003, 2004 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., 59 Temple Place - Suite 330, Boston, MA
  17 # 02111-1307, 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 [[%{
  34 # include <stdio.h>
  35 # include <stdlib.h>
  36   static void yyerror (const char *msg);
  37   static int yylex (void);
  38 # define YYDEBUG         1
  39 # define YYERROR_VERBOSE 1
  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 const char *input = "123456789";
  59   return *input++;
  60 }
  61
  62 static void
  63 yyerror (const char *msg)
  64 {
  65   fprintf (stderr, "%s\n", msg);
  66 }
  67
  68 int
  69 main (void)
  70 {
  71   return yyparse ();
  72 }
  73 ]])
  74
  75 AT_CHECK([bison -d -v -o input.c input.y])
  76 AT_COMPILE([input])
  77 AT_PARSER_CHECK([./input], 0,
  78 [[0123456789
  79 ]])
  80
  81 AT_CLEANUP
  82
  83
  84
  85 ## ---------------------- ##
  86 ## Actions after errors.  ##
  87 ## ---------------------- ##
  88
  89 AT_SETUP([Actions after errors])
  90
  91
  92
  93 AT_DATA_GRAMMAR([[input.y]],
  94 [[%{
  95 #include <stdio.h>
  96 #include <stdlib.h>
  97
  98 static int yylex (void);
  99 static void yyerror (char const *);
 100
 101 #define YYDEBUG 1
 102 %}
 103 %union { int ival; }
 104 %type <ival> 'x' ';' thing line input
 105
 106 %%
 107 input:
 108   /* Nothing. */
 109     {
 110       $$ = 0;
 111       printf ("input (%d): /* Nothing */\n", $$);
 112     }
 113 | line input /* Right recursive to load the stack so that popping at
 114                 EOF can be exercised.  */
 115     {
 116       $$ = 2;
 117       printf ("input (%d): line (%d) input (%d)\n", $$, $1, $2);
 118     }
 119 ;
 120
 121 line:
 122   thing thing thing ';'
 123     {
 124       $$ = $1;
 125       printf ("line (%d): thing (%d) thing (%d) thing (%d) ';' (%d)\n",
 126               $$, $1, $2, $3, $4);
 127     }
 128 | thing thing ';'
 129     {
 130       $$ = $1;
 131       printf ("line (%d): thing (%d) thing (%d) ';' (%d)\n", $$, $1, $2, $3);
 132     }
 133 | thing ';'
 134     {
 135       $$ = $1;
 136       printf ("line (%d): thing (%d) ';' (%d)\n", $$, $1, $2);
 137     }
 138 | error ';'
 139     {
 140       $$ = -1;
 141       printf ("line (%d): error ';' (%d)\n", $$, $2);
 142     }
 143 ;
 144
 145 thing:
 146   'x'
 147     {
 148       $$ = $1;
 149       printf ("thing (%d): 'x' (%d)\n", $$, $1);
 150     }
 151 ;
 152 %%
 153 static size_t counter;
 154
 155 static int
 156 yylex (void)
 157 {
 158   static char const input[] =
 159     {
 160       /* Exercise the discarding of stack top and input until `error'
 161          can be reduced.  */
 162       'x', 'x', 'x', 'x', 'x', 'x', ';',
 163
 164       /* Load the stack and provoke an error that cannot be caught by
 165          the grammar, to check that the stack is cleared. */
 166       'x', 'x', ';',
 167       'x', ';',
 168       'y'
 169     };
 170
 171   if (counter < sizeof input)
 172     {
 173        yylval.ival = counter;
 174        printf ("sending: '%c' (%d)\n", input[counter], yylval.ival);
 175        return input[counter++];
 176     }
 177   else
 178     {
 179       printf ("sending: EOF\n");
 180       return EOF;
 181     }
 182 }
 183
 184 static void
 185 yyerror (char const *msg)
 186 {
 187   printf ("%lu: %s\n", (unsigned long int) counter, msg);
 188 }
 189
 190 int
 191 main (void)
 192 {
 193   yydebug = !!getenv ("YYDEBUG");
 194   return yyparse ();
 195 }
 196 ]])
 197
 198 AT_CHECK([bison -o input.c input.y])
 199 AT_COMPILE([input])
 200 AT_PARSER_CHECK([./input], 1,
 201 [[sending: 'x' (0)
 202 thing (0): 'x' (0)
 203 sending: 'x' (1)
 204 thing (1): 'x' (1)
 205 sending: 'x' (2)
 206 thing (2): 'x' (2)
 207 sending: 'x' (3)
 208 4: syntax error
 209 sending: 'x' (4)
 210 sending: 'x' (5)
 211 sending: ';' (6)
 212 line (-1): error ';' (6)
 213 sending: 'x' (7)
 214 thing (7): 'x' (7)
 215 sending: 'x' (8)
 216 thing (8): 'x' (8)
 217 sending: ';' (9)
 218 line (7): thing (7) thing (8) ';' (9)
 219 sending: 'x' (10)
 220 thing (10): 'x' (10)
 221 sending: ';' (11)
 222 line (10): thing (10) ';' (11)
 223 sending: 'y' (12)
 224 13: syntax error
 225 sending: EOF
 226 ]])
 227
 228 AT_CLEANUP
 229
 230
 231
 232 ## ---------------- ##
 233 ## Exotic Dollars.  ##
 234 ## ---------------- ##
 235
 236 AT_SETUP([Exotic Dollars])
 237
 238 AT_DATA_GRAMMAR([[input.y]],
 239 [[%{
 240 # include <stdio.h>
 241 # include <stdlib.h>
 242   static void yyerror (const char *msg);
 243   static int yylex (void);
 244 # define YYDEBUG         1
 245 # define YYERROR_VERBOSE 1
 246 %}
 247
 248 %union
 249 {
 250   int val;
 251 };
 252
 253 %type <val> a_1 a_2 a_5
 254             sum_of_the_five_previous_values
 255
 256 %%
 257 exp: a_1 a_2 { $<val>$ = 3; } { $<val>$ = $<val>3 + 1; } a_5
 258      sum_of_the_five_previous_values
 259     {
 260        printf ("%d\n", $6);
 261     }
 262 ;
 263 a_1: { $$ = 1; };
 264 a_2: { $$ = 2; };
 265 a_5: { $$ = 5; };
 266
 267 sum_of_the_five_previous_values:
 268     {
 269        $$ = $<val>0 + $<val>-1 + $<val>-2 + $<val>-3 + $<val>-4;
 270     }
 271 ;
 272
 273 %%
 274 static int
 275 yylex (void)
 276 {
 277   return EOF;
 278 }
 279
 280 static void
 281 yyerror (const char *msg)
 282 {
 283   fprintf (stderr, "%s\n", msg);
 284 }
 285
 286 int
 287 main (void)
 288 {
 289   return yyparse ();
 290 }
 291 ]])
 292
 293 AT_CHECK([bison -d -v -o input.c input.y])
 294 AT_COMPILE([input])
 295 AT_PARSER_CHECK([./input], 0,
 296 [[15
 297 ]])
 298
 299 AT_CLEANUP
 300
 301
 302
 303 ## -------------------------- ##
 304 ## Printers and Destructors.  ##
 305 ## -------------------------- ##
 306
 307 # _AT_CHECK_PRINTER_AND_DESTRUCTOR($1, $2, $3, $4, BISON-DIRECTIVE, UNION-FLAG)
 308 # -----------------------------------------------------------------------------
 309 m4_define([_AT_CHECK_PRINTER_AND_DESTRUCTOR],
 310 [m4_if([$1$2$3], $[1]$[2]$[3], [],
 311        [m4_fatal([$0: Invalid arguments: $@])])dnl
 312
 313 AT_SETUP([Printers and Destructors $6: $5])
 314
 315 # Make sure complex $n work.
 316
 317 AT_BISON_OPTION_PUSHDEFS([$5])
 318 AT_DATA_GRAMMAR([[input.y]],
 319 [[$5
 320 %{
 321 #include <stdio.h>
 322 #include <stdlib.h>
 323 ]AT_LALR1_CC_IF(
 324   [#define RANGE(Location) (Location).begin.line, (Location).end.line],
 325   [#define RANGE(Location) (Location).first_line, (Location).last_line])
 326 [%}
 327 %error-verbose
 328 %debug
 329 %verbose
 330 %locations
 331 ]m4_ifval([$6], [%union
 332 {
 333   int ival;
 334 }])
 335 [
 336 %{
 337 ]AT_LALR1_CC_IF([typedef yy::Location YYLTYPE;
 338 m4_ifval([$6], , [#define YYSTYPE int])])
 339 [static int yylex (]AT_LEX_FORMALS[);
 340 ]AT_LALR1_CC_IF([], [static void yyerror (const char *msg);])
 341 [%}
 342
 343 ]m4_ifval([$6], [%type <ival> 'x' ';' thing line input])[
 344
 345 %printer { fprintf (yyoutput, "%d@%d-%d", $$, RANGE (@$)); }
 346    input line thing 'x'
 347
 348 %destructor
 349   { printf ("Freeing nterm input (%d@%d-%d)\n", $$, RANGE (@$)); }
 350   input
 351
 352 %destructor
 353   { printf ("Freeing nterm line (%d@%d-%d)\n", $$, RANGE (@$)); }
 354   line
 355
 356 %destructor
 357   { printf ("Freeing nterm thing (%d@%d-%d)\n", $$, RANGE (@$)); }
 358   thing
 359
 360 %destructor
 361   { printf ("Freeing token 'x' (%d@%d-%d)\n", $$, RANGE (@$)); }
 362   'x'
 363
 364 %%
 365 input:
 366   /* Nothing. */
 367     {
 368       $$ = 0;
 369       printf ("input (%d@%d-%d): /* Nothing */\n", $$, RANGE (@$));
 370     }
 371 | line input /* Right recursive to load the stack so that popping at
 372                 EOF can be exercised.  */
 373     {
 374       $$ = 2;
 375       printf ("input (%d@%d-%d): line (%d@%d-%d) input (%d@%d-%d)\n",
 376               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2));
 377     }
 378 ;
 379
 380 line:
 381   thing thing thing ';'
 382     {
 383       $$ = $1;
 384       printf ("line (%d@%d-%d): thing (%d@%d-%d) thing (%d@%d-%d) thing (%d@%d-%d) ';' (%d@%d-%d)\n",
 385               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2),
 386               $3, RANGE (@3), $4, RANGE (@4));
 387     }
 388 | thing thing ';'
 389     {
 390       $$ = $1;
 391       printf ("line (%d@%d-%d): thing (%d@%d-%d) thing (%d@%d-%d) ';' (%d@%d-%d)\n",
 392               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2), $3, RANGE (@3));
 393     }
 394 | thing ';'
 395     {
 396       $$ = $1;
 397       printf ("line (%d@%d-%d): thing (%d@%d-%d) ';' (%d@%d-%d)\n",
 398               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2));
 399     }
 400 | error ';'
 401     {
 402       $$ = -1;
 403       printf ("line (%d@%d-%d): error (@%d-%d) ';' (%d@%d-%d)\n",
 404               $$, RANGE (@$), RANGE (@1), $2, RANGE (@2));
 405     }
 406 ;
 407
 408 thing:
 409   'x'
 410     {
 411       $$ = $1;
 412       printf ("thing (%d@%d-%d): 'x' (%d@%d-%d)\n",
 413               $$, RANGE (@$), $1, RANGE (@1));
 414     }
 415 ;
 416 %%
 417 static int
 418 yylex (]AT_LEX_FORMALS[)
 419 {
 420   static const char input[] =
 421     {
 422       /* Exercise the discarding of stack top and input until `error'
 423          can be reduced.  */
 424       'x', 'x', 'x', 'x', 'x', 'x', ';',
 425
 426       /* Load the stack and provoke an error that cannot be caught by
 427          the grammar, to check that the stack is cleared. */
 428       'x', 'x', ';',
 429       'x', ';',
 430       'y'
 431     };
 432   static unsigned int counter = 0;
 433
 434   if (counter < (sizeof(input) / sizeof (input[0])))
 435     {
 436 ]AT_LALR1_CC_IF(
 437 [       int c = m4_ifval([$6], [yylval->ival], [*yylval]) = counter++;
 438        /* As in BASIC, line numbers go from 10 to 10.  */
 439        yylloc->begin.line = yylloc->begin.column = 10 * c;
 440        yylloc->end.line = yylloc->end.column = yylloc->begin.line + 9;
 441        printf ("sending: '%c' (%d@%d-%d)\n",
 442                input[[c]], c, RANGE (*yylloc));
 443        return input[[c]];
 444 ],
 445 [       int c = m4_ifval([$6], [yylval.ival], [yylval]) = counter++;
 446        /* As in BASIC, line numbers go from 10 to 10.  */
 447        yylloc.first_line = yylloc.first_column = 10 * c;
 448        yylloc.last_line = yylloc.last_column = yylloc.first_line + 9;
 449        printf ("sending: '%c' (%d@%d-%d)\n",
 450                input[[c]], c, RANGE (yylloc));
 451        return input[[c]];
 452 ])[
 453     }
 454   else
 455     {
 456       printf ("sending: EOF\n");
 457       return EOF;
 458     }
 459 }
 460
 461 ]AT_LALR1_CC_IF(
 462 [/* Currently, print_ is required in C++. */
 463 void
 464 yy::Parser::print_ ()
 465 {
 466   std::cerr << location;
 467 }
 468
 469 /* A C++ error reporting function. */
 470 void
 471 yy::Parser::error_ ()
 472 {
 473   printf ("%d-%d: %s\n", RANGE (location), message.c_str());
 474 }
 475
 476 static bool yydebug;
 477 int
 478 yyparse ()
 479 {
 480   yy::Parser parser (yydebug, yy::Location ());
 481   return parser.parse ();
 482 }
 483 ],
 484 [static void
 485 yyerror (const char *msg)
 486 {
 487   printf ("%d-%d: %s\n", RANGE (yylloc), msg);
 488 }])[
 489
 490 int
 491 main (void)
 492 {
 493   yydebug = !!getenv ("YYDEBUG");
 494   if (yyparse ())
 495     {
 496       printf ("Parsing FAILED.\n");
 497       exit (1);
 498     }
 499   printf ("Successful parse.\n");
 500   return 0;
 501 }
 502 ]])
 503
 504 AT_LALR1_CC_IF(
 505   [AT_CHECK([bison -o input.cc input.y])
 506    AT_COMPILE_CXX([input])],
 507   [AT_CHECK([bison -o input.c input.y])
 508    AT_COMPILE([input])])
 509 AT_PARSER_CHECK([./input], 1,
 510 [[sending: 'x' (0@0-9)
 511 thing (0@0-9): 'x' (0@0-9)
 512 sending: 'x' (1@10-19)
 513 thing (1@10-19): 'x' (1@10-19)
 514 sending: 'x' (2@20-29)
 515 thing (2@20-29): 'x' (2@20-29)
 516 sending: 'x' (3@30-39)
 517 30-39: syntax error, unexpected 'x', expecting ';'
 518 Freeing nterm thing (2@20-29)
 519 Freeing nterm thing (1@10-19)
 520 Freeing nterm thing (0@0-9)
 521 Freeing token 'x' (3@30-39)
 522 sending: 'x' (4@40-49)
 523 Freeing token 'x' (4@40-49)
 524 sending: 'x' (5@50-59)
 525 Freeing token 'x' (5@50-59)
 526 sending: ';' (6@60-69)
 527 line (-1@0-69): error (@0-59) ';' (6@60-69)
 528 sending: 'x' (7@70-79)
 529 thing (7@70-79): 'x' (7@70-79)
 530 sending: 'x' (8@80-89)
 531 thing (8@80-89): 'x' (8@80-89)
 532 sending: ';' (9@90-99)
 533 line (7@70-99): thing (7@70-79) thing (8@80-89) ';' (9@90-99)
 534 sending: 'x' (10@100-109)
 535 thing (10@100-109): 'x' (10@100-109)
 536 sending: ';' (11@110-119)
 537 line (10@100-119): thing (10@100-109) ';' (11@110-119)
 538 sending: 'y' (12@120-129)
 539 120-129: syntax error, unexpected $undefined, expecting $end or 'x'
 540 sending: EOF
 541 Freeing nterm line (10@100-119)
 542 Freeing nterm line (7@70-99)
 543 Freeing nterm line (-1@0-69)
 544 Parsing FAILED.
 545 ]])
 546
 547 AT_CLEANUP
 548 ])
 549
 550
 551 # AT_CHECK_PRINTER_AND_DESTRUCTOR([BISON-OPTIONS], [UNION-FLAG])
 552 # --------------------------------------------------------------
 553 # Produce `calc.y'.
 554 m4_define([AT_CHECK_PRINTER_AND_DESTRUCTOR],
 555 [_AT_CHECK_PRINTER_AND_DESTRUCTOR($[1], $[2], $[3], $[4], [$1], [$2])
 556 ])
 557
 558
 559 AT_CHECK_PRINTER_AND_DESTRUCTOR([])
 560 AT_CHECK_PRINTER_AND_DESTRUCTOR([], [with union])
 561 AT_CHECK_PRINTER_AND_DESTRUCTOR([%locations %defines %skeleton "lalr1.cc"])
 562 AT_CHECK_PRINTER_AND_DESTRUCTOR([%locations %defines %skeleton "lalr1.cc"],
 563                                 [with union])
 564
 565 # FIXME.  These test cases fail.
 566 #AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser])
 567 #AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser], [with union])