Beginning Editor

ASTPlayground/Myc.Ast.Visualizer.pas

@@ -225,7 +225,7 @@ type
             const ChildVisitorProc: TChildVisitorProc
         ): TAuraNode;
         function VisitOperatorNode(
-            const InputExpressions: TArray<IExpressionNode>;
+            const InputExpressions: TArray<IAstNode>;
             const CreateParentProc: TCreateParentNodeProc;
             Alignment: TVerticalAlignment = vaCenter
         ): TAuraNode;
@@ -1073,7 +1073,7 @@ end;
 function TAstToAuraNodeVisitor.VisitAddSeriesItem(const Node: IAddSeriesItemNode): TAstValue;
 var
     details: string;
-    inputs: TArray<IExpressionNode>;
+    inputs: TArray<IAstNode>;
 begin
     if (FMode = vmControlFlow) and TryGetDescr(Node, details) then
     begin
@@ -1235,7 +1235,7 @@ begin
             false,
             procedure(const Visitor: IAstVisitor)
             var
-                expression: IExpressionNode;
+                expression: IAstNode;
             begin
                 for expression in Node.Expressions do
                     expression.Accept(Visitor);
@@ -1391,7 +1391,7 @@ end;
 
 function TAstToAuraNodeVisitor.VisitFunctionCall(const Node: IFunctionCallNode): TAstValue;
 var
-    inputExpressions: TArray<IExpressionNode>;
+    inputExpressions: TArray<IAstNode>;
 begin
     var details: String;
     if (FMode = vmControlFlow) and TryGetDescr(Node, details) then
@@ -1665,13 +1665,13 @@ begin
 end;
 
 function TAstToAuraNodeVisitor.VisitOperatorNode(
-    const InputExpressions: TArray<IExpressionNode>;
+    const InputExpressions: TArray<IAstNode>;
     const CreateParentProc: TCreateParentNodeProc;
     Alignment: TVerticalAlignment
 ): TAuraNode;
 var
     inputResults: TAuraNodeResultList;
-    inputNode: IExpressionNode;
+    inputNode: IAstNode;
     startPosition: TPointF;
     endY, maxChildWidth: Single;
     parentNode: TAuraNode;