Tail call optimization

2025-09-19 11:53:16 +02:00
parent 9be22dea3a
commit abbce15362
11 changed files with 169 additions and 52 deletions
@@ -23,6 +23,7 @@ type
        destructor Destroy; override;
        function GetResult: string;
        // IAstVisitor
+        function Execute(const RootNode: IAstNode): TDataValue;
        function VisitConstant(const Node: IConstantNode): TDataValue;
        function VisitIdentifier(const Node: IIdentifierNode): TDataValue;
        function VisitBinaryExpression(const Node: IBinaryExpressionNode): TDataValue;
@@ -84,6 +85,11 @@ begin
    FBuilder.AppendLine(S);
 end;

+function TPrettyPrintVisitor.Execute(const RootNode: IAstNode): TDataValue;
+begin
+    Result := RootNode.Accept(Self);
+end;
+
 function TPrettyPrintVisitor.VisitConstant(const Node: IConstantNode): TDataValue;
 begin
    AppendLine(Format('Constant (%s)', [Node.Value.ToString]));