X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/536545f3a45d64cad0469efa125d3d96052e723c..4b7a4c1b1c8c18e9ad2517c117442b9b7d7e671a:/src/scan-skel.l?ds=sidebyside diff --git a/src/scan-skel.l b/src/scan-skel.l index 2d9cef13..8b3c5933 100644 --- a/src/scan-skel.l +++ b/src/scan-skel.l @@ -1,100 +1,306 @@ /* Scan Bison Skeletons. -*- C -*- - Copyright (C) 2001, 2002 Free Software Foundation, Inc. + + Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009 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., 59 Temple Place - Suite 330, Boston, MA - 02111-1307, USA. */ + along with this program. If not, see . */ -%option nodefault noyywrap nounput never-interactive +%option nodefault noyywrap noinput nounput never-interactive debug %option prefix="skel_" outfile="lex.yy.c" %{ -#include "system.h" -#include "error.h" +/* Work around a bug in flex 2.5.31. See Debian bug 333231 + . */ +#undef skel_wrap +#define skel_wrap() 1 + +#define FLEX_PREFIX(Id) skel_ ## Id +#include "flex-scanner.h" + +#include +#include +#include + +#include "complain.h" #include "getargs.h" #include "files.h" -int skel_lex PARAMS ((void)); -static int yylineno = 1; -static char *yyoutname = NULL; +#include "scan-skel.h" + +#define YY_DECL static int skel_lex (void) +YY_DECL; + +#define QPUTS(String) \ + fputs (quotearg_style (c_quoting_style, String), yyout) + +static void at_directive_perform (int at_directive_argc, + char *at_directive_argv[], + char **outnamep, int *out_linenop); +static void fail_for_at_directive_too_many_args (char const *at_directive_name); +static void fail_for_at_directive_too_few_args (char const *at_directive_name); +static void fail_for_invalid_at (char const *at); %} -%% - /* This is an approximation, but we don't need more. */ -^"#output \""[^\"]+\"\n { - yytext[yyleng - 2] = '\0'; - XFREE (yyoutname); - yyoutname = xstrdup (yytext + strlen ("#output \"")); - yyout = xfopen (yyoutname, "w"); - yylineno = 1; - } - -"@<:@" fputc ('[', yyout); -"@:>@" fputc (']', yyout); - -"__oline__" fprintf (yyout, "%d", yylineno+1); -"__ofile__" fprintf (yyout, "%s", yyoutname); -[^@_\n]+ ECHO; -\n+ yylineno += yyleng; ECHO; -. ECHO; - -<> xfclose (yyout); free (yyoutname); return EOF; + +%x SC_AT_DIRECTIVE_ARGS +%x SC_AT_DIRECTIVE_SKIP_WS + %% -/* From lib/readpipe.c. */ -FILE *readpipe PARAMS ((const char *, ...)); +%{ + int out_lineno IF_LINT (= 0); + char *outname = NULL; + + /* Currently, only the @warn, @complain, @fatal, @warn_at, @complain_at, and + @fatal_at directives take multiple arguments, and the last three already + can't take more than 7. at_directive_argv[0] is the directive name. */ + #define AT_DIRECTIVE_ARGC_MAX 8 + int at_directive_argc = 0; + char *at_directive_argv[AT_DIRECTIVE_ARGC_MAX]; +%} -/*----------------------. -| Run our backend, M4. | -`----------------------*/ +"@@" fputc ('@', yyout); +"@{" fputc ('[', yyout); +"@}" fputc (']', yyout); +"@`" /* Emtpy. Used by b4_cat in ../data/bison.m4. */ +@\n /* Likewise. */ -void m4_invoke PARAMS ((const char *definitions)); +"@oline@" fprintf (yyout, "%d", out_lineno + 1); +"@ofile@" QPUTS (outname); +"@dir_prefix@" QPUTS (dir_prefix); + +@[a-z_]+"(" { + yytext[yyleng-1] = '\0'; + obstack_grow (&obstack_for_string, yytext, yyleng); + at_directive_argv[at_directive_argc++] = + obstack_finish (&obstack_for_string); + BEGIN SC_AT_DIRECTIVE_ARGS; +} + + /* This pattern must not match more than the previous @ patterns. */ +@[^@{}`(\n]* fail_for_invalid_at (yytext); +\n out_lineno++; ECHO; +[^@\n]+ ECHO; + +<> { + if (outname) + { + free (outname); + xfclose (yyout); + } + return EOF; +} + +{ + [^@]+ { STRING_GROW; } + + "@@" { obstack_1grow (&obstack_for_string, '@'); } + "@{" { obstack_1grow (&obstack_for_string, '['); } + "@}" { obstack_1grow (&obstack_for_string, ']'); } + "@`" /* Emtpy. Useful for starting an argument + that begins with whitespace. */ + @\n /* Empty. */ + + @[,)] { + if (at_directive_argc >= AT_DIRECTIVE_ARGC_MAX) + fail_for_at_directive_too_many_args (at_directive_argv[0]); + + obstack_1grow (&obstack_for_string, '\0'); + at_directive_argv[at_directive_argc++] = + obstack_finish (&obstack_for_string); + + /* Like M4, skip whitespace after a comma. */ + if (yytext[1] == ',') + BEGIN SC_AT_DIRECTIVE_SKIP_WS; + else + { + at_directive_perform (at_directive_argc, at_directive_argv, + &outname, &out_lineno); + obstack_free (&obstack_for_string, at_directive_argv[0]); + at_directive_argc = 0; + BEGIN INITIAL; + } + } + + @.? { fail_for_invalid_at (yytext); } +} + +{ + [ \t\r\n] + . { yyless (0); BEGIN SC_AT_DIRECTIVE_ARGS; } +} + +{ + <> { + fatal (_("unclosed %s directive in skeleton"), at_directive_argv[0]); + } +} + +%% + +/*------------------------. +| Scan a Bison skeleton. | +`------------------------*/ void -m4_invoke (const char *definitions) +scan_skel (FILE *in) { - /* Invoke m4 on the definition of the muscles, and the skeleton. */ - const char *bison_pkgdatadir = getenv ("BISON_PKGDATADIR"); - const char *m4 = getenv ("M4"); - int pkg_data_len; - char *full_skeleton; - - if (!m4) - m4 = M4; - if (!bison_pkgdatadir) - bison_pkgdatadir = PKGDATADIR; - pkg_data_len = strlen (bison_pkgdatadir); - full_skeleton = XMALLOC (char, pkg_data_len + strlen (skeleton) + 2); - if (bison_pkgdatadir[pkg_data_len-1] == '/') - sprintf (full_skeleton, "%s%s", bison_pkgdatadir, skeleton); - else - sprintf (full_skeleton, "%s/%s", bison_pkgdatadir, skeleton); - if (trace_flag) - fprintf (stderr, - "running: %s -I %s m4sugar/m4sugar.m4 %s %s\n", - m4, bison_pkgdatadir, definitions, full_skeleton); - skel_in = readpipe (m4, - "-I", bison_pkgdatadir, - "m4sugar/m4sugar.m4", - definitions, - full_skeleton, - NULL); - XFREE (full_skeleton); - if (!skel_in) - error (EXIT_FAILURE, errno, "cannot run m4"); + static bool initialized = false; + if (!initialized) + { + initialized = true; + obstack_init (&obstack_for_string); + } + skel_in = in; + skel__flex_debug = trace_flag & trace_skeleton; skel_lex (); +} +void +skel_scanner_free (void) +{ + obstack_free (&obstack_for_string, 0); /* Reclaim Flex's buffers. */ - yy_delete_buffer (YY_CURRENT_BUFFER); + yylex_destroy (); +} + +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")) + { + if (at_directive_argc > 2) + fail_for_at_directive_too_many_args (at_directive_argv[0]); + fputs (last_component (at_directive_argv[1]), yyout); + } + else if (0 == strcmp (at_directive_argv[0], "@warn") + || 0 == strcmp (at_directive_argv[0], "@complain") + || 0 == strcmp (at_directive_argv[0], "@fatal")) + { + void (*func)(char const *, ...); + switch (at_directive_argv[0][1]) + { + case 'w': func = warn; break; + case 'c': func = complain; break; + case 'f': func = fatal; break; + default: aver (false); break; + } + switch (at_directive_argc) + { + case 2: + func (_(at_directive_argv[1])); + break; + case 3: + func (_(at_directive_argv[1]), at_directive_argv[2]); + break; + case 4: + func (_(at_directive_argv[1]), at_directive_argv[2], + at_directive_argv[3]); + break; + case 5: + func (_(at_directive_argv[1]), at_directive_argv[2], + at_directive_argv[3], at_directive_argv[4]); + break; + case 6: + func (_(at_directive_argv[1]), at_directive_argv[2], + at_directive_argv[3], at_directive_argv[4], + at_directive_argv[5]); + break; + default: + fail_for_at_directive_too_many_args (at_directive_argv[0]); + break; + } + } + else if (0 == strcmp (at_directive_argv[0], "@warn_at") + || 0 == strcmp (at_directive_argv[0], "@complain_at") + || 0 == strcmp (at_directive_argv[0], "@fatal_at")) + { + void (*func)(location, char const *, ...); + location loc; + if (at_directive_argc < 4) + fail_for_at_directive_too_few_args (at_directive_argv[0]); + switch (at_directive_argv[0][1]) + { + case 'w': func = warn_at; break; + case 'c': func = complain_at; break; + case 'f': func = fatal_at; break; + default: aver (false); break; + } + boundary_set_from_string (&loc.start, at_directive_argv[1]); + boundary_set_from_string (&loc.end, at_directive_argv[2]); + switch (at_directive_argc) + { + case 4: + func (loc, _(at_directive_argv[3])); + break; + case 5: + func (loc, _(at_directive_argv[3]), at_directive_argv[4]); + break; + case 6: + func (loc, _(at_directive_argv[3]), at_directive_argv[4], + at_directive_argv[5]); + break; + case 7: + func (loc, _(at_directive_argv[3]), at_directive_argv[4], + at_directive_argv[5], at_directive_argv[6]); + break; + case 8: + func (loc, _(at_directive_argv[3]), at_directive_argv[4], + at_directive_argv[5], at_directive_argv[6], + at_directive_argv[7]); + break; + default: + fail_for_at_directive_too_many_args (at_directive_argv[0]); + break; + } + } + else if (0 == strcmp (at_directive_argv[0], "@output")) + { + if (at_directive_argc > 2) + fail_for_at_directive_too_many_args (at_directive_argv[0]); + if (*outnamep) + { + free (*outnamep); + xfclose (yyout); + } + *outnamep = xstrdup (at_directive_argv[1]); + output_file_name_check (*outnamep); + yyout = xfopen (*outnamep, "w"); + *out_linenop = 1; + } + else + fail_for_invalid_at (at_directive_argv[0]); +} + +static void +fail_for_at_directive_too_few_args (char const *at_directive_name) +{ + fatal (_("too few arguments for %s directive in skeleton"), + at_directive_name); +} + +static void +fail_for_at_directive_too_many_args (char const *at_directive_name) +{ + fatal (_("too many arguments for %s directive in skeleton"), + at_directive_name); +} + +static void +fail_for_invalid_at (char const *at) +{ + fatal ("invalid @ in skeleton: %s", at); }