- /* -*- C -*- */
-/* Scan Bison Skeletons.
- Copyright (C) 2001 Free Software Foundation, Inc.
+/* Scan Bison Skeletons. -*- C -*-
+ Copyright (C) 2001, 2002 Free Software Foundation, Inc.
This file is part of Bison, the GNU Compiler Compiler.
Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA. */
-%option debug nodefault noyywrap nounput
+%option nodefault noyywrap nounput
%option prefix="skel_" outfile="lex.yy.c"
-/* If we enable
-
- %option yylineno
-
- Then we have warning: `yy_flex_realloc' defined but not used.
- Seems like a Flex bug to me: Why the heck yylineno would trigger
- the REJECT exception??? */
-
%{
#include "system.h"
-#include "skeleton.h"
-#include "parse-skel.h"
-%}
-
-%{
-/* Each time we match a string, move the end cursor to its end. */
-#define YY_USER_ACTION yylloc->last_column += yyleng;
+#include "files.h"
+int skel_lex PARAMS ((void));
+static int yylineno = 1;
+static char *yyoutname = NULL;
%}
%%
-%{
- /* At each yylex invocation, mark the current position as the
- start of the next token. */
- LOCATION_STEP (*yylloc);
-%}
-
-"%%{line}" { return LINE; }
-"%%{skeleton-line}" { return SLINE; }
-
-"%%{yacc}" { return YACC; }
-"%%{section}" { return SECTION; }
-
-"%%{guards}" { return GUARDS; }
-"%%{actions}" { return ACTIONS; }
-"%%{tokendef}" { return TOKENS; }
-
- /* Muscle. */
-"%%{"[a-zA-Z][0-9a-zA-Z_-]+"}" {
- yylval->string = xstrndup (yytext + 3, yyleng - 4);
- return MUSCLE;
-}
-
- /* String. */
-"%%\"".*"\"" {
- yylval->string = xstrndup (yytext + 3, yyleng - 4);
- return STRING;
-}
-
- /* End of line. */
-"\n" {
- LOCATION_LINES (*yylloc, yyleng);
- return '\n';
-}
-
- /* White spaces. */
-[\t ]+ {
- yylval->string = yytext;
- return BLANKS;
-}
-
- /* Plain Characters. */
-[^%\n]+ {
- yylval->string = yytext;
- return RAW;
-}
-
- /* Plain Character. */
-. {
- yylval->character = *yytext;
- return CHARACTER;
-}
+ /* 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);
+"__ofile__" fprintf (yyout, "%s", yyoutname);
+[^@_\n]+ ECHO;
+\n+ yylineno += yyleng; ECHO;
+. ECHO;
%%