Subversion Repositories Vertical

%{
#include "Parser.h"
%}

blanks          [ \t\n]+
identifier              [_a-zA-Z0-9]+

%%

{blanks}        { /* ignore */ }

"procedure"             return(PROCEDURE);
"{"                             return(BLOCK);
"}"                             return(ENDBLOCK);

{identifier}    {
                                yylval.sval = malloc(strlen(yytext));
                                strncpy(yylval.sval, yytext, strlen(yytext));
                                return(IDENTIFIER);
}