added macrodef

Src/AST/Myc.Ast.JSON.pas

@@ -34,6 +34,7 @@ type
         function JsonToIfExprNode(const AObj: TJSONObject): IIfExpressionNode;
         function JsonToTernaryExprNode(const AObj: TJSONObject): ITernaryExpressionNode;
         function JsonToLambdaExprNode(const AObj: TJSONObject): ILambdaExpressionNode;
+        function JsonToMacroDefNode(const AObj: TJSONObject): IMacroDefinitionNode;
         function JsonToFunctionCallNode(const AObj: TJSONObject): IFunctionCallNode;
         function JsonToRecurNode(const AObj: TJSONObject): IRecurNode;
         function JsonToBlockNode(const AObj: TJSONObject): IBlockExpressionNode;
@@ -53,6 +54,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 VisitRecurNode(const Node: IRecurNode): TDataValue; override;
         function VisitBlockExpression(const Node: IBlockExpressionNode): TDataValue; override;
@@ -258,6 +260,41 @@ begin
     Result := TDataValue.Void;
 end;
 
+function TJsonAstConverter.VisitMacroDefinition(const Node: IMacroDefinitionNode): TDataValue;
+var
+    obj, nameObj, bodyObj: TJSONObject;
+    paramsArray: TJSONArray;
+    tempParams: TArray<TJSONObject>;
+    param: IIdentifierNode;
+    i: Integer;
+begin
+    // Added serialization for macro definitions.
+    Node.Name.Accept(Self);
+    for param in Node.Parameters do
+        param.Accept(Self);
+    Node.Body.Accept(Self);
+
+    bodyObj := FJsonObjectStack.Pop;
+
+    SetLength(tempParams, Length(Node.Parameters));
+    for i := High(tempParams) downto 0 do
+        tempParams[i] := FJsonObjectStack.Pop;
+
+    nameObj := FJsonObjectStack.Pop;
+
+    paramsArray := TJSONArray.Create;
+    for i := 0 to High(tempParams) do
+        paramsArray.Add(tempParams[i]);
+
+    obj := TJSONObject.Create;
+    obj.AddPair('NodeType', TJSONString.Create('MacroDef'));
+    obj.AddPair('Name', nameObj);
+    obj.AddPair('Parameters', paramsArray);
+    obj.AddPair('Body', bodyObj);
+    FJsonObjectStack.Push(obj);
+    Result := TDataValue.Void;
+end;
+
 function TJsonAstConverter.VisitFunctionCall(const Node: IFunctionCallNode): TDataValue;
 var
     obj, calleeObj: TJSONObject;
@@ -589,6 +626,26 @@ begin
     Result := TAst.LambdaExpr(params, body);
 end;
 
+function TJsonAstConverter.JsonToMacroDefNode(const AObj: TJSONObject): IMacroDefinitionNode;
+var
+    name: IIdentifierNode;
+    params: TArray<IIdentifierNode>;
+    body: IAstNode;
+    paramArray: TJSONArray;
+    i: Integer;
+begin
+    // Added deserialization for macro definitions.
+    name := JsonToIdentifierNode(AObj.GetValue('Name') as TJSONObject);
+
+    paramArray := AObj.GetValue<TJSONArray>('Parameters');
+    SetLength(params, paramArray.Count);
+    for i := 0 to paramArray.Count - 1 do
+        params[i] := JsonToIdentifierNode(paramArray.Items[i] as TJSONObject);
+
+    body := JsonToNode(AObj.GetValue('Body'));
+    Result := TAst.MacroDef(name, params, body);
+end;
+
 function TJsonAstConverter.JsonToFunctionCallNode(const AObj: TJSONObject): IFunctionCallNode;
 var
     callee: IAstNode;
@@ -715,6 +772,8 @@ begin
         Result := JsonToTernaryExprNode(obj)
     else if nodeType = 'LambdaExpr' then
         Result := JsonToLambdaExprNode(obj)
+    else if nodeType = 'MacroDef' then
+        Result := JsonToMacroDefNode(obj)
     else if nodeType = 'FunctionCall' then
         Result := JsonToFunctionCallNode(obj)
     else if nodeType = 'Recur' then