X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/da730230ce159265f4380daa456e3e3c5f9422f4..6617622c9aaa6ec3a9de5b0867421e2849b68b2f:/tests/local.at diff --git a/tests/local.at b/tests/local.at index ad0cf8e5..086ff757 100644 --- a/tests/local.at +++ b/tests/local.at @@ -1,7 +1,7 @@ # Process this -*- Autotest -*- file with autom4te. # Macros for the GNU Bison Test suite. -# Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +# Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 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 @@ -20,6 +20,22 @@ m4_version_prereq([2.58]) +## ------------- ## +## Basic tests. ## +## ------------- ## + +# AT_MATCHES_CHECK(FILE, PERL-REGEXP, COUNT) +# ------------------------------------------ +# Expect COUNT matches of the PERL-REGEXP in FILE. The file is +# taken in "slurp" mode, i.e., one can match end-of-lines. +m4_define([AT_MATCHES_CHECK], +[AT_CHECK([perl -0777 -ne ' +my $count = 0; +s{$2}{ ++$count; "" }gem; +printf "$count\n";' $1], [0], [$3 +])]) + + ## ------------------------------- ## ## Macros decoding Bison options. ## ## ------------------------------- ## @@ -35,10 +51,12 @@ m4_define([AT_BISON_OPTION_PUSHDEFS], # -------------------------------------------------- # This macro works around the impossibility to define macros # inside macros, because issuing `[$1]' is not possible in M4 :(. -# This sucks hard, GNU M4 should really provide M5 like $$1. +# This sucks hard, GNU M4 should really provide M5-like $$1. m4_define([_AT_BISON_OPTION_PUSHDEFS], [m4_if([$1$2], $[1]$[2], [], [m4_fatal([$0: Invalid arguments: $@])])dnl +m4_pushdef([AT_DEFINES_IF], +[m4_bmatch([$3], [%defines], [$1], [$2])]) m4_pushdef([AT_SKEL_CC_IF], [m4_bmatch([$3], [%language "[Cc]\+\+"\|%skeleton "[a-z0-9]+\.cc"], [$1], [$2])]) m4_pushdef([AT_GLR_IF], @@ -68,6 +86,9 @@ m4_pushdef([AT_NAME_PREFIX], [m4_bmatch([$3], [%name-prefix ".*"], [m4_bregexp([$3], [name-prefix "\([^"]*\)"], [\1])], [yy])]) +m4_pushdef([AT_TOKEN_PREFIX], +[m4_bmatch([$3], [%define token.prefix ".*"], + [m4_bregexp([$3], [%define token.prefix "\(.*\)"], [\1])])]) # yyerror receives the location if %location & %pure & (%glr or %parse-param). m4_pushdef([AT_YYERROR_ARG_LOC_IF], [AT_GLR_OR_PARAM_IF([AT_PURE_AND_LOC_IF([$1], [$2])], @@ -100,14 +121,15 @@ AT_PURE_LEX_IF( m4_pushdef([AT_LEX_PRE_ARGS], [AT_LEX_ARGS, ]) ], -[m4_pushdef([AT_LOC], [(yylloc)]) - m4_pushdef([AT_VAL], [(yylval)]) +[m4_pushdef([AT_LOC], [[(]AT_NAME_PREFIX[lloc)]]) + m4_pushdef([AT_VAL], [[(]AT_NAME_PREFIX[lval)]]) m4_pushdef([AT_LEX_FORMALS], [void]) m4_pushdef([AT_LEX_ARGS], []) m4_pushdef([AT_USE_LEX_ARGS], []) m4_pushdef([AT_LEX_PRE_FORMALS], []) m4_pushdef([AT_LEX_PRE_ARGS], []) ]) +AT_GLR_IF([AT_KEYWORDS([glr])]) ])# _AT_BISON_OPTION_PUSHDEFS @@ -135,6 +157,7 @@ m4_popdef([AT_GLR_IF]) m4_popdef([AT_SKEL_CC_IF]) m4_popdef([AT_GLR_CC_IF]) m4_popdef([AT_LALR1_CC_IF]) +m4_popdef([AT_DEFINES_IF]) ])# AT_BISON_OPTION_POPDEFS @@ -143,21 +166,37 @@ m4_popdef([AT_LALR1_CC_IF]) ## Generating Grammar Files. ## ## -------------------------- ## - -# AT_DATA_GRAMMAR_PROLOGUE +# AT_DATA_SOURCE_PROLOGUE # ------------------------ -# The prologue that should be included in any grammar which parser is +# The prologue that should be included in any source code that is # meant to be compiled. -m4_define([AT_DATA_GRAMMAR_PROLOGUE], -[[%{ -#include +m4_define([AT_DATA_SOURCE_PROLOGUE], +[[#include /* We don't need perfect functions for these tests. */ #undef malloc #undef memcmp #undef realloc -%}] -]) +]]) + +# AT_DATA_GRAMMAR_PROLOGUE +# ------------------------ +# The prologue that should be included in any grammar which parser is +# meant to be compiled. +m4_define([AT_DATA_GRAMMAR_PROLOGUE], +[[%code top { +]AT_DATA_SOURCE_PROLOGUE[]dnl +[} +]]) +# AT_DATA_SOURCE(NAME, CONTENT) +# ----------------------------- +# Generate the file NAME, which CONTENT is preceded by +# AT_DATA_SOURCE_PROLOGUE. +m4_define([AT_DATA_SOURCE], +[AT_DATA([$1], +[AT_DATA_SOURCE_PROLOGUE +$2]) +]) # AT_DATA_GRAMMAR(NAME, CONTENT) # ------------------------------ @@ -203,8 +242,8 @@ m4_define([AT_BISON_CHECK_NO_XML], # defined. It doesn't make sense to invoke this macro if Bison is expected to # have a non-zero exit status. m4_define([AT_BISON_CHECK_XML], -[[if test x"$BISON_TEST_XML" = x1 && test x"$XSLTPROC" != x""; then] - mkdir xml-tests +[[if test x"$BISON_TEST_XML" = x1 && test x"$XSLTPROC" != x""; then + mkdir xml-tests] m4_pushdef([AT_BISON_ARGS], [m4_bpatsubsts([[$1]], [--report(-file)?=[^][ ]*], [], @@ -218,16 +257,16 @@ m4_define([AT_BISON_CHECK_XML], AT_CHECK([[bison --xml=xml-tests/test.xml ]]AT_BISON_ARGS, [[0]], [ignore], [ignore]) m4_popdef([AT_BISON_ARGS])dnl - cp xml-tests/test.output expout + [cp xml-tests/test.output expout] AT_CHECK([[$XSLTPROC \ `]]AT_QUELL_VALGRIND[[ bison --print-datadir`/xslt/xml2text.xsl \ xml-tests/test.xml]], [[0]], [expout]) - cp xml-tests/test.dot expout + [cp xml-tests/test.dot expout] AT_CHECK([[$XSLTPROC \ `]]AT_QUELL_VALGRIND[[ bison --print-datadir`/xslt/xml2dot.xsl \ xml-tests/test.xml]], [[0]], [expout]) - rm -rf xml-tests expout -[fi]]) + [rm -rf xml-tests expout +fi]]) # AT_QUELL_VALGRIND # ----------------- @@ -268,6 +307,20 @@ AT_CHECK([$CXX $CXXFLAGS $CPPFLAGS m4_bmatch([$1], [[.]], [], [$LDFLAGS ])-o $1 0, [ignore], [ignore])]) +# AT_FULL_COMPILE(OUTPUT, [OTHER]) +# -------------------------------- +# Compile OUTPUT.y to OUTPUT.c or OUTPUT.cc, and compile it to OUTPUT. +# If OTHER is specified, compile OUTPUT-OTHER.c or OUTPUT-OTHER.cc to OUTPUT +# along with it. +# Relies on AT_SKEL_CC_IF. +m4_define([AT_FULL_COMPILE], +[AT_SKEL_CC_IF( + [AT_BISON_CHECK([-o $1.cc $1.y]) + AT_COMPILE_CXX([$1]m4_ifval($2, [, [$1.cc $1-$2.cc]]))], + [AT_BISON_CHECK([-o $1.c $1.y]) + AT_COMPILE([$1]m4_ifval($2, [, [$1.c $1-$2.c]]))]) +]) + ## ---------------------------- ## ## Running a generated parser. ##