/* Specyfikacja (f)lex dla podzbioru instrukcji Pascal */

%{
#include "y.tab.h"
%}

ID [A-Za-z][A-Za-z0-9]*

%%

"begin"  { return tBEGIN; }
"end"    { return tEND; }
"if"     { return tIF; }
"then"   { return tTHEN; }
"else"   { return tELSE; }
":="     { return tASSIGN; }
{ID}     { return tIDENTIFIER; }
[0-9]+   { return tNUMBER; }
[ \t\n]  /* ignore whitespace */
.        { return *yytext; }

%%
