mirror of
https://git.savannah.gnu.org/git/bison.git
synced 2026-03-27 05:03:07 +00:00
examples: add a complete example with all the bells and whistles
* examples/c/bistromathic/Makefile, * examples/c/bistromathic/README.md, * examples/c/bistromathic/bistromathic.test, * examples/c/bistromathic/local.mk, * examples/c/bistromathic/parse.y, * examples/c/bistromathic/scan.l: New. * Makefile.am (AM_YFLAGS_WITH_LINES): Add -Wdangling-alias. * examples/test: Make failure errors easier to read.
This commit is contained in:
61
examples/c/bistromathic/scan.l
Normal file
61
examples/c/bistromathic/scan.l
Normal file
@@ -0,0 +1,61 @@
|
||||
/* Prologue (directives). -*- C -*- */
|
||||
|
||||
/* Disable Flex features we don't need, to avoid warnings. */
|
||||
%option nodefault noinput nounput noyywrap
|
||||
|
||||
%{
|
||||
#include <errno.h> /* errno, ERANGE */
|
||||
#include <limits.h> /* INT_MIN */
|
||||
#include <stdlib.h> /* strtol */
|
||||
|
||||
#include "parse.h"
|
||||
|
||||
// Each time a rule is matched, advance the end cursor/position.
|
||||
#define YY_USER_ACTION \
|
||||
yylloc->last_column += yyleng;
|
||||
%}
|
||||
|
||||
%%
|
||||
%{
|
||||
// Each time yylex is called, move the head position to the end one.
|
||||
yylloc->first_line = yylloc->last_line;
|
||||
yylloc->first_column = yylloc->last_column;
|
||||
%}
|
||||
/* Rules. */
|
||||
|
||||
"+" return TOK_PLUS;
|
||||
"-" return TOK_MINUS;
|
||||
"*" return TOK_STAR;
|
||||
"/" return TOK_SLASH;
|
||||
"^" return TOK_CARET;
|
||||
|
||||
"(" return TOK_LPAREN;
|
||||
")" return TOK_RPAREN;
|
||||
|
||||
"=" return TOK_EQUAL;
|
||||
|
||||
/* Scan an identifier. */
|
||||
[a-z]+ {
|
||||
symrec *s = getsym (yytext);
|
||||
if (!s)
|
||||
s = putsym (yytext, TOK_VAR);
|
||||
yylval->TOK_VAR = s;
|
||||
return s->type;
|
||||
}
|
||||
|
||||
/* Scan a double precision number. */
|
||||
[0-9]+(\.[0-9]*)?|(\.[0-9]+) {
|
||||
sscanf (yytext, "%lf", &yylval->TOK_NUM);
|
||||
return TOK_NUM;
|
||||
}
|
||||
|
||||
"\n" yylloc->last_line++; yylloc->last_column = 1; return TOK_EOL;
|
||||
|
||||
/* Ignore white spaces. */
|
||||
[ \t]+ continue;
|
||||
|
||||
<<EOF>> return TOK_EOF;
|
||||
|
||||
. yyerror (yylloc, "syntax error, invalid character");
|
||||
%%
|
||||
/* Epilogue (C code). */
|
||||
Reference in New Issue
Block a user