X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/3eb82471faaf77cb1d0677d6bf7c0e65f432519e..847480ae0f5f105ae86d8990729916c589427552:/src/scan-skel.l diff --git a/src/scan-skel.l b/src/scan-skel.l index 5f37fb2c..f2653bee 100644 --- a/src/scan-skel.l +++ b/src/scan-skel.l @@ -1,26 +1,23 @@ /* Scan Bison Skeletons. -*- C -*- - Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software - Foundation, Inc. + Copyright (C) 2001-2007, 2009-2011 Free Software Foundation, Inc. This file is part of Bison, the GNU Compiler Compiler. - Bison 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, or (at your option) - any later version. + 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 3 of the License, or + (at your option) any later version. - Bison is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - General Public License for more details. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with Bison; see the file COPYING. 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 . */ -%option nodefault noyywrap nounput never-interactive debug +%option nodefault noyywrap noinput nounput never-interactive debug %option prefix="skel_" outfile="lex.yy.c" %{ @@ -61,7 +58,7 @@ static void fail_for_invalid_at (char const *at); %% %{ - int out_lineno IF_LINT (= 0); + int out_lineno PACIFY_CC (= 0); char *outname = NULL; /* Currently, only the @warn, @complain, @fatal, @warn_at, @complain_at, and @@ -72,9 +69,11 @@ static void fail_for_invalid_at (char const *at); char *at_directive_argv[AT_DIRECTIVE_ARGC_MAX]; %} -"@@" fputc ('@', yyout); -"@{" fputc ('[', yyout); -"@}" fputc (']', yyout); +"@@" fputc ('@', yyout); +"@{" fputc ('[', yyout); +"@}" fputc (']', yyout); +"@`" /* Emtpy. Used by b4_cat in ../data/bison.m4. */ +@\n /* Likewise. */ "@oline@" fprintf (yyout, "%d", out_lineno + 1); "@ofile@" QPUTS (outname); @@ -89,7 +88,7 @@ static void fail_for_invalid_at (char const *at); } /* This pattern must not match more than the previous @ patterns. */ -@[^@{}(\n]* fail_for_invalid_at (yytext); +@[^@{}`(\n]* fail_for_invalid_at (yytext); \n out_lineno++; ECHO; [^@\n]+ ECHO; @@ -108,8 +107,9 @@ static void fail_for_invalid_at (char const *at); "@@" { obstack_1grow (&obstack_for_string, '@'); } "@{" { obstack_1grow (&obstack_for_string, '['); } "@}" { obstack_1grow (&obstack_for_string, ']'); } - "@`" /* Emtpy. Useful for starting an argument + "@`" /* Empty. Useful for starting an argument that begins with whitespace. */ + @\n /* Empty. */ @[,)] { if (at_directive_argc >= AT_DIRECTIVE_ARGC_MAX) @@ -174,10 +174,10 @@ skel_scanner_free (void) yylex_destroy (); } -static -void at_directive_perform (int at_directive_argc, - char *at_directive_argv[], - char **outnamep, int *out_linenop) +static void +at_directive_perform (int at_directive_argc, + char *at_directive_argv[], + char **outnamep, int *out_linenop) { if (0 == strcmp (at_directive_argv[0], "@basename")) { @@ -199,21 +199,21 @@ void at_directive_perform (int at_directive_argc, } switch (at_directive_argc) { - case 1: + case 2: func (_(at_directive_argv[1])); break; - case 2: + case 3: func (_(at_directive_argv[1]), at_directive_argv[2]); break; - case 3: + case 4: func (_(at_directive_argv[1]), at_directive_argv[2], at_directive_argv[3]); break; - case 4: + case 5: func (_(at_directive_argv[1]), at_directive_argv[2], at_directive_argv[3], at_directive_argv[4]); break; - case 5: + case 6: func (_(at_directive_argv[1]), at_directive_argv[2], at_directive_argv[3], at_directive_argv[4], at_directive_argv[5]); @@ -242,21 +242,21 @@ void at_directive_perform (int at_directive_argc, boundary_set_from_string (&loc.end, at_directive_argv[2]); switch (at_directive_argc) { - case 3: + case 4: func (loc, _(at_directive_argv[3])); break; - case 4: + case 5: func (loc, _(at_directive_argv[3]), at_directive_argv[4]); break; - case 5: + case 6: func (loc, _(at_directive_argv[3]), at_directive_argv[4], at_directive_argv[5]); break; - case 6: + case 7: func (loc, _(at_directive_argv[3]), at_directive_argv[4], at_directive_argv[5], at_directive_argv[6]); break; - case 7: + case 8: func (loc, _(at_directive_argv[3]), at_directive_argv[4], at_directive_argv[5], at_directive_argv[6], at_directive_argv[7]); @@ -276,7 +276,7 @@ void at_directive_perform (int at_directive_argc, xfclose (yyout); } *outnamep = xstrdup (at_directive_argv[1]); - output_file_name_check (*outnamep); + output_file_name_check (outnamep); yyout = xfopen (*outnamep, "w"); *out_linenop = 1; }