1 /* Scan Bison Skeletons. -*- C -*- 2 3 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software 4 Foundation, Inc. 5 6 This file is part of Bison, the GNU Compiler Compiler. 7 8 Bison is free software; you can redistribute it and/or modify it 9 under the terms of the GNU General Public License as published by 10 the Free Software Foundation; either version 2, or (at your option) 11 any later version. 12 13 Bison is distributed in the hope that it will be useful, but 14 WITHOUT ANY WARRANTY; without even the implied warranty of 15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 General Public License for more details. 17 18 You should have received a copy of the GNU General Public License 19 along with Bison; see the file COPYING. If not, write to the Free 20 Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 21 02110-1301, USA. */ 22 23 %option nodefault noyywrap nounput never-interactive debug 24 %option prefix="skel_" outfile="lex.yy.c" 25 26 %{ 27 /* Work around a bug in flex 2.5.31. See Debian bug 333231 28 <http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=333231>. */ 29 #undef skel_wrap 30 #define skel_wrap() 1 31 32 #include "system.h" 33 34 #include <error.h> 35 #include <quotearg.h> 36 37 #include "complain.h" 38 #include "getargs.h" 39 #include "files.h" 40 #include "scan-skel.h" 41 42 /* Pacify "gcc -Wmissing-prototypes" when flex 2.5.31 is used. */ 43 int skel_lex (void); 44 int skel_get_lineno (void); 45 FILE *skel_get_in (void); 46 FILE *skel_get_out (void); 47 int skel_get_leng (void); 48 char *skel_get_text (void); 49 void skel_set_lineno (int); 50 void skel_set_in (FILE *); 51 void skel_set_out (FILE *); 52 int skel_get_debug (void); 53 void skel_set_debug (int); 54 int skel_lex_destroy (void); 55 56 #define QPUTS(String) \ 57 fputs (quotearg_style (c_quoting_style, String), yyout) 58 59 #define BASE_QPUTS(File) \ 60 QPUTS (base_name (File)) 61 62 %} 63 %% 64 65 %{ 66 int lineno IF_LINT (= 0); 67 char *outname = NULL; 68 %} 69 70 "@output ".*\n { 71 char const *file_name = yytext + sizeof "@output " - 1; 72 yytext[yyleng - 1] = '\0'; 73 74 /* Decode special file names. They include the directory part, 75 contrary to their "free" occurrences, used for issuing #includes, 76 which must not include the directory part. */ 77 78 if (*file_name == '@') 79 { 80 if (strcmp (file_name, "@output_header_name@") == 0) 81 file_name = spec_defines_file; 82 else if (strcmp (file_name, "@output_parser_name@") == 0) 83 file_name = parser_file_name; 84 else 85 fatal ("invalid token in skeleton: %s", yytext); 86 } 87 if (outname) 88 { 89 free (outname); 90 xfclose (yyout); 91 } 92 outname = xstrdup (file_name); 93 yyout = xfopen (outname, "w"); 94 lineno = 1; 95 } 96 97 "@@" fputc ('@', yyout); 98 "@{" fputc ('[', yyout); 99 "@}" fputc (']', yyout); 100 101 "@oline@" fprintf (yyout, "%d", lineno + 1); 102 "@ofile@" QPUTS (outname); 103 "@dir_prefix@" QPUTS (dir_prefix); 104 "@output_parser_name@" BASE_QPUTS (parser_file_name); 105 "@output_header_name@" BASE_QPUTS (spec_defines_file); 106 107 /* This pattern must not match more than the previous @ patterns. */ 108 @[^{}@\n]* fatal ("invalid @ in skeleton: %s", yytext); 109 \n lineno++; ECHO; 110 [^@\n]+ ECHO; 111 112 <<EOF>> { 113 if (outname) 114 { 115 free (outname); 116 xfclose (yyout); 117 } 118 return EOF; 119 } 120 %% 121 122 /*------------------------. 123 | Scan a Bison skeleton. | 124 `------------------------*/ 125 126 void 127 scan_skel (FILE *in) 128 { 129 skel_in = in; 130 skel__flex_debug = trace_flag & trace_skeleton; 131 skel_lex (); 132 /* Reclaim Flex's buffers. */ 133 yy_delete_buffer (YY_CURRENT_BUFFER); 134 } 135