Get action warnings (grammar_rule_check) right even when symbol

[bison.git] / src / scan-code.l

diff --git a/src/scan-code.l b/src/scan-code.l
index a24eecec0f6a362abd6eb551e859d13fff3ac9b3..471b2a452f16173fed75d375c76b79eb1492ad79 100644 (file)
--- a/src/scan-code.l
+++ b/src/scan-code.l
@@ -24,12 +24,16 @@
 %option prefix="code_" outfile="lex.yy.c"
 
 %{
 %option prefix="code_" outfile="lex.yy.c"
 
 %{

+#include <config.h>
+#include "system.h"
+

 /* Work around a bug in flex 2.5.31.  See Debian bug 333231
    <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=333231>.  */
 #undef code_wrap
 #define code_wrap() 1
 
 #define FLEX_PREFIX(Id) code_ ## Id
 /* Work around a bug in flex 2.5.31.  See Debian bug 333231
    <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=333231>.  */
 #undef code_wrap
 #define code_wrap() 1
 
 #define FLEX_PREFIX(Id) code_ ## Id

+#include "complain.h"

 #include "flex-scanner.h"
 #include "reader.h"
 #include "getargs.h"
 #include "flex-scanner.h"
 #include "reader.h"
 #include "getargs.h"


@@ -41,18 +45,16 @@
 
 /* The current calling start condition: SC_RULE_ACTION or
    SC_SYMBOL_ACTION. */
 
 /* The current calling start condition: SC_RULE_ACTION or
    SC_SYMBOL_ACTION. */

-# define YY_DECL const char *code_lex (int sc_context)
+# define YY_DECL const char *code_lex (int sc_context, symbol_list *rule)

 YY_DECL;
 
 #define YY_USER_ACTION  location_compute (loc, &loc->end, yytext, yyleng);
 
 YY_DECL;
 
 #define YY_USER_ACTION  location_compute (loc, &loc->end, yytext, yyleng);
 

-static void handle_action_dollar (char *cp, location loc);
-static void handle_action_at (char *cp, location loc);
+static void handle_action_dollar (symbol_list *rule, char *cp,
+                                 location dollar_loc);
+static void handle_action_at (symbol_list *rule, char *cp, location at_loc);

 static location the_location;
 static location *loc = &the_location;
 static location the_location;
 static location *loc = &the_location;

-
-/* The rule being processed. */
-symbol_list *current_rule;

 %}
  /* C and C++ comments in code. */
 %x SC_COMMENT SC_LINE_COMMENT
 %}
  /* C and C++ comments in code. */
 %x SC_COMMENT SC_LINE_COMMENT


