1 # Checking GLR Parsing: Regression Tests -*- Autotest -*-
2 # Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc.
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 2, or (at your option)
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program; if not, write to the Free Software
16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
19 AT_BANNER([[GLR Regression Tests]])
21 ## --------------------------- ##
22 ## Badly Collapsed GLR States. ##
23 ## --------------------------- ##
25 AT_SETUP([Badly Collapsed GLR States])
27 AT_DATA_GRAMMAR([glr-regr1.y],
28 [[/* Regression Test: Improper state compression */
29 /* Reported by Scott McPeak */
35 static YYSTYPE exprMerge (YYSTYPE x0, YYSTYPE x1);
37 void yyerror (char const *msg);
44 /* -------- productions ------ */
47 StartSymbol: E { $$=0; } %merge <exprMerge>
50 E: E 'P' E { $$=1; printf("E -> E 'P' E\n"); } %merge <exprMerge>
51 | 'B' { $$=2; printf("E -> 'B'\n"); } %merge <exprMerge>
56 /* ---------- C code ----------- */
59 static YYSTYPE exprMerge (YYSTYPE x0, YYSTYPE x1)
74 yyerror (char const *msg)
76 fprintf (stderr, "%s\n", msg);
88 else if (ch == 'B' || ch == 'P')
94 AT_CHECK([[bison -o glr-regr1.c glr-regr1.y]], 0, [],
95 [glr-regr1.y: conflicts: 1 shift/reduce
97 AT_COMPILE([glr-regr1])
98 AT_CHECK([[echo BPBPB | ./glr-regr1]], 0,
112 ## ------------------------------------------------------------ ##
113 ## Improper handling of embedded actions and $-N in GLR parsers ##
114 ## ------------------------------------------------------------ ##
116 AT_SETUP([Improper handling of embedded actions and dollar(-N) in GLR parsers])
118 AT_DATA_GRAMMAR([glr-regr2a.y],
119 [[/* Regression Test: Improper handling of embedded actions and $-N */
120 /* Reported by S. Eken */
123 #define YYSTYPE char *
130 void yyerror (char const *);
139 { printf ("Variable: '%s'\n", $2); }
142 | 's' var_list 't' 'e'
143 { printf ("Varlist: '%s'\n", $2); free ($2); }
144 | 's' var 't' var_printer 'x'
158 char *s = (char *) realloc ($1, strlen ($1) + 1 + strlen ($3) + 1);
167 { printf ("Variable: '%s'\n", $-1); }
178 switch (fscanf (input, " %1[a-z,]", buf)) {
186 if (fscanf (input, "%49s", buf) != 1)
188 if (sizeof buf - 1 <= strlen (buf))
190 s = (char *) malloc (strlen (buf) + 1);
197 yyerror (char const *s)
198 { printf ("%s\n", s);
202 main (int argc, char **argv)
205 if (argc == 2 && !(input = fopen (argv[1], "r"))) return 3;
210 AT_CHECK([[bison -o glr-regr2a.c glr-regr2a.y]], 0, [],
211 [glr-regr2a.y: conflicts: 2 shift/reduce
213 AT_COMPILE([glr-regr2a])
215 AT_CHECK([[echo s VARIABLE_1 t v x q | ./glr-regr2a]], 0,
216 [[Variable: 'VARIABLE_1'
218 AT_CHECK([[echo s VARIABLE_1 , ANOTHER_VARIABLE_2 t e | ./glr-regr2a]], 0,
219 [[Varlist: 'VARIABLE_1,ANOTHER_VARIABLE_2'
221 AT_CHECK([[echo s VARIABLE_3 t v x | ./glr-regr2a]], 0,
222 [[Variable: 'VARIABLE_3'
228 ## ------------------------------------------------------------ ##
229 ## Improper merging of GLR delayed action sets ##
230 ## ------------------------------------------------------------ ##
232 AT_SETUP([Improper merging of GLR delayed action sets])
234 AT_DATA_GRAMMAR([glr-regr3.y],
235 [[/* Regression Test: Improper merging of GLR delayed action sets. */
236 /* Reported by M. Rosien */
242 static int MergeRule (int x0, int x1);
243 static void yyerror(char const * s);
246 #define RULE(x) (1 << (x))
253 %token P1 P2 T1 T2 T3 T4 O1 O2
257 S : P1 T4 O2 NT6 P2 { printf ("Result: %x\n", $4); }
260 NT1 : P1 T1 O1 T2 P2 { $$ = RULE(2); } %merge<MergeRule>
263 NT2 : NT1 { $$ = RULE(3); } %merge<MergeRule>
264 | P1 NT1 O1 T3 P2 { $$ = RULE(4); } %merge<MergeRule>
267 NT3 : T3 { $$ = RULE(5); } %merge<MergeRule>
268 | P1 NT1 O1 T3 P2 { $$ = RULE(6); } %merge<MergeRule>
271 NT4 : NT3 { $$ = RULE(7); } %merge<MergeRule>
272 | NT2 { $$ = RULE(8); } %merge<MergeRule>
273 | P1 NT2 O1 NT3 P2 { $$ = RULE(9); } %merge<MergeRule>
276 NT5 : NT4 { $$ = RULE(10); } %merge<MergeRule>
279 NT6 : P1 NT1 O1 T3 P2 { $$ = RULE(11) | $2; } %merge<MergeRule>
280 | NT5 { $$ = RULE(12) | $1; } %merge<MergeRule>
285 static int MergeRule (int x0, int x1) {
289 static void yyerror(char const * s) {
290 fprintf(stderr,"error: %s\n",s);
295 int P[] = { P1, P2 };
296 int O[] = { O1, O2 };
297 int T[] = { T1, T2, T3, T4 };
302 if (fscanf (input, "%2s", inp) == EOF)
306 case 'p': return P[inp[1] - '1'];
307 case 't': return T[inp[1] - '1'];
308 case 'o': return O[inp[1] - '1'];
313 int main(int argc, char* argv[]) {
315 if (argc == 2 && !(input = fopen (argv[1], "r"))) return 3;
320 AT_CHECK([[bison -o glr-regr3.c glr-regr3.y]], 0, [],
321 [glr-regr3.y: conflicts: 1 shift/reduce, 1 reduce/reduce
323 AT_COMPILE([glr-regr3])
325 AT_CHECK([[echo p1 t4 o2 p1 p1 t1 o1 t2 p2 o1 t3 p2 p2 | ./glr-regr3]], 0,
332 ## ---------------------------------------------------------------------- ##
333 ## Duplicate representation of merged trees ##
334 ## Thanks to Joel E. Denny for this test; see ##
335 ## <http://lists.gnu.org/archive/html/help-bison/2005-07/msg00013.html>. ##
336 ## ---------------------------------------------------------------------- ##
338 AT_SETUP([Duplicate representation of merged trees])
340 AT_DATA_GRAMMAR([glr-regr4.y],
342 %union { char *ptr; }
343 %type <ptr> S A A1 A2 B
350 static char *merge (YYSTYPE, YYSTYPE);
351 static char *make_value (char const *, char const *);
352 static void yyerror (char const *);
353 static int yylex (void);
358 tree: S { printf ("%s\n", $1); } ;
361 A %merge<merge> { $$ = make_value ("S", $1); }
362 | B %merge<merge> { $$ = make_value ("S", $1); }
366 A1 %merge<merge> { $$ = make_value ("A", $1); }
367 | A2 %merge<merge> { $$ = make_value ("A", $1); }
370 A1: 'a' { $$ = make_value ("A1", "'a'"); } ;
371 A2: 'a' { $$ = make_value ("A2", "'a'"); } ;
372 B: 'a' { $$ = make_value ("B", "'a'"); } ;
379 static char const *input = "a";
390 make_value (char const *parent, char const *child)
392 char const format[] = "%s <- %s";
394 (char *) malloc (strlen (parent) + strlen (child) + sizeof format);
395 sprintf (value, format, parent, child);
400 merge (YYSTYPE s1, YYSTYPE s2)
402 char const format[] = "merge{ %s and %s }";
404 (char *) malloc (strlen (s1.ptr) + strlen (s2.ptr) + sizeof format);
405 sprintf (value, format, s1.ptr, s2.ptr);
410 yyerror (char const *msg)
412 fprintf (stderr, "%s\n", msg);
416 AT_CHECK([[bison -o glr-regr4.c glr-regr4.y]], 0, [],
417 [glr-regr4.y: conflicts: 1 reduce/reduce
419 AT_COMPILE([glr-regr4])
421 AT_CHECK([[./glr-regr4]], 0,
422 [[merge{ S <- merge{ A <- A1 <- 'a' and A <- A2 <- 'a' } and S <- B <- 'a' }
428 ## ------------------------------------------------------------------------- ##
429 ## User destructor for unresolved GLR semantic value ##
430 ## Thanks to Joel E. Denny for this test; see ##
431 ## <http://lists.gnu.org/archive/html/bison-patches/2005-08/msg00016.html>. ##
432 ## ------------------------------------------------------------------------- ##
434 AT_SETUP([User destructor for unresolved GLR semantic value])
436 AT_DATA_GRAMMAR([glr-regr5.y],
441 static void yyerror (char const *);
442 static int yylex (void);
443 enum { MAGIC_VALUE = -1057808125 }; /* originally chosen at random */
447 %union { int value; }
451 if ($$ != MAGIC_VALUE)
453 fprintf (stderr, "Bad destructor call.\n");
461 'a' { $$ = MAGIC_VALUE; }
462 | 'a' { $$ = MAGIC_VALUE; }
470 static char const *input = "a";
475 yyerror (char const *msg)
477 fprintf (stderr, "%s\n", msg);
483 return yyparse () != 1;
487 AT_CHECK([[bison -o glr-regr5.c glr-regr5.y]], 0, [],
488 [glr-regr5.y: conflicts: 1 reduce/reduce
490 AT_COMPILE([glr-regr5])
492 AT_CHECK([[./glr-regr5]], 0, [],
499 ## ------------------------------------------------------------------------- ##
500 ## User destructor after an error during a split parse ##
501 ## Thanks to Joel E. Denny for this test; see ##
502 ## <http://lists.gnu.org/archive/html/bison-patches/2005-08/msg00029.html>. ##
503 ## ------------------------------------------------------------------------- ##
505 AT_SETUP([User destructor after an error during a split parse])
507 AT_DATA_GRAMMAR([glr-regr6.y],
512 static void yyerror (char const *);
513 static int yylex (void);
517 %union { int value; }
521 printf ("Destructor called.\n");
533 static char const *input = "a";
538 yyerror (char const *msg)
540 fprintf (stderr, "%s\n", msg);
546 return yyparse () != 1;
550 AT_CHECK([[bison -o glr-regr6.c glr-regr6.y]], 0, [],
551 [glr-regr6.y: conflicts: 1 reduce/reduce
553 AT_COMPILE([glr-regr6])
555 AT_CHECK([[./glr-regr6]], 0,
564 ## ------------------------------------------------------------------------- ##
565 ## Duplicated user destructor for lookahead ##
566 ## Thanks to Joel E. Denny for this test; see ##
567 ## <http://lists.gnu.org/archive/html/bison-patches/2005-08/msg00035.html>. ##
568 ## ------------------------------------------------------------------------- ##
570 AT_SETUP([Duplicated user destructor for lookahead])
572 AT_DATA_GRAMMAR([glr-regr7.y],
577 static void yyerror (char const *);
578 static int yylex (void);
579 #define YYSTACKEXPANDABLE 0
583 %union { int *count; }
588 fprintf (stderr, "Destructor called on same value twice.\n");
606 yylval.count = (int *) malloc (sizeof (int));
609 fprintf (stderr, "Test inconclusive.\n");
617 yyerror (char const *msg)
619 fprintf (stderr, "%s\n", msg);
629 AT_CHECK([[bison -o glr-regr7.c glr-regr7.y]], 0, [],
630 [glr-regr7.y: conflicts: 2 reduce/reduce
632 AT_COMPILE([glr-regr7])
634 AT_CHECK([[./glr-regr7]], 2, [],
641 ## ------------------------------------------------------------------------- ##
642 ## Incorrect default location for empty right-hand sides. Adapted from bug ##
643 ## report by Claudia Hermann. ##
644 ## See http://lists.gnu.org/archive/html/bug-bison/2005-10/msg00069.html and ##
645 ## http://lists.gnu.org/archive/html/bug-bison/2005-10/msg00072.html ##
646 ## ------------------------------------------------------------------------- ##
648 AT_SETUP([Incorrectly initialized location for empty right-hand side in GLR])
650 AT_DATA_GRAMMAR([glr-regr8.y],
655 static void yyerror (char const *);
656 static int yylex (void);
657 static void yyerror(const char *msg);
669 PortClause : T_PORT InterfaceDeclaration T_PORT
670 { printf("%d/%d - %d/%d - %d/%d\n",
671 @1.first_column, @1.last_column,
672 @2.first_column, @2.last_column,
673 @3.first_column, @3.last_column); }
676 InterfaceDeclaration : OptConstantWord %dprec 1
677 | OptSignalWord %dprec 2
680 OptConstantWord : /* empty */
684 OptSignalWord : /* empty */
685 { printf("empty: %d/%d\n", @$.first_column, @$.last_column); }
691 void yyerror(const char *msg)
693 fprintf (stderr, "error\n");
704 yylloc.first_column = 1;
705 yylloc.last_column = 9;
708 yylloc.first_column = 13;
709 yylloc.last_column = 17;
724 AT_CHECK([[bison -o glr-regr8.c glr-regr8.y]], 0, [],
725 [glr-regr8.y: conflicts: 1 reduce/reduce
727 AT_COMPILE([glr-regr8])
729 AT_CHECK([[./glr-regr8]], 0,
738 ## ------------------------------------------------------------------------- ##
739 ## No users destructors if stack 0 deleted ##
740 ## Thanks to Joel E. Denny for this test; see ##
741 ## <http://lists.gnu.org/archive/html/bison-patches/2005-09/msg00109.html>. ##
742 ## ------------------------------------------------------------------------- ##
744 AT_SETUP([No users destructors if stack 0 deleted])
746 AT_DATA_GRAMMAR([glr-regr9.y],
751 static void yyerror (char const *);
752 static int yylex (void);
753 # define YYSTACKEXPANDABLE 0
754 static int tokens = 0;
755 static int destructors = 0;
760 %union { int dummy; }
770 ambig0 'a' { destructors += 2; USE ($2); }
771 | ambig1 start { destructors += 1; }
772 | ambig2 start { destructors += 1; }
789 yyerror (char const *msg)
791 fprintf (stderr, "%s\n", msg);
798 exit_status = yyparse ();
799 if (tokens != destructors)
801 fprintf (stderr, "Tokens = %d, Destructors = %d\n", tokens, destructors);
808 AT_CHECK([[bison -o glr-regr9.c glr-regr9.y]], 0, [],
809 [glr-regr9.y: conflicts: 1 reduce/reduce
811 AT_COMPILE([glr-regr9])
813 AT_CHECK([[./glr-regr9]], 0, [],