Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-17 08:13:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Equip the skeleton chain with location tracking, runtime trace,

Browse Source 
pure parser and scanner.
* src/parse-skel.y: Request a pure parser, locations, and prefix
renaming.
(%union): Having several members with the same type does not help
type mismatches, simplify.
(YYPRINT, yyprint): New.
(yyerror): ``Rename'' (there is a #define yyerror skel_error) as...
(skel_error): this.
Handle locations.
* src/scan-skel.l: Adjust to these changes.
* src/skeleton.h (LOCATION_RESET, LOCATION_LINES, LOCATION_STEP)
(LOCATION_PRINT, skel_control_t): New.
This commit is contained in:
Akim Demaille
2002-01-02 14:56:12 +00:00
parent 24fad99e2b
commit aed7fd9b97
4 changed files with 167 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
src/scan-skel.l
View File

@@ -19,14 +19,9 @@
Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA. */
%{
#include "system.h"
#include "skeleton.h"
#include "parse-skel.h"
%}
%option debug nodefault noyywrap nounput
%option prefix="skel_" outfile="lex.yy.c"
%option nounput
%option noyywrap
/* If we enable
%option yylineno
@@ -35,7 +30,22 @@
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;
%}
%%
%{
/* 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; }
@@ -49,30 +59,37 @@
/* Muscle. */
"%%{"[a-zA-Z][0-9a-zA-Z_-]+"}" {
yylval.muscle = xstrndup (yytext + 3, yyleng - 4);
yylval->string = xstrndup (yytext + 3, yyleng - 4);
return MUSCLE;
}
/* String. */
"%%\"".*"\"" {
yylval.string = xstrndup (yytext + 3, yyleng - 4);
yylval->string = xstrndup (yytext + 3, yyleng - 4);
return STRING;
}
/* End of line. */
"\n" {
LOCATION_LINES (*yylloc, yyleng);
return '\n';
}
/* White spaces. */
[\t ]+ {
yylval.literal = yytext;
yylval->string = yytext;
return BLANKS;
}
/* Plain Characters. */
[^%\n]+ {
yylval->string = yytext;
return RAW;
}
/* Plain Character. */
. {
yylval.character = *yytext;
yylval->character = *yytext;
return CHARACTER;
}