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
  87 ## ---------------- ##
  88 ## Exotic Dollars.  ##
  89 ## ---------------- ##
  90
  91 AT_SETUP([Exotic Dollars])
  92
  93 AT_DATA_GRAMMAR([[input.y]],
  94 [[%{
  95 # include <stdio.h>
  96 # include <stdlib.h>
  97   static void yyerror (const char *msg);
  98   static int yylex (void);
  99 # define YYDEBUG         1
 100 # define YYERROR_VERBOSE 1
 101 %}
 102
 103 %union
 104 {
 105   int val;
 106 };
 107
 108 %type <val> a_1 a_2 a_5
 109             sum_of_the_five_previous_values
 110
 111 %%
 112 exp: a_1 a_2 { $<val>$ = 3; } { $<val>$ = $<val>3 + 1; } a_5
 113      sum_of_the_five_previous_values
 114     {
 115        printf ("%d\n", $6);
 116     }
 117 ;
 118 a_1: { $$ = 1; };
 119 a_2: { $$ = 2; };
 120 a_5: { $$ = 5; };
 121
 122 sum_of_the_five_previous_values:
 123     {
 124        $$ = $<val>0 + $<val>-1 + $<val>-2 + $<val>-3 + $<val>-4;
 125     }
 126 ;
 127
 128 %%
 129 static int
 130 yylex (void)
 131 {
 132   return EOF;
 133 }
 134
 135 static void
 136 yyerror (const char *msg)
 137 {
 138   fprintf (stderr, "%s\n", msg);
 139 }
 140
 141 int
 142 main (void)
 143 {
 144   return yyparse ();
 145 }
 146 ]])
 147
 148 AT_CHECK([bison -d -v -o input.c input.y])
 149 AT_COMPILE([input])
 150 AT_PARSER_CHECK([./input], 0,
 151 [[15
 152 ]])
 153
 154 AT_CLEANUP
 155
 156
 157
 158 ## -------------------------- ##
 159 ## Printers and Destructors.  ##
 160 ## -------------------------- ##
 161
 162 # _AT_CHECK_PRINTER_AND_DESTRUCTOR($1, $2, $3, $4, BISON-DIRECTIVE, UNION-FLAG)
 163 # -----------------------------------------------------------------------------
 164 m4_define([_AT_CHECK_PRINTER_AND_DESTRUCTOR],
 165 [# Make sure complex $n work.
 166 m4_if([$1$2$3], $[1]$[2]$[3], [],
 167        [m4_fatal([$0: Invalid arguments: $@])])dnl
 168
 169 # Be sure to pass all the %directives to this macro to have correct
 170 # helping macros.  So don't put any directly in the Bison file.
 171 AT_BISON_OPTION_PUSHDEFS([$5])
 172 AT_DATA_GRAMMAR([[input.y]],
 173 [[%{
 174 #include <stdio.h>
 175 #include <stdlib.h>
 176 #include <assert.h>
 177 ]AT_LALR1_CC_IF(
 178   [#define RANGE(Location) (Location).begin.line, (Location).end.line],
 179   [#define RANGE(Location) (Location).first_line, (Location).last_line])
 180 [%}
 181
 182 $5]
 183 m4_ifval([$6], [%union
 184 {
 185   int ival;
 186 }])
 187 [
 188 %{
 189 ]AT_LALR1_CC_IF([typedef yy::location YYLTYPE;
 190                 m4_ifval([$6], , [#define YYSTYPE int])])
 191 [static int yylex (]AT_LEX_FORMALS[);
 192 ]AT_LALR1_CC_IF([], [static void yyerror (const char *msg);])
 193 [%}
 194
 195 ]m4_ifval([$6], [%type <ival> '(' 'x' 'y' ')' ';' thing line input])[
 196
 197 %printer
 198   {
 199     ]AT_LALR1_CC_IF([debug_stream () << $$;],
 200                     [fprintf (yyoutput, "%d", $$)])[;
 201   }
 202   input line thing 'x' 'y'
 203
 204 %destructor
 205   { printf ("Freeing nterm input (%d@%d-%d)\n", $$, RANGE (@$)); }
 206   input
 207
 208 %destructor
 209   { printf ("Freeing nterm line (%d@%d-%d)\n", $$, RANGE (@$)); }
 210   line
 211
 212 %destructor
 213   { printf ("Freeing nterm thing (%d@%d-%d)\n", $$, RANGE (@$)); }
 214   thing
 215
 216 %destructor
 217   { printf ("Freeing token 'x' (%d@%d-%d)\n", $$, RANGE (@$)); }
 218   'x'
 219
 220 %destructor
 221   { printf ("Freeing token 'y' (%d@%d-%d)\n", $$, RANGE (@$)); }
 222   'y'
 223
 224 %%
 225 /*
 226    This grammar is made to exercise error recovery.
 227    "Lines" starting with `(' support error recovery, with
 228    ')' as synchronizing token.  Lines starting with 'x' can never
 229    be recovered from if in error.
 230 */
 231
 232 input:
 233   /* Nothing. */
 234     {
 235       $$ = 0;
 236       printf ("input (%d@%d-%d): /* Nothing */\n", $$, RANGE (@$));
 237     }
 238 | line input /* Right recursive to load the stack so that popping at
 239                 EOF can be exercised.  */
 240     {
 241       $$ = 2;
 242       printf ("input (%d@%d-%d): line (%d@%d-%d) input (%d@%d-%d)\n",
 243               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2));
 244     }
 245 ;
 246
 247 line:
 248   thing thing thing ';'
 249     {
 250       $$ = $1;
 251       printf ("line (%d@%d-%d): thing (%d@%d-%d) thing (%d@%d-%d) thing (%d@%d-%d) ';' (%d@%d-%d)\n",
 252               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2),
 253               $3, RANGE (@3), $4, RANGE (@4));
 254     }
 255 | '(' thing thing ')'
 256     {
 257       $$ = $1;
 258       printf ("line (%d@%d-%d): '(' (%d@%d-%d) thing (%d@%d-%d) thing (%d@%d-%d) ')' (%d@%d-%d)\n",
 259               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2),
 260               $3, RANGE (@3), $4, RANGE (@4));
 261     }
 262 | '(' thing ')'
 263     {
 264       $$ = $1;
 265       printf ("line (%d@%d-%d): '(' (%d@%d-%d) thing (%d@%d-%d) ')' (%d@%d-%d)\n",
 266               $$, RANGE (@$), $1, RANGE (@1), $2, RANGE (@2), $3, RANGE (@3));
 267     }
 268 | '(' error ')'
 269     {
 270       $$ = -1;
 271       printf ("line (%d@%d-%d): '(' (%d@%d-%d) error (@%d-%d) ')' (%d@%d-%d)\n",
 272               $$, RANGE (@$), $1, RANGE (@1), RANGE (@2), $3, RANGE (@3));
 273     }
 274 ;
 275
 276 thing:
 277   'x'
 278     {
 279       $$ = $1;
 280       printf ("thing (%d@%d-%d): 'x' (%d@%d-%d)\n",
 281               $$, RANGE (@$), $1, RANGE (@1));
 282     }
 283 ;
 284 %%
 285 /* Alias to ARGV[1]. */
 286 const char *yysource = 0;
 287
 288 static int
 289 yylex (]AT_LEX_FORMALS[)
 290 {
 291   static unsigned int counter = 0;
 292
 293   int c = ]AT_VAL[]m4_ifval([$6], [.ival])[ = counter++;
 294   /* As in BASIC, line numbers go from 10 to 10.  */
 295 ]AT_LALR1_CC_IF(
 296 [ AT_LOC.begin.line = AT_LOC.begin.column = 10 * c;
 297   AT_LOC.end.line = AT_LOC.end.column = AT_LOC.begin.line + 9;
 298 ],
 299 [ AT_LOC.first_line = AT_LOC.first_column = 10 * c;
 300   AT_LOC.last_line = AT_LOC.last_column = AT_LOC.first_line + 9;
 301 ])[
 302
 303   if (yysource[c])
 304     printf ("sending: '%c'", yysource[c]);
 305   else
 306     printf ("sending: EOF");
 307   printf (" (%d@%d-%d)\n", c, RANGE (]AT_LOC[));
 308   return yysource[c];
 309 }
 310
 311 ]AT_LALR1_CC_IF(
 312 [/* A C++ error reporting function. */
 313 void
 314 yy::parser::error (const location& l, const std::string& m)
 315 {
 316   printf ("%d-%d: %s\n", RANGE (l), m.c_str());
 317 }
 318
 319 static bool yydebug;
 320 int
 321 yyparse ()
 322 {
 323   yy::parser parser;
 324   parser.set_debug_level (yydebug);
 325   return parser.parse ();
 326 }
 327 ],
 328 [static void
 329 yyerror (const char *msg)
 330 {
 331   printf ("%d-%d: %s\n", RANGE (yylloc), msg);
 332 }])[
 333
 334 int
 335 main (int argc, const char *argv[])
 336 {
 337   yydebug = !!getenv ("YYDEBUG");
 338   assert (argc == 2);
 339   yysource = argv[1];
 340   if (yyparse ())
 341     {
 342       printf ("Parsing FAILED.\n");
 343       exit (1);
 344     }
 345   printf ("Successful parse.\n");
 346   return 0;
 347 }
 348 ]])
 349
 350 AT_LALR1_CC_IF(
 351   [AT_CHECK([bison -o input.cc input.y])
 352    AT_COMPILE_CXX([input])],
 353   [AT_CHECK([bison -o input.c input.y])
 354    AT_COMPILE([input])])
 355
 356
 357 # Check the location of "empty"
 358 # -----------------------------
 359 # I.e., epsilon-reductions, as in "(x)" which ends by reducing
 360 # an empty "line" nterm.
 361 # FIXME: This location is not satisfying.  Depend on the lookahead?
 362 AT_PARSER_CHECK([./input '(x)'], 0,
 363 [[sending: '(' (0@0-9)
 364 sending: 'x' (1@10-19)
 365 thing (1@10-19): 'x' (1@10-19)
 366 sending: ')' (2@20-29)
 367 line (0@0-29): '(' (0@0-9) thing (1@10-19) ')' (2@20-29)
 368 sending: EOF (3@30-39)
 369 input (0@29-29): /* Nothing */
 370 input (2@0-29): line (0@0-29) input (0@29-29)
 371 Successful parse.
 372 ]])
 373
 374
 375 # Check locations in error recovery
 376 # ---------------------------------
 377 # '(y)' is an error, but can be recovered from.  But what's the location
 378 # of the error itself ('y'), and of the resulting reduction ('(error)').
 379 AT_PARSER_CHECK([./input '(y)'], 0,
 380 [[sending: '(' (0@0-9)
 381 sending: 'y' (1@10-19)
 382 10-19: syntax error, unexpected 'y', expecting 'x'
 383 Freeing token 'y' (1@10-19)
 384 sending: ')' (2@20-29)
 385 line (-1@0-29): '(' (0@0-9) error (@10-19) ')' (2@20-29)
 386 sending: EOF (3@30-39)
 387 input (0@29-29): /* Nothing */
 388 input (2@0-29): line (-1@0-29) input (0@29-29)
 389 Successful parse.
 390 ]])
 391
 392
 393 # Syntax errors caught by the parser
 394 # ----------------------------------
 395 # Exercise the discarding of stack top and input until `error'
 396 # can be reduced.
 397 #
 398 #     '(', 'x', 'x', 'x', 'x', 'x', ')',
 399 #
 400 # Load the stack and provoke an error that cannot be caught by the
 401 # grammar, to check that the stack is cleared.  And make sure the
 402 # lookahead is freed.
 403 #
 404 #     '(', 'x', ')',
 405 #     '(', 'x', ')',
 406 #     'y'
 407 AT_PARSER_CHECK([./input '(xxxxx)(x)(x)y'], 1,
 408 [[sending: '(' (0@0-9)
 409 sending: 'x' (1@10-19)
 410 thing (1@10-19): 'x' (1@10-19)
 411 sending: 'x' (2@20-29)
 412 thing (2@20-29): 'x' (2@20-29)
 413 sending: 'x' (3@30-39)
 414 30-39: syntax error, unexpected 'x', expecting ')'
 415 Freeing nterm thing (2@20-29)
 416 Freeing nterm thing (1@10-19)
 417 Freeing token 'x' (3@30-39)
 418 sending: 'x' (4@40-49)
 419 Freeing token 'x' (4@40-49)
 420 sending: 'x' (5@50-59)
 421 Freeing token 'x' (5@50-59)
 422 sending: ')' (6@60-69)
 423 line (-1@0-69): '(' (0@0-9) error (@10-59) ')' (6@60-69)
 424 sending: '(' (7@70-79)
 425 sending: 'x' (8@80-89)
 426 thing (8@80-89): 'x' (8@80-89)
 427 sending: ')' (9@90-99)
 428 line (7@70-99): '(' (7@70-79) thing (8@80-89) ')' (9@90-99)
 429 sending: '(' (10@100-109)
 430 sending: 'x' (11@110-119)
 431 thing (11@110-119): 'x' (11@110-119)
 432 sending: ')' (12@120-129)
 433 line (10@100-129): '(' (10@100-109) thing (11@110-119) ')' (12@120-129)
 434 sending: 'y' (13@130-139)
 435 input (0@129-129): /* Nothing */
 436 input (2@100-129): line (10@100-129) input (0@129-129)
 437 input (2@70-129): line (7@70-99) input (2@100-129)
 438 input (2@0-129): line (-1@0-69) input (2@70-129)
 439 130-139: syntax error, unexpected 'y', expecting $end
 440 Freeing nterm input (2@0-129)
 441 Freeing token 'y' (13@130-139)
 442 Parsing FAILED.
 443 ]])
 444
 445 ])
 446
 447
 448 # AT_CHECK_PRINTER_AND_DESTRUCTOR([BISON-OPTIONS], [UNION-FLAG], [SKIP_FLAG])
 449 # ---------------------------------------------------------------------------
 450 m4_define([AT_CHECK_PRINTER_AND_DESTRUCTOR],
 451 [AT_SETUP([Printers and Destructors $2: $1])
 452
 453 $3
 454 _AT_CHECK_PRINTER_AND_DESTRUCTOR($[1], $[2], $[3], $[4],
 455 [%error-verbose
 456 %debug
 457 %verbose
 458 %locations
 459 $1], [$2])
 460
 461 AT_CLEANUP
 462 ])
 463
 464
 465 AT_CHECK_PRINTER_AND_DESTRUCTOR([])
 466 AT_CHECK_PRINTER_AND_DESTRUCTOR([], [with union])
 467
 468 # These tests currently fail on a Debian GNU/Linux 3.0r2 x86 host,
 469 # but the 2nd test succeeds on a Solaris 9 sparc hosts (Forte 7 cc).
 470 # Skip them until we figure out what the problem is.
 471 AT_CHECK_PRINTER_AND_DESTRUCTOR([%defines %skeleton "lalr1.cc"])
 472 AT_CHECK_PRINTER_AND_DESTRUCTOR([%defines %skeleton "lalr1.cc"], [with union])
 473
 474 AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser])
 475 AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser], [with union])