blob: e7731cac32fd249988dd470e2efeba4b2be8115f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
%{
#include "main.h"
#include "syn.h"
%}
%option noyywrap
%%
[ \t] { ; } /* skip blanks and tabs */
[0-9]+\.?|[0-9]*\.[0-9]+ {
Symbol *s = cru_symbol_install("", UNDEF, (SymbolValue)0.0);
sscanf(yytext, "%lf", &s->value.val);
yylval.sym = s;
return NUMBER; }
[a-zA-Z][a-zA-Z0-9]* {
Symbol *s;
if ((s=cru_symbol_lookup(yytext)) == 0)
s = cru_symbol_install(yytext, UNDEF, (SymbolValue)0.0);
yylval.sym = s;
return s->type == UNDEF ? VAR : s->type; }
\n { lineno++; return '\n'; } /* everything else */
. { return yytext[0]; }
|
