added macrodef

Src/AST/Myc.Ast.pas

@@ -36,6 +36,11 @@ type
         class function IfExpr(const ACondition: IAstNode; const AThenBranch, AElseBranch: IAstNode): IIfExpressionNode; static;
         class function TernaryExpr(const ACondition: IAstNode; const AThenBranch, AElseBranch: IAstNode): ITernaryExpressionNode; static;
         class function LambdaExpr(const AParameters: TArray<IIdentifierNode>; const ABody: IAstNode): ILambdaExpressionNode; static;
+        class function MacroDef(
+            const AName: IIdentifierNode;
+            const AParameters: TArray<IIdentifierNode>;
+            const ABody: IAstNode
+        ): IMacroDefinitionNode; static;
         class function FunctionCall(const ACallee: IAstNode; const AArguments: TArray<IAstNode>): IFunctionCallNode; static;
         class function Recur(const AArguments: array of IAstNode): IRecurNode; static;
         class function Block(const AExpressions: array of IAstNode): IBlockExpressionNode; static;
@@ -141,6 +146,19 @@ type
         property Parameters: TArray<IIdentifierNode> read FParameters;
     end;
 
+    TMacroDefinitionNode = class(TAstNode, IMacroDefinitionNode)
+    private
+        FName: IIdentifierNode;
+        FParameters: TArray<IIdentifierNode>;
+        FBody: IAstNode;
+        function GetName: IIdentifierNode;
+        function GetParameters: TArray<IIdentifierNode>;
+        function GetBody: IAstNode;
+    public
+        constructor Create(const AName: IIdentifierNode; const AParameters: TArray<IIdentifierNode>; const ABody: IAstNode);
+        function Accept(const Visitor: IAstVisitor): TDataValue; override;
+    end;
+
     TFunctionCallNode = class(TAstNode, IFunctionCallNode)
     private
         FCallee: IAstNode;
@@ -428,6 +446,37 @@ begin
     Result := FParameters;
 end;
 
+{ TMacroDefinitionNode }
+
+constructor TMacroDefinitionNode.Create(const AName: IIdentifierNode; const AParameters: TArray<IIdentifierNode>; const ABody: IAstNode);
+begin
+    // Added concrete class for macro definitions.
+    inherited Create;
+    FName := AName;
+    FParameters := AParameters;
+    FBody := ABody;
+end;
+
+function TMacroDefinitionNode.Accept(const Visitor: IAstVisitor): TDataValue;
+begin
+    Result := Visitor.VisitMacroDefinition(Self);
+end;
+
+function TMacroDefinitionNode.GetBody: IAstNode;
+begin
+    Result := FBody;
+end;
+
+function TMacroDefinitionNode.GetName: IIdentifierNode;
+begin
+    Result := FName;
+end;
+
+function TMacroDefinitionNode.GetParameters: TArray<IIdentifierNode>;
+begin
+    Result := FParameters;
+end;
+
 { TFunctionCallNode }
 
 constructor TFunctionCallNode.Create(const ACallee: IAstNode; const AArguments: TArray<IAstNode>);
@@ -751,6 +800,21 @@ begin
     Result := TIndexerNode.Create(ABase, AIndex);
 end;
 
+class function TAst.LambdaExpr(const AParameters: TArray<IIdentifierNode>; const ABody: IAstNode): ILambdaExpressionNode;
+begin
+    Result := TLambdaExpressionNode.Create(AParameters, ABody);
+end;
+
+class function TAst.MacroDef(
+    const AName: IIdentifierNode;
+    const AParameters: TArray<IIdentifierNode>;
+    const ABody: IAstNode
+): IMacroDefinitionNode;
+begin
+    // Added factory for macro definitions.
+    Result := TMacroDefinitionNode.Create(AName, AParameters, ABody);
+end;
+
 class function TAst.MemberAccess(const ABase: IAstNode; const AMember: IIdentifierNode): IMemberAccessNode;
 begin
     Result := TMemberAccessNode.Create(ABase, AMember);
@@ -777,11 +841,6 @@ begin
     Result := TTernaryExpressionNode.Create(ACondition, AThenBranch, AElseBranch);
 end;
 
-class function TAst.LambdaExpr(const AParameters: TArray<IIdentifierNode>; const ABody: IAstNode): ILambdaExpressionNode;
-begin
-    Result := TLambdaExpressionNode.Create(AParameters, ABody);
-end;
-
 class function TAst.UnaryExpr(const AOperator: TScalar.TUnaryOp; const ARight: IAstNode): IUnaryExpressionNode;
 begin
     Result := TUnaryExpressionNode.Create(AOperator, ARight);