blob: ddea92d09713d50875b8bf02b1ec94809a17b6b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
%{
#include "main.h"
#include "syn.h"
%}
%option noyywrap
%%
[ \t] { ; } /* skip blanks and tabs */
[0-9]+\.?|[0-9]*\.[0-9]+ {
sscanf(yytext, "%lf", &yylval.val); 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]; }
|
