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

Transpile procedure declaration heading

Browse Source
This commit is contained in:
Eugen Wissner
2025-05-28 00:13:04 +02:00
parent 46d89122e4
commit 24651e7c48
3 changed files with 66 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/Lexer.elna
View File

@ -60,7 +60,7 @@ type
transitionStateDecimalSuffix,
transitionStateEnd
);
TransitionAction = procedure(PLexer, PLexerToken);
TransitionAction = proc(PLexer, PLexerToken);
Transition = record
Action: TransitionAction;
NextState: TransitionState
@ -311,7 +311,7 @@ BEGIN
AToken^.Kind := lexerKindWhile
ELSIF CompareKeyword('DO', ALexer^.Start, ALexer^.Current) THEN
AToken^.Kind := lexerKindDo
ELSIF CompareKeyword('PROCEDURE', ALexer^.Start, ALexer^.Current) THEN
ELSIF CompareKeyword('PROCEDURE', ALexer^.Start, ALexer^.Current) OR CompareKeyword('proc', ALexer^.Start, ALexer^.Current) THEN
AToken^.Kind := lexerKindProc
ELSIF CompareKeyword('BEGIN', ALexer^.Start, ALexer^.Current) THEN
AToken^.Kind := lexerKindBegin