anon/eaxhla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

'end' as a state

Browse Source
This commit is contained in:
anon
2024-07-05 10:10:33 +02:00
parent d7d4630ca4
commit 5d83d7abc6
3 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
source/eaxhla.l
View File

@ -1,6 +1,7 @@
%{
#include <stdlib.h>
#include "eaxhla.tab.h"
#include "table.h"
char * string_literal_buffer;
int string_litral_buffer_size = 0;
@ -22,6 +23,7 @@ uhex [0123456789ABCDEF]
%x IN_COMMENT IN_MULTILINE_COMMENT
%x IN_STRING
%x IN_END
// XXX: ?!
%x IN_DECLARE
@ -36,18 +38,23 @@ uhex [0123456789ABCDEF]
begin{wsnl}+ { return MYBEGIN; }
/* XXX 'end' should be its own state, with proper error handling */
program{wsnl}+ { return PROGRAM; }
end{wsnl}+program{wsnl}+ { return END_PROGRAM; }
procedure{wsnl}+ { return PROCEDURE; }
end{wsnl}+procedure{wsnl}+ { return END_PROCEDURE; }
loop{wsnl}+ { return TLOOP; }
end{wsnl}+loop{wsnl}+ { return END_LOOP; }
if{wsnl}+ { return IF; }
then{wsnl}+ { return THEN; }
end{wsnl}+if{wsnl}+ { return END_IF; }
break{wsnl}+ { return BREAK; }
end { BEGIN IN_END; }
<IN_END>{
program { BEGIN INITIAL; return END_PROGRAM; }
procedure { BEGIN INITIAL; return END_PROCEDURE; }
loop { BEGIN INITIAL; return END_LOOP; }
if { BEGIN INITIAL; return END_IF; }
{wsnl} { ; }
. { yyerror(); }
}
fast{wsnl}+ { return FAST; }
unix{wsnl}+ { return UNIX; }
@ -139,7 +146,7 @@ fastcall{wsnl}+ { return FASTCALL; }
.|\n { ; }
}
{identifier}{wsnl}+ { yylval.strval = strdup(yytext); return IDENTIFIER; }
{identifier} { yylval.strval = strdup(yytext); return IDENTIFIER; }
. { yyerror(); }