1 # Named references test. -*- Autotest -*-
3 # Copyright (C) 2009, 2010 Free Software Foundation, Inc.
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.
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.
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/>.
18 AT_BANNER([[Named references tests.]])
20 AT_SETUP([Tutorial calculator])
22 AT_DATA_GRAMMAR([test.y],
29 typedef int semantic_value;
31 static semantic_value global_result = 0;
32 static int global_count = 0;
33 static int power (int base, int exponent);
34 static void yyerror (const char *s);
43 %token CALC_EOF 0 "end of input"
44 %token <ival> NUM "number"
47 %nonassoc '=' /* comparison */
50 %left NEG /* negation--unary minus */
51 %right '^' /* exponentiation */
69 fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
72 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>l + $r; }
73 | exp[l] '-' exp[r] { $$ = $l - $r; }
74 | exp[l] '*' exp[r] { $$ = $l * $r; }
75 | exp[l] '/' exp[r] { $$ = $l / $r; }
76 | '-' exp %prec NEG { $$ = -$2; }
77 | exp[l] '^' exp[r] { $$ = power ($l, $r); }
78 | '(' exp[e] ')' { $$ = $e; }
79 | '(' error ')' { $$ = 1111; yyerrok; }
80 | '!' { $$ = 0; YYERROR; }
81 | '-' error { $$ = 0; YYERROR; }
85 static void yyerror (const char *s)
87 fprintf (stderr, "%s\n", s);
90 static int get_char (void)
92 int res = getc (input);
96 static void unget_char (int c)
101 static int read_signed_integer (void)
113 n = 10 * n + (c - '0');
123 /* Skip white space. */
124 while ((c = get_char ()) == ' ' || c == '\t') {}
126 /* process numbers */
127 if (c == '.' || isdigit (c))
130 (yylval).ival = read_signed_integer ();
134 /* Return end-of-file. */
138 /* Return single chars. */
142 static int power (int base, int exponent)
147 for (/* Niente */; exponent; --exponent)
152 int main (int argc, const char **argv)
154 semantic_value result = 0;
158 input = fopen (argv[1], "r");
168 if (global_result != result)
170 if (global_count != count)
189 AT_BISON_CHECK([-o test.c test.y])
191 AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
196 #######################################################################
199 AT_SETUP([Undefined and ambiguous references])
201 AT_DATA_GRAMMAR([test.y],
204 static int power (int base, int exponent);
205 static void yyerror (const char *s);
214 %token CALC_EOF 0 "end of input"
215 %token <ival> NUM "number"
218 %nonassoc '=' /* comparison */
221 %left NEG /* negation--unary minus */
222 %right '^' /* exponentiation */
240 fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
243 | exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
244 | exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
245 | exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
246 | exp[l] '/' exp[r] { $$ = $l / $r; }
247 | '-' exp %prec NEG { $$ = -$2; }
248 | exp[l] '^' exp[r] { $$ = power ($l, $r12); }
249 | '(' exp ')' { $$ = $expo; }
250 | '(' error ')' { $$ = 1111; yyerrok; }
251 | '!' { $$ = 0; YYERROR; }
252 | '-' error { $$ = 0; YYERROR; }
257 AT_BISON_CHECK([-o test.c test.y], 1, [],
258 [[test.y:50.51-60: invalid reference: `$<ival>lo9'
259 test.y:50.3-68: symbol not found in production: lo9
260 test.y:51.51-60: warning: misleading reference: `$<ival>exp'
261 test.y:42.1-3: warning: refers to: $exp at $$
262 test.y:51.7: warning: possibly meant: $x, hiding $exp at $1
263 test.y:51.41: warning: possibly meant: $r, hiding $exp at $4
264 test.y:52.51-52: $l of `exp' has no declared type
265 test.y:55.46-49: invalid reference: `$r12'
266 test.y:55.3-53: symbol not found in production: r12
267 test.y:56.29-33: invalid reference: `$expo'
268 test.y:56.3-46: symbol not found in production: expo
272 #######################################################################
274 AT_SETUP([Misleading references])
275 AT_DATA_GRAMMAR([test.y],
278 start: foo foo.bar { $foo.bar; }
282 AT_BISON_CHECK([-o test.c test.y], 0, [],
283 [[test.y:11.22-29: warning: misleading reference: `$foo.bar'
284 test.y:11.8-10: warning: refers to: $foo at $1
285 test.y:11.12-18: warning: possibly meant: $[foo.bar] at $2
289 #######################################################################
291 AT_SETUP([Many kinds of errors])
292 AT_DATA_GRAMMAR([test.y],
307 if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
308 { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
309 if_stmt2: IF expr[cond] THEN stmt[then] FI
310 { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
311 if_stmt3: IF expr[cond] THEN stmt.list FI
312 { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
313 if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
314 { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
315 if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
316 { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
317 if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
318 { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
319 if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
320 { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
321 if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
322 { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
323 if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
324 { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
325 if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
326 { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
327 if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
328 { $if-stmt-a = new IfStmt($cond, $then, $else); };
329 if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
330 { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
332 stmt.list: stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
333 | stmt ';' { SL = new StmtList(); SL->insert($1); $$ = SL; }
335 stmt: assign_stmt { $$ = $1; }
336 | if_stmt { $$ = $1; }
337 | if_stmt1 { $$ = $1; }
338 | while_stmt { $$ = $1; }
340 assign_stmt: IDENT ASSIGNOP expr
341 { $$ = new AssignStmt(string($1),$3); };
342 if_stmt: IF expr[cond] THEN stmt.list FI
343 { $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
344 while_stmt[res]: WHILE expr DO stmt.list OD
345 { $res = new WhileStmt($[expr], $[stmt.list]); };
346 expr: expr '+' term { $$ = new Plus($1,$3); }
347 | expr '-' term { $$ = new Minus($1,$3); }
350 term: term '*' factor { $$ = new Times($1,$3); }
351 | factor { $$ = $1; }
353 factor: '(' expr ')' { $$ = $2; }
354 | NUMBER { $$ = new Number($1); }
355 | IDENT { $$ = new Ident(string($1)); }
358 AT_BISON_CHECK([-o test.c test.y], 1, [],
359 [[test.y:24.36-41: invalid reference: `$cond1'
360 test.y:23.11-24.62: symbol not found in production: cond1
361 test.y:26.43-53: invalid reference: `$stmt.field'
362 test.y:25.11-26.60: symbol not found in production: stmt
363 test.y:25.35-38: possibly meant: $then.field, hiding $stmt.field at $4
364 test.y:28.43-52: invalid reference: `$stmt.list'
365 test.y:27.11-28.59: symbol not found in production: stmt
366 test.y:27.30-38: possibly meant: $[stmt.list] at $4
367 test.y:30.43-46: ambiguous reference: `$xyz'
368 test.y:29.35-37: refers to: $xyz at $4
369 test.y:29.50-52: refers to: $xyz at $6
370 test.y:32.43-52: invalid reference: `$stmt.list'
371 test.y:31.11-32.63: symbol not found in production: stmt
372 test.y:31.40-43: possibly meant: $then, hiding $[stmt.list] at $4
373 test.y:31.61-64: possibly meant: $else, hiding $[stmt.list] at $6
374 test.y:34.43-58: invalid reference: `$stmt.list.field'
375 test.y:33.11-34.69: symbol not found in production: stmt
376 test.y:33.40-43: possibly meant: $then.field, hiding $[stmt.list].field at $4
377 test.y:33.61-64: possibly meant: $else.field, hiding $[stmt.list].field at $6
378 test.y:36.43-54: invalid reference: `$[stmt.list]'
379 test.y:35.11-36.71: symbol not found in production: stmt.list
380 test.y:35.40-43: possibly meant: $then, hiding $[stmt.list] at $4
381 test.y:35.61-64: possibly meant: $else, hiding $[stmt.list] at $6
382 test.y:38.43-49: invalid reference: `$then.1'
383 test.y:37.11-38.60: symbol not found in production: then
384 test.y:37.40-45: possibly meant: $[then.1] at $4
385 test.y:40.43-55: invalid reference: `$then.1.field'
386 test.y:39.11-40.66: symbol not found in production: then
387 test.y:39.40-45: possibly meant: $[then.1].field at $4
388 test.y:42.44-50: invalid reference: `$stmt.x'
389 test.y:41.12-42.57: symbol not found in production: stmt
390 test.y:41.36-41: possibly meant: $[stmt.x].x, hiding $stmt.x at $4
391 test.y:41.36-41: possibly meant: $[stmt.x] at $4
392 test.y:44.13-22: invalid reference: `$if-stmt-a'
393 test.y:43.12-44.59: symbol not found in production: if
394 test.y:43.1-9: possibly meant: $[if-stmt-a] at $$
395 test.y:46.46-54: invalid reference: `$then-a.f'
396 test.y:45.12-46.65: symbol not found in production: then
397 test.y:45.41-46: possibly meant: $[then-a].f at $4
401 #######################################################################
403 AT_SETUP([Missing identifiers in brackets])
404 AT_DATA_GRAMMAR([test.y],
410 AT_BISON_CHECK([-o test.c test.y], 1, [],
411 [[test.y:11.12: an identifier expected
415 #######################################################################
417 AT_SETUP([Redundant words in brackets])
418 AT_DATA_GRAMMAR([test.y],
421 start: foo[ a d ] bar
424 AT_BISON_CHECK([-o test.c test.y], 1, [],
425 [[test.y:11.15: unexpected identifier in bracketed name: `d'
429 #######################################################################
431 AT_SETUP([Comments in brackets])
432 AT_DATA_GRAMMAR([test.y],
435 start: foo[/* comment */] bar
438 AT_BISON_CHECK([-o test.c test.y], 1, [],
439 [[test.y:11.25: an identifier expected
443 #######################################################################
445 AT_SETUP([Stray symbols in brackets])
446 AT_DATA_GRAMMAR([test.y],
449 start: foo[ /* aaa */ *&-+ ] bar
452 AT_BISON_CHECK([-o test.c test.y], 1, [],
453 [[test.y:11.23: invalid character in bracketed name: `*'
454 test.y:11.24: invalid character in bracketed name: `&'
455 test.y:11.26: invalid character in bracketed name: `+'
459 #######################################################################
461 AT_SETUP([Redundant words in LHS brackets])
462 AT_DATA_GRAMMAR([test.y],
467 AT_BISON_CHECK([-o test.c test.y], 1, [],
468 [[test.y:11.9: unexpected identifier in bracketed name: `s'
472 #######################################################################
474 AT_SETUP([Unresolved references])
475 AT_DATA_GRAMMAR([test.y],
480 { func($sym.field); }
483 { func($<aa>sym.field); }
486 { func($[sym.field]); }
489 { func($<aa>[sym.field]); }
500 { func($<aa>[sym]); }
504 { func($sym-field); }
507 { func($<aa>sym-field); }
510 { func($[sym-field]); }
513 { func($<aa>[sym-field]); }
524 { func($<aa>[sym]); }
529 AT_BISON_CHECK([-o test.c test.y], 1, [],
530 [[test.y:13.8-17: invalid reference: `$sym.field'
531 test.y:12.1-13.21: symbol not found in production: sym
532 test.y:16.8-21: invalid reference: `$<aa>sym.field'
533 test.y:15.1-16.25: symbol not found in production: sym
534 test.y:19.8-19: invalid reference: `$[sym.field]'
535 test.y:18.1-19.23: symbol not found in production: sym.field
536 test.y:22.8-23: invalid reference: `$<aa>[sym.field]'
537 test.y:21.1-22.27: symbol not found in production: sym.field
538 test.y:25.8-11: invalid reference: `$sym'
539 test.y:24.1-25.15: symbol not found in production: sym
540 test.y:28.8-15: invalid reference: `$<aa>sym'
541 test.y:27.1-28.19: symbol not found in production: sym
542 test.y:31.8-13: invalid reference: `$[sym]'
543 test.y:30.1-33.21: symbol not found in production before $3: sym
544 test.y:33.8-17: invalid reference: `$<aa>[sym]'
545 test.y:30.1-33.21: symbol not found in production: sym
546 test.y:37.8-17: invalid reference: `$sym-field'
547 test.y:36.1-37.21: symbol not found in production: sym
548 test.y:40.8-21: invalid reference: `$<aa>sym-field'
549 test.y:39.1-40.25: symbol not found in production: sym
550 test.y:43.8-19: invalid reference: `$[sym-field]'
551 test.y:42.1-43.23: symbol not found in production: sym-field
552 test.y:46.8-23: invalid reference: `$<aa>[sym-field]'
553 test.y:45.1-46.27: symbol not found in production: sym-field
554 test.y:49.8-11: invalid reference: `$sym'
555 test.y:48.1-49.15: symbol not found in production: sym
556 test.y:52.8-15: invalid reference: `$<aa>sym'
557 test.y:51.1-52.19: symbol not found in production: sym
558 test.y:55.8-13: invalid reference: `$[sym]'
559 test.y:54.1-57.21: symbol not found in production before $3: sym
560 test.y:57.8-17: invalid reference: `$<aa>[sym]'
561 test.y:54.1-57.21: symbol not found in production: sym