Make procedure name after the end
This commit is contained in:
@ -25,14 +25,12 @@ BEGIN
|
||||
|
||||
RETURN Result
|
||||
END TranspilerLex;
|
||||
|
||||
(* Write a semicolon followed by a newline. *)
|
||||
PROCEDURE WriteSemicolon();
|
||||
BEGIN
|
||||
WriteString(';');
|
||||
WriteLn()
|
||||
END WriteSemicolon;
|
||||
|
||||
PROCEDURE TranspileImport(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -59,7 +57,6 @@ BEGIN
|
||||
WriteSemicolon();
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileImport;
|
||||
|
||||
PROCEDURE TranspileImportPart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -72,7 +69,6 @@ BEGIN
|
||||
END;
|
||||
WriteLn()
|
||||
END TranspileImportPart;
|
||||
|
||||
PROCEDURE TranspileConstant(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -91,7 +87,6 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileConstant;
|
||||
|
||||
PROCEDURE TranspileConstantPart(AContext: PTranspilerContext; ALexer: PLexer): BOOLEAN;
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -112,7 +107,6 @@ BEGIN
|
||||
END;
|
||||
RETURN Result
|
||||
END TranspileConstantPart;
|
||||
|
||||
PROCEDURE TranspileModule(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -149,16 +143,19 @@ BEGIN
|
||||
WriteLn()
|
||||
END;
|
||||
TranspileProcedurePart(AContext, ALexer);
|
||||
TranspileStatementPart(AContext, ALexer);
|
||||
|
||||
Token := LexerCurrent(ALexer);
|
||||
WHILE Token.Kind <> lexerKindEof DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
WriteLn();
|
||||
WriteString('END ');
|
||||
|
||||
Token := TranspilerLex(ALexer)
|
||||
END
|
||||
Token := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
Write('.');
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteLn()
|
||||
END TranspileModule;
|
||||
|
||||
PROCEDURE TranspileTypeFields(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -181,7 +178,6 @@ BEGIN
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileTypeFields;
|
||||
|
||||
PROCEDURE TranspileRecordType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -191,7 +187,6 @@ BEGIN
|
||||
TranspileTypeFields(AContext, ALexer);
|
||||
WriteString(' END')
|
||||
END TranspileRecordType;
|
||||
|
||||
PROCEDURE TranspilePointerType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -204,7 +199,6 @@ BEGIN
|
||||
END;
|
||||
TranspileTypeExpression(AContext, ALexer)
|
||||
END TranspilePointerType;
|
||||
|
||||
PROCEDURE TranspileArrayType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -228,7 +222,6 @@ BEGIN
|
||||
WriteString(' OF ');
|
||||
TranspileTypeExpression(AContext, ALexer)
|
||||
END TranspileArrayType;
|
||||
|
||||
PROCEDURE TranspileEnumerationType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -255,12 +248,10 @@ BEGIN
|
||||
WriteLn();
|
||||
WriteString(' )')
|
||||
END TranspileEnumerationType;
|
||||
|
||||
PROCEDURE TranspileUnionType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
END TranspileUnionType;
|
||||
|
||||
PROCEDURE TranspileProcedureType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -282,7 +273,6 @@ BEGIN
|
||||
END;
|
||||
Write(')')
|
||||
END TranspileProcedureType;
|
||||
|
||||
PROCEDURE TranspileTypeExpression(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -308,7 +298,6 @@ BEGIN
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start)
|
||||
END
|
||||
END TranspileTypeExpression;
|
||||
|
||||
PROCEDURE TranspileTypeDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -324,7 +313,6 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon();
|
||||
END TranspileTypeDeclaration;
|
||||
|
||||
PROCEDURE TranspileTypePart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -343,7 +331,6 @@ BEGIN
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileTypePart;
|
||||
|
||||
PROCEDURE TranspileVariableDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -359,7 +346,6 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileVariableDeclaration;
|
||||
|
||||
PROCEDURE TranspileVariablePart(AContext: PTranspilerContext; ALexer: PLexer): BOOLEAN;
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -380,15 +366,15 @@ BEGIN
|
||||
END;
|
||||
RETURN Result
|
||||
END TranspileVariablePart;
|
||||
|
||||
PROCEDURE TranspileProcedureHeading(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
PROCEDURE TranspileProcedureHeading(AContext: PTranspilerContext; ALexer: PLexer): LexerToken;
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
Result: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString('PROCEDURE ');
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
Result := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
@ -420,64 +406,56 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileProcedureHeading;
|
||||
WriteSemicolon();
|
||||
|
||||
RETURN Result
|
||||
END TranspileProcedureHeading;
|
||||
PROCEDURE TranspileExpression(AContext: PTranspilerContext; ALexer: PLexer; TrailingToken: LexerKind);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
Token := TranspilerLex(ALexer);
|
||||
|
||||
WHILE (Token.Kind <> TrailingToken) AND (Token.Kind <> lexerKindEnd) DO
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Write(' ');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END
|
||||
END TranspileExpression;
|
||||
PROCEDURE TranspileIfStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
WriteString(' IF ');
|
||||
Token := TranspilerLex(ALexer);
|
||||
TranspileExpression(AContext, ALexer, lexerKindThen);
|
||||
|
||||
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);
|
||||
TranspileExpression(AContext, ALexer, lexerKindDo);
|
||||
|
||||
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
|
||||
TranspileExpression(AContext, ALexer, lexerKindSemicolon);
|
||||
END TranspileAssignmentStatement;
|
||||
|
||||
PROCEDURE TranspileCallStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -491,7 +469,6 @@ BEGIN
|
||||
Token := TranspilerLex(ALexer)
|
||||
END
|
||||
END TranspileCallStatement;
|
||||
|
||||
PROCEDURE TranspileReturnStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -502,7 +479,6 @@ BEGIN
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileReturnStatement;
|
||||
|
||||
PROCEDURE TranspileStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -548,6 +524,16 @@ BEGIN
|
||||
Write('^');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END;
|
||||
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 = lexerKindAssignment THEN
|
||||
TranspileAssignmentStatement(AContext, ALexer)
|
||||
@ -557,7 +543,6 @@ BEGIN
|
||||
END
|
||||
END
|
||||
END TranspileStatement;
|
||||
|
||||
PROCEDURE TranspileStatements(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -574,7 +559,6 @@ BEGIN
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileStatements;
|
||||
|
||||
PROCEDURE TranspileStatementPart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -586,25 +570,24 @@ BEGIN
|
||||
TranspileStatements(AContext, ALexer)
|
||||
END
|
||||
END TranspileStatementPart;
|
||||
|
||||
PROCEDURE TranspileProcedureDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
SeenPart: BOOLEAN;
|
||||
WrittenBytes: CARDINAL;
|
||||
BEGIN
|
||||
TranspileProcedureHeading(AContext, ALexer);
|
||||
Token := 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);
|
||||
WrittenBytes := WriteNBytes(StdOut, ORD(Token.identifierKind[1]), ADR(Token.identifierKind[2]));
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon();
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileProcedureDeclaration;
|
||||
|
||||
PROCEDURE TranspileProcedurePart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -617,7 +600,6 @@ BEGIN
|
||||
WriteLn()
|
||||
END
|
||||
END TranspileProcedurePart;
|
||||
|
||||
PROCEDURE Transpile(ALexer: PLexer);
|
||||
VAR
|
||||
Token: LexerToken;
|
||||
@ -626,5 +608,4 @@ VAR
|
||||
BEGIN
|
||||
TranspileModule(ADR(Context), ALexer)
|
||||
END Transpile;
|
||||
|
||||
END Transpiler.
|
||||
|
||||
Reference in New Issue
Block a user