]> git.saurik.com Git - bison.git/blame - tests/calc.at
build: use gnulib's new bootstrap_sync option.
[bison.git] / tests / calc.at
CommitLineData
82c53be4 1# Simple calculator. -*- Autotest -*-
419ab105 2
6e30ede8
PE
3# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
4# 2009, 2010 Free Software Foundation, Inc.
bfb07874 5
f16b0819 6# This program is free software: you can redistribute it and/or modify
342b8b6e 7# it under the terms of the GNU General Public License as published by
f16b0819
PE
8# the Free Software Foundation, either version 3 of the License, or
9# (at your option) any later version.
10#
342b8b6e
AD
11# This program is distributed in the hope that it will be useful,
12# but WITHOUT ANY WARRANTY; without even the implied warranty of
13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14# GNU General Public License for more details.
f16b0819 15#
342b8b6e 16# You should have received a copy of the GNU General Public License
f16b0819 17# along with this program. If not, see <http://www.gnu.org/licenses/>.
bfb07874 18
bfb07874
AD
19## ---------------------------------------------------- ##
20## Compile the grammar described in the documentation. ##
21## ---------------------------------------------------- ##
22
23
24# ------------------------- #
25# Helping Autotest macros. #
26# ------------------------- #
27
28
2a8d363a
AD
29# _AT_DATA_CALC_Y($1, $2, $3, [BISON-DIRECTIVES])
30# -----------------------------------------------
462503f8
JD
31# Produce `calc.y' and, if %defines was specified, `calc-lex.c' or
32# `calc-lex.cc'.
33#
34# Don't call this macro directly, because it contains some occurrences
35# of `$1' etc. which will be interpreted by m4. So you should call it
36# with $1, $2, and $3 as arguments, which is what AT_DATA_CALC_Y does.
342b8b6e
AD
37m4_define([_AT_DATA_CALC_Y],
38[m4_if([$1$2$3], $[1]$[2]$[3], [],
39 [m4_fatal([$0: Invalid arguments: $@])])dnl
462503f8
JD
40m4_pushdef([AT_CALC_LEX],
41[[#include <ctype.h>
42
43int ]AT_NAME_PREFIX[lex (]AT_LEX_FORMALS[);
44static int get_char (]AT_LEX_FORMALS[);
45static void unget_char (]AT_LEX_PRE_FORMALS[ int c);
46
47]AT_LOCATION_IF([
48static YYLTYPE last_yylloc;
49])[
50static int
51get_char (]AT_LEX_FORMALS[)
52{
53 int res = getc (input);
54 ]AT_USE_LEX_ARGS[;
55]AT_LOCATION_IF([
56 last_yylloc = AT_LOC;
57 if (res == '\n')
58 {
ed228e60
AD
59 AT_LOC_LAST_LINE++;
60 AT_LOC_LAST_COLUMN = 1;
462503f8
JD
61 }
62 else
ed228e60 63 AT_LOC_LAST_COLUMN++;
462503f8
JD
64])[
65 return res;
66}
67
68static void
69unget_char (]AT_LEX_PRE_FORMALS[ int c)
70{
71 ]AT_USE_LEX_ARGS[;
72]AT_LOCATION_IF([
73 /* Wrong when C == `\n'. */
74 AT_LOC = last_yylloc;
75])[
76 ungetc (c, input);
77}
78
79static int
80read_signed_integer (]AT_LEX_FORMALS[)
81{
82 int c = get_char (]AT_LEX_ARGS[);
83 int sign = 1;
84 int n = 0;
85
86 ]AT_USE_LEX_ARGS[;
87 if (c == '-')
88 {
89 c = get_char (]AT_LEX_ARGS[);
90 sign = -1;
91 }
92
93 while (isdigit (c))
94 {
95 n = 10 * n + (c - '0');
96 c = get_char (]AT_LEX_ARGS[);
97 }
98
99 unget_char (]AT_LEX_PRE_ARGS[ c);
100
101 return sign * n;
102}
103
104
105/*---------------------------------------------------------------.
106| Lexical analyzer returns an integer on the stack and the token |
107| NUM, or the ASCII character read if not a number. Skips all |
108| blanks and tabs, returns 0 for EOF. |
109`---------------------------------------------------------------*/
110
111int
112]AT_NAME_PREFIX[lex (]AT_LEX_FORMALS[)
113{
114 static int init = 1;
115 int c;
116
117 if (init)
118 {
119 init = 0;
120]AT_LOCATION_IF([
ed228e60
AD
121 AT_LOC_LAST_COLUMN = 1;
122 AT_LOC_LAST_LINE = 1;
462503f8
JD
123])[
124 }
125
ecbca7db
AD
126 /* Skip current token, then white spaces. */
127 do
462503f8
JD
128 {
129]AT_LOCATION_IF(
ed228e60
AD
130[ AT_LOC_FIRST_COLUMN = AT_LOC_LAST_COLUMN;
131 AT_LOC_FIRST_LINE = AT_LOC_LAST_LINE;
462503f8
JD
132])[
133 }
ecbca7db 134 while ((c = get_char (]AT_LEX_ARGS[)) == ' ' || c == '\t');
462503f8
JD
135
136 /* process numbers */
137 if (c == '.' || isdigit (c))
138 {
139 unget_char (]AT_LEX_PRE_ARGS[ c);
140 ]AT_VAL[.ival = read_signed_integer (]AT_LEX_ARGS[);
141 return NUM;
142 }
143
144 /* Return end-of-file. */
145 if (c == EOF)
146 return CALC_EOF;
147
148 /* Return single chars. */
149 return c;
150}
151]])
152
9501dc6e 153AT_DATA_GRAMMAR([calc.y],
bfb07874 154[[/* Infix notation calculator--calc */
fb9712a9 155]$4
8f7e3cf9 156AT_SKEL_CC_IF(
16dc6a9e 157[%define global_tokens_and_yystype])[
3e4a253b
AD
158%code requires
159{
0f404a0a 160]AT_LOCATION_TYPE_IF([[
cacfdef7
AD
161# include <iostream>
162 struct Point
163 {
164 int l;
165 int c;
166 };
167
168 struct Span
169 {
0f404a0a
AD
170 Point first;
171 Point last;
cacfdef7 172 };
0f404a0a 173
e7bab2df
AD
174# define YYLLOC_DEFAULT(Current, Rhs, N) \
175 do \
176 if (N) \
177 { \
178 (Current).first = YYRHSLOC (Rhs, 1).first; \
179 (Current).last = YYRHSLOC (Rhs, N).last; \
180 } \
181 else \
182 { \
183 (Current).first = (Current).last = YYRHSLOC (Rhs, 0).last; \
184 } \
185 while (false)
0f404a0a
AD
186
187]])[
cacfdef7
AD
188 /* Exercise pre-prologue dependency to %union. */
189 typedef int semantic_value;
462503f8
JD
190}
191
192/* Exercise %union. */
193%union
194{
195 semantic_value ival;
196};
197
3e4a253b
AD
198%code provides
199{
bfb07874 200#include <stdio.h>
462503f8
JD
201/* The input. */
202extern FILE *input;]AT_SKEL_CC_IF([[
203#ifndef YYLTYPE
16d9244d 204# define YYLTYPE ]AT_NAME_PREFIX[::parser::location_type
462503f8 205#endif
ed228e60 206]])[
462503f8 207}
2ce10144 208
3e4a253b
AD
209%code
210{
6e26ca8c
PE
211#include <stdlib.h>
212#include <string.h>
82c53be4
PE
213#if HAVE_UNISTD_H
214# include <unistd.h>
215#else
216# undef alarm
217# define alarm(seconds) /* empty */
218#endif
affac613 219#define USE(Var)
bfb07874 220
462503f8 221FILE *input;
caf37a36 222static semantic_value global_result = 0;
4e8c79eb 223static int global_count = 0;
c19988b7 224static int power (int base, int exponent);
0f404a0a 225
462503f8 226]AT_SKEL_CC_IF(,
67a25fed 227[/* yyerror receives the location if:
2a8d363a
AD
228 - %location & %pure & %glr
229 - %location & %pure & %yacc & %parse-param. */
ebc3737e 230static void yyerror (AT_YYERROR_ARG_LOC_IF([YYLTYPE *llocp, ])
caf37a36 231 AT_PARAM_IF([semantic_value *result, int *count, ])
93724f13 232 const char *s
d02b25f9 233 );])[
462503f8
JD
234int yylex (]AT_LEX_FORMALS[);
235}
c19988b7 236
cacfdef7
AD
237]AT_SKEL_CC_IF([AT_LOCATION_TYPE_IF([], [
238/* The lalr1.cc skeleton, for backward compatibility, defines
8f7e3cf9
AD
239 a constructor for position that initializes the filename. The
240 glr.cc skeleton does not (and in fact cannot: location/position
241 are stored in a union, from which objects with constructors are
242 excluded in C++. */
243%initial-action {
ed94ef2a 244 @$.initialize (0);
8f7e3cf9 245}
cacfdef7 246])])[
8f7e3cf9 247
6b7e85b9 248/* Bison Declarations */
c19988b7 249%token CALC_EOF 0 "end of input"
213e640e
AD
250%token <ival> NUM "number"
251%type <ival> exp
bfb07874
AD
252
253%nonassoc '=' /* comparison */
254%left '-' '+'
255%left '*' '/'
256%left NEG /* negation--unary minus */
257%right '^' /* exponentiation */
258
259/* Grammar follows */
260%%
261input:
b7c49edf 262 line
2a8d363a 263| input line { ]AT_PARAM_IF([++*count; ++global_count;])[ }
bfb07874
AD
264;
265
266line:
c19988b7 267 '\n'
affac613 268| exp '\n' { ]AT_PARAM_IF([*result = global_result = $1], [USE ($1)])[; }
bfb07874
AD
269;
270
271exp:
272 NUM { $$ = $1; }
273| exp '=' exp
274 {
2a8d363a
AD
275 if ($1 != $3)
276 fprintf (stderr, "calc: error: %d != %d\n", $1, $3);
277 $$ = $1;
bfb07874
AD
278 }
279| exp '+' exp { $$ = $1 + $3; }
280| exp '-' exp { $$ = $1 - $3; }
281| exp '*' exp { $$ = $1 * $3; }
282| exp '/' exp { $$ = $1 / $3; }
283| '-' exp %prec NEG { $$ = -$2; }
284| exp '^' exp { $$ = power ($1, $3); }
285| '(' exp ')' { $$ = $2; }
65015668 286| '(' error ')' { $$ = 1111; yyerrok; }
8f3596a6
AD
287| '!' { $$ = 0; YYERROR; }
288| '-' error { $$ = 0; YYERROR; }
bfb07874
AD
289;
290%%
bfb07874 291
8f7e3cf9 292]AT_SKEL_CC_IF(
cacfdef7
AD
293[AT_LOCATION_TYPE_IF([[
294 std::ostream&
295 operator<< (std::ostream& o, const Span& s)
296 {
0f404a0a
AD
297 o << s.first.l << '.' << s.first.c;
298 if (s.first.l != s.last.l)
299 o << '-' << s.last.l << '.' << s.last.c - 1;
300 else if (s.first.c != s.last.c - 1)
301 o << '-' << s.last.c - 1;
cacfdef7
AD
302 return o;
303 }
304]])
305
306/* A C++ error reporting function. */
7548fed2 307void
16d9244d 308AT_NAME_PREFIX::parser::error (const location_type& l, const std::string& m)
7548fed2 309{
efeed023
AD
310 (void) l;
311 std::cerr << AT_LOCATION_IF([l << ": " << ])m << std::endl;
7548fed2
AD
312}
313
3e4a253b 314/* A C++ yyparse that simulates the C signature. */
7548fed2 315int
caf37a36 316yyparse (AT_PARAM_IF([semantic_value *result, int *count]))
7548fed2 317{
aa08666d 318 AT_NAME_PREFIX::parser parser[]AT_PARAM_IF([ (result, count)]);
fa7b79c0
PE
319#if YYDEBUG
320 parser.set_debug_level (1);
321#endif
7548fed2
AD
322 return parser.parse ();
323}
324],
3e4a253b
AD
325[/* A C error reporting function. */
326static void
ebc3737e 327yyerror (AT_YYERROR_ARG_LOC_IF([YYLTYPE *llocp, ])
caf37a36 328 AT_PARAM_IF([semantic_value *result, int *count, ])
7548fed2
AD
329 const char *s)
330{
331AT_PARAM_IF([(void) result; (void) count;])
332AT_YYERROR_SEES_LOC_IF([
333 fprintf (stderr, "%d.%d",
ed228e60
AD
334 AT_LOC_FIRST_LINE, AT_LOC_FIRST_COLUMN);
335 if (AT_LOC_FIRST_LINE != AT_LOC_LAST_LINE)
7548fed2 336 fprintf (stderr, "-%d.%d",
ed228e60
AD
337 AT_LOC_LAST_LINE, AT_LOC_LAST_COLUMN - 1);
338 else if (AT_LOC_FIRST_COLUMN != AT_LOC_LAST_COLUMN - 1)
7548fed2 339 fprintf (stderr, "-%d",
ed228e60 340 AT_LOC_LAST_COLUMN - 1);
7548fed2
AD
341 fprintf (stderr, ": ");])
342 fprintf (stderr, "%s\n", s);
343}])[
344
462503f8 345]AT_DEFINES_IF(, [AT_CALC_LEX])[
bfb07874
AD
346
347static int
348power (int base, int exponent)
349{
350 int res = 1;
351 if (exponent < 0)
6100a9aa 352 exit (3);
bfb07874
AD
353 for (/* Niente */; exponent; --exponent)
354 res *= base;
355 return res;
356}
357
7548fed2 358
3e4a253b 359/* A C main function. */
bfb07874 360int
342b8b6e 361main (int argc, const char **argv)
bfb07874 362{
caf37a36 363 semantic_value result = 0;
e7cb57c0 364 int count = 0;
4e8c79eb 365 int status;
342b8b6e 366
419ab105
PE
367 /* This used to be alarm (10), but that isn't enough time for
368 a July 1995 vintage DEC Alphastation 200 4/100 system,
369 according to Nelson H. F. Beebe. 100 seconds is enough. */
370 alarm (100);
371
342b8b6e 372 if (argc == 2)
a9739e7c 373 input = fopen (argv[1], "r");
bfb07874 374 else
a9739e7c 375 input = stdin;
bfb07874 376
a9739e7c 377 if (!input)
bfb07874
AD
378 {
379 perror (argv[1]);
6100a9aa 380 return 3;
bfb07874
AD
381 }
382
8f7e3cf9 383]AT_SKEL_CC_IF([], [m4_bmatch([$4], [%debug],
d02b25f9 384[ yydebug = 1;])])[
c3d50342 385 status = yyparse (]AT_PARAM_IF([[&result, &count]])[);
2f61c4a2
AD
386 if (fclose (input))
387 perror ("fclose");
63d0fb9c
PE
388 if (global_result != result)
389 abort ();
390 if (global_count != count)
391 abort ();
b0f98b10 392 return status;
bfb07874
AD
393}
394]])
462503f8
JD
395AT_DEFINES_IF([AT_DATA_SOURCE([[calc-lex.c]AT_SKEL_CC_IF([[c]])],
396[[#include "calc.h]AT_SKEL_CC_IF([[h]])["
397
398]AT_CALC_LEX])])
399m4_popdef([AT_CALC_LEX])
bfb07874
AD
400])# _AT_DATA_CALC_Y
401
402
403# AT_DATA_CALC_Y([BISON-OPTIONS])
404# -------------------------------
462503f8
JD
405# Produce `calc.y' and, if %defines was specified, `calc-lex.c' or
406# `calc-lex.cc'.
342b8b6e 407m4_define([AT_DATA_CALC_Y],
9e32add8 408[_AT_DATA_CALC_Y($[1], $[2], $[3], [$1])
f50adbbd 409])
bfb07874
AD
410
411
412
d9963c85
PE
413# _AT_CHECK_CALC(BISON-OPTIONS, INPUT, [NUM-STDERR-LINES])
414# --------------------------------------------------------
bfb07874 415# Run `calc' on INPUT and expect no STDOUT nor STDERR.
342b8b6e 416#
f50adbbd 417# If BISON-OPTIONS contains `%debug' but not `%glr-parser', then
d9963c85 418#
f50adbbd 419# NUM-STDERR-LINES is the number of expected lines on stderr.
d9963c85 420# Currently this is ignored, though, since the output format is fluctuating.
f50adbbd
AD
421#
422# We don't count GLR's traces yet, since its traces are somewhat
423# different from LALR's.
342b8b6e
AD
424m4_define([_AT_CHECK_CALC],
425[AT_DATA([[input]],
426[[$2
427]])
f50adbbd 428AT_PARSER_CHECK([./calc input], 0, [], [stderr])
342b8b6e
AD
429])
430
431
b0f98b10 432# _AT_CHECK_CALC_ERROR(BISON-OPTIONS, EXIT-STATUS, INPUT,
d9963c85 433# [NUM-STDERR-LINES],
2a8d363a 434# [VERBOSE-AND-LOCATED-ERROR-MESSAGE])
b0f98b10 435# ---------------------------------------------------------
6e649e65 436# Run `calc' on INPUT, and expect a `syntax error' message.
342b8b6e 437#
b7c49edf
AD
438# If INPUT starts with a slash, it is used as absolute input file name,
439# otherwise as contents.
440#
d9963c85
PE
441# NUM-STDERR-LINES is the number of expected lines on stderr.
442# Currently this is ignored, though, since the output format is fluctuating.
443#
9e32add8 444# If BISON-OPTIONS contains `%location', then make sure the ERROR-LOCATION
342b8b6e
AD
445# is correctly output on stderr.
446#
f50adbbd 447# If BISON-OPTIONS contains `%error-verbose', then make sure the
6e649e65 448# IF-YYERROR-VERBOSE message is properly output after `syntax error, '
342b8b6e
AD
449# on STDERR.
450#
f50adbbd
AD
451# If BISON-OPTIONS contains `%debug' but not `%glr', then NUM-STDERR-LINES
452# is the number of expected lines on stderr.
342b8b6e 453m4_define([_AT_CHECK_CALC_ERROR],
b0f98b10
AD
454[m4_bmatch([$3], [^/],
455 [AT_PARSER_CHECK([./calc $3], $2, [], [stderr])],
b7c49edf 456 [AT_DATA([[input]],
b0f98b10 457[[$3
342b8b6e 458]])
b0f98b10 459AT_PARSER_CHECK([./calc input], $2, [], [stderr])])
342b8b6e 460
51dec47b
AD
461# Normalize the observed and expected error messages, depending upon the
462# options.
463# 1. Remove the traces from observed.
9280d3ef
AD
464sed '/^Starting/d
465/^Entering/d
f50adbbd 466/^Stack/d
9280d3ef
AD
467/^Reading/d
468/^Reducing/d
31c10e38 469/^Return/d
9280d3ef
AD
470/^Shifting/d
471/^state/d
dd5f2af2 472/^Cleanup:/d
9280d3ef
AD
473/^Error:/d
474/^Next/d
31c10e38 475/^Now/d
9280d3ef 476/^Discarding/d
62b08cfc 477/ \$[[0-9$]]* = /d
9280d3ef 478/^yydestructor:/d' stderr >at-stderr
342b8b6e 479mv at-stderr stderr
51dec47b
AD
480# 2. Create the reference error message.
481AT_DATA([[expout]],
b0f98b10 482[$5
342b8b6e 483])
51dec47b 484# 3. If locations are not used, remove them.
2a8d363a 485AT_YYERROR_SEES_LOC_IF([],
51dec47b
AD
486[[sed 's/^[-0-9.]*: //' expout >at-expout
487mv at-expout expout]])
488# 4. If error-verbose is not used, strip the`, unexpected....' part.
f50adbbd 489m4_bmatch([$1], [%error-verbose], [],
6e649e65 490[[sed 's/syntax error, .*$/syntax error/' expout >at-expout
51dec47b
AD
491mv at-expout expout]])
492# 5. Check
493AT_CHECK([cat stderr], 0, [expout])
342b8b6e 494])
bfb07874
AD
495
496
fb9712a9
AD
497# AT_CHECK_CALC([BISON-OPTIONS, [EXPECTED-TO-FAIL]])
498# --------------------------------------------------
bfb07874
AD
499# Start a testing chunk which compiles `calc' grammar with
500# BISON-OPTIONS, and performs several tests over the parser.
907e3bc8 501# However, if EXPECTED-TO-FAIL is nonempty, this test is expected to fail.
342b8b6e 502m4_define([AT_CHECK_CALC],
bfb07874
AD
503[# We use integers to avoid dependencies upon the precision of doubles.
504AT_SETUP([Calculator $1])
505
907e3bc8
PE
506m4_ifval([$2], [AT_CHECK([exit 77])])
507
67a25fed 508AT_BISON_OPTION_PUSHDEFS([$1])
2a8d363a 509
bfb07874 510AT_DATA_CALC_Y([$1])
462503f8 511AT_FULL_COMPILE([calc], [AT_DEFINES_IF([[lex]])])
bfb07874
AD
512
513# Test the priorities.
514_AT_CHECK_CALC([$1],
515[1 + 2 * 3 = 7
5161 + 2 * -3 = -5
517
518-1^2 = -1
519(-1)^2 = 1
520
521---1 = -1
522
5231 - 2 - 3 = -4
5241 - (2 - 3) = 2
525
5262^2^3 = 256
e7cb57c0 527(2^2)^3 = 64],
d1ff7a7c 528 [842])
bfb07874 529
6e649e65 530# Some syntax errors.
d1ff7a7c 531_AT_CHECK_CALC_ERROR([$1], [1], [0 0], [15],
cd48d21d 532 [1.3: syntax error, unexpected number])
d1ff7a7c 533_AT_CHECK_CALC_ERROR([$1], [1], [1//2], [20],
cd48d21d 534 [1.3: syntax error, unexpected '/', expecting number or '-' or '(' or '!'])
e757bb10 535_AT_CHECK_CALC_ERROR([$1], [1], [error], [5],
cd48d21d 536 [1.1: syntax error, unexpected $undefined])
d1ff7a7c 537_AT_CHECK_CALC_ERROR([$1], [1], [1 = 2 = 3], [30],
cd48d21d 538 [1.7: syntax error, unexpected '='])
b0f98b10 539_AT_CHECK_CALC_ERROR([$1], [1],
bfb07874
AD
540 [
541+1],
d1ff7a7c 542 [20],
cd48d21d 543 [2.1: syntax error, unexpected '+'])
b7c49edf 544# Exercise error messages with EOF: work on an empty file.
cea1469d 545_AT_CHECK_CALC_ERROR([$1], [1], [/dev/null], [4],
cd48d21d 546 [1.1: syntax error, unexpected end of input])
51dec47b
AD
547
548# Exercise the error token: without it, we die at the first error,
0b86fc41
AD
549# hence be sure to
550#
551# - have several errors which exercise different shift/discardings
552# - (): nothing to pop, nothing to discard
553# - (1 + 1 + 1 +): a lot to pop, nothing to discard
554# - (* * *): nothing to pop, a lot to discard
555# - (1 + 2 * *): some to pop and discard
556#
557# - test the action associated to `error'
558#
742e4900
JD
559# - check the lookahead that triggers an error is not discarded
560# when we enter error recovery. Below, the lookahead causing the
0b86fc41
AD
561# first error is ")", which is needed to recover from the error and
562# produce the "0" that triggers the "0 != 1" error.
563#
564_AT_CHECK_CALC_ERROR([$1], [0],
565 [() + (1 + 1 + 1 +) + (* * *) + (1 * 2 * *) = 1],
d1ff7a7c 566 [250],
cd48d21d
AD
567[1.2: syntax error, unexpected ')', expecting number or '-' or '(' or '!'
5681.18: syntax error, unexpected ')', expecting number or '-' or '(' or '!'
5691.23: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
5701.41: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
0b86fc41
AD
571calc: error: 4444 != 1])
572
573# The same, but this time exercising explicitly triggered syntax errors.
742e4900 574# POSIX says the lookahead causing the error should not be discarded.
d1ff7a7c 575_AT_CHECK_CALC_ERROR([$1], [0], [(!) + (0 0) = 1], [102],
cd48d21d 576[1.10: syntax error, unexpected number
0b86fc41 577calc: error: 2222 != 1])
d1ff7a7c 578_AT_CHECK_CALC_ERROR([$1], [0], [(- *) + (0 0) = 1], [113],
cd48d21d
AD
579[1.4: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
5801.12: syntax error, unexpected number
82c53be4 581calc: error: 2222 != 1])
65015668
AD
582
583# Check that yyerrok works properly: second error is not reported,
584# third and fourth are. Parse status is succesfull.
585_AT_CHECK_CALC_ERROR([$1], [0], [(* *) + (*) + (*)], [113],
586[1.2: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
5871.10: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
5881.16: syntax error, unexpected '*', expecting number or '-' or '(' or '!'])
589
67a25fed 590AT_BISON_OPTION_POPDEFS
2a8d363a 591
d803322e 592AT_CLEANUP
bfb07874
AD
593])# AT_CHECK_CALC
594
595
596
597
f50adbbd
AD
598# ------------------------ #
599# Simple LALR Calculator. #
600# ------------------------ #
601
8f7e3cf9 602AT_BANNER([[Simple LALR(1) Calculator.]])
f50adbbd
AD
603
604# AT_CHECK_CALC_LALR([BISON-OPTIONS])
605# -----------------------------------
606# Start a testing chunk which compiles `calc' grammar with
607# BISON-OPTIONS, and performs several tests over the parser.
608m4_define([AT_CHECK_CALC_LALR],
609[AT_CHECK_CALC($@)])
610
611AT_CHECK_CALC_LALR()
612
9e32add8 613AT_CHECK_CALC_LALR([%defines])
ae7453f2 614AT_CHECK_CALC_LALR([%locations])
cacfdef7 615
02975b9a 616AT_CHECK_CALC_LALR([%name-prefix="calc"]) dnl test deprecated `='
9e32add8
AD
617AT_CHECK_CALC_LALR([%verbose])
618AT_CHECK_CALC_LALR([%yacc])
f50adbbd
AD
619AT_CHECK_CALC_LALR([%error-verbose])
620
d9df47b6 621AT_CHECK_CALC_LALR([%define api.pure %locations])
f37495f6 622AT_CHECK_CALC_LALR([%define api.push-pull both %define api.pure %locations])
ae7453f2 623AT_CHECK_CALC_LALR([%error-verbose %locations])
f50adbbd 624
02975b9a 625AT_CHECK_CALC_LALR([%error-verbose %locations %defines %name-prefix "calc" %verbose %yacc])
f50adbbd
AD
626
627AT_CHECK_CALC_LALR([%debug])
02975b9a 628AT_CHECK_CALC_LALR([%error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc])
c19988b7 629
d9df47b6 630AT_CHECK_CALC_LALR([%define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc])
f37495f6 631AT_CHECK_CALC_LALR([%define api.push-pull both %define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc])
2a8d363a 632
d9df47b6 633AT_CHECK_CALC_LALR([%define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc %parse-param {semantic_value *result} %parse-param {int *count}])
f50adbbd
AD
634
635
636# ----------------------- #
637# Simple GLR Calculator. #
638# ----------------------- #
639
640AT_BANNER([[Simple GLR Calculator.]])
641
642# AT_CHECK_CALC_GLR([BISON-OPTIONS])
643# ----------------------------------
644# Start a testing chunk which compiles `calc' grammar with
645# BISON-OPTIONS and %glr-parser, and performs several tests over the parser.
646m4_define([AT_CHECK_CALC_GLR],
ae7453f2 647[AT_CHECK_CALC([%glr-parser] $@)])
f50adbbd 648
bfb07874 649
f50adbbd 650AT_CHECK_CALC_GLR()
bfb07874 651
9e32add8 652AT_CHECK_CALC_GLR([%defines])
ae7453f2 653AT_CHECK_CALC_GLR([%locations])
02975b9a 654AT_CHECK_CALC_GLR([%name-prefix "calc"])
9e32add8
AD
655AT_CHECK_CALC_GLR([%verbose])
656AT_CHECK_CALC_GLR([%yacc])
f50adbbd 657AT_CHECK_CALC_GLR([%error-verbose])
bfb07874 658
d9df47b6 659AT_CHECK_CALC_GLR([%define api.pure %locations])
ae7453f2 660AT_CHECK_CALC_GLR([%error-verbose %locations])
bfb07874 661
02975b9a 662AT_CHECK_CALC_GLR([%error-verbose %locations %defines %name-prefix "calc" %verbose %yacc])
bfb07874 663
f50adbbd 664AT_CHECK_CALC_GLR([%debug])
02975b9a 665AT_CHECK_CALC_GLR([%error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc])
21964f43 666
d9df47b6 667AT_CHECK_CALC_GLR([%define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc])
2a8d363a 668
d9df47b6 669AT_CHECK_CALC_GLR([%define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc %parse-param {semantic_value *result} %parse-param {int *count}])
7548fed2
AD
670
671
672# ----------------------------- #
673# Simple LALR1 C++ Calculator. #
674# ----------------------------- #
675
8f7e3cf9 676AT_BANNER([[Simple LALR(1) C++ Calculator.]])
7548fed2 677
0e021770
PE
678# First let's try using %skeleton
679AT_CHECK_CALC([%skeleton "lalr1.cc" %defines %locations])
680
7548fed2
AD
681# AT_CHECK_CALC_LALR1_CC([BISON-OPTIONS])
682# ---------------------------------------
683# Start a testing chunk which compiles `calc' grammar with
caf37a36 684# the C++ skeleton, and performs several tests over the parser.
7548fed2 685m4_define([AT_CHECK_CALC_LALR1_CC],
0e021770 686[AT_CHECK_CALC([%language "C++" %defines %locations] $@)])
8f7e3cf9
AD
687
688AT_CHECK_CALC_LALR1_CC([])
cacfdef7 689AT_CHECK_CALC_LALR1_CC([%define location_type Span])
02975b9a 690AT_CHECK_CALC_LALR1_CC([%error-verbose %name-prefix "calc" %verbose %yacc])
02975b9a 691AT_CHECK_CALC_LALR1_CC([%error-verbose %debug %name-prefix "calc" %verbose %yacc])
7548fed2 692
02975b9a 693AT_CHECK_CALC_LALR1_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc])
0b86fc41 694
02975b9a 695AT_CHECK_CALC_LALR1_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc %parse-param {semantic_value *result} %parse-param {int *count}])
7548fed2 696
7548fed2 697
7548fed2 698
8f7e3cf9
AD
699# --------------------------- #
700# Simple GLR C++ Calculator. #
701# --------------------------- #
702
703AT_BANNER([[Simple GLR C++ Calculator.]])
704
0e021770
PE
705# Again, we try also using %skeleton.
706AT_CHECK_CALC([%skeleton "glr.cc" %defines %locations])
707
8f7e3cf9
AD
708# AT_CHECK_CALC_GLR_CC([BISON-OPTIONS])
709# -------------------------------------
710# Start a testing chunk which compiles `calc' grammar with
711# the GLR C++ skeleton, and performs several tests over the parser.
712m4_define([AT_CHECK_CALC_GLR_CC],
0e021770 713[AT_CHECK_CALC([%language "C++" %glr-parser %defines %locations] $@)])
8f7e3cf9 714
fa7b79c0 715AT_CHECK_CALC_GLR_CC([])
e7bab2df 716AT_CHECK_CALC_GLR_CC([%define location_type Span])
02975b9a 717AT_CHECK_CALC_GLR_CC([%error-verbose %name-prefix "calc" %verbose %yacc])
8f7e3cf9 718
fa7b79c0 719AT_CHECK_CALC_GLR_CC([%debug])
02975b9a 720AT_CHECK_CALC_GLR_CC([%error-verbose %debug %name-prefix "calc" %verbose %yacc])
7548fed2 721
02975b9a 722AT_CHECK_CALC_GLR_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc])
7548fed2 723
02975b9a 724AT_CHECK_CALC_GLR_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc %parse-param {semantic_value *result} %parse-param {int *count}])