added macrodef

ASTPlayground/Myc.Fmx.AstEditor.Text.pas

@@ -20,6 +20,7 @@ type
         function VisitIfExpression(const Node: IIfExpressionNode): TDataValue; override;
         function VisitTernaryExpression(const Node: ITernaryExpressionNode): TDataValue; override;
         function VisitLambdaExpression(const Node: ILambdaExpressionNode): TDataValue; override;
+        function VisitMacroDefinition(const Node: IMacroDefinitionNode): TDataValue; override;
         function VisitFunctionCall(const Node: IFunctionCallNode): TDataValue; override;
         function VisitBlockExpression(const Node: IBlockExpressionNode): TDataValue; override;
         function VisitVariableDeclaration(const Node: IVariableDeclarationNode): TDataValue; override;
@@ -164,6 +165,33 @@ begin
     end;
 end;
 
+function TAstToTextVisitor.VisitMacroDefinition(const Node: IMacroDefinitionNode): TDataValue;
+var
+    i: Integer;
+    sb: TStringBuilder;
+begin
+    // Added text representation for macro definitions.
+    sb := TStringBuilder.Create;
+    try
+        sb.Append('defmacro ');
+        sb.Append(Node.Name.Name);
+        sb.Append('(');
+        if Length(Node.Parameters) > 0 then
+        begin
+            for i := 0 to High(Node.Parameters) do
+            begin
+                sb.Append(Node.Parameters[i].Name);
+                if i < High(Node.Parameters) then
+                    sb.Append(', ');
+            end;
+        end;
+        sb.Append(') => {...}');
+        Result := sb.ToString;
+    finally
+        sb.Free;
+    end;
+end;
+
 function TAstToTextVisitor.VisitMemberAccess(const Node: IMemberAccessNode): TDataValue;
 var
     baseStr: string;