feat: Add Macro Expansion

Socordia-Org · Dec 2, 2024 · a7526f3 · a7526f3
1 parent d62325e
commit a7526f3
Show file tree

Hide file tree

Showing 3 changed files with 28 additions and 21 deletions.
diff --git a/Source/Backlang.Driver/ExtensionUtils.cs → NewSource/BacklangC/Core/ExtensionUtils.cs b/Source/Backlang.Driver/ExtensionUtils.cs → NewSource/BacklangC/Core/ExtensionUtils.cs
@@ -1,4 +1,7 @@
-namespace Backlang.Driver;
+using Backlang.Codeanalysis.Parsing.AST;
+using Loyc.Syntax;
+
+namespace BacklangC.Core;
 
 public static class ExtensionUtils
 {

diff --git a/....Driver/InternalMacros/SyntacticMacros.cs → NewSource/BacklangC/Core/SyntacticMacros.cs b/....Driver/InternalMacros/SyntacticMacros.cs → NewSource/BacklangC/Core/SyntacticMacros.cs
@@ -1,7 +1,12 @@
-using LeMP;
+using System.Text;
 using System.Text.RegularExpressions;
+using Backlang.Codeanalysis.Parsing;
+using Backlang.Codeanalysis.Parsing.AST;
+using LeMP;
+using Loyc;
+using Loyc.Syntax;
 
-namespace Backlang.Driver.InternalMacros;
+namespace BacklangC.Core;
 
 [ContainsMacros]
 public static class SyntacticMacros
@@ -126,16 +131,16 @@ private static LNode ExpandOperator(LNode @operator, IMacroContext context)
             };
             var modChanged = @operator.WithAttrs(newAttrs);
             var fnName = @operator.Args[1];
-            var compContext = (CompilerContext)context.ScopedProperties["Context"];
+            var compContext = (Driver)context.ScopedProperties["Context"];
 
             if (fnName is var (_, (_, name)) && OpMap.ContainsKey(name.Name.Name))
             {
                 var op = OpMap[name.Name.Name];
 
                 if (@operator[2].ArgCount != op.ArgumentCount)
                 {
-                    compContext.AddError(@operator,
-                        $"Cannot overload operator, parameter count mismatch. {op.ArgumentCount} parameters expected");
+                   // compContext.AddError(@operator,
+                     //   $"Cannot overload operator, parameter count mismatch. {op.ArgumentCount} parameters expected");
                 }
 
                 var newTarget = SyntaxTree.Type("op_" + op.OperatorName, LNode.List()).WithRange(fnName.Range);

diff --git a/...ages/ExpandingStages/ExpandMacrosStage.cs → ...rce/BacklangC/Stages/ExpandMacrosStage.cs b/...ages/ExpandingStages/ExpandMacrosStage.cs → ...rce/BacklangC/Stages/ExpandMacrosStage.cs
@@ -1,14 +1,17 @@
-using Backlang.Core.Macros;
-using Backlang.Driver.InternalMacros;
+using System.Runtime.Loader;
+using Backlang.Codeanalysis.Parsing;
+using Backlang.Core.Macros;
+using BacklangC.Core;
 using Flo;
 using LeMP;
 using LeMP.Prelude;
+using Loyc;
 using Loyc.Collections;
-using System.Runtime.Loader;
+using Loyc.Syntax;
 
-namespace Backlang.Driver.Compiling.Stages.ExpandingStages;
+namespace BacklangC.Stages;
 
-public sealed class ExpandMacrosStage : IHandler<CompilerContext, CompilerContext>
+public sealed class ExpandMacrosStage : IHandler<Driver, Driver>
 {
     private readonly MacroProcessor _macroProcessor;
 
@@ -23,19 +26,16 @@ public ExpandMacrosStage()
         _macroProcessor.PreOpenedNamespaces.Add((Symbol)typeof(SyntacticMacros).Namespace);
     }
 
-    public async Task<CompilerContext> HandleAsync(CompilerContext context,
-        Func<CompilerContext, Task<CompilerContext>> next)
+    public async Task<Driver> HandleAsync(Driver context,
+        Func<Driver, Task<Driver>> next)
     {
-        context.CompilationTarget.BeforeExpandMacros(_macroProcessor); //Only calls once
-
-        if (context.MacroReferences != null)
+        if (context.Settings.MacroReferences != null)
         {
             var loadContext = new AssemblyLoadContext("Macros");
-            foreach (var ml in context.MacroReferences)
+            foreach (var ml in context.Settings.MacroReferences)
             {
-                var basePath = new FileInfo(context.ProjectFile).Directory.FullName;
-                var directory = new FileInfo(context.ResultingOutputPath).Directory.FullName;
-                var assembly = loadContext.LoadFromAssemblyPath(Path.Combine(basePath, directory, ml));
+                var directory = new FileInfo(context.Settings.OutputPath).Directory?.FullName;
+                var assembly = loadContext.LoadFromAssemblyPath(Path.Combine(directory, ml));
 
                 if (assembly == null)
                 {
@@ -48,7 +48,6 @@ public async Task<CompilerContext> HandleAsync(CompilerContext context,
             }
         }
 
-        _macroProcessor.DefaultScopedProperties.Add("Target", context.Options.Target);
         _macroProcessor.DefaultScopedProperties.Add("Context", context);
 
         foreach (var tree in context.Trees)