Transpile procedures and statements
This commit is contained in:
@ -215,7 +215,8 @@ BEGIN
|
||||
INC(TokenStart);
|
||||
INC(Index)
|
||||
END;
|
||||
RETURN (Index = Length(Keyword)) AND (TokenStart = TokenEnd) AND Result
|
||||
Result := (Index = Length(Keyword)) AND (TokenStart = TokenEnd) AND Result;
|
||||
RETURN Result
|
||||
END CompareKeyword;
|
||||
|
||||
(* Reached the end of file. *)
|
||||
@ -236,15 +237,20 @@ PROCEDURE TransitionActionFinalize(ALexer: PLexer; AToken: PLexerToken);
|
||||
BEGIN
|
||||
IF ALexer^.Start^ = ':' THEN
|
||||
AToken^.Kind := lexerKindColon
|
||||
ELSIF ALexer^.Start^ = '>' THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = '>' THEN
|
||||
AToken^.Kind := lexerKindGreaterThan
|
||||
ELSIF ALexer^.Start^ = '<' THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = '<' THEN
|
||||
AToken^.Kind := lexerKindLessThan
|
||||
ELSIF ALexer^.Start^ = '(' THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = '(' THEN
|
||||
AToken^.Kind := lexerKindLeftParen
|
||||
ELSIF ALexer^.Start^ = '-' THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = '-' THEN
|
||||
AToken^.Kind := lexerKindLeftParen
|
||||
ELSIF ALexer^.Start^ = '.' THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = '.' THEN
|
||||
AToken^.Kind := lexerKindDot
|
||||
END
|
||||
END TransitionActionFinalize;
|
||||
@ -255,14 +261,18 @@ BEGIN
|
||||
IF ALexer^.Start^ = '<' THEN
|
||||
IF ALexer^.Current^ = '>' THEN
|
||||
AToken^.Kind := lexerKindNotEqual
|
||||
ELSIF ALexer^.Current^ = '=' THEN
|
||||
END;
|
||||
IF ALexer^.Current^ = '=' THEN
|
||||
AToken^.Kind := lexerKindLessEqual
|
||||
END
|
||||
ELSIF (ALexer^.Start^ = '>') AND (ALexer^.Current^ = '=') THEN
|
||||
END;
|
||||
IF (ALexer^.Start^ = '>') AND (ALexer^.Current^ = '=') THEN
|
||||
AToken^.Kind := lexerKindGreaterEqual
|
||||
ELSIF (ALexer^.Start^ = '.') AND (ALexer^.Current^ = '.') THEN
|
||||
END;
|
||||
IF (ALexer^.Start^ = '.') AND (ALexer^.Current^ = '.') THEN
|
||||
AToken^.Kind := lexerKindRange
|
||||
ELSIF (ALexer^.Start^ = ':') AND (ALexer^.Current^ = '=') THEN
|
||||
END;
|
||||
IF (ALexer^.Start^ = ':') AND (ALexer^.Current^ = '=') THEN
|
||||
AToken^.Kind := lexerKindAssignment
|
||||
END;
|
||||
INC(ALexer^.Current)
|
||||
@ -275,14 +285,16 @@ BEGIN
|
||||
INC(ALexer^.Start)
|
||||
END TransitionActionSkip;
|
||||
|
||||
(* 0x04. Delimited string action. *)
|
||||
(* Delimited string action. *)
|
||||
PROCEDURE TransitionActionDelimited(ALexer: PLexer; AToken: PLexerToken);
|
||||
BEGIN
|
||||
IF ALexer^.Start^ = '(' THEN
|
||||
AToken^.Kind := lexerKindComment
|
||||
ELSIF ALexer^.Start^ = '"' THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = '"' THEN
|
||||
AToken^.Kind := lexerKindCharacter
|
||||
ELSIF ALexer^.Start^ = "'" THEN
|
||||
END;
|
||||
IF ALexer^.Start^ = "'" THEN
|
||||
AToken^.Kind := lexerKindString
|
||||
END;
|
||||
INC(ALexer^.Current)
|
||||
@ -291,93 +303,150 @@ END TransitionActionDelimited;
|
||||
(* Finalize keyword or identifier. *)
|
||||
PROCEDURE TransitionActionKeyId(ALexer: PLexer; AToken: PLexerToken);
|
||||
BEGIN
|
||||
AToken^.Kind := lexerKindIdentifier;
|
||||
|
||||
IF CompareKeyword('PROGRAM', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindProgram
|
||||
ELSIF CompareKeyword('IMPORT', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('IMPORT', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindImport
|
||||
ELSIF CompareKeyword('CONST', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('CONST', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindConst
|
||||
ELSIF CompareKeyword('VAR', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('VAR', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindVar
|
||||
ELSIF CompareKeyword('IF', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('IF', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindIf
|
||||
ELSIF CompareKeyword('THEN', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('THEN', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindThen
|
||||
ELSIF CompareKeyword('ELSIF', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('ELSIF', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindElsif
|
||||
ELSIF CompareKeyword('ELSE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('ELSE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindElse
|
||||
ELSIF CompareKeyword('WHILE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('WHILE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindWhile
|
||||
ELSIF CompareKeyword('DO', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('DO', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindDo
|
||||
ELSIF CompareKeyword('PROCEDURE', ALexer^.Start, ALexer^.Current) OR CompareKeyword('proc', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('proc', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindProc
|
||||
ELSIF CompareKeyword('BEGIN', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('BEGIN', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindBegin
|
||||
ELSIF CompareKeyword('END', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('END', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindEnd
|
||||
ELSIF CompareKeyword('TYPE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('TYPE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindType
|
||||
ELSIF CompareKeyword('RECORD', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('RECORD', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindRecord
|
||||
ELSIF CompareKeyword('UNION', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('UNION', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindUnion
|
||||
ELSIF CompareKeyword('NIL', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('NIL', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindNull
|
||||
ELSIF CompareKeyword('AND', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('AND', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindAnd
|
||||
ELSIF CompareKeyword('OR', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('OR', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindOr
|
||||
ELSIF CompareKeyword('RETURN', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('RETURN', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindReturn
|
||||
ELSIF CompareKeyword('DEFINITION', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('DEFINITION', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindDefinition
|
||||
ELSIF CompareKeyword('TO', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('TO', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindTo
|
||||
ELSIF CompareKeyword('CASE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('CASE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindCase
|
||||
ELSIF CompareKeyword('OF', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('OF', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindOf
|
||||
ELSIF CompareKeyword('FROM', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('FROM', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindFrom
|
||||
ELSIF CompareKeyword('MODULE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('MODULE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindModule
|
||||
ELSIF CompareKeyword('IMPLEMENTATION', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('IMPLEMENTATION', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindImplementation
|
||||
ELSIF CompareKeyword('POINTER', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('POINTER', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindPointer
|
||||
ELSIF CompareKeyword('ARRAY', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('ARRAY', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindArray
|
||||
ELSIF CompareKeyword('TRUE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('TRUE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindBoolean;
|
||||
AToken^.booleanKind := TRUE
|
||||
ELSIF CompareKeyword('FALSE', ALexer^.Start, ALexer^.Current) THEN
|
||||
END;
|
||||
IF CompareKeyword('FALSE', ALexer^.Start, ALexer^.Current) THEN
|
||||
AToken^.Kind := lexerKindBoolean;
|
||||
AToken^.booleanKind := FALSE
|
||||
ELSE
|
||||
AToken^.Kind := lexerKindIdentifier
|
||||
END;
|
||||
END
|
||||
END TransitionActionKeyId;
|
||||
|
||||
(* Action for tokens containing only one character. The character cannot be
|
||||
* followed by other characters forming a composite token. *)
|
||||
PROCEDURE TransitionActionSingle(ALexer: PLexer; AToken: PLexerToken);
|
||||
BEGIN
|
||||
CASE ALexer^.Current^ OF
|
||||
'&': AToken^.Kind := lexerKindAnd |
|
||||
';': AToken^.Kind := lexerKindSemicolon |
|
||||
',': AToken^.Kind := lexerKindComma |
|
||||
')': AToken^.Kind := lexerKindRightParen |
|
||||
'[': AToken^.Kind := lexerKindLeftSquare |
|
||||
']': AToken^.Kind := lexerKindRightSquare |
|
||||
'^': AToken^.Kind := lexerKindHat |
|
||||
'=': AToken^.Kind := lexerKindEqual |
|
||||
'+': AToken^.Kind := lexerKindPlus |
|
||||
'/': AToken^.Kind := lexerKindDivision |
|
||||
'%': AToken^.Kind := lexerKindRemainder |
|
||||
'@': AToken^.Kind := lexerKindAt |
|
||||
'|': AToken^.Kind := lexerKindPipe
|
||||
IF ALexer^.Current^ = '&' THEN
|
||||
AToken^.Kind := lexerKindAnd
|
||||
END;
|
||||
IF ALexer^.Current^ = ';' THEN
|
||||
AToken^.Kind := lexerKindSemicolon
|
||||
END;
|
||||
IF ALexer^.Current^ = ',' THEN
|
||||
AToken^.Kind := lexerKindComma
|
||||
END;
|
||||
IF ALexer^.Current^ = ',' THEN
|
||||
AToken^.Kind := lexerKindComma
|
||||
END;
|
||||
IF ALexer^.Current^ = ')' THEN
|
||||
AToken^.Kind := lexerKindRightParen
|
||||
END;
|
||||
IF ALexer^.Current^ = '[' THEN
|
||||
AToken^.Kind := lexerKindLeftSquare
|
||||
END;
|
||||
IF ALexer^.Current^ = ']' THEN
|
||||
AToken^.Kind := lexerKindRightSquare
|
||||
END;
|
||||
IF ALexer^.Current^ = '^' THEN
|
||||
AToken^.Kind := lexerKindHat
|
||||
END;
|
||||
IF ALexer^.Current^ = '=' THEN
|
||||
AToken^.Kind := lexerKindEqual
|
||||
END;
|
||||
IF ALexer^.Current^ = '+' THEN
|
||||
AToken^.Kind := lexerKindPlus
|
||||
END;
|
||||
IF ALexer^.Current^ = '/' THEN
|
||||
AToken^.Kind := lexerKindDivision
|
||||
END;
|
||||
IF ALexer^.Current^ = '%' THEN
|
||||
AToken^.Kind := lexerKindRemainder
|
||||
END;
|
||||
IF ALexer^.Current^ = '@' THEN
|
||||
AToken^.Kind := lexerKindAt
|
||||
END;
|
||||
IF ALexer^.Current^ = '|' THEN
|
||||
AToken^.Kind := lexerKindPipe
|
||||
END;
|
||||
INC(ALexer^.Current)
|
||||
END TransitionActionSingle;
|
||||
@ -389,7 +458,8 @@ BEGIN
|
||||
END TransitionActionInteger;
|
||||
|
||||
PROCEDURE SetDefaultTransition(CurrentState: TransitionState; DefaultAction: TransitionAction; NextState: TransitionState);
|
||||
VAR DefaultTransition: Transition;
|
||||
VAR
|
||||
DefaultTransition: Transition;
|
||||
BEGIN
|
||||
DefaultTransition.Action := DefaultAction;
|
||||
DefaultTransition.NextState := NextState;
|
||||
@ -415,7 +485,7 @@ BEGIN
|
||||
Transitions[ORD(CurrentState)][ORD(transitionClassDoubleQuote)] := DefaultTransition;
|
||||
Transitions[ORD(CurrentState)][ORD(transitionClassGreater)] := DefaultTransition;
|
||||
Transitions[ORD(CurrentState)][ORD(transitionClassLess)] := DefaultTransition;
|
||||
Transitions[ORD(CurrentState)][ORD(transitionClassOther)] := DefaultTransition;
|
||||
Transitions[ORD(CurrentState)][ORD(transitionClassOther)] := DefaultTransition
|
||||
END SetDefaultTransition;
|
||||
|
||||
(*
|
||||
@ -705,6 +775,8 @@ BEGIN
|
||||
END LexerCurrent;
|
||||
|
||||
PROCEDURE LexerLex(ALexer: PLexer): LexerToken;
|
||||
VAR
|
||||
Result: LexerToken;
|
||||
BEGIN
|
||||
IF ALexer^.Length = 0 THEN
|
||||
ALexer^.Length := ReadNBytes(ALexer^.Input, ChunkSize, ALexer^.Buffer);
|
||||
@ -712,7 +784,8 @@ BEGIN
|
||||
END;
|
||||
ALexer^.Start := ALexer^.Current;
|
||||
|
||||
RETURN LexerCurrent(ALexer)
|
||||
Result := LexerCurrent(ALexer);
|
||||
RETURN Result
|
||||
END LexerLex;
|
||||
|
||||
PROCEDURE LexerDestroy(ALexer: PLexer);
|
||||
|
||||
Reference in New Issue
Block a user