]> git.saurik.com Git - bison.git/blob - tests/input.at
tests: remove use of PARSE_PARAM
[bison.git] / tests / input.at
1 # Checking the Bison scanner. -*- Autotest -*-
2
3 # Copyright (C) 2002-2012 Free Software Foundation, Inc.
4
5 # This program is free software: you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation, either version 3 of the License, or
8 # (at your option) any later version.
9 #
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
14 #
15 # You should have received a copy of the GNU General Public License
16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17
18 AT_BANNER([[Input Processing.]])
19
20 # Mostly test that we are robust to mistakes.
21
22
23 ## ---------------- ##
24 ## Invalid inputs. ##
25 ## ---------------- ##
26
27 AT_SETUP([Invalid inputs])
28
29 AT_DATA([input.y],
30 [[\000\001\002\377?
31 %%
32 ?
33 default: 'a' }
34 %&
35 %a-does-not-exist
36 %-
37 %{
38 ]])
39 AT_CHECK([[$PERL -pi -e 's/\\(\d{3})/chr(oct($1))/ge' input.y || exit 77]])
40
41 AT_BISON_CHECK([input.y], [1], [],
42 [[input.y:1.1-2: error: invalid characters: '\0\001\002\377?'
43 input.y:3.1: error: invalid character: '?'
44 input.y:4.14: error: invalid character: '}'
45 input.y:5.1: error: invalid character: '%'
46 input.y:5.2: error: invalid character: '&'
47 input.y:6.1-17: error: invalid directive: '%a-does-not-exist'
48 input.y:7.1: error: invalid character: '%'
49 input.y:7.2: error: invalid character: '-'
50 input.y:8.1-9.0: error: missing '%}' at end of file
51 input.y:8.1-9.0: error: syntax error, unexpected %{...%}
52 ]])
53
54 AT_CLEANUP
55
56
57 AT_SETUP([Invalid inputs with {}])
58
59 # We used to SEGV here. See
60 # http://lists.gnu.org/archive/html/bug-bison/2005-07/msg00053.html
61
62 AT_DATA([input.y],
63 [[
64 %destructor
65 %initial-action
66 %lex-param
67 %parse-param
68 %printer
69 %union
70 ]])
71
72 AT_BISON_CHECK([input.y], [1], [],
73 [[input.y:3.1-15: error: syntax error, unexpected %initial-action, expecting {...}
74 ]])
75
76 AT_CLEANUP
77
78
79
80 ## ------------ ##
81 ## Invalid $n. ##
82 ## ------------ ##
83
84 AT_SETUP([Invalid $n and @n])
85
86 AT_DATA([input.y],
87 [[%%
88 exp: { $$ = $1 ; };
89 exp: { @$ = @1 ; };
90 ]])
91
92 AT_BISON_CHECK([input.y], [1], [],
93 [[input.y:2.13-14: error: integer out of range: '$1'
94 input.y:3.13-14: error: integer out of range: '@1'
95 ]])
96
97 AT_CLEANUP
98
99
100 ## -------------- ##
101 ## Type Clashes. ##
102 ## -------------- ##
103
104 AT_SETUP([Type Clashes])
105
106 AT_DATA([input.y],
107 [[%union { int bar; }
108 %token foo
109 %type <bar> exp
110 %%
111 exp: foo { $$; } foo { $2; } foo
112 | foo
113 | /* Empty. */
114 ;
115 ]])
116
117 AT_BISON_CHECK([input.y], [1], [],
118 [[input.y:5.12-13: error: $$ for the midrule at $2 of 'exp' has no declared type
119 input.y:5.24-25: error: $2 of 'exp' has no declared type
120 input.y:5.6-32: warning: type clash on default action: <bar> != <> [-Wother]
121 input.y:6.6-8: warning: type clash on default action: <bar> != <> [-Wother]
122 input.y:7.5: warning: empty rule for typed nonterminal, and no action [-Wother]
123 ]])
124
125 AT_CLEANUP
126
127
128 # _AT_UNUSED_VALUES_DECLARATIONS()
129 # --------------------------------
130 # Generate the token, type, and destructor
131 # declarations for the unused values tests.
132 m4_define([_AT_UNUSED_VALUES_DECLARATIONS],
133 [[[%token <integer> INT;
134 %type <integer> a b c d e f g h i j k l;
135 %destructor { destroy ($$); } INT a b c d e f g h i j k l;]]])
136
137
138 # AT_CHECK_UNUSED_VALUES(DECLARATIONS_AFTER, CHECK_MIDRULE_VALUES)
139 # ----------------------------------------------------------------
140 # Generate a grammar to test unused values, compile it, run it. If
141 # DECLARATIONS_AFTER is set, then the token, type, and destructor
142 # declarations are generated after the rules rather than before. If
143 # CHECK_MIDRULE_VALUES is set, then --warnings=midrule-values is set.
144 m4_define([AT_CHECK_UNUSED_VALUES],
145 [AT_DATA([input.y],
146 m4_ifval($1, [
147
148
149 ], [_AT_UNUSED_VALUES_DECLARATIONS
150 ])[[%%
151 start:
152 'a' a { $]2[; } | 'b' b { $]2[; } | 'c' c { $]2[; } | 'd' d { $]2[; }
153 | 'e' e { $]2[; } | 'f' f { $]2[; } | 'g' g { $]2[; } | 'h' h { $]2[; }
154 | 'i' i { $]2[; } | 'j' j { $]2[; } | 'k' k { $]2[; } | 'l' l { $]2[; }
155 ;
156
157 a: INT | INT { } INT { } INT { };
158 b: INT | /* empty */;
159 c: INT | INT { $]1[; } INT { $<integer>2; } INT { $<integer>4; };
160 d: INT | INT { } INT { $]1[; } INT { $<integer>2; };
161 e: INT | INT { } INT { } INT { $]1[; };
162 f: INT | INT { } INT { } INT { $]$[ = $]1[ + $]3[ + $]5[; };
163 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
164 h: INT | INT { $<integer>$; } INT { $<integer>$ = $<integer>2; } INT { };
165 i: INT | INT INT { } { $]$[ = $]1[ + $]2[; };
166 j: INT | INT INT { $<integer>$ = 1; } { $]$[ = $]1[ + $]2[; };
167 k: INT | INT INT { $<integer>$; } { $<integer>$ = $<integer>3; } { };
168 l: INT | INT { $<integer>$ = $<integer>1; } INT { $<integer>$ = $<integer>2 + $<integer>3; } INT { $<integer>$ = $<integer>4 + $<integer>5; };]]m4_ifval($1, [
169 _AT_UNUSED_VALUES_DECLARATIONS])
170 )
171
172 AT_BISON_CHECK(m4_ifval($2, [--warnings=midrule-values ])[-fcaret input.y],
173 [0], [],
174 [[input.y:11.10-32: warning: unset value: $][$ [-Wother]
175 a: INT | INT { } INT { } INT { };
176 ^^^^^^^^^^^^^^^^^^^^^^^
177 input.y:11.10-12: warning: unused value: $][1 [-Wother]
178 a: INT | INT { } INT { } INT { };
179 ^^^
180 input.y:11.18-20: warning: unused value: $][3 [-Wother]
181 a: INT | INT { } INT { } INT { };
182 ^^^
183 input.y:11.26-28: warning: unused value: $][5 [-Wother]
184 a: INT | INT { } INT { } INT { };
185 ^^^
186 input.y:12.9: warning: empty rule for typed nonterminal, and no action [-Wother]
187 b: INT | /* empty */;
188 ^
189 ]]m4_ifval($2, [[[input.y:13.14-20: warning: unset value: $][$ [-Wmidrule-values]
190 c: INT | INT { $][1; } INT { $<integer>2; } INT { $<integer>4; };
191 ^^^^^^^
192 input.y:13.26-41: warning: unset value: $][$ [-Wmidrule-values]
193 c: INT | INT { $][1; } INT { $<integer>2; } INT { $<integer>4; };
194 ^^^^^^^^^^^^^^^^
195 ]]])[[input.y:13.10-62: warning: unset value: $][$ [-Wother]
196 c: INT | INT { $][1; } INT { $<integer>2; } INT { $<integer>4; };
197 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
198 input.y:13.22-24: warning: unused value: $][3 [-Wother]
199 c: INT | INT { $][1; } INT { $<integer>2; } INT { $<integer>4; };
200 ^^^
201 input.y:13.43-45: warning: unused value: $][5 [-Wother]
202 c: INT | INT { $][1; } INT { $<integer>2; } INT { $<integer>4; };
203 ^^^
204 ]]m4_ifval($2, [[[input.y:14.14-16: warning: unset value: $][$ [-Wmidrule-values]
205 d: INT | INT { } INT { $][1; } INT { $<integer>2; };
206 ^^^
207 ]]])[[input.y:14.10-49: warning: unset value: $][$ [-Wother]
208 d: INT | INT { } INT { $][1; } INT { $<integer>2; };
209 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
210 input.y:14.18-20: warning: unused value: $][3 [-Wother]
211 d: INT | INT { } INT { $][1; } INT { $<integer>2; };
212 ^^^
213 input.y:14.30-32: warning: unused value: $][5 [-Wother]
214 d: INT | INT { } INT { $][1; } INT { $<integer>2; };
215 ^^^
216 input.y:15.10-37: warning: unset value: $][$ [-Wother]
217 e: INT | INT { } INT { } INT { $][1; };
218 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
219 input.y:15.18-20: warning: unused value: $][3 [-Wother]
220 e: INT | INT { } INT { } INT { $][1; };
221 ^^^
222 input.y:15.27-29: warning: unused value: $][5 [-Wother]
223 e: INT | INT { } INT { } INT { $][1; };
224 ^^^
225 input.y:17.10-58: warning: unset value: $][$ [-Wother]
226 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
227 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
228 input.y:17.10-12: warning: unused value: $][1 [-Wother]
229 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
230 ^^^
231 ]]m4_ifval($2, [[[input.y:17.14-29: warning: unused value: $][2 [-Wmidrule-values]
232 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
233 ^^^^^^^^^^^^^^^^
234 ]]])[[input.y:17.31-33: warning: unused value: $][3 [-Wother]
235 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
236 ^^^
237 ]]m4_ifval($2, [[[input.y:17.35-50: warning: unused value: $][4 [-Wmidrule-values]
238 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
239 ^^^^^^^^^^^^^^^^
240 ]]])[[input.y:17.52-54: warning: unused value: $][5 [-Wother]
241 g: INT | INT { $<integer>$; } INT { $<integer>$; } INT { };
242 ^^^
243 input.y:18.10-72: warning: unset value: $][$ [-Wother]
244 h: INT | INT { $<integer>$; } INT { $<integer>$ = $<integer>2; } INT { };
245 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
246 input.y:18.10-12: warning: unused value: $][1 [-Wother]
247 h: INT | INT { $<integer>$; } INT { $<integer>$ = $<integer>2; } INT { };
248 ^^^
249 input.y:18.31-33: warning: unused value: $][3 [-Wother]
250 h: INT | INT { $<integer>$; } INT { $<integer>$ = $<integer>2; } INT { };
251 ^^^
252 ]]m4_ifval($2, [[[input.y:18.35-64: warning: unused value: $][4 [-Wmidrule-values]
253 h: INT | INT { $<integer>$; } INT { $<integer>$ = $<integer>2; } INT { };
254 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
255 ]]])[[input.y:18.66-68: warning: unused value: $][5 [-Wother]
256 h: INT | INT { $<integer>$; } INT { $<integer>$ = $<integer>2; } INT { };
257 ^^^
258 ]]m4_ifval($2, [[[input.y:20.18-37: warning: unused value: $][3 [-Wmidrule-values]
259 j: INT | INT INT { $<integer>$ = 1; } { $][$ = $][1 + $][2; };
260 ^^^^^^^^^^^^^^^^^^^^
261 ]]])[[input.y:21.10-68: warning: unset value: $][$ [-Wother]
262 k: INT | INT INT { $<integer>$; } { $<integer>$ = $<integer>3; } { };
263 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
264 input.y:21.10-12: warning: unused value: $][1 [-Wother]
265 k: INT | INT INT { $<integer>$; } { $<integer>$ = $<integer>3; } { };
266 ^^^
267 input.y:21.14-16: warning: unused value: $][2 [-Wother]
268 k: INT | INT INT { $<integer>$; } { $<integer>$ = $<integer>3; } { };
269 ^^^
270 ]]m4_ifval($2, [[[input.y:21.35-64: warning: unused value: $][4 [-Wmidrule-values]
271 k: INT | INT INT { $<integer>$; } { $<integer>$ = $<integer>3; } { };
272 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
273 ]]]))
274 ])
275
276 ## --------------- ##
277 ## Unused values. ##
278 ## --------------- ##
279
280 AT_SETUP([Unused values])
281 AT_CHECK_UNUSED_VALUES
282 AT_CHECK_UNUSED_VALUES(, [1])
283 AT_CLEANUP
284
285
286 ## ------------------------------------------ ##
287 ## Unused values before symbol declarations. ##
288 ## ------------------------------------------ ##
289
290 AT_SETUP([Unused values before symbol declarations])
291 AT_CHECK_UNUSED_VALUES([1])
292 AT_CHECK_UNUSED_VALUES([1], [1])
293 AT_CLEANUP
294
295
296 ## --------------------------------------------- ##
297 ## Default %printer and %destructor redeclared. ##
298 ## --------------------------------------------- ##
299
300 AT_SETUP([Default %printer and %destructor redeclared])
301
302 AT_DATA([[input.y]],
303 [[%destructor { destroy ($$); } <*> <*>
304 %printer { print ($$); } <*> <*>
305
306 %destructor { destroy ($$); } <*>
307 %printer { print ($$); } <*>
308
309 %destructor { destroy ($$); } <> <>
310 %printer { print ($$); } <> <>
311
312 %destructor { destroy ($$); } <>
313 %printer { print ($$); } <>
314
315 %%
316
317 start: ;
318
319 %destructor { destroy ($$); } <*>;
320 %printer { print ($$); } <*>;
321
322 %destructor { destroy ($$); } <>;
323 %printer { print ($$); } <>;
324 ]])
325
326 AT_BISON_CHECK([input.y], [1], [],
327 [[input.y:1.13-29: error: %destructor redeclaration for <*>
328 input.y:1.13-29: previous declaration
329 input.y:2.10-24: error: %printer redeclaration for <*>
330 input.y:2.10-24: previous declaration
331 input.y:4.13-29: error: %destructor redeclaration for <*>
332 input.y:1.13-29: previous declaration
333 input.y:5.10-24: error: %printer redeclaration for <*>
334 input.y:2.10-24: previous declaration
335 input.y:7.13-29: error: %destructor redeclaration for <>
336 input.y:7.13-29: previous declaration
337 input.y:8.10-24: error: %printer redeclaration for <>
338 input.y:8.10-24: previous declaration
339 input.y:10.13-29: error: %destructor redeclaration for <>
340 input.y:7.13-29: previous declaration
341 input.y:11.10-24: error: %printer redeclaration for <>
342 input.y:8.10-24: previous declaration
343 input.y:17.13-29: error: %destructor redeclaration for <*>
344 input.y:4.13-29: previous declaration
345 input.y:18.10-24: error: %printer redeclaration for <*>
346 input.y:5.10-24: previous declaration
347 input.y:20.13-29: error: %destructor redeclaration for <>
348 input.y:10.13-29: previous declaration
349 input.y:21.10-24: error: %printer redeclaration for <>
350 input.y:11.10-24: previous declaration
351 ]])
352
353 AT_CLEANUP
354
355
356 ## ---------------------------------------------- ##
357 ## Per-type %printer and %destructor redeclared. ##
358 ## ---------------------------------------------- ##
359
360 AT_SETUP([Per-type %printer and %destructor redeclared])
361
362 AT_DATA([[input.y]],
363 [[%destructor { destroy ($$); } <field1> <field2>
364 %printer { print ($$); } <field1> <field2>
365
366 %destructor { destroy ($$); } <field1> <field1>
367 %printer { print ($$); } <field2> <field2>
368
369 %%
370
371 start: ;
372
373 %destructor { destroy ($$); } <field2> <field1>;
374 %printer { print ($$); } <field2> <field1>;
375 ]])
376
377 AT_BISON_CHECK([input.y], [1], [],
378 [[input.y:4.13-29: error: %destructor redeclaration for <field1>
379 input.y:1.13-29: previous declaration
380 input.y:4.13-29: error: %destructor redeclaration for <field1>
381 input.y:4.13-29: previous declaration
382 input.y:5.10-24: error: %printer redeclaration for <field2>
383 input.y:2.10-24: previous declaration
384 input.y:5.10-24: error: %printer redeclaration for <field2>
385 input.y:5.10-24: previous declaration
386 input.y:11.13-29: error: %destructor redeclaration for <field1>
387 input.y:4.13-29: previous declaration
388 input.y:11.13-29: error: %destructor redeclaration for <field2>
389 input.y:1.13-29: previous declaration
390 input.y:12.10-24: error: %printer redeclaration for <field1>
391 input.y:2.10-24: previous declaration
392 input.y:12.10-24: error: %printer redeclaration for <field2>
393 input.y:5.10-24: previous declaration
394 ]])
395
396 AT_CLEANUP
397
398 ## ------------------- ##
399 ## Undefined symbols. ##
400 ## ------------------- ##
401
402 AT_SETUP([Undefined symbols])
403
404 AT_DATA([[input.y]],
405 [[%printer {} foo baz
406 %destructor {} bar
407 %type <foo> qux
408 %%
409 exp: bar;
410 ]])
411
412 AT_BISON_CHECK([input.y], [1], [],
413 [[input.y:2.16-18: error: symbol bar is used, but is not defined as a token and has no rules
414 input.y:1.17-19: warning: symbol baz is used, but is not defined as a token and has no rules [-Wother]
415 input.y:1.13-15: warning: symbol foo is used, but is not defined as a token and has no rules [-Wother]
416 input.y:3.13-15: warning: symbol qux is used, but is not defined as a token and has no rules [-Wother]
417 ]])
418
419 AT_CLEANUP
420
421
422 ## ----------------------------------------------------- ##
423 ## Unassociated types used for a printer or destructor. ##
424 ## ----------------------------------------------------- ##
425
426 AT_SETUP([Unassociated types used for a printer or destructor])
427
428 AT_DATA([[input.y]],
429 [[%token <type1> tag1
430 %type <type2> tag2
431
432 %printer { } <type1> <type3>
433 %destructor { } <type2> <type4>
434
435 %%
436
437 exp: tag1 { $1; }
438 | tag2 { $1; }
439
440 tag2: "a" { $$; }
441 ]])
442
443 AT_BISON_CHECK([input.y], [0], [],
444 [[input.y:4.22-28: warning: type <type3> is used, but is not associated to any symbol [-Wother]
445 input.y:5.25-31: warning: type <type4> is used, but is not associated to any symbol [-Wother]
446 ]])
447
448 AT_CLEANUP
449
450
451 ## --------------------------------- ##
452 ## Useless printers or destructors. ##
453 ## --------------------------------- ##
454
455 AT_SETUP([Useless printers or destructors])
456
457 # AT_TEST([INPUT], [STDERR])
458 # --------------------------
459 m4_pushdef([AT_TEST],
460 [AT_DATA([[input.y]],
461 [$1
462 ])
463 AT_BISON_CHECK([input.y], [0], [], [$2
464 ])])
465
466 AT_TEST([[%token <type1> token1
467 %token <type2> token2
468 %token <type3> token3
469 %token <type4> token4
470 %token <type5> token51 token52
471 %token <type6> token61 token62
472 %token <type7> token7
473
474 %printer {} token1
475 %destructor {} token2
476 %printer {} token51
477 %destructor {} token61
478
479 %printer {} token7
480
481 %printer {} <type1>
482 %destructor {} <type2>
483 %printer {} <type3>
484 %destructor {} <type4>
485
486 %printer {} <type5>
487 %destructor {} <type6>
488
489 %destructor {} <type7>
490
491 %%
492 exp: "a";]],
493 [[input.y:16.13-19: warning: useless %printer for type <type1> [-Wother]
494 input.y:17.16-22: warning: useless %destructor for type <type2> [-Wother]]])
495
496 # If everybody is typed, <> is useless.
497 AT_TEST([[%type <type> exp
498 %token <type> a
499 %printer {} <> <*>
500 %%
501 exp: a;]],
502 [[input.y:3.13-14: warning: useless %printer for type <> [-Wother]]])
503
504 # If nobody is typed, <*> is useless.
505 AT_TEST([[%token a
506 %printer {} <> <*>
507 %%
508 exp: a;]],
509 [[input.y:2.16-18: warning: useless %printer for type <*> [-Wother]]])
510
511 m4_popdef([AT_TEST])
512
513 AT_CLEANUP
514
515
516 ## ---------------------------------------- ##
517 ## Unused values with default %destructor. ##
518 ## ---------------------------------------- ##
519
520 AT_SETUP([Unused values with default %destructor])
521
522 AT_DATA([[input.y]],
523 [[%destructor { destroy ($$); } <>
524 %type <tag> tagged
525
526 %%
527
528 start: end end tagged tagged { $<tag>1; $3; } ;
529 end: { } ;
530 tagged: { } ;
531 ]])
532
533 AT_BISON_CHECK([input.y], [0], [],
534 [[input.y:6.8-45: warning: unset value: $$ [-Wother]
535 input.y:6.12-14: warning: unused value: $2 [-Wother]
536 input.y:7.6-8: warning: unset value: $$ [-Wother]
537 ]])
538
539 AT_DATA([[input.y]],
540 [[%destructor { destroy ($$); } <*>
541 %type <tag> tagged
542
543 %%
544
545 start: end end tagged tagged { $<tag>1; $3; } ;
546 end: { } ;
547 tagged: { } ;
548 ]])
549
550 AT_BISON_CHECK([input.y], [0], [],
551 [[input.y:6.23-28: warning: unused value: $4 [-Wother]
552 input.y:8.9-11: warning: unset value: $$ [-Wother]
553 ]])
554
555 AT_CLEANUP
556
557
558 ## ----------------------------------------- ##
559 ## Unused values with per-type %destructor. ##
560 ## ----------------------------------------- ##
561
562 AT_SETUP([Unused values with per-type %destructor])
563
564 AT_DATA([[input.y]],
565 [[%destructor { destroy ($$); } <field1>
566 %type <field1> start end
567
568 %%
569
570 start: end end { $1; } ;
571 end: { } ;
572 ]])
573
574 AT_BISON_CHECK([input.y], [0], [],
575 [[input.y:6.8-22: warning: unset value: $$ [-Wother]
576 input.y:6.12-14: warning: unused value: $2 [-Wother]
577 input.y:7.6-8: warning: unset value: $$ [-Wother]
578 ]])
579
580 AT_CLEANUP
581
582
583 ## ---------------------- ##
584 ## Incompatible Aliases. ##
585 ## ---------------------- ##
586
587 AT_SETUP([Incompatible Aliases])
588
589 AT_DATA([input.y],
590 [[%token foo "foo"
591
592 %type <bar> foo
593 %printer {bar} foo
594 %destructor {bar} foo
595 %left foo
596
597 %type <baz> "foo"
598 %printer {baz} "foo"
599 %destructor {baz} "foo"
600 %left "foo"
601
602 %%
603 exp: foo;
604 ]])
605
606 AT_BISON_CHECK([input.y], [1], [],
607 [[input.y:8.7-11: error: %type redeclaration for foo
608 input.y:3.7-11: previous declaration
609 input.y:10.13-17: error: %destructor redeclaration for foo
610 input.y:5.13-17: previous declaration
611 input.y:9.10-14: error: %printer redeclaration for foo
612 input.y:4.10-14: previous declaration
613 input.y:11.1-5: error: %left redeclaration for foo
614 input.y:6.1-5: previous declaration
615 ]])
616
617 AT_CLEANUP
618
619
620
621 ## ----------------------- ##
622 ## Torturing the Scanner. ##
623 ## ----------------------- ##
624
625 # Be sure to compile and run, so that the C compiler checks what
626 # we do.
627
628 AT_SETUP([Torturing the Scanner])
629
630 AT_BISON_OPTION_PUSHDEFS
631 AT_DATA([input.y], [])
632 AT_BISON_CHECK([input.y], [1], [],
633 [[input.y:1.1: error: syntax error, unexpected end of file
634 ]])
635
636
637 AT_DATA([input.y],
638 [{}
639 ])
640 AT_BISON_CHECK([input.y], [1], [],
641 [[input.y:1.1-2: error: syntax error, unexpected {...}
642 ]])
643
644
645 AT_DATA_GRAMMAR([input.y],
646 [[%{
647 /* This is seen in GCC: a %{ and %} in middle of a comment. */
648 const char *foo = "So %{ and %} can be here too.";
649
650 #if 0
651 /* These examples test Bison while not stressing C compilers too much.
652 Many C compilers mishandle backslash-newlines, so this part of the
653 test is inside "#if 0". The comment and string are written so that
654 the "#endif" will be seen regardless of the C compiler bugs that we
655 know about, namely:
656
657 HP C (as of late 2002) mishandles *\[newline]\[newline]/ within a
658 comment.
659
660 The Apple Darwin compiler (as of late 2002) mishandles
661 \\[newline]' within a character constant.
662
663 */
664
665 /\
666 * A comment with backslash-newlines in it. %} *\
667 \
668 /
669 /* { Close the above comment, if the C compiler mishandled it. */
670
671 char str[] = "\\
672 " A string with backslash-newlines in it %{ %} \\
673 \
674 "";
675
676 char apostrophe = '\'';
677 #endif
678
679 #include <stdio.h>
680 #include <stdlib.h>
681 #include <assert.h>
682 %}
683 /* %{ and %} can be here too. */
684
685 %{
686 /* Exercise pre-prologue dependency to %union. */
687 typedef int value;
688 %}
689
690 /* Exercise M4 quoting: '@:>@@:>@', 0. */
691
692 /* Also exercise %union. */
693 %union
694 {
695 value ival; /* A comment to exercise an old bug. */
696 };
697
698
699 /* Exercise post-prologue dependency to %union. */
700 %{
701 static YYSTYPE value_as_yystype (value val);
702
703 /* Exercise quotes in declarations. */
704 char quote[] = "@:>@@:>@,";
705 %}
706
707 %{
708 ]AT_YYERROR_DECLARE[
709 ]AT_YYLEX_DECLARE[
710 %}
711
712 %type <ival> '@<:@'
713
714 /* Exercise quotes in strings. */
715 %token FAKE "fake @<:@@:>@ \a\b\f\n\r\t\v\"\'\?\\\u005B\U0000005c ??!??'??(??)??-??/??<??=??> \x1\1"
716
717 %%
718 /* Exercise M4 quoting: '@:>@@:>@', @<:@, 1. */
719 exp: '@<:@' '\1' two '$' '@' '{' oline output.or.oline.opt
720 {
721 /* Exercise quotes in braces. */
722 char tmp[] = "@<:@%c@:>@,\n";
723 printf (tmp, $1);
724 }
725 ;
726
727 two: '\x000000000000000000000000000000000000000000000000000000000000000000002';
728 oline: '@' 'o' 'l' 'i' 'n' 'e' '@' '_' '_' 'o' 'l' 'i' 'n' 'e' '_' '_';
729 output.or.oline.opt: ;|oline;;|output;;;
730 output: '#' 'o' 'u' 't' 'p' 'u' 't' ' ';
731 %%
732 /* Exercise M4 quoting: '@:>@@:>@', @<:@, 2. */
733
734 static YYSTYPE
735 value_as_yystype (value val)
736 {
737 YYSTYPE res;
738 res.ival = val;
739 return res;
740 }
741 ]AT_YYERROR_DEFINE[
742 static int
743 yylex (void)
744 {
745 static char const input[] = "@<:@\1\2$@{@oline@__@&t@oline__\
746 #output "; /* "
747 */
748 static size_t toknum;
749 assert (toknum < sizeof input);
750 yylval = value_as_yystype (input[toknum]);
751 return input[toknum++];
752 }
753 ]])
754
755 # Pacify Emacs'font-lock-mode: "
756
757 AT_DATA([main.c],
758 [[typedef int value;
759 #include "input.h"
760
761 int yyparse (void);
762
763 int
764 main (void)
765 {
766 return yyparse ();
767 }
768 ]])
769 AT_BISON_OPTION_POPDEFS
770
771 AT_BISON_CHECK([-d -v -o input.c input.y])
772 AT_COMPILE([input.o])
773 AT_COMPILE([main.o])
774 AT_COMPILE([input], [input.o main.o])
775 AT_PARSER_CHECK([./input], 0,
776 [[[@<:@],
777 ]])
778
779 AT_CLEANUP
780
781
782 ## ---------------------- ##
783 ## Typed symbol aliases. ##
784 ## ---------------------- ##
785
786 AT_SETUP([Typed symbol aliases])
787
788 # Bison 2.0 broke typed symbol aliases - ensure they work.
789
790 AT_DATA_GRAMMAR([input.y],
791 [[%union
792 {
793 int val;
794 };
795 %token <val> MY_TOKEN "MY TOKEN"
796 %type <val> exp
797 %%
798 exp: "MY TOKEN";
799 %%
800 ]])
801
802 AT_BISON_CHECK([-o input.c input.y])
803
804 AT_CLEANUP
805
806
807 ## --------- ##
808 ## Require. ##
809 ## --------- ##
810
811 m4_define([AT_CHECK_REQUIRE],
812 [AT_SETUP([Require $1])
813 AT_DATA_GRAMMAR([input.y],
814 [[%require "$1";
815 %%
816 empty_file:;
817 ]])
818 AT_BISON_CHECK([-o input.c input.y], $2, [], ignore)
819 AT_CLEANUP
820 ])
821
822 AT_CHECK_REQUIRE(1.0, 0)
823 AT_CHECK_REQUIRE(AT_PACKAGE_VERSION, 0)
824 ## FIXME: Some day augment this version number.
825 AT_CHECK_REQUIRE(100.0, 63)
826
827
828 ## ------------------------------------- ##
829 ## String aliases for character tokens. ##
830 ## ------------------------------------- ##
831
832 AT_SETUP([String aliases for character tokens])
833
834 # Bison once thought a character token and its alias were different
835 # symbols with the same user token number.
836
837 AT_DATA_GRAMMAR([input.y],
838 [[%token 'a' "a"
839 %%
840 start: 'a';
841 %%
842 ]])
843
844 AT_BISON_CHECK([-o input.c input.y])
845
846 AT_CLEANUP
847
848
849 ## -------------- ##
850 ## Symbol names. ##
851 ## -------------- ##
852
853 AT_SETUP([Symbols])
854
855 AT_BISON_OPTION_PUSHDEFS
856 AT_DATA_GRAMMAR([input.y],
857 [[%token WITH-DASH
858 %token WITHOUT_DASH "WITHOUT-DASH"
859 %token WITH.PERIOD
860 %token WITHOUT_PERIOD "WITHOUT.PERIOD"
861 %code {
862 ]AT_YYERROR_DECLARE[
863 ]AT_YYLEX_DECLARE[
864 }
865 %%
866 start: with-dash without_dash with.period without_period;
867 with-dash: WITH-DASH;
868 without_dash: "WITHOUT-DASH";
869 with.period: WITH.PERIOD;
870 without_period: "WITHOUT.PERIOD";
871 %%
872 ]AT_YYERROR_DEFINE[
873 ]AT_YYLEX_DEFINE[
874 ]])
875 AT_BISON_OPTION_POPDEFS
876
877 # POSIX Yacc accept periods, but not dashes.
878 AT_BISON_CHECK([--yacc -Wno-error input.y], [], [],
879 [[input.y:9.8-16: warning: POSIX Yacc forbids dashes in symbol names: WITH-DASH [-Wyacc]
880 input.y:18.8-16: warning: POSIX Yacc forbids dashes in symbol names: with-dash [-Wyacc]
881 ]])
882
883 # So warn about them.
884 AT_BISON_CHECK([-Wyacc input.y], [], [],
885 [[input.y:9.8-16: warning: POSIX Yacc forbids dashes in symbol names: WITH-DASH [-Wyacc]
886 input.y:18.8-16: warning: POSIX Yacc forbids dashes in symbol names: with-dash [-Wyacc]
887 ]])
888
889 # Dashes are fine for GNU Bison.
890 AT_BISON_CHECK([-o input.c input.y])
891
892 # Make sure we don't export silly token identifiers with periods or dashes.
893 AT_COMPILE([input.o])
894
895
896 # Periods are genuine letters, they can start identifiers.
897 # Digits and dashes cannot.
898 AT_DATA_GRAMMAR([input.y],
899 [[%token .GOOD
900 -GOOD
901 1NV4L1D
902 -123
903 %%
904 start: .GOOD GOOD
905 ]])
906 AT_BISON_CHECK([-o input.c input.y], [1], [],
907 [[input.y:10.10: error: invalid character: '-'
908 input.y:11.10-16: error: invalid identifier: '1NV4L1D'
909 input.y:12.10: error: invalid character: '-'
910 ]])
911
912 AT_CLEANUP
913
914
915 ## ----------------- ##
916 ## Numbered tokens. ##
917 ## ----------------- ##
918
919 AT_SETUP([Numbered tokens])
920
921 AT_DATA_GRAMMAR([redecl.y],
922 [[%token DECIMAL_1 11259375
923 HEXADECIMAL_1 0xabcdef
924 HEXADECIMAL_2 0xFEDCBA
925 DECIMAL_2 16702650
926 %%
927 start: DECIMAL_1 HEXADECIMAL_2;
928 ]])
929
930 AT_BISON_CHECK([redecl.y], [1], [],
931 [[redecl.y:10.10-22: error: user token number 11259375 redeclaration for HEXADECIMAL_1
932 redecl.y:9.8-16: previous declaration for DECIMAL_1
933 redecl.y:12.10-18: error: user token number 16702650 redeclaration for DECIMAL_2
934 redecl.y:11.10-22: previous declaration for HEXADECIMAL_2
935 ]])
936
937 AT_DATA_GRAMMAR([too-large.y],
938 [[%token TOO_LARGE_DEC 999999999999999999999
939 TOO_LARGE_HEX 0xFFFFFFFFFFFFFFFFFFF
940 %%
941 start: TOO_LARGE_DEC TOO_LARGE_HEX
942 %%
943 ]])
944
945 AT_BISON_CHECK([too-large.y], [1], [],
946 [[too-large.y:9.22-42: error: integer out of range: '999999999999999999999'
947 too-large.y:10.24-44: error: integer out of range: '0xFFFFFFFFFFFFFFFFFFF'
948 ]])
949
950 AT_CLEANUP
951
952
953 ## --------------------- ##
954 ## Unclosed constructs. ##
955 ## --------------------- ##
956
957 AT_SETUP([Unclosed constructs])
958
959 # Bison's scan-gram.l once forgot to STRING_FINISH some unclosed
960 # constructs, so they were prepended to whatever it STRING_GROW'ed
961 # next. It also threw them away rather than returning them to the
962 # parser. The effect was confusing subsequent error messages.
963
964 AT_DATA([input.y],
965 [[%token A "a
966 %token B "b"
967 %token AB "ab" // Used to complain that "ab" was already used.
968 %token C '1
969 %token TWO "2"
970 %token TICK_TWELVE "'12" // Used to complain that "'12" was already used.
971
972 %%
973
974 start: ;
975
976 // Used to report a syntax error because it didn't see any kind of symbol
977 // identifier.
978 %type <f> 'a
979 ;
980 %type <f> "a
981 ;
982 // Used to report a syntax error because it didn't see braced code.
983 %destructor { free ($$)
984 ]])
985
986 AT_BISON_CHECK([-o input.c input.y], 1, [],
987 [[input.y:1.10-2.0: error: missing '"' at end of line
988 input.y:4.10-5.0: error: missing "'" at end of line
989 input.y:14.11-15.0: error: missing "'" at end of line
990 input.y:16.11-17.0: error: missing '"' at end of line
991 input.y:19.13-20.0: error: missing '}' at end of file
992 input.y:20.1: error: syntax error, unexpected end of file
993 ]])
994
995 AT_BISON_CHECK([-fcaret -o input.c input.y], 1, [],
996 [[input.y:1.10-2.0: error: missing '"' at end of line
997 %token A "a
998 ^^
999 input.y:4.10-5.0: error: missing "'" at end of line
1000 %token C '1
1001 ^^
1002 input.y:14.11-15.0: error: missing "'" at end of line
1003 %type <f> 'a
1004 ^^
1005 input.y:16.11-17.0: error: missing '"' at end of line
1006 %type <f> "a
1007 ^^
1008 input.y:19.13-20.0: error: missing '}' at end of file
1009 %destructor { free ($$)
1010 ^^^^^^^^^^^
1011 input.y:20.1: error: syntax error, unexpected end of file
1012 ]])
1013
1014 AT_CLEANUP
1015
1016
1017 ## ------------------------- ##
1018 ## %start after first rule. ##
1019 ## ------------------------- ##
1020
1021 AT_SETUP([%start after first rule])
1022
1023 # Bison once complained that a %start after the first rule was a
1024 # redeclaration of the start symbol.
1025
1026 AT_DATA([input.y],
1027 [[%%
1028 false_start: ;
1029 start: false_start ;
1030 %start start;
1031 ]])
1032
1033 AT_BISON_CHECK([-o input.c input.y])
1034
1035 AT_CLEANUP
1036
1037
1038 ## --------------------- ##
1039 ## %prec takes a token. ##
1040 ## --------------------- ##
1041
1042 AT_SETUP([%prec takes a token])
1043
1044 # Bison once allowed %prec sym where sym was a nonterminal.
1045
1046 AT_DATA([input.y],
1047 [[%%
1048 start: PREC %prec PREC ;
1049 PREC: ;
1050 ]])
1051
1052 AT_BISON_CHECK([input.y], [1], [],
1053 [[input.y:3.1-4: error: rule given for PREC, which is a token
1054 ]])
1055
1056 AT_CLEANUP
1057
1058
1059 ## ------------------------------- ##
1060 ## %prec's token must be defined. ##
1061 ## ------------------------------- ##
1062
1063 AT_SETUP([[%prec's token must be defined]])
1064
1065 # According to POSIX, a %prec token must be defined separately.
1066
1067 AT_DATA([[input.y]],
1068 [[%%
1069 start: %prec PREC ;
1070 ]])
1071
1072 AT_BISON_CHECK([[input.y]], [[0]], [],
1073 [[input.y:2.8-17: warning: token for %prec is not defined: PREC [-Wother]
1074 ]])
1075
1076 AT_CLEANUP
1077
1078
1079 ## -------------------------------- ##
1080 ## Reject unused %code qualifiers. ##
1081 ## -------------------------------- ##
1082
1083 AT_SETUP([Reject unused %code qualifiers])
1084
1085 AT_DATA([input-c.y],
1086 [[%code q {}
1087 %code bad {}
1088 %code bad {}
1089 %code format {}
1090 %%
1091 start: ;
1092 ]])
1093 AT_BISON_CHECK([[input-c.y]], [[1]], [],
1094 [[input-c.y:1.7: error: %code qualifier 'q' is not used
1095 input-c.y:2.7-9: error: %code qualifier 'bad' is not used
1096 input-c.y:3.7-9: error: %code qualifier 'bad' is not used
1097 input-c.y:4.7-12: error: %code qualifier 'format' is not used
1098 ]])
1099
1100 AT_DATA([input-c-glr.y],
1101 [[%code q {}
1102 %code bad {}
1103 %code bad {}
1104 %%
1105 start: ;
1106 ]])
1107 AT_BISON_CHECK([[input-c-glr.y]], [[1]], [],
1108 [[input-c-glr.y:1.7: error: %code qualifier 'q' is not used
1109 input-c-glr.y:2.7-9: error: %code qualifier 'bad' is not used
1110 input-c-glr.y:3.8-10: error: %code qualifier 'bad' is not used
1111 ]])
1112
1113 AT_DATA([input-c++.y],
1114 [[%code q {}
1115 %code bad {}
1116 %code q {}
1117 %%
1118 start: ;
1119 ]])
1120 AT_BISON_CHECK([[input-c++.y]], [[1]], [],
1121 [[input-c++.y:1.7: error: %code qualifier 'q' is not used
1122 input-c++.y:2.7-9: error: %code qualifier 'bad' is not used
1123 input-c++.y:3.8: error: %code qualifier 'q' is not used
1124 ]])
1125
1126 AT_DATA([input-c++-glr.y],
1127 [[%code bad {}
1128 %code q {}
1129 %code q {}
1130 %%
1131 start: ;
1132 ]])
1133 AT_BISON_CHECK([[input-c++-glr.y]], [[1]], [],
1134 [[input-c++-glr.y:1.7-9: error: %code qualifier 'bad' is not used
1135 input-c++-glr.y:2.7: error: %code qualifier 'q' is not used
1136 input-c++-glr.y:3.7: error: %code qualifier 'q' is not used
1137 ]])
1138
1139 AT_DATA([special-char-@@.y],
1140 [[%code bad {}
1141 %code q {}
1142 %code q {}
1143 %%
1144 start: ;
1145 ]])
1146 AT_BISON_CHECK([[special-char-@@.y]], [[1]], [],
1147 [[special-char-@@.y:1.7-9: error: %code qualifier 'bad' is not used
1148 special-char-@@.y:2.7: error: %code qualifier 'q' is not used
1149 special-char-@@.y:3.7: error: %code qualifier 'q' is not used
1150 ]])
1151
1152 AT_DATA([special-char-@:>@.y],
1153 [[%code bad {}
1154 %code q {}
1155 %code q {}
1156 %%
1157 start: ;
1158 ]])
1159 AT_BISON_CHECK([[special-char-@:>@.y]], [[1]], [],
1160 [[special-char-@:>@.y:1.7-9: error: %code qualifier 'bad' is not used
1161 special-char-@:>@.y:2.7: error: %code qualifier 'q' is not used
1162 special-char-@:>@.y:3.7: error: %code qualifier 'q' is not used
1163 ]])
1164
1165 AT_CLEANUP
1166
1167
1168 ## ---------------- ##
1169 ## %define errors. ##
1170 ## ---------------- ##
1171
1172 AT_SETUP([%define errors])
1173
1174 AT_DATA([input-redefined.y],
1175 [[%define var "value1"
1176 %define var "value1"
1177 %define var "value2"
1178 %define special1 "@:>@"
1179 %define special2 "@<:@"
1180 %%
1181 start: ;
1182 ]])
1183
1184 AT_BISON_CHECK([[input-redefined.y]], [[1]], [],
1185 [[input-redefined.y:2.9-11: error: %define variable 'var' redefined
1186 input-redefined.y:1.9-11: previous definition
1187 input-redefined.y:3.10-12: error: %define variable 'var' redefined
1188 input-redefined.y:2.9-11: previous definition
1189 ]])
1190
1191 AT_DATA([input-unused.y],
1192 [[%define var "value"
1193 %%
1194 start: ;
1195 ]])
1196
1197 AT_BISON_CHECK([[input-unused.y]], [[1]], [],
1198 [[input-unused.y:1.9-11: error: %define variable 'var' is not used
1199 ]])
1200
1201 AT_CLEANUP
1202
1203
1204 ## ----------------------------------- ##
1205 ## %define, --define, --force-define. ##
1206 ## ----------------------------------- ##
1207
1208 AT_SETUP([[%define, --define, --force-define]])
1209
1210 AT_DATA([[skel.c]],
1211 [[m4@&t@_divert_push(0)@
1212 @output(b4_parser_file_name@)@
1213 [var-dd: ]b4_percent_define_get([[var-dd]])[
1214 var-ff: ]b4_percent_define_get([[var-ff]])[
1215 var-dfg: ]b4_percent_define_get([[var-dfg]])[
1216 var-fd: ]b4_percent_define_get([[var-fd]])
1217 m4@&t@_divert_pop(0)
1218 ]])
1219 AT_DATA([[input.y]],
1220 [[%define var-dfg "gram"
1221 %%
1222 start: ;
1223 ]])
1224 AT_BISON_CHECK([[-Dvar-dd=cmd-d1 -Dvar-dd=cmd-d2 \
1225 -Fvar-ff=cmd-f1 -Fvar-ff=cmd-f2 \
1226 -Dvar-dfg=cmd-d -Fvar-dfg=cmd-f \
1227 -Fvar-fd=cmd-f -Dvar-fd=cmd-d \
1228 --skeleton ./skel.c input.y]])
1229 AT_CHECK([[cat input.tab.c]], [[0]],
1230 [[var-dd: cmd-d2
1231 var-ff: cmd-f2
1232 var-dfg: cmd-f
1233 var-fd: cmd-d
1234 ]])
1235
1236 AT_DATA([[input-dg.y]],
1237 [[%define var "gram"
1238 %%
1239 start: ;
1240 ]])
1241 AT_BISON_CHECK([[-Dvar=cmd-d input-dg.y]], [[1]], [],
1242 [[input-dg.y:1.9-11: error: %define variable 'var' redefined
1243 <command line>:1: previous definition
1244 ]])
1245
1246 AT_DATA([[input-dg.y]],
1247 [[%define var "gram"
1248 %%
1249 start: ;
1250 ]])
1251 AT_BISON_CHECK([[-fcaret -Dvar=cmd-d input-dg.y]], [[1]], [],
1252 [[input-dg.y:1.9-11: error: %define variable 'var' redefined
1253 %define var "gram"
1254 ^^^
1255 <command line>:2: previous definition
1256 ]])
1257
1258 AT_DATA([[input-unused.y]],
1259 [[%%
1260 start: ;
1261 ]])
1262 AT_BISON_CHECK([[-Dunused-d -Funused-f input-unused.y]], [[1]], [],
1263 [[<command line>:1: error: %define variable 'unused-d' is not used
1264 <command line>:2: error: %define variable 'unused-f' is not used
1265 ]])
1266
1267 AT_CLEANUP
1268
1269 ## --------------------------- ##
1270 ## %define Boolean variables. ##
1271 ## --------------------------- ##
1272
1273 AT_SETUP([[%define Boolean variables]])
1274
1275 AT_DATA([Input.y],
1276 [[%language "Java"
1277 %define public "maybe"
1278 %define parser_class_name "Input"
1279 %%
1280 start: ;
1281 ]])
1282
1283 AT_BISON_CHECK([[Input.y]], [1], [],
1284 [[Input.y:2.9-14: error: invalid value for %define Boolean variable 'public'
1285 ]])
1286
1287 AT_CLEANUP
1288
1289 ## ------------------------ ##
1290 ## %define enum variables. ##
1291 ## ------------------------ ##
1292
1293 AT_SETUP([[%define enum variables]])
1294
1295 # Front-end.
1296 AT_DATA([[input.y]],
1297 [[%define lr.default-reduction bogus
1298 %%
1299 start: ;
1300 ]])
1301 AT_BISON_CHECK([[input.y]], [[1]], [[]],
1302 [[input.y:1.9-28: error: invalid value for %define variable 'lr.default-reduction': 'bogus'
1303 input.y:1.9-28: accepted value: 'most'
1304 input.y:1.9-28: accepted value: 'consistent'
1305 input.y:1.9-28: accepted value: 'accepting'
1306 ]])
1307
1308 # Back-end.
1309 # FIXME: these should be indented, but we shouldn't mess with the m4 yet
1310 AT_DATA([[input.y]],
1311 [[%define api.push-pull neither
1312 %%
1313 start: ;
1314 ]])
1315 AT_BISON_CHECK([[input.y]], [1], [],
1316 [[input.y:1.9-21: error: invalid value for %define variable 'api.push-pull': 'neither'
1317 input.y:1.9-21: accepted value: 'pull'
1318 input.y:1.9-21: accepted value: 'push'
1319 input.y:1.9-21: accepted value: 'both'
1320 ]])
1321
1322 AT_CLEANUP
1323
1324 ## -------------------------------- ##
1325 ## %define backward compatibility. ##
1326 ## -------------------------------- ##
1327
1328 AT_SETUP([[%define backward compatibility]])
1329
1330 # The error messages tell us whether underscores in these variables are
1331 # being converted to dashes.
1332
1333 AT_DATA([[input.y]],
1334 [[%define api.push_pull "neither"
1335 %%
1336 start: ;
1337 ]])
1338 AT_BISON_CHECK([[input.y]], [1], [],
1339 [[input.y:1.9-21: warning: deprecated %define variable name: 'api.push_pull', use 'api.push-pull' [-Wdeprecated]
1340 input.y:1.9-21: error: invalid value for %define variable 'api.push-pull': 'neither'
1341 input.y:1.9-21: accepted value: 'pull'
1342 input.y:1.9-21: accepted value: 'push'
1343 input.y:1.9-21: accepted value: 'both'
1344 ]])
1345
1346 AT_DATA([[input.y]],
1347 [[%define lr.keep_unreachable_states maybe
1348 %%
1349 start: ;
1350 ]])
1351 AT_BISON_CHECK([[input.y]], [1], [],
1352 [[input.y:1.9-34: warning: deprecated %define variable name: 'lr.keep_unreachable_states', use 'lr.keep-unreachable-state' [-Wdeprecated]
1353 input.y:1.9-34: error: invalid value for %define Boolean variable 'lr.keep-unreachable-state'
1354 ]])
1355
1356 AT_DATA([[input.y]],
1357 [[%define namespace "foo"
1358 %define api.namespace "foo"
1359 %%
1360 start: ;
1361 ]])
1362 AT_BISON_CHECK([[input.y]], [1], [],
1363 [[input.y:1.9-17: warning: deprecated %define variable name: 'namespace', use 'api.namespace' [-Wdeprecated]
1364 input.y:2.9-21: error: %define variable 'api.namespace' redefined
1365 input.y:1.9-17: previous definition
1366 ]])
1367
1368 AT_DATA([[input.y]],
1369 [[%define foo_bar "baz"
1370 %%
1371 start: ;
1372 ]])
1373 AT_BISON_CHECK([[input.y]], [[1]], [],
1374 [[input.y:1.9-15: error: %define variable 'foo_bar' is not used
1375 ]])
1376
1377 AT_CLEANUP
1378
1379 ## ------------------------- ##
1380 ## Unused %define api.pure. ##
1381 ## ------------------------- ##
1382
1383 AT_SETUP([[Unused %define api.pure]])
1384
1385 # AT_CHECK_API_PURE(DECLS, VALUE)
1386 # -------------------------------
1387 # Make sure Bison reports that `%define api.pure VALUE' is unused when DECLS
1388 # are specified.
1389 m4_define([AT_CHECK_API_PURE],
1390 [
1391 AT_DATA([[input.y]],
1392 [[%define api.pure ]$2[
1393 ]$1[
1394 %%
1395 start: ;
1396 ]])
1397
1398 AT_BISON_CHECK([[input.y]], [[1]], [],
1399 [[input.y:1.9-16: error: %define variable 'api.pure' is not used
1400 ]])
1401 ])
1402
1403 AT_CHECK_API_PURE([[%language "c++" %defines]], [[]])
1404 AT_CHECK_API_PURE([[%language "c++" %defines]], [[false]])
1405 AT_CHECK_API_PURE([[%language "c++" %defines %glr-parser]], [[""]])
1406 AT_CHECK_API_PURE([[%language "c++" %defines %glr-parser]], [[false]])
1407 AT_CHECK_API_PURE([[%language "java"]], [[true]])
1408 AT_CHECK_API_PURE([[%language "java"]], [[false]])
1409
1410 AT_CLEANUP
1411
1412 ## -------------------------------- ##
1413 ## C++ namespace reference errors. ##
1414 ## -------------------------------- ##
1415
1416 AT_SETUP([[C++ namespace reference errors]])
1417
1418 # AT_CHECK_NAMESPACE_ERROR(NAMESPACE-DECL, ERROR, [ERROR], ...)
1419 # -------------------------------------------------------------
1420 # Make sure Bison reports all ERROR's for %define namespace "NAMESPACE-DECL".
1421 m4_define([AT_CHECK_NAMESPACE_ERROR],
1422 [
1423 AT_DATA([[input.y]],
1424 [[%language "C++"
1425 %defines
1426 %define api.namespace "]$1["
1427 %%
1428 start: ;
1429 ]])
1430
1431 AT_BISON_CHECK([[input.y]], [1], [],
1432 [m4_foreach([b4_arg], m4_dquote(m4_shift($@)),
1433 [[input.y:3.9-21: error: ]b4_arg[
1434 ]])])
1435 ])
1436
1437 AT_CHECK_NAMESPACE_ERROR([[]],
1438 [[namespace reference is empty]])
1439 AT_CHECK_NAMESPACE_ERROR([[ ]],
1440 [[namespace reference is empty]])
1441 AT_CHECK_NAMESPACE_ERROR([[foo::::bar]],
1442 [[namespace reference has consecutive "::"]])
1443 AT_CHECK_NAMESPACE_ERROR([[foo:: ::bar]],
1444 [[namespace reference has consecutive "::"]])
1445 AT_CHECK_NAMESPACE_ERROR([[::::bar]],
1446 [[namespace reference has consecutive "::"]])
1447 AT_CHECK_NAMESPACE_ERROR([[:: ::bar]],
1448 [[namespace reference has consecutive "::"]])
1449 AT_CHECK_NAMESPACE_ERROR([[foo::bar:: ::]],
1450 [[namespace reference has consecutive "::"]],
1451 [[namespace reference has a trailing "::"]])
1452 AT_CHECK_NAMESPACE_ERROR([[foo::bar::]],
1453 [[namespace reference has a trailing "::"]])
1454 AT_CHECK_NAMESPACE_ERROR([[foo::bar:: ]],
1455 [[namespace reference has a trailing "::"]])
1456 AT_CHECK_NAMESPACE_ERROR([[::]],
1457 [[namespace reference has a trailing "::"]])
1458
1459 AT_CLEANUP
1460
1461 ## ------------------------ ##
1462 ## Bad character literals. ##
1463 ## ------------------------ ##
1464
1465 # Bison used to accept character literals that were empty or contained
1466 # too many characters.
1467
1468 # FIXME: AT_DATA or some variant of AT_DATA may eventually permit
1469 # the final newline to be omitted. See the threads starting at
1470 # <http://lists.gnu.org/archive/html/bison-patches/2009-07/msg00019.html>.
1471
1472 AT_SETUP([[Bad character literals]])
1473
1474 AT_DATA([empty.y],
1475 [[%%
1476 start: '';
1477 start: '
1478 ]])
1479 AT_CHECK([[$PERL -e "print 'start: \'';" >> empty.y || exit 77]])
1480
1481 AT_BISON_CHECK([empty.y], [1], [],
1482 [[empty.y:2.8-9: warning: empty character literal [-Wother]
1483 empty.y:3.8-4.0: warning: empty character literal [-Wother]
1484 empty.y:3.8-4.0: error: missing "'" at end of line
1485 empty.y:4.8: warning: empty character literal [-Wother]
1486 empty.y:4.8: error: missing "'" at end of file
1487 ]])
1488
1489 AT_DATA([two.y],
1490 [[%%
1491 start: 'ab';
1492 start: 'ab
1493 ]])
1494 AT_CHECK([[$PERL -e "print 'start: \'ab';" >> two.y || exit 77]])
1495
1496 AT_BISON_CHECK([two.y], [1], [],
1497 [[two.y:2.8-11: warning: extra characters in character literal [-Wother]
1498 two.y:3.8-4.0: warning: extra characters in character literal [-Wother]
1499 two.y:3.8-4.0: error: missing "'" at end of line
1500 two.y:4.8-10: warning: extra characters in character literal [-Wother]
1501 two.y:4.8-10: error: missing "'" at end of file
1502 ]])
1503
1504 AT_DATA([three.y],
1505 [[%%
1506 start: 'abc';
1507 start: 'abc
1508 ]])
1509 AT_CHECK([[$PERL -e "print 'start: \'abc';" >> three.y || exit 77]])
1510
1511 AT_BISON_CHECK([three.y], [1], [],
1512 [[three.y:2.8-12: warning: extra characters in character literal [-Wother]
1513 three.y:3.8-4.0: warning: extra characters in character literal [-Wother]
1514 three.y:3.8-4.0: error: missing "'" at end of line
1515 three.y:4.8-11: warning: extra characters in character literal [-Wother]
1516 three.y:4.8-11: error: missing "'" at end of file
1517 ]])
1518
1519 AT_CLEANUP
1520
1521 ## ------------------------- ##
1522 ## Bad escapes in literals. ##
1523 ## ------------------------- ##
1524
1525 AT_SETUP([[Bad escapes in literals]])
1526
1527 AT_DATA([input.y],
1528 [[%%
1529 start: '\777' '\0' '\xfff' '\x0'
1530 '\uffff' '\u0000' '\Uffffffff' '\U00000000'
1531 '\ ' '\A';
1532 ]])
1533
1534 # It is not easy to create special characters, we cannot even trust tr.
1535 # Beside we cannot even expect "echo '\0'" to output two characters
1536 # (well three with \n): at least Bash 3.2 converts the two-character
1537 # sequence "\0" into a single NUL character.
1538 AT_CHECK([[$PERL -e 'print "start: \"\\\t\\\f\\\0\\\1\" ;";' >> input.y \
1539 || exit 77]])
1540
1541 AT_BISON_CHECK([input.y], [1], [],
1542 [[input.y:2.9-12: error: invalid number after \-escape: 777
1543 input.y:2.8-13: warning: empty character literal [-Wother]
1544 input.y:2.16-17: error: invalid number after \-escape: 0
1545 input.y:2.15-18: warning: empty character literal [-Wother]
1546 input.y:2.21-25: error: invalid number after \-escape: xfff
1547 input.y:2.20-26: warning: empty character literal [-Wother]
1548 input.y:2.29-31: error: invalid number after \-escape: x0
1549 input.y:2.28-32: warning: empty character literal [-Wother]
1550 input.y:3.9-14: error: invalid number after \-escape: uffff
1551 input.y:3.8-15: warning: empty character literal [-Wother]
1552 input.y:3.18-23: error: invalid number after \-escape: u0000
1553 input.y:3.17-24: warning: empty character literal [-Wother]
1554 input.y:3.27-36: error: invalid number after \-escape: Uffffffff
1555 input.y:3.26-37: warning: empty character literal [-Wother]
1556 input.y:3.40-49: error: invalid number after \-escape: U00000000
1557 input.y:3.39-50: warning: empty character literal [-Wother]
1558 input.y:4.9-10: error: invalid character after \-escape: ' '
1559 input.y:4.8-11: warning: empty character literal [-Wother]
1560 input.y:4.14-15: error: invalid character after \-escape: A
1561 input.y:4.13-16: warning: empty character literal [-Wother]
1562 input.y:5.9-16: error: invalid character after \-escape: \t
1563 input.y:5.17: error: invalid character after \-escape: \f
1564 input.y:5.18: error: invalid character after \-escape: \0
1565 input.y:5.19: error: invalid character after \-escape: \001
1566 ]])
1567
1568 AT_CLEANUP
1569
1570 ## ------------------------- ##
1571 ## LAC: Errors for %define. ##
1572 ## ------------------------- ##
1573
1574 AT_SETUP([[LAC: Errors for %define]])
1575
1576 AT_DATA([[input.y]],
1577 [[%%
1578 start: ;
1579 ]])
1580
1581 # parse.lac.* options are useless if LAC isn't actually activated.
1582 AT_BISON_CHECK([[-Dparse.lac.es-capacity-initial=1 input.y]],
1583 [[1]], [],
1584 [[<command line>:1: error: %define variable 'parse.lac.es-capacity-initial' is not used
1585 ]])
1586 AT_BISON_CHECK([[-Dparse.lac.memory-trace=full input.y]],
1587 [[1]], [],
1588 [[<command line>:1: error: %define variable 'parse.lac.memory-trace' is not used
1589 ]])
1590
1591 AT_CLEANUP
1592
1593 ## --------------------------------------------- ##
1594 ## -Werror is not affected by -Wnone and -Wall. ##
1595 ## --------------------------------------------- ##
1596
1597 AT_SETUP([[-Werror is not affected by -Wnone and -Wall]])
1598
1599 AT_DATA([[input.y]],
1600 [[%%
1601 foo-bar: ;
1602 ]])
1603
1604 # -Werror is not enabled by -Wall or equivalent.
1605 AT_BISON_CHECK([[-Wall input.y]], [[0]], [[]],
1606 [[input.y:2.1-7: warning: POSIX Yacc forbids dashes in symbol names: foo-bar [-Wyacc]
1607 ]])
1608 AT_BISON_CHECK([[-W input.y]], [[0]], [[]],
1609 [[input.y:2.1-7: warning: POSIX Yacc forbids dashes in symbol names: foo-bar [-Wyacc]
1610 ]])
1611 AT_BISON_CHECK([[-Wno-none input.y]], [[0]], [[]],
1612 [[input.y:2.1-7: warning: POSIX Yacc forbids dashes in symbol names: foo-bar [-Wyacc]
1613 ]])
1614
1615 # -Werror is not disabled by -Wnone or equivalent.
1616 AT_BISON_CHECK([[-Werror,none,yacc input.y]], [[1]], [[]], [[stderr]])
1617 AT_CHECK([[sed 's/^.*bison:/bison:/' stderr]], [[0]],
1618 [[input.y:2.1-7: error: POSIX Yacc forbids dashes in symbol names: foo-bar [-Werror=yacc]
1619 ]])
1620 [mv stderr experr]
1621 AT_BISON_CHECK([[-Werror,no-all,yacc input.y]], [[1]], [[]], [[experr]])
1622
1623 AT_CLEANUP
1624
1625
1626 ## ------------------------------------------------------ ##
1627 ## %name-prefix and %define api.prefix are incompatible. ##
1628 ## ------------------------------------------------------ ##
1629
1630 AT_SETUP([[%name-prefix and %define api.prefix are incompatible]])
1631
1632 # AT_TEST(DIRECTIVES, OPTIONS, ERROR-LOCATION)
1633 # --------------------------------------------
1634 m4_pushdef([AT_TEST],
1635 [AT_DATA([[input.y]],
1636 [[$1
1637 %%
1638 exp:;
1639 ]])
1640 AT_BISON_CHECK([[$2 input.y]], [[1]], [[]],
1641 [[$3: error: '%name-prefix' and '%define api.prefix' cannot be used together
1642 ]])
1643 ])
1644
1645 AT_TEST([%define api.prefix foo %name-prefix "bar"], [], [input.y:1.9-18])
1646 AT_TEST([], [-Dapi.prefix=foo -p bar], [<command line>:1])
1647 AT_TEST([%name-prefix "bar"], [-Dapi.prefix=foo], [<command line>:1])
1648 AT_TEST([%define api.prefix foo], [-p bar], [input.y:1.9-18])
1649
1650 m4_popdef([AT_TEST])
1651
1652 AT_CLEANUP
1653
1654
1655 ## -------------- ##
1656 ## Stray $ or @. ##
1657 ## -------------- ##
1658
1659 AT_SETUP([[Stray $ or @]])
1660
1661 # Give %printer and %destructor "<*> exp TOK" instead of "<*>" to
1662 # check that the warnings are reported once, not three times.
1663
1664 AT_DATA_GRAMMAR([[input.y]],
1665 [[%type <TYPE> exp
1666 %token <TYPE> TOK TOK2
1667 %destructor { $%; @%; } <*> exp TOK;
1668 %initial-action { $%; @%; };
1669 %printer { $%; @%; } <*> exp TOK;
1670 %%
1671 exp: TOK { $%; @%; $$ = $1; };
1672 ]])
1673
1674 AT_BISON_CHECK([[input.y]], 0, [],
1675 [[input.y:11.19: warning: stray '$' [-Wother]
1676 input.y:11.23: warning: stray '@' [-Wother]
1677 input.y:12.19: warning: stray '$' [-Wother]
1678 input.y:12.23: warning: stray '@' [-Wother]
1679 input.y:13.19: warning: stray '$' [-Wother]
1680 input.y:13.23: warning: stray '@' [-Wother]
1681 input.y:15.19: warning: stray '$' [-Wother]
1682 input.y:15.23: warning: stray '@' [-Wother]
1683 ]])
1684
1685 AT_CLEANUP
1686
1687
1688
1689 ## ---------------- ##
1690 ## Code injection. ##
1691 ## ---------------- ##
1692
1693
1694 AT_SETUP([[Code injection]])
1695
1696 m4_pattern_allow([^m4_errprintn$])
1697
1698 # AT_TEST([MACRO])
1699 # ----------------
1700 # Try to have MACRO be run by bison.
1701 m4_pushdef([AT_TEST],
1702 [AT_DATA([[input.y]],
1703 [[%type <$1(DEAD %type)> exp
1704 %token <$1(DEAD %token)> a
1705 %token b
1706 %initial-action
1707 {
1708 $$;
1709 $<$1(DEAD %initial-action)>$
1710 };
1711 %printer
1712 {
1713 $$
1714 $<$1(DEAD %printer)>$
1715 } <> <*>;
1716 %lex-param
1717 {
1718 $1(DEAD %lex-param)
1719 };
1720 %parse-param
1721 {
1722 $1(DEAD %parse-param)
1723 };
1724 %%
1725 exp:
1726 a a[name] b
1727 {
1728 $$;
1729 $][1;
1730 $<$1(DEAD action 1)>$
1731 $<$1(DEAD action 2)>1
1732 $<$1(DEAD action 3)>name
1733 $<$1(DEAD action 4)>0
1734 ;
1735 };
1736 ]])
1737
1738 # FIXME: Provide a means to iterate over all the skeletons.
1739 AT_BISON_CHECK([[-d input.y]])
1740 AT_BISON_CHECK([[-d -S glr.c input.y]])
1741 AT_BISON_CHECK([[-d -S lalr1.cc input.y]])
1742 AT_BISON_CHECK([[-d -S glr.cc input.y]])
1743 AT_BISON_CHECK([[ -S lalr1.java input.y]])
1744 ])
1745
1746 AT_TEST([m4_errprintn])
1747 AT_TEST([@:>@m4_errprintn])
1748
1749 m4_popdef([AT_TEST])
1750
1751 AT_CLEANUP
1752
1753 ##----------------------- ##
1754 ## Deprecated directives. ##
1755 ## ---------------------- ##
1756
1757 AT_SETUP([[Deprecated directives]])
1758
1759 AT_KEYWORDS([[deprec]])
1760
1761 AT_DATA_GRAMMAR([[input.y]],
1762 [[
1763 %default_prec
1764 %error_verbose
1765 %expect_rr 0
1766 %file-prefix = "foo"
1767 %file-prefix
1768 =
1769 "bar"
1770 %fixed-output_files
1771 %fixed_output-files
1772 %fixed-output-files
1773 %name-prefix= "foo"
1774 %no-default_prec
1775 %no_default-prec
1776 %no_lines
1777 %output = "foo"
1778 %pure_parser
1779 %token_table
1780 %glr-parser
1781 %% exp : '0'
1782 ]])
1783
1784 AT_BISON_CHECK([[input.y]], [[0]], [[]],
1785 [[input.y:10.1-13: warning: deprecated directive: '%default_prec', use '%default-prec' [-Wdeprecated]
1786 input.y:11.1-14: warning: deprecated directive: '%error_verbose', use '%define parse.error verbose' [-Wdeprecated]
1787 input.y:12.1-10: warning: deprecated directive: '%expect_rr', use '%expect-rr' [-Wdeprecated]
1788 input.y:13.1-14: warning: deprecated directive: '%file-prefix =', use '%file-prefix' [-Wdeprecated]
1789 input.y:14.1-15.2: warning: deprecated directive: '%file-prefix\n =', use '%file-prefix' [-Wdeprecated]
1790 input.y:17.1-19: warning: deprecated directive: '%fixed-output_files', use '%fixed-output-files' [-Wdeprecated]
1791 input.y:18.1-19: warning: deprecated directive: '%fixed_output-files', use '%fixed-output-files' [-Wdeprecated]
1792 input.y:20.1-13: warning: deprecated directive: '%name-prefix=', use '%name-prefix' [-Wdeprecated]
1793 input.y:21.1-16: warning: deprecated directive: '%no-default_prec', use '%no-default-prec' [-Wdeprecated]
1794 input.y:22.1-16: warning: deprecated directive: '%no_default-prec', use '%no-default-prec' [-Wdeprecated]
1795 input.y:23.1-9: warning: deprecated directive: '%no_lines', use '%no-lines' [-Wdeprecated]
1796 input.y:24.1-9: warning: deprecated directive: '%output =', use '%output' [-Wdeprecated]
1797 input.y:25.1-12: warning: deprecated directive: '%pure_parser', use '%pure-parser' [-Wdeprecated]
1798 input.y:26.1-12: warning: deprecated directive: '%token_table', use '%token-table' [-Wdeprecated]
1799 ]])
1800
1801 AT_CLEANUP
1802
1803 ## ---------------------------- ##
1804 ## Unput's effect on locations. ##
1805 ## ---------------------------- ##
1806 dnl When the scanner detects a deprecated construct, it unputs the correct
1807 dnl version, but it should *not* have any impact on the scanner cursor. If it
1808 dnl does, the locations of directives on the same line become erroneous.
1809
1810 AT_SETUP([[Unput's effect on locations]])
1811
1812 AT_KEYWORDS([[deprec]])
1813
1814 AT_DATA_GRAMMAR([[input.y]],
1815 [[
1816 %glr-parser
1817 %expect_rr 42 %expect_rr 42
1818 %expect_rr 42
1819 %error_verbose %error_verbose
1820 %error_verbose
1821 %% exp: '0'
1822 ]])
1823
1824 AT_BISON_CHECK([[input.y]], [[1]], [[]],
1825 [[input.y:11.1-10: warning: deprecated directive: '%expect_rr', use '%expect-rr' [-Wdeprecated]
1826 input.y:11.15-24: warning: deprecated directive: '%expect_rr', use '%expect-rr' [-Wdeprecated]
1827 input.y:12.15-24: warning: deprecated directive: '%expect_rr', use '%expect-rr' [-Wdeprecated]
1828 input.y:13.1-14: warning: deprecated directive: '%error_verbose', use '%define parse.error verbose' [-Wdeprecated]
1829 input.y:13.16-29: warning: deprecated directive: '%error_verbose', use '%define parse.error verbose' [-Wdeprecated]
1830 input.y:13.11-21: error: %define variable 'parse.error' redefined
1831 input.y:13-6: previous definition
1832 input.y:14.16-29: warning: deprecated directive: '%error_verbose', use '%define parse.error verbose' [-Wdeprecated]
1833 input.y:14.11-21: error: %define variable 'parse.error' redefined
1834 input.y:13.11-21: previous definition
1835 ]])
1836
1837 AT_CLEANUP
1838
1839 ##--------------------------- ##
1840 ## Non-deprecated directives. ##
1841 ## -------------------------- ##
1842
1843 AT_SETUP([[Non-deprecated directives]])
1844
1845 AT_KEYWORDS([[deprec]])
1846
1847 AT_DATA_GRAMMAR([[input.y]],
1848 [[
1849 %default-prec
1850 %error-verbose
1851 %expect-rr 42
1852 %file-prefix "foo"
1853 %file-prefix
1854 "bar"
1855 %fixed-output-files
1856 %name-prefix "foo"
1857 %no-default-prec
1858 %no-lines
1859 %output "foo"
1860 %pure-parser
1861 %token-table
1862 %% exp : '0'
1863 ]])
1864
1865 AT_BISON_CHECK([[input.y]], [[0]], [[]],
1866 [[input.y: warning: %expect-rr applies only to GLR parsers [-Wother]
1867 ]])
1868
1869 AT_CLEANUP