]> git.saurik.com Git - bison.git/blame - src/scan-skel.l
Version 1.75a.
[bison.git] / src / scan-skel.l
CommitLineData
be2a1a68
AD
1/* Scan Bison Skeletons. -*- C -*-
2 Copyright (C) 2001, 2002 Free Software Foundation, Inc.
1239777d
AD
3
4 This file is part of Bison, the GNU Compiler Compiler.
5
6 Bison is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
10
11 Bison is distributed in the hope that it will be useful, but
12 WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 General Public License for more details.
9b3add5b 15
1239777d
AD
16 You should have received a copy of the GNU General Public License
17 along with Bison; see the file COPYING. If not, write to the Free
18 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
19 02111-1307, USA. */
9b3add5b 20
86eff183 21%option nodefault noyywrap nounput never-interactive
aed7fd9b 22%option prefix="skel_" outfile="lex.yy.c"
9b3add5b 23
aed7fd9b
AD
24%{
25#include "system.h"
536545f3
AD
26#include "error.h"
27#include "getargs.h"
be2a1a68 28#include "files.h"
d33cb3ae 29int skel_lex (void);
be2a1a68 30static int yylineno = 1;
06446ccf 31static char *yyoutname = NULL;
aed7fd9b 32%}
9b3add5b 33%%
be2a1a68
AD
34 /* This is an approximation, but we don't need more. */
35^"#output \""[^\"]+\"\n {
36 yytext[yyleng - 2] = '\0';
06446ccf
AD
37 XFREE (yyoutname);
38 yyoutname = xstrdup (yytext + strlen ("#output \""));
39 yyout = xfopen (yyoutname, "w");
be2a1a68
AD
40 yylineno = 1;
41 }
42
536545f3
AD
43"@<:@" fputc ('[', yyout);
44"@:>@" fputc (']', yyout);
2b7ed18a 45
158c687b 46"__oline__" fprintf (yyout, "%d", yylineno+1);
06446ccf 47"__ofile__" fprintf (yyout, "%s", yyoutname);
2b7ed18a 48[^@_\n]+ ECHO;
be2a1a68
AD
49\n+ yylineno += yyleng; ECHO;
50. ECHO;
9b3add5b 51
536545f3 52<<EOF>> xfclose (yyout); free (yyoutname); return EOF;
9b3add5b 53%%
536545f3 54
2cdb2a7b
PE
55/*------------------------.
56| Scan a Bison skeleton. |
57`------------------------*/
536545f3 58
2cdb2a7b 59void scan_skel (FILE *);
536545f3
AD
60
61void
2cdb2a7b 62scan_skel (FILE *in)
536545f3 63{
2cdb2a7b 64 skel_in = in;
536545f3
AD
65 skel_lex ();
66
67 /* Reclaim Flex's buffers. */
68 yy_delete_buffer (YY_CURRENT_BUFFER);
69}