91e277e046
functions. Not convinced that semantic types are actually working --- there are still problems with earlier statements leaving things in the wrong registers.
57 lines
1.5 KiB
Plaintext
57 lines
1.5 KiB
Plaintext
%{
|
|
#include <stdbool.h>
|
|
#include "iburg.h"
|
|
#include "y.tab.h"
|
|
|
|
static int braces = 0;
|
|
|
|
%}
|
|
%option warn
|
|
%option nodefault
|
|
%option noyywrap
|
|
%option yylineno
|
|
%option debug
|
|
|
|
%x QSTRING
|
|
%x COMMENT
|
|
|
|
%%
|
|
|
|
<INITIAL>"\"" BEGIN(QSTRING);
|
|
<QSTRING>"\"" BEGIN(INITIAL);
|
|
|
|
<QSTRING>[%$][a-zA-Z_][a-zA_Z_0-9]+ {
|
|
yylval.string = strdup(yytext);
|
|
return QFRAGMENT;
|
|
}
|
|
|
|
<QSTRING>[^\r\n%$"]+ {
|
|
yylval.string = strdup(yytext);
|
|
return QFRAGMENT;
|
|
}
|
|
|
|
<INITIAL>"/*" BEGIN(COMMENT);
|
|
<COMMENT>"*/" BEGIN(INITIAL);
|
|
<COMMENT>[^*]* ;
|
|
<COMMENT>"*" ;
|
|
|
|
"DECLARATIONS" return DECLARATIONS;
|
|
"PATTERNS" return PATTERNS;
|
|
"REGISTERS" return REGISTERS;
|
|
"allocates" return ALLOCATES;
|
|
"cost" return COST;
|
|
"emit" return EMIT;
|
|
"fragment" return FRAGMENT;
|
|
"prefers" return PREFERS;
|
|
"requires" return REQUIRES;
|
|
|
|
"//"[^\n]*\n ;
|
|
|
|
[A-Za-z_][A-Za-z0-9_]* { yylval.string = strdup(yytext); return ID; }
|
|
[0-9]+ { yylval.n = atoi(yytext); return INT; }
|
|
[ \t\r\n]* ;
|
|
. return yytext[0];
|
|
|
|
%%
|
|
/* vim: set sw=4 ts=4 expandtab : */
|