]>
Commit | Line | Data |
---|---|---|
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 |
37 | m4_define([_AT_DATA_CALC_Y], |
38 | [m4_if([$1$2$3], $[1]$[2]$[3], [], | |
39 | [m4_fatal([$0: Invalid arguments: $@])])dnl | |
462503f8 JD |
40 | m4_pushdef([AT_CALC_LEX], |
41 | [[#include <ctype.h> | |
42 | ||
43 | int ]AT_NAME_PREFIX[lex (]AT_LEX_FORMALS[); | |
44 | static int get_char (]AT_LEX_FORMALS[); | |
45 | static void unget_char (]AT_LEX_PRE_FORMALS[ int c); | |
46 | ||
47 | ]AT_LOCATION_IF([ | |
48 | static YYLTYPE last_yylloc; | |
49 | ])[ | |
50 | static int | |
51 | get_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 | ||
68 | static void | |
69 | unget_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 | ||
79 | static int | |
80 | read_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 | ||
111 | int | |
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 | 153 | AT_DATA_GRAMMAR([calc.y], |
bfb07874 | 154 | [[/* Infix notation calculator--calc */ |
fb9712a9 | 155 | ]$4 |
8f7e3cf9 | 156 | AT_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. */ |
202 | extern 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 | 221 | FILE *input; |
caf37a36 | 222 | static semantic_value global_result = 0; |
4e8c79eb | 223 | static int global_count = 0; |
c19988b7 | 224 | static 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 | 230 | static 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 |
234 | int 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 | %% | |
261 | input: | |
b7c49edf | 262 | line |
2a8d363a | 263 | | input line { ]AT_PARAM_IF([++*count; ++global_count;])[ } |
bfb07874 AD |
264 | ; |
265 | ||
266 | line: | |
c19988b7 | 267 | '\n' |
affac613 | 268 | | exp '\n' { ]AT_PARAM_IF([*result = global_result = $1], [USE ($1)])[; } |
bfb07874 AD |
269 | ; |
270 | ||
271 | exp: | |
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 | 307 | void |
16d9244d | 308 | AT_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 | 315 | int |
caf37a36 | 316 | yyparse (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. */ |
326 | static void | |
ebc3737e | 327 | yyerror (AT_YYERROR_ARG_LOC_IF([YYLTYPE *llocp, ]) |
caf37a36 | 328 | AT_PARAM_IF([semantic_value *result, int *count, ]) |
7548fed2 AD |
329 | const char *s) |
330 | { | |
331 | AT_PARAM_IF([(void) result; (void) count;]) | |
332 | AT_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 | |
347 | static int | |
348 | power (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 | 360 | int |
342b8b6e | 361 | main (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 |
395 | AT_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])]) | |
399 | m4_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 | 407 | m4_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 |
424 | m4_define([_AT_CHECK_CALC], |
425 | [AT_DATA([[input]], | |
426 | [[$2 | |
427 | ]]) | |
f50adbbd | 428 | AT_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 | 453 | m4_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 | 459 | AT_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 |
464 | sed '/^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 | 479 | mv at-stderr stderr |
51dec47b AD |
480 | # 2. Create the reference error message. |
481 | AT_DATA([[expout]], | |
b0f98b10 | 482 | [$5 |
342b8b6e | 483 | ]) |
51dec47b | 484 | # 3. If locations are not used, remove them. |
2a8d363a | 485 | AT_YYERROR_SEES_LOC_IF([], |
51dec47b AD |
486 | [[sed 's/^[-0-9.]*: //' expout >at-expout |
487 | mv at-expout expout]]) | |
488 | # 4. If error-verbose is not used, strip the`, unexpected....' part. | |
f50adbbd | 489 | m4_bmatch([$1], [%error-verbose], [], |
6e649e65 | 490 | [[sed 's/syntax error, .*$/syntax error/' expout >at-expout |
51dec47b AD |
491 | mv at-expout expout]]) |
492 | # 5. Check | |
493 | AT_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 | 502 | m4_define([AT_CHECK_CALC], |
bfb07874 AD |
503 | [# We use integers to avoid dependencies upon the precision of doubles. |
504 | AT_SETUP([Calculator $1]) | |
505 | ||
907e3bc8 PE |
506 | m4_ifval([$2], [AT_CHECK([exit 77])]) |
507 | ||
67a25fed | 508 | AT_BISON_OPTION_PUSHDEFS([$1]) |
2a8d363a | 509 | |
bfb07874 | 510 | AT_DATA_CALC_Y([$1]) |
462503f8 | 511 | AT_FULL_COMPILE([calc], [AT_DEFINES_IF([[lex]])]) |
bfb07874 AD |
512 | |
513 | # Test the priorities. | |
514 | _AT_CHECK_CALC([$1], | |
515 | [1 + 2 * 3 = 7 | |
516 | 1 + 2 * -3 = -5 | |
517 | ||
518 | -1^2 = -1 | |
519 | (-1)^2 = 1 | |
520 | ||
521 | ---1 = -1 | |
522 | ||
523 | 1 - 2 - 3 = -4 | |
524 | 1 - (2 - 3) = 2 | |
525 | ||
526 | 2^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 '!' |
568 | 1.18: syntax error, unexpected ')', expecting number or '-' or '(' or '!' | |
569 | 1.23: syntax error, unexpected '*', expecting number or '-' or '(' or '!' | |
570 | 1.41: syntax error, unexpected '*', expecting number or '-' or '(' or '!' | |
0b86fc41 AD |
571 | calc: 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 | 577 | calc: 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 '!' |
580 | 1.12: syntax error, unexpected number | |
82c53be4 | 581 | calc: 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 '!' | |
587 | 1.10: syntax error, unexpected '*', expecting number or '-' or '(' or '!' | |
588 | 1.16: syntax error, unexpected '*', expecting number or '-' or '(' or '!']) | |
589 | ||
67a25fed | 590 | AT_BISON_OPTION_POPDEFS |
2a8d363a | 591 | |
d803322e | 592 | AT_CLEANUP |
bfb07874 AD |
593 | ])# AT_CHECK_CALC |
594 | ||
595 | ||
596 | ||
597 | ||
f50adbbd AD |
598 | # ------------------------ # |
599 | # Simple LALR Calculator. # | |
600 | # ------------------------ # | |
601 | ||
8f7e3cf9 | 602 | AT_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. | |
608 | m4_define([AT_CHECK_CALC_LALR], | |
609 | [AT_CHECK_CALC($@)]) | |
610 | ||
611 | AT_CHECK_CALC_LALR() | |
612 | ||
9e32add8 | 613 | AT_CHECK_CALC_LALR([%defines]) |
ae7453f2 | 614 | AT_CHECK_CALC_LALR([%locations]) |
cacfdef7 | 615 | |
02975b9a | 616 | AT_CHECK_CALC_LALR([%name-prefix="calc"]) dnl test deprecated `=' |
9e32add8 AD |
617 | AT_CHECK_CALC_LALR([%verbose]) |
618 | AT_CHECK_CALC_LALR([%yacc]) | |
f50adbbd AD |
619 | AT_CHECK_CALC_LALR([%error-verbose]) |
620 | ||
d9df47b6 | 621 | AT_CHECK_CALC_LALR([%define api.pure %locations]) |
f37495f6 | 622 | AT_CHECK_CALC_LALR([%define api.push-pull both %define api.pure %locations]) |
ae7453f2 | 623 | AT_CHECK_CALC_LALR([%error-verbose %locations]) |
f50adbbd | 624 | |
02975b9a | 625 | AT_CHECK_CALC_LALR([%error-verbose %locations %defines %name-prefix "calc" %verbose %yacc]) |
f50adbbd AD |
626 | |
627 | AT_CHECK_CALC_LALR([%debug]) | |
02975b9a | 628 | AT_CHECK_CALC_LALR([%error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc]) |
c19988b7 | 629 | |
d9df47b6 | 630 | AT_CHECK_CALC_LALR([%define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc]) |
f37495f6 | 631 | AT_CHECK_CALC_LALR([%define api.push-pull both %define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc]) |
2a8d363a | 632 | |
d9df47b6 | 633 | AT_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 | ||
640 | AT_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. | |
646 | m4_define([AT_CHECK_CALC_GLR], | |
ae7453f2 | 647 | [AT_CHECK_CALC([%glr-parser] $@)]) |
f50adbbd | 648 | |
bfb07874 | 649 | |
f50adbbd | 650 | AT_CHECK_CALC_GLR() |
bfb07874 | 651 | |
9e32add8 | 652 | AT_CHECK_CALC_GLR([%defines]) |
ae7453f2 | 653 | AT_CHECK_CALC_GLR([%locations]) |
02975b9a | 654 | AT_CHECK_CALC_GLR([%name-prefix "calc"]) |
9e32add8 AD |
655 | AT_CHECK_CALC_GLR([%verbose]) |
656 | AT_CHECK_CALC_GLR([%yacc]) | |
f50adbbd | 657 | AT_CHECK_CALC_GLR([%error-verbose]) |
bfb07874 | 658 | |
d9df47b6 | 659 | AT_CHECK_CALC_GLR([%define api.pure %locations]) |
ae7453f2 | 660 | AT_CHECK_CALC_GLR([%error-verbose %locations]) |
bfb07874 | 661 | |
02975b9a | 662 | AT_CHECK_CALC_GLR([%error-verbose %locations %defines %name-prefix "calc" %verbose %yacc]) |
bfb07874 | 663 | |
f50adbbd | 664 | AT_CHECK_CALC_GLR([%debug]) |
02975b9a | 665 | AT_CHECK_CALC_GLR([%error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc]) |
21964f43 | 666 | |
d9df47b6 | 667 | AT_CHECK_CALC_GLR([%define api.pure %error-verbose %debug %locations %defines %name-prefix "calc" %verbose %yacc]) |
2a8d363a | 668 | |
d9df47b6 | 669 | AT_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 | 676 | AT_BANNER([[Simple LALR(1) C++ Calculator.]]) |
7548fed2 | 677 | |
0e021770 PE |
678 | # First let's try using %skeleton |
679 | AT_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 | 685 | m4_define([AT_CHECK_CALC_LALR1_CC], |
0e021770 | 686 | [AT_CHECK_CALC([%language "C++" %defines %locations] $@)]) |
8f7e3cf9 AD |
687 | |
688 | AT_CHECK_CALC_LALR1_CC([]) | |
cacfdef7 | 689 | AT_CHECK_CALC_LALR1_CC([%define location_type Span]) |
02975b9a | 690 | AT_CHECK_CALC_LALR1_CC([%error-verbose %name-prefix "calc" %verbose %yacc]) |
02975b9a | 691 | AT_CHECK_CALC_LALR1_CC([%error-verbose %debug %name-prefix "calc" %verbose %yacc]) |
7548fed2 | 692 | |
02975b9a | 693 | AT_CHECK_CALC_LALR1_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc]) |
0b86fc41 | 694 | |
02975b9a | 695 | AT_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 | ||
703 | AT_BANNER([[Simple GLR C++ Calculator.]]) | |
704 | ||
0e021770 PE |
705 | # Again, we try also using %skeleton. |
706 | AT_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. | |
712 | m4_define([AT_CHECK_CALC_GLR_CC], | |
0e021770 | 713 | [AT_CHECK_CALC([%language "C++" %glr-parser %defines %locations] $@)]) |
8f7e3cf9 | 714 | |
fa7b79c0 | 715 | AT_CHECK_CALC_GLR_CC([]) |
e7bab2df | 716 | AT_CHECK_CALC_GLR_CC([%define location_type Span]) |
02975b9a | 717 | AT_CHECK_CALC_GLR_CC([%error-verbose %name-prefix "calc" %verbose %yacc]) |
8f7e3cf9 | 718 | |
fa7b79c0 | 719 | AT_CHECK_CALC_GLR_CC([%debug]) |
02975b9a | 720 | AT_CHECK_CALC_GLR_CC([%error-verbose %debug %name-prefix "calc" %verbose %yacc]) |
7548fed2 | 721 | |
02975b9a | 722 | AT_CHECK_CALC_GLR_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc]) |
7548fed2 | 723 | |
02975b9a | 724 | AT_CHECK_CALC_GLR_CC([%pure-parser %error-verbose %debug %name-prefix "calc" %verbose %yacc %parse-param {semantic_value *result} %parse-param {int *count}]) |