As in semantic actions, make @$ in %initial-action, %destructor, and

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

diff --git a/src/scan-code.l b/src/scan-code.l
index 75848d820d63e01bf21f5cf775fdd0a665637be7..9e51401394fd2f8c32644d03c6832fd84437a4d8 100644 (file)
--- a/src/scan-code.l
+++ b/src/scan-code.l
@@ -1,6 +1,6 @@
 /* Bison Action Scanner                             -*- C -*-
 
 /* Bison Action Scanner                             -*- C -*-
 

-   Copyright (C) 2006 Free Software Foundation, Inc.
+   Copyright (C) 2006, 2007 Free Software Foundation, Inc.

 
    This file is part of Bison, the GNU Compiler Compiler.
 
 
    This file is part of Bison, the GNU Compiler Compiler.
 


@@ -202,7 +202,10 @@ splice      (\\[ \f\t\v]*\n)*
     obstack_sgrow (&obstack_for_string, "]b4_dollar_dollar[");
     self->is_value_used = true;
   }
     obstack_sgrow (&obstack_for_string, "]b4_dollar_dollar[");
     self->is_value_used = true;
   }

-  "@$"   obstack_sgrow (&obstack_for_string, "]b4_at_dollar[");
+  "@$" {
+    obstack_sgrow (&obstack_for_string, "]b4_at_dollar[");
+    locations_flag = true;
+  }

 }
 
 
 }
 
 


@@ -227,7 +230,7 @@ splice       (\\[ \f\t\v]*\n)*
  /* End of processing. */
 <*><<EOF>>      {
                    STRING_FINISH;
  /* End of processing. */
 <*><<EOF>>      {
                    STRING_FINISH;

-                  return last_string;
+                   return last_string;

                  }
 
 %%
                  }
 
 %%


@@ -332,9 +335,9 @@ handle_action_dollar (symbol_list *rule, char *text, location dollar_loc)
          obstack_fgrow3 (&obstack_for_string,
                          "]b4_rhs_value(%d, %d, [%s])[",
                          effective_rule_length, n, type_name);
          obstack_fgrow3 (&obstack_for_string,
                          "]b4_rhs_value(%d, %d, [%s])[",
                          effective_rule_length, n, type_name);

-         if (n > 0)
-           symbol_list_n_get (effective_rule, n)->action_props.is_value_used =
-             true;
+          if (n > 0)
+            symbol_list_n_get (effective_rule, n)->action_props.is_value_used =
+              true;

        }
       else
        complain_at (dollar_loc, _("integer out of range: %s"), quote (text));
        }
       else
        complain_at (dollar_loc, _("integer out of range: %s"), quote (text));


@@ -467,26 +470,6 @@ code_props_translate_code (code_props *self)
     }
 }
 
     }
 }
 

-char const *
-code_props_code_get (code_props const self)
-{
-  return self.code;
-}
-
-location
-code_props_location_get (code_props const self)
-{
-  aver (self.code != NULL);
-  return self.location;
-}
-
-bool
-code_props_is_value_used (code_props const self)
-{
-  aver (self.kind != CODE_PROPS_PLAIN);
-  return self.is_value_used;
-}
-

 void
 code_scanner_last_string_free (void)
 {
 void
 code_scanner_last_string_free (void)
 {