X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/62b08cfcd72cfd74c22080733d0156122ab27a15..7a0db73e6faa349ef6dac9a8c5efe9f95fe4d994:/tests/calc.at diff --git a/tests/calc.at b/tests/calc.at index ca7cc95d..1e9756f0 100644 --- a/tests/calc.at +++ b/tests/calc.at @@ -1,6 +1,6 @@ # Simple calculator. -*- Autotest -*- -# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software +# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software # Foundation, Inc. # This program is free software; you can redistribute it and/or modify @@ -40,7 +40,7 @@ m4_define([_AT_DATA_CALC_Y], AT_DATA_GRAMMAR([calc.y], [[/* Infix notation calculator--calc */ ]$4 -AT_LALR1_CC_IF( +AT_SKEL_CC_IF( [%define "global_tokens_and_yystype"])[ %{ #include @@ -54,6 +54,7 @@ AT_LALR1_CC_IF( # define alarm(seconds) /* empty */ #endif #include +#define USE(Var) /* Exercise pre-prologue dependency to %union. */ typedef int semantic_value; @@ -70,8 +71,10 @@ static int global_count = 0; %{ static int power (int base, int exponent); -]AT_LALR1_CC_IF( -[typedef yy::location YYLTYPE; +]AT_SKEL_CC_IF( +[#ifndef YYLTYPE +# define YYLTYPE yy::location +#endif #define first_line begin.line #define first_column begin.column #define last_line end.line @@ -89,6 +92,17 @@ static int get_char (]AT_LEX_FORMALS[); static void unget_char (]AT_LEX_PRE_FORMALS[ int c); %} +]AT_SKEL_CC_IF( +[/* The lalr1.cc skeleton, for backward compatibility, defines + a constructor for position that initializes the filename. The + glr.cc skeleton does not (and in fact cannot: location/position + are stored in a union, from which objects with constructors are + excluded in C++. */ +%initial-action { + @$.begin.filename = @$.end.filename = 0; +} +])[ + /* Bison Declarations */ %token CALC_EOF 0 "end of input" %token NUM "number" @@ -109,7 +123,7 @@ input: line: '\n' -| exp '\n' { ]AT_PARAM_IF([*result = global_result = $1;])[ } +| exp '\n' { ]AT_PARAM_IF([*result = global_result = $1], [USE ($1)])[; } ; exp: @@ -128,15 +142,15 @@ exp: | exp '^' exp { $$ = power ($1, $3); } | '(' exp ')' { $$ = $2; } | '(' error ')' { $$ = 1111; } -| '!' { YYERROR; } -| '-' error { YYERROR; } +| '!' { $$ = 0; YYERROR; } +| '-' error { $$ = 0; YYERROR; } ; %% -/* The input. */ +/* The input. */ static FILE *input; -]AT_LALR1_CC_IF( -[/* A C++ error reporting function. */ +]AT_SKEL_CC_IF( +[/* A C++ error reporting function. */ void yy::parser::error (const location& l, const std::string& m) { @@ -318,7 +332,7 @@ main (int argc, const char **argv) return 3; } -]AT_LALR1_CC_IF([], [m4_bmatch([$4], [%debug], +]AT_SKEL_CC_IF([], [m4_bmatch([$4], [%debug], [ yydebug = 1;])])[ status = yyparse (]AT_PARAM_IF([&result, &count])[); if (global_result != result) @@ -340,12 +354,14 @@ m4_define([AT_DATA_CALC_Y], -# _AT_CHECK_CALC(BISON-OPTIONS, INPUT, [NUM-STDERR-LINES = 0]) -# ------------------------------------------------------------ +# _AT_CHECK_CALC(BISON-OPTIONS, INPUT, [NUM-STDERR-LINES]) +# -------------------------------------------------------- # Run `calc' on INPUT and expect no STDOUT nor STDERR. # # If BISON-OPTIONS contains `%debug' but not `%glr-parser', then +# # NUM-STDERR-LINES is the number of expected lines on stderr. +# Currently this is ignored, though, since the output format is fluctuating. # # We don't count GLR's traces yet, since its traces are somewhat # different from LALR's. @@ -354,17 +370,11 @@ m4_define([_AT_CHECK_CALC], [[$2 ]]) AT_PARSER_CHECK([./calc input], 0, [], [stderr]) -m4_bmatch([$1], - [%debug.*%glr\|%glr.*%debug], - [], - [%debug], - [AT_CHECK([wc -l