tests: make AT_PARSE_PARAMS usable at the end of arguments

[Akim Demaille]

commit ece99a890c5ea90a9fa22c71fe0f65aeab67aad1
Author: Akim Demaille <address@hidden>
Date:   Wed Jan 15 07:14:49 2020 +0100

    tests: make AT_PARSE_PARAMS usable at the end of arguments
    
    When not empty, AT_PARSE_PARAMS was guaranteed to end with a comma.
    Remove the trailing comma, so that we can use AT_PARSE_PARAMS at the
    end of the arguments, not only at the beginning.
    
    * tests/local.at: here.
    Unfortunately, m4_append relies on the macro not being defined whereas
    we would have preferred it to check for emptiness.  So use
    m4_define/m4_undefine instead of m4_pushdef/m4_popdef.

diff --git a/tests/local.at b/tests/local.at
index 58317f10..2e2dd5bf 100644
--- a/tests/local.at
+++ b/tests/local.at
@@ -241,13 +241,14 @@ m4_pushdef([AT_PARAM_IF],
 
 # Comma-terminated list of formals parse-parameters.
 # E.g., %parse-param { int x } %parse-param {int y} -> "int x, int y, ".
-m4_pushdef([AT_PARSE_PARAMS])
 m4_bpatsubst([$3], [%parse-param { *\([^{}]*[^{} ]\) *}{ *\([^{}]*[^{} ]\) *}{ 
*\([^{}]*[^{} ]\) *}],
-             [m4_append([AT_PARSE_PARAMS], [\1, \2, \3, ])])
+             [m4_append([AT_PARSE_PARAMS], [\1, \2, \3], [, ])])
 m4_bpatsubst([$3], [%parse-param { *\([^{}]*[^{} ]\) *}{ *\([^{}]*[^{} ]\) 
*}\([^{].*\)?$],
-             [m4_append([AT_PARSE_PARAMS], [\1, \2, ])])
+             [m4_append([AT_PARSE_PARAMS], [\1, \2], [, ])])
 m4_rpatsubst([$3], [%parse-param { *\([^{}]*[^{} ]\) *}\([^{}].*\)?$],
-             [m4_append([AT_PARSE_PARAMS], [\1, ])\2])
+             [m4_append([AT_PARSE_PARAMS], [\1], [, ])\2])
+m4_ifndef([AT_PARSE_PARAMS],
+          [m4_define([AT_PARSE_PARAMS])])
 
 m4_pushdef([AT_PURE_IF],
 [m4_bmatch([$3], [%define  *api\.pure\|%pure-parser],
@@ -395,7 +396,7 @@ m4_popdef([AT_NAMESPACE])
 m4_popdef([AT_NAME_PREFIX])
 m4_popdef([AT_LOCATION_TYPE_SPAN_IF])
 m4_popdef([AT_LOCATION_IF])
-m4_popdef([AT_PARSE_PARAMS])
+m4_undefine([AT_PARSE_PARAMS])
 m4_popdef([AT_PUSH_IF])
 m4_popdef([AT_PURE_IF])
 m4_popdef([AT_PARAM_IF])
@@ -542,7 +543,7 @@ $2])
 ])
 
 m4_define([AT_YYERROR_FORMALS(c)],
-[AT_YYERROR_ARG_LOC_IF([AT_YYLTYPE const * const llocp, 
])AT_PARSE_PARAMS[const char *msg]])
+[AT_YYERROR_ARG_LOC_IF([AT_YYLTYPE const * const llocp, 
])AT_PARAM_IF([AT_PARSE_PARAMS, ])[const char *msg]])
 
 m4_define([AT_YYERROR_PROTOTYPE(c)],
 [[void ]AT_NAME_PREFIX[error (]AT_YYERROR_FORMALS[)]])
@@ -599,8 +600,8 @@ location_print (FILE *yyo, ]AT_YYLTYPE[ const * const 
yylocp)
 static
 ]AT_YYERROR_PROTOTYPE[
 {]m4_bpatsubst(m4_defn([AT_PARSE_PARAMS]),
-              [[^,]+[^A-Za-z_0-9]\([A-Za-z_][A-Za-z_0-9]*\), *], [
-  YYUSE(\1);])dnl
+              [[^,]+[^A-Za-z_0-9]\([A-Za-z_][A-Za-z_0-9]*\),* *], [
+  YYUSE (\1);])dnl
 AT_YYERROR_SEES_LOC_IF([[
   LOCATION_PRINT (stderr, ]AT_LOC[);
   fprintf (stderr, ": ");]])[