tests/actions.at

   1 # Executing Actions.                               -*- Autotest -*-
   2 # Copyright 2001 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 ## Exotic Dollars.  ##
  87 ## ---------------- ##
  88
  89 AT_SETUP([Exotic Dollars])
  90
  91 AT_DATA_GRAMMAR([[input.y]],
  92 [[%{
  93 # include <stdio.h>
  94 # include <stdlib.h>
  95   static void yyerror (const char *msg);
  96   static int yylex (void);
  97 # define YYDEBUG         1
  98 # define YYERROR_VERBOSE 1
  99 %}
 100
 101 %union
 102 {
 103   int val;
 104 };
 105
 106 %type <val> a_1 a_2 a_5
 107             sum_of_the_five_previous_values
 108
 109 %%
 110 exp: a_1 a_2 { $<val>$ = 3; } { $<val>$ = $<val>3 + 1; } a_5
 111      sum_of_the_five_previous_values
 112     {
 113        printf ("%d\n", $6);
 114     }
 115 ;
 116 a_1: { $$ = 1; };
 117 a_2: { $$ = 2; };
 118 a_5: { $$ = 5; };
 119
 120 sum_of_the_five_previous_values:
 121     {
 122        $$ = $<val>0 + $<val>-1 + $<val>-2 + $<val>-3 + $<val>-4;
 123     }
 124 ;
 125
 126 %%
 127 static int
 128 yylex (void)
 129 {
 130   return EOF;
 131 }
 132
 133 static void
 134 yyerror (const char *msg)
 135 {
 136   fprintf (stderr, "%s\n", msg);
 137 }
 138
 139 int
 140 main (void)
 141 {
 142   return yyparse ();
 143 }
 144 ]])
 145
 146 AT_CHECK([bison -d -v -o input.c input.y])
 147 AT_COMPILE([input])
 148 AT_PARSER_CHECK([./input], 0,
 149 [[15
 150 ]])
 151
 152 AT_CLEANUP
 153
 154
 155
 156 ## -------------------------- ##
 157 ## Printers and Destructors.  ##
 158 ## -------------------------- ##
 159
 160 # _AT_CHECK_PRINTER_AND_DESTRUCTOR($1, $2, $3, BISON-DIRECTIVE)
 161 # -------------------------------------------------------------
 162 m4_define([_AT_CHECK_PRINTER_AND_DESTRUCTOR],
 163 [m4_if([$1$2$3], $[1]$[2]$[3], [],
 164        [m4_fatal([$0: Invalid arguments: $@])])dnl
 165
 166 AT_SETUP([Printers and Destructors: $4])
 167
 168 # Make sure complex $n work.
 169
 170 AT_DATA_GRAMMAR([[input.y]],
 171 [[$4
 172 %{
 173 #include <stdio.h>
 174 #include <stdlib.h>
 175 #include <assert.h>
 176
 177 static int yylex (void);
 178 static void yyerror (const char *msg);
 179 %}
 180 %error-verbose
 181 %debug
 182 %verbose
 183 %locations
 184 %union
 185 {
 186   int ival;
 187 }
 188 %type <ival> 'x' thing line input
 189
 190 %printer { fprintf (yyout, "%d@%d", $$, @$.first_line); }
 191    input line thing 'x'
 192
 193 %destructor
 194   { fprintf (stdout, "Freeing nterm input (%d@%d)\n", $$, @$.first_line); }
 195   input
 196
 197 %destructor
 198   { fprintf (stdout, "Freeing nterm line (%d@%d)\n", $$, @$.first_line); }
 199   line
 200
 201 %destructor
 202   { fprintf (stdout, "Freeing nterm thing (%d@%d)\n", $$, @$.first_line); }
 203   thing
 204
 205 %destructor
 206   { fprintf (stdout, "Freeing token 'x' (%d@%d)\n", $$, @$.first_line); }
 207   'x'
 208
 209 %%
 210 input:
 211   /* Nothing. */
 212     {
 213       $$ = 0;
 214       printf ("input(%d@%d): /* Nothing */';'\n", $$, @$.first_line);
 215     }
 216 | line input /* Right recursive to load the stack so that popping at
 217                 EOF can be exercised.  */
 218     {
 219       $$ = 2;
 220       printf ("input(%d@%d): line(%d@%d) input(%d@%d)';'\n",
 221               $$, @$.first_line, $1, @1.first_line, $2, @2.first_line);
 222     }
 223 ;
 224
 225 line:
 226   thing thing thing ';'
 227     {
 228       $$ = $1;
 229       printf ("line(%d@%d): thing(%d@%d) thing(%d@%d) thing(%d@%d) ';'\n",
 230               $$, @$.first_line, $1, @1.first_line, $2, @2.first_line,
 231               $3, @3.first_line);
 232     }
 233 | thing thing ';'
 234     {
 235       $$ = $1;
 236       printf ("line(%d@%d): thing(%d@%d) thing(%d@%d) ';'\n",
 237               $$, @$.first_line, $1, @1.first_line, $2, @2.first_line);
 238     }
 239 | thing ';'
 240     {
 241       $$ = $1;
 242       printf ("line(%d@%d): thing(%d@%d) ';'\n",
 243               $$, @$.first_line, $1, @1.first_line);
 244     }
 245 | error ';'
 246     {
 247       $$ = -1;
 248       printf ("line(%d@%d): error(@%d) ';'\n",
 249               $$, @$.first_line, @1.first_line);
 250     }
 251 ;
 252
 253 thing:
 254   'x'
 255     {
 256       $$ = $1;
 257       printf ("thing(%d@%d): 'x'(%d@%d)\n",
 258               $$, @$.first_line, $1, @1.first_line);
 259     }
 260 ;
 261 %%
 262 static int
 263 yylex (void)
 264 {
 265   static const unsigned int input[] =
 266     {
 267       /* Exericise the discarding of stack top and input until `error'
 268          can be reduced.  */
 269       'x', 'x', 'x', 'x', 'x', 'x', ';',
 270
 271       /* Load the stack and provoke an error that cannot be caught by
 272          the grammar, to check that the stack is cleared. */
 273       'x', 'x', ';',
 274       'x', ';',
 275       'y'
 276     };
 277   static unsigned int counter = 0;
 278
 279   if (counter < (sizeof(input) / sizeof (input[0])))
 280     {
 281        yylval.ival = counter;
 282        /* As in BASIC, line numbers go from 10 to 10.  */
 283        yylloc.first_line = 10 * counter;
 284        printf ("sending: '%c' (value = %d, line %d)\n",
 285                input[counter], yylval.ival, yylloc.first_line);
 286        return (int) input[counter++];
 287     }
 288   else
 289     {
 290       printf ("sending: EOF\n");
 291       return EOF;
 292     }
 293 }
 294
 295 static void
 296 yyerror (const char *msg)
 297 {
 298   fprintf (stdout, "%d: %s\n", yylloc.first_line, msg);
 299 }
 300
 301 int
 302 main (void)
 303 {
 304   yydebug = !!getenv ("YYDEBUG");
 305   if (yyparse ())
 306     {
 307       fprintf (stdout, "Parsing FAILED.\n");
 308       exit (1);
 309     }
 310   fprintf (stdout, "Successful parse.\n");
 311   return 0;
 312 }
 313 ]])
 314
 315 AT_CHECK([bison -o input.c input.y])
 316 AT_COMPILE([input])
 317 AT_PARSER_CHECK([./input], 1,
 318 [[sending: 'x' (value = 0, line 0)
 319 thing(0@0): 'x'(0@0)
 320 sending: 'x' (value = 1, line 10)
 321 thing(1@10): 'x'(1@10)
 322 sending: 'x' (value = 2, line 20)
 323 thing(2@20): 'x'(2@20)
 324 sending: 'x' (value = 3, line 30)
 325 30: syntax error, unexpected 'x', expecting ';'
 326 Freeing nterm thing (2@20)
 327 Freeing nterm thing (1@10)
 328 Freeing nterm thing (0@0)
 329 Freeing token 'x' (3@30)
 330 sending: 'x' (value = 4, line 40)
 331 Freeing token 'x' (4@40)
 332 sending: 'x' (value = 5, line 50)
 333 Freeing token 'x' (5@50)
 334 sending: ';' (value = 6, line 60)
 335 line(-1@50): error(@50) ';'
 336 sending: 'x' (value = 7, line 70)
 337 thing(7@70): 'x'(7@70)
 338 sending: 'x' (value = 8, line 80)
 339 thing(8@80): 'x'(8@80)
 340 sending: ';' (value = 9, line 90)
 341 line(7@70): thing(7@70) thing(8@80) ';'
 342 sending: 'x' (value = 10, line 100)
 343 thing(10@100): 'x'(10@100)
 344 sending: ';' (value = 11, line 110)
 345 line(10@100): thing(10@100) ';'
 346 sending: 'y' (value = 12, line 120)
 347 120: syntax error, unexpected $undefined, expecting $end or 'x'
 348 sending: EOF
 349 Freeing nterm line (10@100)
 350 Freeing nterm line (7@70)
 351 Freeing nterm line (-1@50)
 352 Parsing FAILED.
 353 ]])
 354
 355 AT_CLEANUP
 356 ])
 357
 358
 359 # AT_CHECK_PRINTER_AND_DESTRUCTOR([BISON-OPTIONS])
 360 # ------------------------------------------------
 361 # Produce `calc.y'.
 362 m4_define([AT_CHECK_PRINTER_AND_DESTRUCTOR],
 363 [_AT_CHECK_PRINTER_AND_DESTRUCTOR($[1], $[2], $[3], [$1])
 364 ])
 365
 366
 367 AT_CHECK_PRINTER_AND_DESTRUCTOR()
 368 AT_CHECK_PRINTER_AND_DESTRUCTOR([%glr-parser])