Transpile procedures and statements
This commit is contained in:
@ -92,13 +92,15 @@ BEGIN
|
||||
WriteSemicolon()
|
||||
END TranspileConstant;
|
||||
|
||||
PROCEDURE TranspileConstantPart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
PROCEDURE TranspileConstantPart(AContext: PTranspilerContext; ALexer: PLexer): BOOLEAN;
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
Result: BOOLEAN;
|
||||
BEGIN
|
||||
Token := LexerCurrent(ALexer);
|
||||
Result := Token.Kind = lexerKindConst;
|
||||
|
||||
IF Token.Kind = lexerKindConst THEN
|
||||
IF Result THEN
|
||||
WriteString('CONST');
|
||||
WriteLn();
|
||||
Token := TranspilerLex(ALexer);
|
||||
@ -106,9 +108,9 @@ BEGIN
|
||||
WHILE Token.Kind = lexerKindIdentifier DO
|
||||
TranspileConstant(AContext, ALexer);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
WriteLn()
|
||||
END
|
||||
END
|
||||
END;
|
||||
RETURN Result
|
||||
END TranspileConstantPart;
|
||||
|
||||
PROCEDURE TranspileModule(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
@ -120,8 +122,9 @@ BEGIN
|
||||
|
||||
IF Token.Kind = lexerKindDefinition THEN
|
||||
WriteString('DEFINITION ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
ELSIF Token.Kind = lexerKindImplementation THEN
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
IF Token.Kind = lexerKindImplementation THEN
|
||||
WriteString('IMPLEMENTATION ');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
@ -138,9 +141,13 @@ BEGIN
|
||||
(* Write the module body. *)
|
||||
Token := TranspilerLex(ALexer);
|
||||
TranspileImportPart(AContext, ALexer);
|
||||
TranspileConstantPart(AContext, ALexer);
|
||||
IF TranspileConstantPart(AContext, ALexer) THEN
|
||||
WriteLn()
|
||||
END;
|
||||
TranspileTypePart(AContext, ALexer);
|
||||
TranspileVariablePart(AContext, ALexer);
|
||||
IF TranspileVariablePart(AContext, ALexer) THEN
|
||||
WriteLn()
|
||||
END;
|
||||
TranspileProcedurePart(AContext, ALexer);
|
||||
|
||||
Token := LexerCurrent(ALexer);
|
||||
@ -169,10 +176,9 @@ BEGIN
|
||||
|
||||
IF Token.Kind = lexerKindSemicolon THEN
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
ELSE
|
||||
WriteLn()
|
||||
END
|
||||
Write(';')
|
||||
END;
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileTypeFields;
|
||||
|
||||
@ -285,15 +291,20 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
IF Token.Kind = lexerKindRecord THEN
|
||||
TranspileRecordType(AContext, ALexer)
|
||||
ELSIF Token.Kind = lexerKindLeftParen THEN
|
||||
END;
|
||||
IF Token.Kind = lexerKindLeftParen THEN
|
||||
TranspileEnumerationType(AContext, ALexer)
|
||||
ELSIF Token.Kind = lexerKindArray THEN
|
||||
END;
|
||||
IF Token.Kind = lexerKindArray THEN
|
||||
TranspileArrayType(AContext, ALexer)
|
||||
ELSIF (Token.Kind = lexerKindPointer) OR (Token.Kind = lexerKindHat) THEN
|
||||
END;
|
||||
IF (Token.Kind = lexerKindPointer) OR (Token.Kind = lexerKindHat) THEN
|
||||
TranspilePointerType(AContext, ALexer)
|
||||
ELSIF Token.Kind = lexerKindProc THEN
|
||||
END;
|
||||
IF Token.Kind = lexerKindProc THEN
|
||||
TranspileProcedureType(AContext, ALexer)
|
||||
ELSE
|
||||
END;
|
||||
IF Token.Kind = lexerKindIdentifier THEN
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start)
|
||||
END
|
||||
END TranspileTypeExpression;
|
||||
@ -349,13 +360,15 @@ BEGIN
|
||||
WriteSemicolon()
|
||||
END TranspileVariableDeclaration;
|
||||
|
||||
PROCEDURE TranspileVariablePart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
PROCEDURE TranspileVariablePart(AContext: PTranspilerContext; ALexer: PLexer): BOOLEAN;
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
Result: BOOLEAN;
|
||||
BEGIN
|
||||
Token := LexerCurrent(ALexer);
|
||||
Result := Token.Kind = lexerKindVar;
|
||||
|
||||
IF Token.Kind = lexerKindVar THEN
|
||||
IF Result THEN
|
||||
WriteString('VAR');
|
||||
WriteLn();
|
||||
Token := TranspilerLex(ALexer);
|
||||
@ -363,12 +376,12 @@ BEGIN
|
||||
WHILE Token.Kind = lexerKindIdentifier DO
|
||||
TranspileVariableDeclaration(AContext, ALexer);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
WriteLn()
|
||||
END
|
||||
END
|
||||
END;
|
||||
RETURN Result
|
||||
END TranspileVariablePart;
|
||||
|
||||
PROCEDURE TranspileProcedureDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
PROCEDURE TranspileProcedureHeading(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
@ -388,8 +401,7 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteString(': ');
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
TranspileTypeExpression(AContext, ALexer);
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
IF Token.Kind = lexerKindSemicolon THEN
|
||||
@ -409,6 +421,188 @@ BEGIN
|
||||
END;
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileProcedureHeading;
|
||||
|
||||
PROCEDURE TranspileIfStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString(' IF ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
WHILE Token.Kind <> lexerKindThen DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Write(' ');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
WriteString('THEN');
|
||||
WriteLn();
|
||||
TranspileStatements(AContext, ALexer);
|
||||
WriteString(' END');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileIfStatement;
|
||||
|
||||
PROCEDURE TranspileWhileStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString(' WHILE ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
WHILE Token.Kind <> lexerKindDo DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Write(' ');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
WriteString('DO');
|
||||
WriteLn();
|
||||
TranspileStatements(AContext, ALexer);
|
||||
WriteString(' END');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileWhileStatement;
|
||||
|
||||
PROCEDURE TranspileAssignmentStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString(' := ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
WHILE (Token.Kind <> lexerKindSemicolon) AND (Token.Kind <> lexerKindEnd) DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Write(' ');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END
|
||||
END TranspileAssignmentStatement;
|
||||
|
||||
PROCEDURE TranspileCallStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString('(');
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
WHILE (Token.Kind <> lexerKindSemicolon) AND (Token.Kind <> lexerKindEnd) DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END
|
||||
END TranspileCallStatement;
|
||||
|
||||
PROCEDURE TranspileReturnStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString(' RETURN ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileReturnStatement;
|
||||
|
||||
PROCEDURE TranspileStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
IF Token.Kind = lexerKindIf THEN
|
||||
TranspileIfStatement(AContext, ALexer)
|
||||
END;
|
||||
IF Token.Kind = lexerKindWhile THEN
|
||||
TranspileWhileStatement(AContext, ALexer)
|
||||
END;
|
||||
IF Token.Kind = lexerKindReturn THEN
|
||||
TranspileReturnStatement(AContext, ALexer)
|
||||
END;
|
||||
IF Token.Kind = lexerKindIdentifier THEN
|
||||
WriteString(' ');
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
WHILE Token.Kind = lexerKindLeftSquare DO
|
||||
Write('[');
|
||||
Token := TranspilerLex(ALexer);
|
||||
WHILE Token.Kind <> lexerKindRightSquare DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
Write(']');
|
||||
Token := TranspilerLex(ALexer);
|
||||
END;
|
||||
IF Token.Kind = lexerKindHat THEN
|
||||
Write('^');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
IF Token.Kind = lexerKindDot THEN
|
||||
Write('.');
|
||||
Token := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer);
|
||||
END;
|
||||
IF Token.Kind = lexerKindHat THEN
|
||||
Write('^');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
|
||||
IF Token.Kind = lexerKindAssignment THEN
|
||||
TranspileAssignmentStatement(AContext, ALexer)
|
||||
END;
|
||||
IF Token.Kind = lexerKindLeftParen THEN
|
||||
TranspileCallStatement(AContext, ALexer)
|
||||
END
|
||||
END
|
||||
END TranspileStatement;
|
||||
|
||||
PROCEDURE TranspileStatements(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
BEGIN
|
||||
Token := LexerCurrent(ALexer);
|
||||
|
||||
WHILE Token.Kind <> lexerKindEnd DO
|
||||
TranspileStatement(AContext, ALexer);
|
||||
Token := LexerCurrent(ALexer);
|
||||
|
||||
IF Token.Kind = lexerKindSemicolon THEN
|
||||
Write(';')
|
||||
END;
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileStatements;
|
||||
|
||||
PROCEDURE TranspileStatementPart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
BEGIN
|
||||
Token := LexerCurrent(ALexer);
|
||||
IF Token.Kind = lexerKindBegin THEN
|
||||
WriteString('BEGIN');
|
||||
WriteLn();
|
||||
TranspileStatements(AContext, ALexer)
|
||||
END
|
||||
END TranspileStatementPart;
|
||||
|
||||
PROCEDURE TranspileProcedureDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
SeenPart: BOOLEAN;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
TranspileProcedureHeading(AContext, ALexer);
|
||||
SeenPart := TranspileConstantPart(AContext, ALexer);
|
||||
SeenPart := TranspileVariablePart(AContext, ALexer);
|
||||
TranspileStatementPart(AContext, ALexer);
|
||||
WriteString('END ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon();
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileProcedureDeclaration;
|
||||
|
||||
PROCEDURE TranspileProcedurePart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
@ -417,8 +611,10 @@ VAR
|
||||
BEGIN
|
||||
Token := LexerCurrent(ALexer);
|
||||
|
||||
IF Token.Kind = lexerKindProc THEN
|
||||
TranspileProcedureDeclaration(AContext, ALexer)
|
||||
WHILE Token.Kind = lexerKindProc DO
|
||||
TranspileProcedureDeclaration(AContext, ALexer);
|
||||
Token := LexerCurrent(ALexer);
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileProcedurePart;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user