[bison.git] / tests / named-refs.at

# Named references test.                           -*- Autotest -*-

# Copyright (C) 2009-2012 Free Software Foundation, Inc.

# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

# FIXME: Duplication with calc.at.
AT_BANNER([[Named references tests.]])

AT_SETUP([Tutorial calculator])
AT_BISON_OPTION_PUSHDEFS
AT_DATA_GRAMMAR([test.y],
[[
%{
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
typedef int semantic_value;
FILE *input;
static semantic_value global_result = 0;
static int global_count = 0;
static int power (int base, int exponent);
]AT_YYERROR_DECLARE[
]AT_YYLEX_DECLARE[
%}

%union
{
  semantic_value ival;
};

%token CALC_EOF 0 "end of input"
%token <ival> NUM "number"
%type  <ival> exp

%nonassoc '='   /* comparison	       */
%left '-' '+'
%left '*' '/'
%left NEG /* negation--unary minus */
%right '^'      /* exponentiation        */

%%
input:
  line
| input line         {  }
;

line:
  '\n'
| exp '\n'           {  }
;

exp:
  NUM                { $$ = $NUM; }
| exp[l] '=' exp[r]
  {
    if ($l != $r)
      fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
   $$ = $l;
  }
| exp[x] '+' { $<ival>$ = $x; } [l] exp[r]  { $$ = $<ival>l + $r;    }
| exp[l] '-' exp[r]        { $$ = $l - $r;        }
| exp[l] '*' exp[r]        { $$ = $l * $r;        }
| exp[l] '/' exp[r]  { $$ = $l / $r;        }
| '-' exp  %prec NEG { $$ = -$2;            }
| exp[l] '^' exp[r]        { $$ = power ($l, $r); }
| '(' exp[e] ')'        { $$ = $e;           }
| '(' error ')'      { $$ = 1111; yyerrok;  }
| '!'                { $$ = 0; YYERROR;     }
| '-' error          { $$ = 0; YYERROR;     }
;
%%
]AT_YYERROR_DEFINE[
static int get_char (void)
{
  int res = getc (input);
  return res;
}

static void unget_char (int c)
{
  ungetc (c, input);
}

static int read_signed_integer (void)
{
  int c = get_char ();
  int sign = 1;
  int n = 0;
  if (c == '-')
    {
      c = get_char ();
      sign = -1;
    }
  while (isdigit (c))
    {
      n = 10 * n + (c - '0');
      c = get_char ();
    }
  unget_char ( c);
  return sign * n;
}

static int
yylex (void)
{
  int c;
  /* Skip white space.  */
  while ((c = get_char ()) == ' ' || c == '\t') {}

  /* process numbers   */
  if (c == '.' || isdigit (c))
    {
      unget_char ( c);
      (yylval).ival = read_signed_integer ();
      return NUM;
    }

  /* Return end-of-file.  */
  if (c == EOF)
    return CALC_EOF;

  /* Return single chars. */
  return c;
}

static int power (int base, int exponent)
{
  int res = 1;
  assert (0 <= exponent);
  for (/* Niente */; exponent; --exponent)
    res *= base;
  return res;
}

int main (int argc, const char **argv)
{
  semantic_value result = 0;
  int count = 0;
  int status;
  if (argc == 2)
    input = fopen (argv[1], "r");
  else
    input = stdin;
  if (!input)
    {
      perror (argv[1]);
      return 3;
    }
  status = yyparse ();
  fclose (input);
  assert (global_result == result);
  assert (global_count == count);
  return status;
}
]])

AT_DATA([input.txt],
[[
1 + 2 * 3 = 7
1 + 2 * -3 = -5
-1^2 = -1
(-1)^2 = 1
---1 = -1
1 - 2 - 3 = -4
1 - (2 - 3) = 2
2^2^3 = 256
(2^2)^3 = 64
]])

AT_BISON_CHECK([-o test.c test.y])
AT_COMPILE([[test]])
AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
AT_BISON_OPTION_POPDEFS
AT_CLEANUP


#######################################################################


AT_SETUP([Undefined and ambiguous references])
AT_BISON_OPTION_PUSHDEFS
AT_DATA_GRAMMAR([test.y],
[[
%{
static int power (int base, int exponent);
]AT_YYERROR_DECLARE[
]AT_YYLEX_DECLARE[
%}

%union
{
  int ival;
};

%token CALC_EOF 0 "end of input"
%token <ival> NUM "number"
%type  <ival> exp

%nonassoc '='   /* comparison	       */
%left '-' '+'
%left '*' '/'
%left NEG /* negation--unary minus */
%right '^'      /* exponentiation        */

%%
input:
  line
| input line         {  }
;

line:
  '\n'
| exp '\n'           {  }
;

exp:
  NUM { $$ = $NUM; }
| exp[l] '=' exp[r]
  {
    if ($l != $r)
      fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
   $$ = $l;
  }
| exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
| exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
| exp[x] '*' { $<ival>$ = $x; } [l] exp[r] { $$ = $l * $r; }
| exp[l] '/' exp[r]  { $$ = $l / $r;        }
| '-' exp  %prec NEG { $$ = -$2;            }
| exp[l] '^' exp[r]        { $$ = power ($l, $r12); }
| '(' exp ')'        { $$ = $expo;           }
| '(' error ')'      { $$ = 1111; yyerrok;  }
| '!'                { $$ = 0; YYERROR;     }
| '-' error          { $$ = 0; YYERROR;     }
;
%%
]])

AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:50.51-60: invalid reference: '$<ival>lo9'
test.y:50.3-68:      symbol not found in production: lo9
test.y:51.51-60: warning: misleading reference: '$<ival>exp'
test.y:42.1-3:       warning: refers to: $exp at $$
test.y:51.7:         warning: possibly meant: $x, hiding $exp at $1
test.y:51.41:        warning: possibly meant: $r, hiding $exp at $4
test.y:52.51-52: $l of 'exp' has no declared type
test.y:55.46-49: invalid reference: '$r12'
test.y:55.3-53:      symbol not found in production: r12
test.y:56.29-33: invalid reference: '$expo'
test.y:56.3-46:      symbol not found in production: expo
]])
AT_BISON_OPTION_POPDEFS
AT_CLEANUP

#######################################################################

AT_SETUP([Misleading references])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo foo.bar { $foo.bar; }
foo: '1'
foo.bar: '2'
]])
AT_BISON_CHECK([-o test.c test.y], 0, [],
[[test.y:11.22-29: warning: misleading reference: '$foo.bar'
test.y:11.8-10:      warning: refers to: $foo at $1
test.y:11.12-18:     warning: possibly meant: $[foo.bar] at $2
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Many kinds of errors])
AT_DATA_GRAMMAR([test.y],
[[
%token IDENT
%token NUMBER
%token ASSIGNOP
%token IF
%token IF1
%token THEN
%token ELSE
%token FI
%token WHILE
%token DO
%token OD
%start program
%%
if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
          { $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
if_stmt2: IF expr[cond] THEN stmt[then] FI
          { $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
if_stmt3: IF expr[cond] THEN stmt.list FI
          { $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
          { $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
          { $if_stmt8 = new IfStmt($cond, $then.1, $else); };
if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
          { $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
          { $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
          { $if-stmt-a = new IfStmt($cond, $then, $else); };
if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
          { $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
program: stmt.list;
stmt.list:  stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
        |   stmt ';' { SL = new StmtList();  SL->insert($1); $$ = SL; }
        ;
stmt:  assign_stmt { $$ = $1; }
    |  if_stmt { $$ = $1; }
    |  if_stmt1 { $$ = $1; }
    |  while_stmt { $$ = $1; }
    ;
assign_stmt: IDENT ASSIGNOP expr
       { $$ = new AssignStmt(string($1),$3); };
if_stmt: IF expr[cond] THEN stmt.list FI
       { $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
while_stmt[res]: WHILE expr DO stmt.list OD
       { $res = new WhileStmt($[expr], $[stmt.list]); };
expr: expr '+' term   { $$ = new Plus($1,$3); }
    | expr '-' term   { $$ = new Minus($1,$3); }
    | term            { $$ = $1; }
    ;
term: term '*' factor   { $$ = new Times($1,$3); }
    | factor            { $$ = $1; }
    ;
factor:     '(' expr ')'  { $$ = $2; }
    |       NUMBER { $$ = new Number($1); }
    |       IDENT { $$ = new Ident(string($1)); }
    ;
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:24.36-41: invalid reference: '$cond1'
test.y:23.11-24.62:  symbol not found in production: cond1
test.y:26.43-53: invalid reference: '$stmt.field'
test.y:25.11-26.60:  symbol not found in production: stmt
test.y:25.35-38:     possibly meant: $then.field, hiding $stmt.field at $4
test.y:28.43-52: invalid reference: '$stmt.list'
test.y:27.11-28.59:  symbol not found in production: stmt
test.y:27.30-38:     possibly meant: $[stmt.list] at $4
test.y:30.43-46: ambiguous reference: '$xyz'
test.y:29.35-37:     refers to: $xyz at $4
test.y:29.50-52:     refers to: $xyz at $6
test.y:32.43-52: invalid reference: '$stmt.list'
test.y:31.11-32.63:  symbol not found in production: stmt
test.y:31.40-43:     possibly meant: $then, hiding $[stmt.list] at $4
test.y:31.61-64:     possibly meant: $else, hiding $[stmt.list] at $6
test.y:34.43-58: invalid reference: '$stmt.list.field'
test.y:33.11-34.69:  symbol not found in production: stmt
test.y:33.40-43:     possibly meant: $then.field, hiding $[stmt.list].field at $4
test.y:33.61-64:     possibly meant: $else.field, hiding $[stmt.list].field at $6
test.y:36.43-54: invalid reference: '$[stmt.list]'
test.y:35.11-36.71:  symbol not found in production: stmt.list
test.y:35.40-43:     possibly meant: $then, hiding $[stmt.list] at $4
test.y:35.61-64:     possibly meant: $else, hiding $[stmt.list] at $6
test.y:38.43-49: invalid reference: '$then.1'
test.y:37.11-38.60:  symbol not found in production: then
test.y:37.40-45:     possibly meant: $[then.1] at $4
test.y:40.43-55: invalid reference: '$then.1.field'
test.y:39.11-40.66:  symbol not found in production: then
test.y:39.40-45:     possibly meant: $[then.1].field at $4
test.y:42.44-50: invalid reference: '$stmt.x'
test.y:41.12-42.57:  symbol not found in production: stmt
test.y:41.36-41:     possibly meant: $[stmt.x].x, hiding $stmt.x at $4
test.y:41.36-41:     possibly meant: $[stmt.x] at $4
test.y:44.13-22: invalid reference: '$if-stmt-a'
test.y:43.12-44.59:  symbol not found in production: if
test.y:43.1-9:       possibly meant: $[if-stmt-a] at $$
test.y:46.46-54: invalid reference: '$then-a.f'
test.y:45.12-46.65:  symbol not found in production: then
test.y:45.41-46:     possibly meant: $[then-a].f at $4
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Missing identifiers in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.12: an identifier expected
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Redundant words in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[ a d ] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.15: unexpected identifier in bracketed name: 'd'
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Comments in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[/* comment */] bar
  { s = $foo; }
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.25: an identifier expected
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Stray symbols in brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start: foo[ /* aaa */ *&-.+\000\001\002\377 ] bar
  { s = $foo; }
]])
AT_CHECK([[$PERL -pi -e 's/\\(\d{3})/chr(oct($1))/ge' test.y || exit 77]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.23: invalid character in bracketed name: '*'
test.y:11.24: invalid character in bracketed name: '&'
test.y:11.25: invalid character in bracketed name: '-'
test.y:11.27: invalid character in bracketed name: '+'
test.y:11.28: invalid character in bracketed name: '\0'
test.y:11.28: invalid character in bracketed name: '\001'
test.y:11.28: invalid character in bracketed name: '\002'
test.y:11.28: invalid character in bracketed name: '\377'
]])
AT_CLEANUP

#######################################################################

AT_SETUP([Redundant words in LHS brackets])
AT_DATA_GRAMMAR([test.y],
[[
%%
start[a s]: foo;
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:11.9: unexpected identifier in bracketed name: 's'
]])
AT_CLEANUP

#######################################################################

# Bison used to free twice the named ref for "a", since a single copy
# was used in two rules.
AT_SETUP([Factored LHS])
AT_DATA_GRAMMAR([test.y],
[[
%%
start[a]: "foo" | "bar";
]])
AT_BISON_CHECK([-o test.c test.y])
AT_CLEANUP

#######################################################################

AT_SETUP([Unresolved references])
AT_DATA_GRAMMAR([test.y],
[[
%%
stat:
  sym_a sym_b { func($sym.field); }
| sym_a sym_b { func($<aa>sym.field); }
| sym_a sym_b { func($[sym.field]); }
| sym_a sym_b { func($<aa>[sym.field]); }
| sym_a sym_b { func($sym); }
| sym_a sym_b { func($<aa>sym); }
| sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
;

stat1:
  sym_a sym_b { func($sym-field); }
| sym_a sym_b { func($<aa>sym-field); }
| sym_a sym_b { func($[sym-field]); }
| sym_a sym_b { func($<aa>[sym-field]); }
| sym_a sym_b { func($sym); }
| sym_a sym_b { func($<aa>sym); }
| sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
;

sym_a: 'a';
sym_b: 'b';
]])
AT_BISON_CHECK([-o test.c test.y], 1, [],
[[test.y:12.22-31: invalid reference: '$sym.field'
test.y:12.3-35:      symbol not found in production: sym
test.y:13.22-35: invalid reference: '$<aa>sym.field'
test.y:13.3-39:      symbol not found in production: sym
test.y:14.22-33: invalid reference: '$[sym.field]'
test.y:14.3-37:      symbol not found in production: sym.field
test.y:15.22-37: invalid reference: '$<aa>[sym.field]'
test.y:15.3-41:      symbol not found in production: sym.field
test.y:16.22-25: invalid reference: '$sym'
test.y:16.3-29:      symbol not found in production: sym
test.y:17.22-29: invalid reference: '$<aa>sym'
test.y:17.3-33:      symbol not found in production: sym
test.y:18.22-27: invalid reference: '$[sym]'
test.y:18.3-65:      symbol not found in production before $3: sym
test.y:18.52-61: invalid reference: '$<aa>[sym]'
test.y:18.3-65:      symbol not found in production: sym
test.y:22.22-31: invalid reference: '$sym-field'
test.y:22.3-35:      symbol not found in production: sym
test.y:23.22-35: invalid reference: '$<aa>sym-field'
test.y:23.3-39:      symbol not found in production: sym
test.y:24.22-33: invalid reference: '$[sym-field]'
test.y:24.3-37:      symbol not found in production: sym-field
test.y:25.22-37: invalid reference: '$<aa>[sym-field]'
test.y:25.3-41:      symbol not found in production: sym-field
test.y:26.22-25: invalid reference: '$sym'
test.y:26.3-29:      symbol not found in production: sym
test.y:27.22-29: invalid reference: '$<aa>sym'
test.y:27.3-33:      symbol not found in production: sym
test.y:28.22-27: invalid reference: '$[sym]'
test.y:28.3-65:      symbol not found in production before $3: sym
test.y:28.52-61: invalid reference: '$<aa>[sym]'
test.y:28.3-65:      symbol not found in production: sym
]])
AT_CLEANUP

#######################################################################

AT_SETUP([[$ or @ followed by . or -]])
AT_DATA([[test.y]],
[[
%%
start:
  .field { $.field; }
| 'a'    { @.field; }
;
.field: ;
]])
AT_BISON_CHECK([[test.y]], [[1]], [],
[[test.y:4.12-18: invalid reference: '$.field'
test.y:4.13:        syntax error after '$', expecting integer, letter, '_', '@<:@', or '$'
test.y:4.3-8:       possibly meant: $[.field] at $1
test.y:5.12-18: invalid reference: '@.field'
test.y:5.13:        syntax error after '@', expecting integer, letter, '_', '@<:@', or '$'
]])
AT_DATA([[test.y]],
[[
%%
start:
  'a' { $-field; }
| 'b' { @-field; }
;
]])
AT_BISON_CHECK([[test.y]], [[0]], [],
[[test.y:4.9: warning: stray '$'
test.y:5.9: warning: stray '@'
]])
AT_CLEANUP
Commit	Line	Data
7685e2f7 AR	1	# Named references test. -- Autotest --
7685e2f7 AR	2
c932d613	3	# Copyright (C) 2009-2012 Free Software Foundation, Inc.
7685e2f7 AR	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
dd561157	18	# FIXME: Duplication with calc.at.
7685e2f7 AR	19	AT_BANNER([[Named references tests.]])
	20
	21	AT_SETUP([Tutorial calculator])
55f48c48	22	AT_BISON_OPTION_PUSHDEFS
7685e2f7 AR	23	AT_DATA_GRAMMAR([test.y],
	24	[[
	25	%{
da209f94	26	#include <assert.h>
7685e2f7 AR	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);
55f48c48 AD	36	]AT_YYERROR_DECLARE[
55f48c48 AD	37	]AT_YYLEX_DECLARE[
7685e2f7 AR	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	%left 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	%%
55f48c48	86	]AT_YYERROR_DEFINE[
7685e2f7 AR	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
55f48c48 AD	117	static int
55f48c48 AD	118	yylex (void)
7685e2f7 AR	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;
dd561157	143	assert (0 <= exponent);
7685e2f7 AR	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);
77519a7d AD	165	assert (global_result == result);
77519a7d AD	166	assert (global_count == count);
7685e2f7 AR	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_BISON_CHECK([-o test.c test.y])
	185	AT_COMPILE([[test]])
	186	AT_PARSER_CHECK([./test input.txt], 0, [], [stderr])
55f48c48	187	AT_BISON_OPTION_POPDEFS
7685e2f7 AR	188	AT_CLEANUP
	189
	190
	191
	192	#######################################################################
	193
	194
	195	AT_SETUP([Undefined and ambiguous references])
55f48c48	196	AT_BISON_OPTION_PUSHDEFS
7685e2f7 AR	197	AT_DATA_GRAMMAR([test.y],
	198	[[
	199	%{
	200	static int power (int base, int exponent);
55f48c48 AD	201	]AT_YYERROR_DECLARE[
55f48c48 AD	202	]AT_YYLEX_DECLARE[
7685e2f7 AR	203	%}
	204
	205	%union
	206	{
	207	int ival;
	208	};
	209
	210	%token CALC_EOF 0 "end of input"
	211	%token <ival> NUM "number"
	212	%type <ival> exp
	213
	214	%nonassoc '=' /* comparison */
	215	%left '-' '+'
	216	%left '*' '/'
	217	%left NEG /* negation--unary minus */
	218	%right '^' /* exponentiation */
	219
	220	%%
	221	input:
	222	line
	223	\| input line { }
	224	;
	225
	226	line:
	227	'\n'
	228	\| exp '\n' { }
	229	;
	230
	231	exp:
	232	NUM { $$ = $NUM; }
	233	\| exp[l] '=' exp[r]
	234	{
	235	if ($l != $r)
	236	fprintf (stderr, "calc: error: %d != %d\n", $l, $r);
	237	$$ = $l;
	238	}
	239	\| exp[x] '+' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>lo9 + $r; }
	240	\| exp[x] '-' { $<ival>$ = $x; } [l] exp[r] { $$ = $<ival>exp - $r; }
	241	\| exp[x] '' { $<ival>$ = $x; } [l] exp[r] { $$ = $l $r; }
	242	\| exp[l] '/' exp[r] { $$ = $l / $r; }
	243	\| '-' exp %prec NEG { $$ = -$2; }
	244	\| exp[l] '^' exp[r] { $$ = power ($l, $r12); }
	245	\| '(' exp ')' { $$ = $expo; }
	246	\| '(' error ')' { $$ = 1111; yyerrok; }
	247	\| '!' { $$ = 0; YYERROR; }
	248	\| '-' error { $$ = 0; YYERROR; }
	249	;
	250	%%
	251	]])
	252
	253	AT_BISON_CHECK([-o test.c test.y], 1, [],
9874f80b	254	[[test.y:50.51-60: invalid reference: '$<ival>lo9'
348f5608	255	test.y:50.3-68: symbol not found in production: lo9
9874f80b	256	test.y:51.51-60: warning: misleading reference: '$<ival>exp'
348f5608 AR	257	test.y:42.1-3: warning: refers to: $exp at $$
	258	test.y:51.7: warning: possibly meant: $x, hiding $exp at $1
	259	test.y:51.41: warning: possibly meant: $r, hiding $exp at $4
9874f80b JM	260	test.y:52.51-52: $l of 'exp' has no declared type
9874f80b JM	261	test.y:55.46-49: invalid reference: '$r12'
348f5608	262	test.y:55.3-53: symbol not found in production: r12
9874f80b	263	test.y:56.29-33: invalid reference: '$expo'
348f5608	264	test.y:56.3-46: symbol not found in production: expo
7685e2f7	265	]])
55f48c48	266	AT_BISON_OPTION_POPDEFS
7685e2f7 AR	267	AT_CLEANUP
	268
	269	#######################################################################
	270
	271	AT_SETUP([Misleading references])
	272	AT_DATA_GRAMMAR([test.y],
	273	[[
	274	%%
	275	start: foo foo.bar { $foo.bar; }
	276	foo: '1'
	277	foo.bar: '2'
	278	]])
1a323c2f	279	AT_BISON_CHECK([-o test.c test.y], 0, [],
9874f80b	280	[[test.y:11.22-29: warning: misleading reference: '$foo.bar'
348f5608 AR	281	test.y:11.8-10: warning: refers to: $foo at $1
348f5608 AR	282	test.y:11.12-18: warning: possibly meant: $[foo.bar] at $2
7685e2f7 AR	283	]])
	284	AT_CLEANUP
	285
	286	#######################################################################
	287
	288	AT_SETUP([Many kinds of errors])
	289	AT_DATA_GRAMMAR([test.y],
	290	[[
	291	%token IDENT
	292	%token NUMBER
	293	%token ASSIGNOP
	294	%token IF
	295	%token IF1
	296	%token THEN
	297	%token ELSE
	298	%token FI
	299	%token WHILE
	300	%token DO
	301	%token OD
	302	%start program
	303	%%
	304	if_stmt1: IF expr[cond] THEN stmt[then] ELSE stmt.list[else] FI
	305	{ $if_stmt1 = new IfStmt($cond1, $then.f1, $else); };
	306	if_stmt2: IF expr[cond] THEN stmt[then] FI
	307	{ $if_stmt2 = new IfStmt($cond, $stmt.field, 0); };
	308	if_stmt3: IF expr[cond] THEN stmt.list FI
	309	{ $if_stmt3 = new IfStmt($cond, $stmt.list, 0); };
	310	if_stmt4: IF expr[cond] THEN stmt[xyz] ELSE stmt[xyz] FI
	311	{ $if_stmt4 = new IfStmt($cond, $xyz, $cond); };
	312	if_stmt5: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	313	{ $if_stmt5 = new IfStmt($cond, $stmt.list, $else); };
	314	if_stmt6: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	315	{ $if_stmt6 = new IfStmt($cond, $stmt.list.field, $else); };
	316	if_stmt7: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	317	{ $if_stmt7 = new IfStmt($cond, $[stmt.list].field, $else); };
	318	if_stmt8: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
	319	{ $if_stmt8 = new IfStmt($cond, $then.1, $else); };
	320	if_stmt9: IF expr[cond] THEN stmt.list[then.1] ELSE stmt.list[else] FI
	321	{ $if_stmt9 = new IfStmt($cond, $then.1.field, $else); };
	322	if_stmt10: IF expr[cond] THEN stmt[stmt.x] FI
	323	{ $if_stmt10 = new IfStmt($cond, $stmt.x, 0); };
	324	if-stmt-a: IF expr[cond] THEN stmt.list[then] ELSE stmt.list[else] FI
	325	{ $if-stmt-a = new IfStmt($cond, $then, $else); };
	326	if-stmt-b: IF expr[cond] THEN if-stmt-a[then-a] ELSE stmt.list[else] FI
	327	{ $[if-stmt-b] = new IfStmt($cond, $then-a.f, $else); };
	328	program: stmt.list;
	329	stmt.list: stmt ';' stmt.list { $3->insert($stmt); $$ = $3; }
	330	\| stmt ';' { SL = new StmtList(); SL->insert($1); $$ = SL; }
	331	;
	332	stmt: assign_stmt { $$ = $1; }
	333	\| if_stmt { $$ = $1; }
	334	\| if_stmt1 { $$ = $1; }
	335	\| while_stmt { $$ = $1; }
	336	;
	337	assign_stmt: IDENT ASSIGNOP expr
	338	{ $$ = new AssignStmt(string($1),$3); };
	339	if_stmt: IF expr[cond] THEN stmt.list FI
	340	{ $if_stmt = new IfStmt($cond, $[stmt.list], 0); };
	341	while_stmt[res]: WHILE expr DO stmt.list OD
	342	{ $res = new WhileStmt($[expr], $[stmt.list]); };
	343	expr: expr '+' term { $$ = new Plus($1,$3); }
	344	\| expr '-' term { $$ = new Minus($1,$3); }
	345	\| term { $$ = $1; }
	346	;
347	term: term '*' factor { $$ = new Times($1,$3); }
348	\| factor { $$ = $1; }
349	;
350	factor: '(' expr ')' { $$ = $2; }
351	\| NUMBER { $$ = new Number($1); }
352	\| IDENT { $$ = new Ident(string($1)); }
353	;
354	]])
355	AT_BISON_CHECK([-o test.c test.y], 1, [],
9874f80b	356	[[test.y:24.36-41: invalid reference: '$cond1'
348f5608	357	test.y:23.11-24.62: symbol not found in production: cond1
9874f80b	358	test.y:26.43-53: invalid reference: '$stmt.field'
348f5608 AR	359	test.y:25.11-26.60: symbol not found in production: stmt
348f5608 AR	360	test.y:25.35-38: possibly meant: $then.field, hiding $stmt.field at $4
9874f80b	361	test.y:28.43-52: invalid reference: '$stmt.list'
348f5608 AR	362	test.y:27.11-28.59: symbol not found in production: stmt
348f5608 AR	363	test.y:27.30-38: possibly meant: $[stmt.list] at $4
9874f80b	364	test.y:30.43-46: ambiguous reference: '$xyz'
348f5608 AR	365	test.y:29.35-37: refers to: $xyz at $4
348f5608 AR	366	test.y:29.50-52: refers to: $xyz at $6
9874f80b	367	test.y:32.43-52: invalid reference: '$stmt.list'
348f5608 AR	368	test.y:31.11-32.63: symbol not found in production: stmt
	369	test.y:31.40-43: possibly meant: $then, hiding $[stmt.list] at $4
	370	test.y:31.61-64: possibly meant: $else, hiding $[stmt.list] at $6
9874f80b	371	test.y:34.43-58: invalid reference: '$stmt.list.field'
348f5608 AR	372	test.y:33.11-34.69: symbol not found in production: stmt
	373	test.y:33.40-43: possibly meant: $then.field, hiding $[stmt.list].field at $4
	374	test.y:33.61-64: possibly meant: $else.field, hiding $[stmt.list].field at $6
9874f80b	375	test.y:36.43-54: invalid reference: '$[stmt.list]'
348f5608 AR	376	test.y:35.11-36.71: symbol not found in production: stmt.list
	377	test.y:35.40-43: possibly meant: $then, hiding $[stmt.list] at $4
	378	test.y:35.61-64: possibly meant: $else, hiding $[stmt.list] at $6
9874f80b	379	test.y:38.43-49: invalid reference: '$then.1'
348f5608 AR	380	test.y:37.11-38.60: symbol not found in production: then
348f5608 AR	381	test.y:37.40-45: possibly meant: $[then.1] at $4
9874f80b	382	test.y:40.43-55: invalid reference: '$then.1.field'
348f5608 AR	383	test.y:39.11-40.66: symbol not found in production: then
348f5608 AR	384	test.y:39.40-45: possibly meant: $[then.1].field at $4
9874f80b	385	test.y:42.44-50: invalid reference: '$stmt.x'
348f5608 AR	386	test.y:41.12-42.57: symbol not found in production: stmt
	387	test.y:41.36-41: possibly meant: $[stmt.x].x, hiding $stmt.x at $4
	388	test.y:41.36-41: possibly meant: $[stmt.x] at $4
9874f80b	389	test.y:44.13-22: invalid reference: '$if-stmt-a'
348f5608 AR	390	test.y:43.12-44.59: symbol not found in production: if
348f5608 AR	391	test.y:43.1-9: possibly meant: $[if-stmt-a] at $$
9874f80b	392	test.y:46.46-54: invalid reference: '$then-a.f'
348f5608 AR	393	test.y:45.12-46.65: symbol not found in production: then
348f5608 AR	394	test.y:45.41-46: possibly meant: $[then-a].f at $4
7685e2f7 AR	395	]])
	396	AT_CLEANUP
	397
	398	#######################################################################
	399
	400	AT_SETUP([Missing identifiers in brackets])
	401	AT_DATA_GRAMMAR([test.y],
	402	[[
	403	%%
	404	start: foo[] bar
	405	{ s = $foo; }
	406	]])
	407	AT_BISON_CHECK([-o test.c test.y], 1, [],
d5e8574b	408	[[test.y:11.12: an identifier expected
7685e2f7 AR	409	]])
	410	AT_CLEANUP
	411
	412	#######################################################################
	413
	414	AT_SETUP([Redundant words in brackets])
	415	AT_DATA_GRAMMAR([test.y],
	416	[[
	417	%%
	418	start: foo[ a d ] bar
	419	{ s = $foo; }
	420	]])
	421	AT_BISON_CHECK([-o test.c test.y], 1, [],
9874f80b	422	[[test.y:11.15: unexpected identifier in bracketed name: 'd'
7685e2f7 AR	423	]])
	424	AT_CLEANUP
	425
	426	#######################################################################
	427
	428	AT_SETUP([Comments in brackets])
	429	AT_DATA_GRAMMAR([test.y],
	430	[[
	431	%%
	432	start: foo[/* comment */] bar
	433	{ s = $foo; }
	434	]])
	435	AT_BISON_CHECK([-o test.c test.y], 1, [],
d5e8574b	436	[[test.y:11.25: an identifier expected
7685e2f7 AR	437	]])
	438	AT_CLEANUP
	439
	440	#######################################################################
	441
	442	AT_SETUP([Stray symbols in brackets])
	443	AT_DATA_GRAMMAR([test.y],
	444	[[
	445	%%
95066e92	446	start: foo[ /* aaa / &-.+\000\001\002\377 ] bar
7685e2f7 AR	447	{ s = $foo; }
7685e2f7 AR	448	]])
95066e92	449	AT_CHECK([[$PERL -pi -e 's/\\(\d{3})/chr(oct($1))/ge' test.y \|\| exit 77]])
7685e2f7	450	AT_BISON_CHECK([-o test.c test.y], 1, [],
9874f80b JM	451	[[test.y:11.23: invalid character in bracketed name: '*'
	452	test.y:11.24: invalid character in bracketed name: '&'
	453	test.y:11.25: invalid character in bracketed name: '-'
	454	test.y:11.27: invalid character in bracketed name: '+'
95066e92 AD	455	test.y:11.28: invalid character in bracketed name: '\0'
	456	test.y:11.28: invalid character in bracketed name: '\001'
	457	test.y:11.28: invalid character in bracketed name: '\002'
	458	test.y:11.28: invalid character in bracketed name: '\377'
7685e2f7 AR	459	]])
	460	AT_CLEANUP
	461
	462	#######################################################################
	463
	464	AT_SETUP([Redundant words in LHS brackets])
	465	AT_DATA_GRAMMAR([test.y],
	466	[[
	467	%%
686e83e3	468	start[a s]: foo;
7685e2f7 AR	469	]])
7685e2f7 AR	470	AT_BISON_CHECK([-o test.c test.y], 1, [],
9874f80b	471	[[test.y:11.9: unexpected identifier in bracketed name: 's'
7685e2f7 AR	472	]])
7685e2f7 AR	473	AT_CLEANUP
14e568d7 AR	474
	475	#######################################################################
	476
8f462efe AD	477	# Bison used to free twice the named ref for "a", since a single copy
	478	# was used in two rules.
	479	AT_SETUP([Factored LHS])
	480	AT_DATA_GRAMMAR([test.y],
	481	[[
	482	%%
	483	start[a]: "foo" \| "bar";
	484	]])
	485	AT_BISON_CHECK([-o test.c test.y])
	486	AT_CLEANUP
	487
	488	#######################################################################
	489
14e568d7 AR	490	AT_SETUP([Unresolved references])
	491	AT_DATA_GRAMMAR([test.y],
	492	[[
	493	%%
	494	stat:
686e83e3 AD	495	sym_a sym_b { func($sym.field); }
	496	\| sym_a sym_b { func($<aa>sym.field); }
	497	\| sym_a sym_b { func($[sym.field]); }
	498	\| sym_a sym_b { func($<aa>[sym.field]); }
	499	\| sym_a sym_b { func($sym); }
	500	\| sym_a sym_b { func($<aa>sym); }
	501	\| sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
14e568d7	502	;
686e83e3	503
14e568d7	504	stat1:
686e83e3 AD	505	sym_a sym_b { func($sym-field); }
	506	\| sym_a sym_b { func($<aa>sym-field); }
	507	\| sym_a sym_b { func($[sym-field]); }
	508	\| sym_a sym_b { func($<aa>[sym-field]); }
	509	\| sym_a sym_b { func($sym); }
	510	\| sym_a sym_b { func($<aa>sym); }
	511	\| sym_a sym_b { func($[sym]); } sym_a sym_b { func($<aa>[sym]); }
14e568d7	512	;
686e83e3 AD	513
	514	sym_a: 'a';
	515	sym_b: 'b';
14e568d7 AR	516	]])
14e568d7 AR	517	AT_BISON_CHECK([-o test.c test.y], 1, [],
9874f80b	518	[[test.y:12.22-31: invalid reference: '$sym.field'
686e83e3	519	test.y:12.3-35: symbol not found in production: sym
9874f80b	520	test.y:13.22-35: invalid reference: '$<aa>sym.field'
686e83e3	521	test.y:13.3-39: symbol not found in production: sym
9874f80b	522	test.y:14.22-33: invalid reference: '$[sym.field]'
686e83e3	523	test.y:14.3-37: symbol not found in production: sym.field
9874f80b	524	test.y:15.22-37: invalid reference: '$<aa>[sym.field]'
686e83e3	525	test.y:15.3-41: symbol not found in production: sym.field
9874f80b	526	test.y:16.22-25: invalid reference: '$sym'
686e83e3	527	test.y:16.3-29: symbol not found in production: sym
9874f80b	528	test.y:17.22-29: invalid reference: '$<aa>sym'
686e83e3	529	test.y:17.3-33: symbol not found in production: sym
9874f80b	530	test.y:18.22-27: invalid reference: '$[sym]'
686e83e3	531	test.y:18.3-65: symbol not found in production before $3: sym
9874f80b	532	test.y:18.52-61: invalid reference: '$<aa>[sym]'
686e83e3	533	test.y:18.3-65: symbol not found in production: sym
9874f80b	534	test.y:22.22-31: invalid reference: '$sym-field'
686e83e3	535	test.y:22.3-35: symbol not found in production: sym
9874f80b	536	test.y:23.22-35: invalid reference: '$<aa>sym-field'
686e83e3	537	test.y:23.3-39: symbol not found in production: sym
9874f80b	538	test.y:24.22-33: invalid reference: '$[sym-field]'
686e83e3	539	test.y:24.3-37: symbol not found in production: sym-field
9874f80b	540	test.y:25.22-37: invalid reference: '$<aa>[sym-field]'
686e83e3	541	test.y:25.3-41: symbol not found in production: sym-field
9874f80b	542	test.y:26.22-25: invalid reference: '$sym'
686e83e3	543	test.y:26.3-29: symbol not found in production: sym
9874f80b	544	test.y:27.22-29: invalid reference: '$<aa>sym'
686e83e3	545	test.y:27.3-33: symbol not found in production: sym
9874f80b	546	test.y:28.22-27: invalid reference: '$[sym]'
686e83e3	547	test.y:28.3-65: symbol not found in production before $3: sym
9874f80b	548	test.y:28.52-61: invalid reference: '$<aa>[sym]'
686e83e3	549	test.y:28.3-65: symbol not found in production: sym
14e568d7 AR	550	]])
14e568d7 AR	551	AT_CLEANUP
8cbbf178 JD	552
	553	#######################################################################
	554
	555	AT_SETUP([[$ or @ followed by . or -]])
	556	AT_DATA([[test.y]],
	557	[[
	558	%%
	559	start:
	560	.field { $.field; }
8cbbf178	561	\| 'a' { @.field; }
8cbbf178 JD	562	;
8cbbf178 JD	563	.field: ;
8cbbf178 JD	564	]])
8cbbf178 JD	565	AT_BISON_CHECK([[test.y]], [[1]], [],
9874f80b JM	566	[[test.y:4.12-18: invalid reference: '$.field'
9874f80b JM	567	test.y:4.13: syntax error after '$', expecting integer, letter, '_', '@<:@', or '$'
8cbbf178	568	test.y:4.3-8: possibly meant: $[.field] at $1
9874f80b JM	569	test.y:5.12-18: invalid reference: '@.field'
9874f80b JM	570	test.y:5.13: syntax error after '@', expecting integer, letter, '_', '@<:@', or '$'
eb8c66bb JD	571	]])
	572	AT_DATA([[test.y]],
	573	[[
	574	%%
	575	start:
	576	'a' { $-field; }
	577	\| 'b' { @-field; }
	578	;
	579	]])
	580	AT_BISON_CHECK([[test.y]], [[0]], [],
9874f80b JM	581	[[test.y:4.9: warning: stray '$'
9874f80b JM	582	test.y:5.9: warning: stray '@'
8cbbf178 JD	583	]])
8cbbf178 JD	584	AT_CLEANUP