87 lines
2.6 KiB
Text
87 lines
2.6 KiB
Text
%{
|
|
#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 CSTRING
|
|
%x QSTRING
|
|
%x COMMENT
|
|
|
|
%%
|
|
|
|
<INITIAL>"{" {
|
|
yylval.string = ""; //stringf("#line %d\n", yylineno);
|
|
braces = 1;
|
|
BEGIN(CSTRING);
|
|
return CFRAGMENT;
|
|
}
|
|
|
|
<CSTRING>"{" {
|
|
braces++;
|
|
yylval.string = strdup(yytext);
|
|
return CFRAGMENT;
|
|
}
|
|
|
|
<CSTRING>"}" {
|
|
braces--;
|
|
if (braces == 0)
|
|
BEGIN(INITIAL);
|
|
else
|
|
{
|
|
yylval.string = strdup(yytext);
|
|
return CFRAGMENT;
|
|
}
|
|
}
|
|
|
|
<CSTRING>[^{}]+ {
|
|
yylval.string = strdup(yytext);
|
|
return CFRAGMENT;
|
|
}
|
|
|
|
<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;
|
|
"ins" return INS;
|
|
"outs" return OUTS;
|
|
"when" return WHEN;
|
|
|
|
"//"[^\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 : */
|