api.location.type: support it in C

Reported by Balázs Scheidler.

* data/skeletons/c.m4 (b4_location_type_define): Use api.location.type
if defined.
* doc/bison.texi: Document it.
* tests/local.at (AT_C_IF, AT_LANG_CASE): New.
Support Span in C.
* tests/calc.at (Span): Convert it to be usable in C and C++.
Check api.location.type with yacc.c and glr.c.

tests/calc.at

@@ -289,18 +289,17 @@ AT_DATA_GRAMMAR([calc.y],
 %code requires
 {
 ]AT_LOCATION_TYPE_SPAN_IF([[
-# include <iostream>
-  struct Point
+  typedef struct
   {
     int l;
     int c;
-  };
+  } Point;
 
-  struct Span
+  typedef struct
   {
     Point first;
     Point last;
-  };
+  } Span;
 
 # define YYLLOC_DEFAULT(Current, Rhs, N)                                \
   do                                                                    \
@@ -313,7 +312,13 @@ AT_DATA_GRAMMAR([calc.y],
       {                                                                 \
         (Current).first = (Current).last = YYRHSLOC (Rhs, 0).last;      \
       }                                                                 \
-  while (false)
+  while (0)
+
+]AT_C_IF(
+[[#include <stdio.h>
+void location_print (FILE *o, Span s);
+#define LOCATION_PRINT location_print
+]])[
 
 ]])[
   /* Exercise pre-prologue dependency to %union.  */
@@ -416,7 +421,8 @@ power (int base, int exponent)
   return res;
 }
 
-]AT_LOCATION_TYPE_SPAN_IF([[
+]AT_LOCATION_TYPE_SPAN_IF([AT_CXX_IF([[
+#include <iostream>
 namespace
 {
   std::ostream&
@@ -430,7 +436,17 @@ namespace
     return o;
   }
 }
-]])[
+]], [[
+void
+location_print (FILE *o, Span s)
+{
+  fprintf (o, "%d.%d", s.first.l, s.first.c);
+  if (s.first.l != s.last.l)
+    fprintf (o, "-%d.%d", s.last.l, s.last.c - 1);
+  else if (s.first.c != s.last.c - 1)
+    fprintf (o, "-%d", s.last.c - 1);
+}
+]])])[
 ]AT_YYERROR_DEFINE[
 ]AT_DEFINES_IF([],
 [AT_CALC_LEX
@@ -684,6 +700,7 @@ AT_CHECK_CALC_LALR()
 
 AT_CHECK_CALC_LALR([%defines])
 AT_CHECK_CALC_LALR([%locations])
+AT_CHECK_CALC_LALR([%locations %define api.location.type {Span}])
 
 AT_CHECK_CALC_LALR([%name-prefix "calc"])
 AT_CHECK_CALC_LALR([%verbose])
@@ -726,6 +743,7 @@ AT_CHECK_CALC_GLR()
 
 AT_CHECK_CALC_GLR([%defines])
 AT_CHECK_CALC_GLR([%locations])
+AT_CHECK_CALC_GLR([%locations %define api.location.type {Span}])
 AT_CHECK_CALC_GLR([%name-prefix "calc"])
 AT_CHECK_CALC_GLR([%define api.prefix {calc}])
 AT_CHECK_CALC_GLR([%verbose])

tests/headers.at

@@ -65,7 +65,6 @@ AT_TEST_CPP_GUARD_H([9foo],        [%glr-parser])
 ## export YYLTYPE.  ##
 ## ---------------- ##
 
-
 AT_SETUP([export YYLTYPE])
 
 AT_BISON_OPTION_PUSHDEFS([%name-prefix "my_"])

tests/local.at

@@ -157,6 +157,8 @@ m4_pushdef([AT_LANG],
             [AT_CXX_IF([c++],
                        [AT_D_IF([d],
                                 [c])])])])
+m4_pushdef([AT_C_IF],
+[m4_if(AT_LANG, [c], [$1], [$2])])
 m4_pushdef([AT_GLR_IF],
 [m4_bmatch([$3], [%glr-parser\|%skeleton "glr\..*"], [$1], [$2])])
 m4_pushdef([AT_LALR1_CC_IF],
@@ -288,13 +290,12 @@ AT_TOKEN_CTOR_IF(
  m4_pushdef([AT_YYLEX_PRE_ARGS],    [])
 ])])
 
-# Handle the different types of location components.
 
-AT_CXX_IF(
-  [AT_LOCATION_TYPE_SPAN_IF(
+# Handle the different types of location components.
+AT_LOCATION_TYPE_SPAN_IF(
     [AT_LOC_PUSHDEF([first.l], [first.c], [last.l], [last.c])],
-    [AT_LOC_PUSHDEF([begin.line], [begin.column], [end.line], [end.column])])],
-  [AT_LOC_PUSHDEF([first_line], [first_column], [last_line], [last_column])])
+    [AT_CXX_IF([AT_LOC_PUSHDEF([begin.line], [begin.column], [end.line], [end.column])],
+               [AT_LOC_PUSHDEF([first_line], [first_column], [last_line], [last_column])])])
 
 
 AT_GLR_IF([AT_KEYWORDS([glr])])
@@ -334,6 +335,7 @@ m4_popdef([AT_LEXPARAM_IF])
 m4_popdef([AT_YACC_IF])
 m4_popdef([AT_GLR_IF])
 m4_popdef([AT_CXX_IF])
+m4_popdef([AT_C_IF])
 m4_popdef([AT_LANG])
 m4_popdef([AT_JAVA_IF])
 m4_popdef([AT_GLR_CC_IF])
@@ -349,6 +351,12 @@ AT_LOC_POPDEF])dnl
 ## Generating Grammar Files.  ##
 ## -------------------------- ##
 
+# AT_LANG_CASE(LANG1, IF-LANG1, LANG2, IF-LANG2, ..., DEFAULT)
+# ------------------------------------------------------------
+m4_define([AT_LANG_CASE],
+[m4_case(AT_LANG, $@)])
+
+
 # _AT_LANG_DISPATCH(LANG, MACRO, ARGS)
 # ------------------------------------
 # Call the specialization of MACRO for LANG with ARGS.  Complain if
@@ -990,7 +998,7 @@ AT_CHECK([[$SHELL ../../../javacomp.sh ]$1],
 
 
 # AT_LANG_FOR_EACH_STD(BODY)
-# -------------------------------
+# --------------------------
 m4_define([AT_LANG_FOR_EACH_STD],  [AT_LANG_DISPATCH([$0], $@)])