]> git.saurik.com Git - bison.git/blob - tests/named-refs.at
output: record what generated files are source or report files
[bison.git] / tests / named-refs.at
1 # Named references test. -*- Autotest -*-
2
3 # Copyright (C) 2009-2013 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 # FIXME: Duplication with calc.at.
19 AT_BANNER([[Named references tests.]])
20
21 AT_SETUP([Tutorial calculator])
22 AT_BISON_OPTION_PUSHDEFS
23 AT_DATA_GRAMMAR([test.y],
24 [[
25 %{
26 #include <assert.h>
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <string.h>
30 #include <ctype.h>
31 typedef int semantic_value;
32 FILE *input;
33 static semantic_value global_result = 0;
34 static int global_count = 0;
35 static int power (int base, int exponent);
36 ]AT_YYERROR_DECLARE[
37 ]AT_YYLEX_DECLARE[
38 %}
39
40 %union
41 {
42 semantic_value ival;
43 };
44
45 %token CALC_EOF 0 "end of input"
46 %token <ival> NUM "number"
47 %type <ival> exp
48
49 %nonassoc '=' /* comparison */
50 %left '-' '+'
51 %left '*' '/'
52 %precedence NEG /* negation--unary minus */
53 %right '^' /* exponentiation */
54
55 %%
56 input:
57 line
58 | input line {}
59 ;
60
61 line:
62 '\n'
63 | exp '\n' {}
64 ;
65
66 exp:
67 NUM { $$ = $NUM; }
68 | exp[l] '=' exp[r]
69 {
70 if ($l != $r)
71 fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
72 $$ = $l;
73 }
74 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>l + $r; }
75 | exp[l] '-' exp[r] { $$ = $l - $r; }
76 | exp[l] '*' exp[r] { $$ = $l * $r; }
77 | exp[l] '/' exp[r] { $$ = $l / $r; }
78 | '-' exp %prec NEG { $$ = -$2; }
79 | exp[l] '^' exp[r] { $$ = power ($l, $r); }
80 | '(' exp[e] ')' { $$ = $e; }
81 | '(' error ')' { $$ = 1111; yyerrok; }
82 | '!' { $$ = 0; YYERROR; }
83 | '-' error { $$ = 0; YYERROR; }
84 ;
85 %%
86 ]AT_YYERROR_DEFINE[
87 static int get_char (void)
88 {
89 int res = getc (input);
90 return res;
91 }
92
93 static void unget_char (int c)
94 {
95 ungetc (c, input);
96 }
97
98 static int read_signed_integer (void)
99 {
100 int c = get_char ();
101 int sign = 1;
102 int n = 0;
103 if (c == '-')
104 {
105 c = get_char ();
106 sign = -1;
107 }
108 while (isdigit (c))
109 {
110 n = 10 * n + (c - '0');
111 c = get_char ();
112 }
113 unget_char ( c);
114 return sign * n;
115 }
116
117 static int
118 yylex (void)
119 {
120 int c;
121 /* Skip white space. */
122 while ((c = get_char ()) == ' ' || c == '\t') {}
123
124 /* process numbers */
125 if (c == '.' || isdigit (c))
126 {
127 unget_char ( c);
128 (yylval).ival = read_signed_integer ();
129 return NUM;
130 }
131
132 /* Return end-of-file. */
133 if (c == EOF)
134 return CALC_EOF;
135
136 /* Return single chars. */
137 return c;
138 }
139
140 static int power (int base, int exponent)
141 {
142 int res = 1;
143 assert (0 <= exponent);
144 for (/* Niente */; exponent; --exponent)
145 res *= base;
146 return res;
147 }
148
149 int main (int argc, const char **argv)
150 {
151 semantic_value result = 0;
152 int count = 0;
153 int status;
154 if (argc == 2)
155 input = fopen (argv[1], "r");
156 else
157 input = stdin;
158 if (!input)
159 {
160 perror (argv[1]);
161 return 3;
162 }
163 status = yyparse ();
164 fclose (input);
165 assert (global_result == result);
166 assert (global_count == count);
167 return status;
168 }
169 ]])
170
171 AT_DATA([input.txt],
172 [[
173 1 + 2 * 3 = 7
174 1 + 2 * -3 = -5
175 -1^2 = -1
176 (-1)^2 = 1
177 ---1 = -1
178 1 - 2 - 3 = -4
179 1 - (2 - 3) = 2
180 2^2^3 = 256
181 (2^2)^3 = 64
182 ]])
183
184 AT_FULL_COMPILE([[test]])
185 AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
186 AT_BISON_OPTION_POPDEFS
187 AT_CLEANUP
188
189
190
191 ## ------------------------------------ ##
192 ## Undefined and ambiguous references. ##
193 ## ------------------------------------ ##
194
195
196 AT_SETUP([Undefined and ambiguous references])
197 AT_BISON_OPTION_PUSHDEFS
198 AT_DATA_GRAMMAR([test.y],
199 [[
200 %{
201 static int power (int base, int exponent);
202 ]AT_YYERROR_DECLARE[
203 ]AT_YYLEX_DECLARE[
204 %}
205
206 %union
207 {
208 int ival;
209 };
210
211 %token CALC_EOF 0 "end of input"
212 %token <ival> NUM "number"
213 %type <ival> exp
214
215 %nonassoc '=' /* comparison */
216 %left '-' '+'
217 %left '*' '/'
218 %precedence NEG /* negation--unary minus */
219 %right '^' /* exponentiation */
220
221 %%
222 input:
223 line
224 | input line {}
225 ;
226
227 line:
228 '\n'
229 | exp '\n' {}
230 ;
231
232 exp:
233 NUM { $$ = $NUM; }
234 | exp[l] '=' exp[r]
235 {
236 if ($l != $r)
237 fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
238 $$ = $l;
239 }
240 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
241 | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
242 | exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
243 | exp[l] '/' exp[r] { $$ = $l / $r; }
244 | '-' exp %prec NEG { $$ = -$2; }
245 | exp[l] '^' exp[r] { $$ = power ($l, $r12); }
246 | '(' exp ')' { $$ = $expo; }
247 | '(' error ')' { $$ = 1111; yyerrok; }
248 | '!' { $$ = 0; YYERROR; }
249 | '-' error { $$ = 0; YYERROR; }
250 ;
251 %%
252 ]])
253
254 AT_BISON_CHECK([-fcaret -o test.c test.y], 1, [],
255 [[test.y:52.51-60: error: invalid reference: '$<ival>lo9'
256 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
257 ^^^^^^^^^^
258 test.y:52.3-68: symbol not found in production: lo9
259 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
260 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
261 test.y:53.51-60: warning: misleading reference: '$<ival>exp' [-Wother]
262 | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
263 ^^^^^^^^^^
264 test.y:44.1-3: refers to: $exp at $$
265 exp:
266 ^^^
267 test.y:53.7: possibly meant: $x, hiding $exp at $1
268 | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
269 ^
270 test.y:53.41: possibly meant: $r, hiding $exp at $4
271 | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
272 ^
273 test.y:54.51-52: error: $l of 'exp' has no declared type
274 | exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
275 ^^
276 test.y:57.40-43: error: invalid reference: '$r12'
277 | exp[l] '^' exp[r] { $$ = power ($l, $r12); }
278 ^^^^
279 test.y:57.3-47: symbol not found in production: r12
280 | exp[l] '^' exp[r] { $$ = power ($l, $r12); }
281 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
282 test.y:58.29-33: error: invalid reference: '$expo'
283 | '(' exp ')' { $$ = $expo; }
284 ^^^^^
285 test.y:58.3-46: symbol not found in production: expo
286 | '(' exp ')' { $$ = $expo; }
287 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
288 ]])
289 AT_BISON_OPTION_POPDEFS
290 AT_CLEANUP
291
292
293 ## ----------------------- ##
294 ## Misleading references. ##
295 ## ----------------------- ##
296
297 AT_SETUP([Misleading references])
298 AT_DATA_GRAMMAR([test.y],
299 [[
300 %%
301 start: foo foo.bar { $foo.bar; }
302 foo: '1'
303 foo.bar: '2'
304 ]])
305 AT_BISON_CHECK([-o test.c test.y], 0, [],
306 [[test.y:11.22-29: warning: misleading reference: '$foo.bar' [-Wother]
307 test.y:11.8-10: refers to: $foo at $1
308 test.y:11.12-18: possibly meant: $[foo.bar] at $2
309 ]])
310 AT_CLEANUP
311
312 #######################################################################
313
314 AT_SETUP([Many kinds of errors])
315 AT_DATA_GRAMMAR([test.y],
316 [[
317 %token IDENT
318 %token NUMBER
319 %token ASSIGNOP
320 %token IF
321 %token IF1
322 %token THEN
323 %token ELSE
324 %token FI
325 %token WHILE
326 %token DO
327 %token OD
328 %start program
329 %%
330 if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
331 { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
332 if_stmt2: IF expr[cond] THEN stmt[then] FI
333 { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
334 if_stmt3: IF expr[cond] THEN stmt.list FI
335 { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
336 if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
337 { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
338 if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
339 { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
340 if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
341 { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
342 if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
343 { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
344 if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
345 { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
346 if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
347 { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
348 if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
349 { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
350 if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
351 { $if-stmt-a = new IfStmt($cond, $then, $else); };
352 if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
353 { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
354 program: stmt.list;
355 stmt.list: stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
356 | stmt ';' { SL = new StmtList(); SL->insert($1); $$ = SL; }
357 ;
358 stmt: assign_stmt { $$ = $1; }
359 | if_stmt { $$ = $1; }
360 | if_stmt1 { $$ = $1; }
361 | while_stmt { $$ = $1; }
362 ;
363 assign_stmt: IDENT ASSIGNOP expr
364 { $$ = new AssignStmt(string($1),$3); };
365 if_stmt: IF expr[cond] THEN stmt.list FI
366 { $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
367 while_stmt[res]: WHILE expr DO stmt.list OD
368 { $res = new WhileStmt($[expr], $[stmt.list]); };
369 expr: expr '+' term { $$ = new Plus($1,$3); }
370 | expr '-' term { $$ = new Minus($1,$3); }
371 | term { $$ = $1; }
372 ;
373 term: term '*' factor { $$ = new Times($1,$3); }
374 | factor { $$ = $1; }
375 ;
376 factor: '(' expr ')' { $$ = $2; }
377 | NUMBER { $$ = new Number($1); }
378 | IDENT { $$ = new Ident(string($1)); }
379 ;
380 ]])
381 AT_BISON_CHECK([-o test.c test.y], 1, [],
382 [[test.y:24.36-41: error: invalid reference: '$cond1'
383 test.y:23.11-24.62: symbol not found in production: cond1
384 test.y:26.43-53: error: invalid reference: '$stmt.field'
385 test.y:25.11-26.60: symbol not found in production: stmt
386 test.y:25.35-38: possibly meant: $then.field, hiding $stmt.field at $4
387 test.y:28.43-52: error: invalid reference: '$stmt.list'
388 test.y:27.11-28.59: symbol not found in production: stmt
389 test.y:27.30-38: possibly meant: $[stmt.list] at $4
390 test.y:30.43-46: error: ambiguous reference: '$xyz'
391 test.y:29.35-37: refers to: $xyz at $4
392 test.y:29.50-52: refers to: $xyz at $6
393 test.y:32.43-52: error: invalid reference: '$stmt.list'
394 test.y:31.11-32.63: symbol not found in production: stmt
395 test.y:31.40-43: possibly meant: $then, hiding $[stmt.list] at $4
396 test.y:31.61-64: possibly meant: $else, hiding $[stmt.list] at $6
397 test.y:34.43-58: error: invalid reference: '$stmt.list.field'
398 test.y:33.11-34.69: symbol not found in production: stmt
399 test.y:33.40-43: possibly meant: $then.field, hiding $[stmt.list].field at $4
400 test.y:33.61-64: possibly meant: $else.field, hiding $[stmt.list].field at $6
401 test.y:36.43-54: error: invalid reference: '$[stmt.list]'
402 test.y:35.11-36.71: symbol not found in production: stmt.list
403 test.y:35.40-43: possibly meant: $then, hiding $[stmt.list] at $4
404 test.y:35.61-64: possibly meant: $else, hiding $[stmt.list] at $6
405 test.y:38.43-49: error: invalid reference: '$then.1'
406 test.y:37.11-38.60: symbol not found in production: then
407 test.y:37.40-45: possibly meant: $[then.1] at $4
408 test.y:40.43-55: error: invalid reference: '$then.1.field'
409 test.y:39.11-40.66: symbol not found in production: then
410 test.y:39.40-45: possibly meant: $[then.1].field at $4
411 test.y:42.44-50: error: invalid reference: '$stmt.x'
412 test.y:41.12-42.57: symbol not found in production: stmt
413 test.y:41.36-41: possibly meant: $[stmt.x].x, hiding $stmt.x at $4
414 test.y:41.36-41: possibly meant: $[stmt.x] at $4
415 test.y:44.13-22: error: invalid reference: '$if-stmt-a'
416 test.y:43.12-44.59: symbol not found in production: if
417 test.y:43.1-9: possibly meant: $[if-stmt-a] at $$
418 test.y:46.46-54: error: invalid reference: '$then-a.f'
419 test.y:45.12-46.65: symbol not found in production: then
420 test.y:45.41-46: possibly meant: $[then-a].f at $4
421 ]])
422
423 AT_BISON_CHECK([-fcaret -o test.c test.y], 1, [],
424 [[test.y:24.36-41: error: invalid reference: '$cond1'
425 { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
426 ^^^^^^
427 test.y:23.11-24.62: symbol not found in production: cond1
428 if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
429 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
430 test.y:26.43-53: error: invalid reference: '$stmt.field'
431 { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
432 ^^^^^^^^^^^
433 test.y:25.11-26.60: symbol not found in production: stmt
434 if_stmt2: IF expr[cond] THEN stmt[then] FI
435 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
436 test.y:25.35-38: possibly meant: $then.field, hiding $stmt.field at $4
437 if_stmt2: IF expr[cond] THEN stmt[then] FI
438 ^^^^
439 test.y:28.43-52: error: invalid reference: '$stmt.list'
440 { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
441 ^^^^^^^^^^
442 test.y:27.11-28.59: symbol not found in production: stmt
443 if_stmt3: IF expr[cond] THEN stmt.list FI
444 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
445 test.y:27.30-38: possibly meant: $[stmt.list] at $4
446 if_stmt3: IF expr[cond] THEN stmt.list FI
447 ^^^^^^^^^
448 test.y:30.43-46: error: ambiguous reference: '$xyz'
449 { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
450 ^^^^
451 test.y:29.35-37: refers to: $xyz at $4
452 if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
453 ^^^
454 test.y:29.50-52: refers to: $xyz at $6
455 if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
456 ^^^
457 test.y:32.43-52: error: invalid reference: '$stmt.list'
458 { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
459 ^^^^^^^^^^
460 test.y:31.11-32.63: symbol not found in production: stmt
461 if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
462 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
463 test.y:31.40-43: possibly meant: $then, hiding $[stmt.list] at $4
464 if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
465 ^^^^
466 test.y:31.61-64: possibly meant: $else, hiding $[stmt.list] at $6
467 if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
468 ^^^^
469 test.y:34.43-58: error: invalid reference: '$stmt.list.field'
470 { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
471 ^^^^^^^^^^^^^^^^
472 test.y:33.11-34.69: symbol not found in production: stmt
473 if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
474 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
475 test.y:33.40-43: possibly meant: $then.field, hiding $[stmt.list].field at $4
476 if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
477 ^^^^
478 test.y:33.61-64: possibly meant: $else.field, hiding $[stmt.list].field at $6
479 if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
480 ^^^^
481 test.y:36.43-54: error: invalid reference: '$[stmt.list]'
482 { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
483 ^^^^^^^^^^^^
484 test.y:35.11-36.71: symbol not found in production: stmt.list
485 if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
486 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
487 test.y:35.40-43: possibly meant: $then, hiding $[stmt.list] at $4
488 if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
489 ^^^^
490 test.y:35.61-64: possibly meant: $else, hiding $[stmt.list] at $6
491 if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
492 ^^^^
493 test.y:38.43-49: error: invalid reference: '$then.1'
494 { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
495 ^^^^^^^
496 test.y:37.11-38.60: symbol not found in production: then
497 if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
498 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
499 test.y:37.40-45: possibly meant: $[then.1] at $4
500 if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
501 ^^^^^^
502 test.y:40.43-55: error: invalid reference: '$then.1.field'
503 { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
504 ^^^^^^^^^^^^^
505 test.y:39.11-40.66: symbol not found in production: then
506 if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
507 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
508 test.y:39.40-45: possibly meant: $[then.1].field at $4
509 if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
510 ^^^^^^
511 test.y:42.44-50: error: invalid reference: '$stmt.x'
512 { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
513 ^^^^^^^
514 test.y:41.12-42.57: symbol not found in production: stmt
515 if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
516 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
517 test.y:41.36-41: possibly meant: $[stmt.x].x, hiding $stmt.x at $4
518 if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
519 ^^^^^^
520 test.y:41.36-41: possibly meant: $[stmt.x] at $4
521 if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
522 ^^^^^^
523 test.y:44.13-22: error: invalid reference: '$if-stmt-a'
524 { $if-stmt-a = new IfStmt($cond, $then, $else); };
525 ^^^^^^^^^^
526 test.y:43.12-44.59: symbol not found in production: if
527 if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
528 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
529 test.y:43.1-9: possibly meant: $[if-stmt-a] at $$
530 if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
531 ^^^^^^^^^
532 test.y:46.46-54: error: invalid reference: '$then-a.f'
533 { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
534 ^^^^^^^^^
535 test.y:45.12-46.65: symbol not found in production: then
536 if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
537 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
538 test.y:45.41-46: possibly meant: $[then-a].f at $4
539 if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
540 ^^^^^^
541 ]])
542
543 AT_CLEANUP
544
545 #######################################################################
546
547 AT_SETUP([Missing identifiers in brackets])
548 AT_DATA_GRAMMAR([test.y],
549 [[
550 %%
551 start: foo[] bar
552 { s = $foo; }
553 ]])
554 AT_BISON_CHECK([-o test.c test.y], 1, [],
555 [[test.y:11.12: error: an identifier expected
556 ]])
557 AT_CLEANUP
558
559 #######################################################################
560
561 AT_SETUP([Redundant words in brackets])
562 AT_DATA_GRAMMAR([test.y],
563 [[
564 %%
565 start: foo[ a d ] bar
566 { s = $foo; }
567 ]])
568 AT_BISON_CHECK([-o test.c test.y], 1, [],
569 [[test.y:11.15: error: unexpected identifier in bracketed name: 'd'
570 ]])
571 AT_CLEANUP
572
573 #######################################################################
574
575 AT_SETUP([Comments in brackets])
576 AT_DATA_GRAMMAR([test.y],
577 [[
578 %%
579 start: foo[/* comment */] bar
580 { s = $foo; }
581 ]])
582 AT_BISON_CHECK([-o test.c test.y], 1, [],
583 [[test.y:11.25: error: an identifier expected
584 ]])
585 AT_CLEANUP
586
587 #######################################################################
588
589 AT_SETUP([Stray symbols in brackets])
590 AT_DATA_GRAMMAR([test.y],
591 [[
592 %%
593 start: foo[ % /* aaa */ *&-.+\000\001\002\377 ] bar
594 { s = $foo; }
595 ]])
596 AT_CHECK([[$PERL -pi -e 's/\\(\d{3})/chr(oct($1))/ge' test.y || exit 77]])
597 AT_BISON_CHECK([-o test.c test.y], 1, [],
598 [[test.y:11.13: error: invalid character in bracketed name: '%'
599 test.y:11.25-27: error: invalid characters in bracketed name: '*&-'
600 test.y:11.29-30: error: invalid characters in bracketed name: '+\0\001\002\377'
601 ]])
602 AT_CLEANUP
603
604 #######################################################################
605
606 AT_SETUP([Redundant words in LHS brackets])
607 AT_DATA_GRAMMAR([test.y],
608 [[
609 %%
610 start[a s]: foo;
611 ]])
612 AT_BISON_CHECK([-o test.c test.y], 1, [],
613 [[test.y:11.9: error: unexpected identifier in bracketed name: 's'
614 ]])
615 AT_CLEANUP
616
617 #######################################################################
618
619 # Bison used to free twice the named ref for "a", since a single copy
620 # was used in two rules.
621 AT_SETUP([Factored LHS])
622 AT_DATA_GRAMMAR([test.y],
623 [[
624 %%
625 start[a]: "foo" | "bar";
626 ]])
627 AT_BISON_CHECK([-o test.c test.y])
628 AT_CLEANUP
629
630 #######################################################################
631
632 AT_SETUP([Unresolved references])
633 AT_DATA_GRAMMAR([test.y],
634 [[
635 %%
636 stat:
637 sym_a sym_b { func($sym.field); }
638 | sym_a sym_b { func($<aa>sym.field); }
639 | sym_a sym_b { func($[sym.field]); }
640 | sym_a sym_b { func($<aa>[sym.field]); }
641 | sym_a sym_b { func($sym); }
642 | sym_a sym_b { func($<aa>sym); }
643 | sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
644 ;
645
646 stat1:
647 sym_a sym_b { func($sym-field); }
648 | sym_a sym_b { func($<aa>sym-field); }
649 | sym_a sym_b { func($[sym-field]); }
650 | sym_a sym_b { func($<aa>[sym-field]); }
651 | sym_a sym_b { func($sym); }
652 | sym_a sym_b { func($<aa>sym); }
653 | sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
654 ;
655
656 sym_a: 'a';
657 sym_b: 'b';
658 ]])
659 AT_BISON_CHECK([-o test.c test.y], 1, [],
660 [[test.y:12.22-31: error: invalid reference: '$sym.field'
661 test.y:12.3-35: symbol not found in production: sym
662 test.y:13.22-35: error: invalid reference: '$<aa>sym.field'
663 test.y:13.3-39: symbol not found in production: sym
664 test.y:14.22-33: error: invalid reference: '$[sym.field]'
665 test.y:14.3-37: symbol not found in production: sym.field
666 test.y:15.22-37: error: invalid reference: '$<aa>[sym.field]'
667 test.y:15.3-41: symbol not found in production: sym.field
668 test.y:16.22-25: error: invalid reference: '$sym'
669 test.y:16.3-29: symbol not found in production: sym
670 test.y:17.22-29: error: invalid reference: '$<aa>sym'
671 test.y:17.3-33: symbol not found in production: sym
672 test.y:18.22-27: error: invalid reference: '$[sym]'
673 test.y:18.3-65: symbol not found in production before $3: sym
674 test.y:18.52-61: error: invalid reference: '$<aa>[sym]'
675 test.y:18.3-65: symbol not found in production: sym
676 test.y:22.22-31: error: invalid reference: '$sym-field'
677 test.y:22.3-35: symbol not found in production: sym
678 test.y:23.22-35: error: invalid reference: '$<aa>sym-field'
679 test.y:23.3-39: symbol not found in production: sym
680 test.y:24.22-33: error: invalid reference: '$[sym-field]'
681 test.y:24.3-37: symbol not found in production: sym-field
682 test.y:25.22-37: error: invalid reference: '$<aa>[sym-field]'
683 test.y:25.3-41: symbol not found in production: sym-field
684 test.y:26.22-25: error: invalid reference: '$sym'
685 test.y:26.3-29: symbol not found in production: sym
686 test.y:27.22-29: error: invalid reference: '$<aa>sym'
687 test.y:27.3-33: symbol not found in production: sym
688 test.y:28.22-27: error: invalid reference: '$[sym]'
689 test.y:28.3-65: symbol not found in production before $3: sym
690 test.y:28.52-61: error: invalid reference: '$<aa>[sym]'
691 test.y:28.3-65: symbol not found in production: sym
692 ]])
693 AT_CLEANUP
694
695 #######################################################################
696
697 AT_SETUP([[$ or @ followed by . or -]])
698 AT_DATA([[test.y]],
699 [[
700 %%
701 start:
702 .field { $.field; }
703 | 'a' { @.field; }
704 ;
705 .field: ;
706 ]])
707 AT_BISON_CHECK([[test.y]], [[1]], [],
708 [[test.y:4.12-18: error: invalid reference: '$.field'
709 test.y:4.13: syntax error after '$', expecting integer, letter, '_', '@<:@', or '$'
710 test.y:4.3-8: possibly meant: $[.field] at $1
711 test.y:5.12-18: error: invalid reference: '@.field'
712 test.y:5.13: syntax error after '@', expecting integer, letter, '_', '@<:@', or '$'
713 ]])
714 AT_DATA([[test.y]],
715 [[
716 %%
717 start:
718 'a' { $-field; }
719 | 'b' { @-field; }
720 ;
721 ]])
722 AT_BISON_CHECK([[test.y]], [[0]], [],
723 [[test.y:4.9: warning: stray '$' [-Wother]
724 test.y:5.9: warning: stray '@' [-Wother]
725 ]])
726 AT_CLEANUP