@@ -149,8 +151,8 @@ splice       (\\[ \f\t\v]*\n)*
 
 <SC_RULE_ACTION>
 {
 
 <SC_RULE_ACTION>
 {

-  "$"("<"{tag}">")?(-?[0-9]+|"$")   handle_action_dollar (yytext, *loc);
-  "@"(-?[0-9]+|"$")                handle_action_at (yytext, *loc);
+  "$"("<"{tag}">")?(-?[0-9]+|"$")   handle_action_dollar (rule, yytext, *loc);
+  "@"(-?[0-9]+|"$")                handle_action_at (rule, yytext, *loc);

 
   "$"  {
     warn_at (*loc, _("stray `$'"));
 
   "$"  {
     warn_at (*loc, _("stray `$'"));


@@ -234,11 +236,23 @@ int max_left_semantic_context = 0;
 `------------------------------------------------------------------*/
 
 static void
 `------------------------------------------------------------------*/
 
 static void

-handle_action_dollar (char *text, location loc)
+handle_action_dollar (symbol_list *rule, char *text, location dollar_loc)

 {
   const char *type_name = NULL;
   char *cp = text + 1;
 {
   const char *type_name = NULL;
   char *cp = text + 1;

-  int rule_length = symbol_list_length (current_rule->next);
+  symbol_list *effective_rule;
+  int effective_rule_length;
+
+  if (rule->midrule_parent_rule)
+    {
+      effective_rule = rule->midrule_parent_rule;
+      effective_rule_length = rule->midrule_parent_rhs_index - 1;
+    }
+  else
+    {
+      effective_rule = rule;
+      effective_rule_length = symbol_list_length (rule->next);
+    }

 
   /* Get the type name if explicit. */
   if (*cp == '<')
 
   /* Get the type name if explicit. */
   if (*cp == '<')


@@ -253,40 +267,50 @@ handle_action_dollar (char *text, location loc)
   if (*cp == '$')
     {
       if (!type_name)
   if (*cp == '$')
     {
       if (!type_name)

-       type_name = symbol_list_n_type_name_get (current_rule, loc, 0);
+       type_name = symbol_list_n_type_name_get (rule, dollar_loc, 0);

       if (!type_name && typed)
       if (!type_name && typed)

-       complain_at (loc, _("$$ of `%s' has no declared type"),
-                    current_rule->sym->tag);
+       {
+        if (rule->midrule_parent_rule)
+          complain_at (dollar_loc,
+                       _("$$ for the midrule at $%d of `%s' has no declared"
+                         " type"),
+                       rule->midrule_parent_rhs_index,
+                       effective_rule->sym->tag);
+        else
+          complain_at (dollar_loc, _("$$ of `%s' has no declared type"),
+                       rule->sym->tag);
+       }

       if (!type_name)
        type_name = "";
       obstack_fgrow1 (&obstack_for_string,
                      "]b4_lhs_value([%s])[", type_name);
       if (!type_name)
        type_name = "";
       obstack_fgrow1 (&obstack_for_string,
                      "]b4_lhs_value([%s])[", type_name);

-      current_rule->used = true;
+      rule->used = true;

     }
   else
     {
       long int num;
       set_errno (0);
       num = strtol (cp, 0, 10);
     }
   else
     {
       long int num;
       set_errno (0);
       num = strtol (cp, 0, 10);

-      if (INT_MIN <= num && num <= rule_length && ! get_errno ())
+      if (INT_MIN <= num && num <= effective_rule_length && ! get_errno ())

        {
          int n = num;
          if (1-n > max_left_semantic_context)
            max_left_semantic_context = 1-n;
          if (!type_name && n > 0)
        {
          int n = num;
          if (1-n > max_left_semantic_context)
            max_left_semantic_context = 1-n;
          if (!type_name && n > 0)

-           type_name = symbol_list_n_type_name_get (current_rule, loc, n);
+           type_name =
+             symbol_list_n_type_name_get (effective_rule, dollar_loc, n);

          if (!type_name && typed)
          if (!type_name && typed)

-           complain_at (loc, _("$%d of `%s' has no declared type"),
-                        n, current_rule->sym->tag);
+           complain_at (dollar_loc, _("$%d of `%s' has no declared type"),
+                        n, effective_rule->sym->tag);

          if (!type_name)
            type_name = "";
          obstack_fgrow3 (&obstack_for_string,
                          "]b4_rhs_value(%d, %d, [%s])[",
          if (!type_name)
            type_name = "";
          obstack_fgrow3 (&obstack_for_string,
                          "]b4_rhs_value(%d, %d, [%s])[",

-                         rule_length, n, type_name);
-         symbol_list_n_used_set (current_rule, n, true);
+                         effective_rule_length, n, type_name);
+         symbol_list_n_used_set (effective_rule, n, true);

        }
       else
        }
       else

-       complain_at (loc, _("integer out of range: %s"), quote (text));
+       complain_at (dollar_loc, _("integer out of range: %s"), quote (text));

     }
 }
 
     }
 }
 


@@ -297,11 +321,16 @@ handle_action_dollar (char *text, location loc)
 `------------------------------------------------------*/
 
 static void
 `------------------------------------------------------*/
 
 static void

-handle_action_at (char *text, location loc)
+handle_action_at (symbol_list *rule, char *text, location at_loc)

 {
   char *cp = text + 1;
 {
   char *cp = text + 1;

-  int rule_length = symbol_list_length (current_rule->next);

   locations_flag = true;
   locations_flag = true;

+  int effective_rule_length;
+
+  if (rule->midrule_parent_rule)
+    effective_rule_length = rule->midrule_parent_rhs_index - 1;
+  else
+    effective_rule_length = symbol_list_length (rule->next);

 
   if (*cp == '$')
     obstack_sgrow (&obstack_for_string, "]b4_lhs_location[");
 
   if (*cp == '$')
     obstack_sgrow (&obstack_for_string, "]b4_lhs_location[");


@@ -311,14 +340,14 @@ handle_action_at (char *text, location loc)
       set_errno (0);
       num = strtol (cp, 0, 10);
 
       set_errno (0);
       num = strtol (cp, 0, 10);
 

-      if (INT_MIN <= num && num <= rule_length && ! get_errno ())
+      if (INT_MIN <= num && num <= effective_rule_length && ! get_errno ())

        {
          int n = num;
          obstack_fgrow2 (&obstack_for_string, "]b4_rhs_location(%d, %d)[",
        {
          int n = num;
          obstack_fgrow2 (&obstack_for_string, "]b4_rhs_location(%d, %d)[",

-                         rule_length, n);
+                         effective_rule_length, n);

        }
       else
        }
       else

-       complain_at (loc, _("integer out of range: %s"), quote (text));
+       complain_at (at_loc, _("integer out of range: %s"), quote (text));

     }
 }
 
     }
 }
 


@@ -332,7 +361,7 @@ handle_action_at (char *text, location loc)
    INITIAL), the processing is different.  */
 
 static const char *
    INITIAL), the processing is different.  */
 
 static const char *

-translate_action (int sc_context, const char *a, location l)
+translate_action (int sc_context, symbol_list *rule, const char *a, location l)

 {
   const char *res;
   static bool initialized = false;
 {
   const char *res;
   static bool initialized = false;


@@ -347,29 +376,29 @@ translate_action (int sc_context, const char *a, location l)
 
   loc->start = loc->end = l.start;
   yy_switch_to_buffer (yy_scan_string (a));
 
   loc->start = loc->end = l.start;
   yy_switch_to_buffer (yy_scan_string (a));

-  res = code_lex (sc_context);
+  res = code_lex (sc_context, rule);

   yy_delete_buffer (YY_CURRENT_BUFFER);
 
   return res;
 }
 
 const char *
   yy_delete_buffer (YY_CURRENT_BUFFER);
 
   return res;
 }
 
 const char *

-translate_rule_action (symbol_list *r, const char *a, location l)
+translate_rule_action (symbol_list *rule)

 {
 {

-  current_rule = r;
-  return translate_action (SC_RULE_ACTION, a, l);
+  return translate_action (SC_RULE_ACTION, rule, rule->action,
+                          rule->action_location);

 }
 
 const char *
 translate_symbol_action (const char *a, location l)
 {
 }
 
 const char *
 translate_symbol_action (const char *a, location l)
 {

-  return translate_action (SC_SYMBOL_ACTION, a, l);
+  return translate_action (SC_SYMBOL_ACTION, NULL, a, l);

 }
 
 const char *
 translate_code (const char *a, location l)
 {
 }
 
 const char *
 translate_code (const char *a, location l)
 {

-  return translate_action (INITIAL, a, l);
+  return translate_action (INITIAL, NULL, a, l);

 }
 
 /*-----------------------------------------------.
 }
 
 /*-----------------------------------------------.