Make procedure name after the end
This commit is contained in:
@ -24,14 +24,14 @@ begin
|
||||
end;
|
||||
|
||||
return Result
|
||||
END TranspilerLex;
|
||||
end;
|
||||
|
||||
(* Write a semicolon followed by a newline. *)
|
||||
proc WriteSemicolon();
|
||||
begin
|
||||
WriteString(';');
|
||||
WriteLn()
|
||||
END WriteSemicolon;
|
||||
end;
|
||||
|
||||
proc TranspileImport(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -58,7 +58,7 @@ begin
|
||||
end;
|
||||
WriteSemicolon();
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileImport;
|
||||
end;
|
||||
|
||||
proc TranspileImportPart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -71,7 +71,7 @@ begin
|
||||
Token := LexerCurrent(ALexer)
|
||||
end;
|
||||
WriteLn()
|
||||
END TranspileImportPart;
|
||||
end;
|
||||
|
||||
proc TranspileConstant(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -90,7 +90,7 @@ begin
|
||||
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileConstant;
|
||||
end;
|
||||
|
||||
proc TranspileConstantPart(AContext: PTranspilerContext; ALexer: PLexer): BOOLEAN;
|
||||
var
|
||||
@ -111,7 +111,7 @@ begin
|
||||
end
|
||||
end;
|
||||
return Result
|
||||
END TranspileConstantPart;
|
||||
end;
|
||||
|
||||
proc TranspileModule(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -157,7 +157,7 @@ begin
|
||||
|
||||
Token := TranspilerLex(ALexer)
|
||||
end
|
||||
END TranspileModule;
|
||||
end;
|
||||
|
||||
proc TranspileTypeFields(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -180,7 +180,7 @@ begin
|
||||
end;
|
||||
WriteLn()
|
||||
end
|
||||
END TranspileTypeFields;
|
||||
end;
|
||||
|
||||
proc TranspileRecordType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -190,7 +190,7 @@ begin
|
||||
WriteLn();
|
||||
TranspileTypeFields(AContext, ALexer);
|
||||
WriteString(' END')
|
||||
END TranspileRecordType;
|
||||
end;
|
||||
|
||||
proc TranspilePointerType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -203,7 +203,7 @@ begin
|
||||
Token := TranspilerLex(ALexer)
|
||||
end;
|
||||
TranspileTypeExpression(AContext, ALexer)
|
||||
END TranspilePointerType;
|
||||
end;
|
||||
|
||||
proc TranspileArrayType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -227,7 +227,7 @@ begin
|
||||
end;
|
||||
WriteString(' OF ');
|
||||
TranspileTypeExpression(AContext, ALexer)
|
||||
END TranspileArrayType;
|
||||
end;
|
||||
|
||||
proc TranspileEnumerationType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -254,12 +254,12 @@ begin
|
||||
end;
|
||||
WriteLn();
|
||||
WriteString(' )')
|
||||
END TranspileEnumerationType;
|
||||
end;
|
||||
|
||||
proc TranspileUnionType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
Token: LexerToken;
|
||||
END TranspileUnionType;
|
||||
end;
|
||||
|
||||
proc TranspileProcedureType(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -281,7 +281,7 @@ begin
|
||||
end
|
||||
end;
|
||||
Write(')')
|
||||
END TranspileProcedureType;
|
||||
end;
|
||||
|
||||
proc TranspileTypeExpression(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -307,7 +307,7 @@ begin
|
||||
if Token.Kind = lexerKindIdentifier then
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start)
|
||||
end
|
||||
END TranspileTypeExpression;
|
||||
end;
|
||||
|
||||
proc TranspileTypeDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -323,7 +323,7 @@ begin
|
||||
TranspileTypeExpression(AContext, ALexer);
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon();
|
||||
END TranspileTypeDeclaration;
|
||||
end;
|
||||
|
||||
proc TranspileTypePart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -342,7 +342,7 @@ begin
|
||||
end;
|
||||
WriteLn()
|
||||
end
|
||||
END TranspileTypePart;
|
||||
end;
|
||||
|
||||
proc TranspileVariableDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -358,7 +358,7 @@ begin
|
||||
TranspileTypeExpression(AContext, ALexer);
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileVariableDeclaration;
|
||||
end;
|
||||
|
||||
proc TranspileVariablePart(AContext: PTranspilerContext; ALexer: PLexer): BOOLEAN;
|
||||
var
|
||||
@ -379,16 +379,17 @@ begin
|
||||
end
|
||||
end;
|
||||
return Result
|
||||
END TranspileVariablePart;
|
||||
end;
|
||||
|
||||
proc TranspileProcedureHeading(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
proc 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,8 +421,10 @@ begin
|
||||
Token := TranspilerLex(ALexer)
|
||||
end;
|
||||
Token := TranspilerLex(ALexer);
|
||||
WriteSemicolon()
|
||||
END TranspileProcedureHeading;
|
||||
WriteSemicolon();
|
||||
|
||||
return Result
|
||||
end;
|
||||
|
||||
proc TranspileIfStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -441,7 +444,7 @@ begin
|
||||
TranspileStatements(AContext, ALexer);
|
||||
WriteString(' END');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileIfStatement;
|
||||
end;
|
||||
|
||||
proc TranspileWhileStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -461,7 +464,7 @@ begin
|
||||
TranspileStatements(AContext, ALexer);
|
||||
WriteString(' END');
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileWhileStatement;
|
||||
end;
|
||||
|
||||
proc TranspileAssignmentStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -476,7 +479,7 @@ begin
|
||||
Write(' ');
|
||||
Token := TranspilerLex(ALexer)
|
||||
end
|
||||
END TranspileAssignmentStatement;
|
||||
end;
|
||||
|
||||
proc TranspileCallStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -490,7 +493,7 @@ begin
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer)
|
||||
end
|
||||
END TranspileCallStatement;
|
||||
end;
|
||||
|
||||
proc TranspileReturnStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -501,7 +504,7 @@ begin
|
||||
Token := TranspilerLex(ALexer);
|
||||
WrittenBytes := WriteNBytes(StdOut, ADDRESS(ALexer^.Current - ALexer^.Start), ALexer^.Start);
|
||||
Token := TranspilerLex(ALexer)
|
||||
END TranspileReturnStatement;
|
||||
end;
|
||||
|
||||
proc TranspileStatement(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -548,6 +551,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)
|
||||
@ -556,7 +569,7 @@ begin
|
||||
TranspileCallStatement(AContext, ALexer)
|
||||
end
|
||||
end
|
||||
END TranspileStatement;
|
||||
end;
|
||||
|
||||
proc TranspileStatements(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -573,7 +586,7 @@ begin
|
||||
end;
|
||||
WriteLn()
|
||||
end
|
||||
END TranspileStatements;
|
||||
end;
|
||||
|
||||
proc TranspileStatementPart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -585,7 +598,7 @@ begin
|
||||
WriteLn();
|
||||
TranspileStatements(AContext, ALexer)
|
||||
end
|
||||
END TranspileStatementPart;
|
||||
end;
|
||||
|
||||
proc TranspileProcedureDeclaration(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -593,17 +606,18 @@ var
|
||||
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;
|
||||
end;
|
||||
|
||||
proc TranspileProcedurePart(AContext: PTranspilerContext; ALexer: PLexer);
|
||||
var
|
||||
@ -616,7 +630,7 @@ begin
|
||||
Token := LexerCurrent(ALexer);
|
||||
WriteLn()
|
||||
end
|
||||
END TranspileProcedurePart;
|
||||
end;
|
||||
|
||||
proc Transpile(ALexer: PLexer);
|
||||
var
|
||||
@ -625,6 +639,6 @@ var
|
||||
Context: TranspilerContext;
|
||||
begin
|
||||
TranspileModule(ADR(Context), ALexer)
|
||||
END Transpile;
|
||||
end;
|
||||
|
||||
END Transpiler.
|
||||
|
||||
Reference in New Issue
Block a user