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. */ 43int skel_lex (void); 44int skel_get_lineno (void); 45FILE *skel_get_in (void); 46FILE *skel_get_out (void); 47int skel_get_leng (void); 48char *skel_get_text (void); 49void skel_set_lineno (int); 50void skel_set_in (FILE *); 51void skel_set_out (FILE *); 52int skel_get_debug (void); 53void skel_set_debug (int); 54int 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 126void 127scan_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