]> git.saurik.com Git - bison.git/blobdiff - src/scan-code.l
(xsl:template match="terminal"): Use new attribute names.
[bison.git] / src / scan-code.l
index 75848d820d63e01bf21f5cf775fdd0a665637be7..630d45d5315678b951b57b218809e4f0ebbb2984 100644 (file)
@@ -1,12 +1,12 @@
 /* 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 program is free software; you can redistribute it and/or modify
+   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
-   the Free Software Foundation; either version 2 of the License, or
+   the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-   02110-1301  USA
-*/
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 %option debug nodefault nounput noyywrap never-interactive
 %option prefix="code_" outfile="lex.yy.c"
@@ -202,7 +199,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_at_dollar[");
+  "@$" {
+    obstack_sgrow (&obstack_for_string, "]b4_at_dollar[");
+    locations_flag = true;
+  }
 }
 
 
@@ -227,7 +227,7 @@ splice       (\\[ \f\t\v]*\n)*
  /* End of processing. */
 <*><<EOF>>      {
                    STRING_FINISH;
-                  return last_string;
+                   return last_string;
                  }
 
 %%
@@ -332,9 +332,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);
-         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));
@@ -467,26 +467,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)
 {