belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Split the parser from the code generator

Browse Source
This commit is contained in:
Eugen Wissner
2025-06-11 22:36:35 +02:00
parent 00e557686b
commit e3f094c8a5
7 changed files with 409 additions and 230 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/Lexer.elna
View File

@ -11,7 +11,7 @@ from MemUtils import MemCopy, MemZero;
from StrCase import Lower;
const
CHUNK_SIZE = 65536;
CHUNK_SIZE = 85536;
type
(*
@ -315,8 +315,8 @@ begin
end;
if lexer^.start^ = '"' then
text_length := lexer^.current;
DEC(text_length, lexer^.start);
INC(text_length);
DEC(text_length, lexer^.start);
INC(text_length);
MemZero(ADR(token^.stringKind), TSIZE(ShortString));
MemCopy(lexer^.start, text_length, ADR(token^.stringKind));
@ -325,8 +325,8 @@ begin
end;
if lexer^.start^ = "'" then
text_length := lexer^.current;
DEC(text_length, lexer^.start);
INC(text_length);
DEC(text_length, lexer^.start);
INC(text_length);
MemZero(ADR(token^.stringKind), TSIZE(ShortString));
MemCopy(lexer^.start, text_length, ADR(token^.stringKind));