Switch to New Parser in Compile

src/Feersum.CompilerServices/Compile/Compiler.fs

@@ -1022,6 +1022,7 @@ module private Utils =
         il.Emit(OpCodes.Ret)
 
 module Compilation =
+    open Feersum.CompilerServices.Syntax.Parse
 
     /// Emit a Bound Expression to .NET
     ///
@@ -1214,17 +1215,14 @@ module Compilation =
             else
                 output
 
-        let ast, diagnostics =
-            let nodes, diagnostics =
-                List.map LegacyParse.parseFile sources
-                |> List.fold (fun (nodes, diags) (n, d) -> (List.append nodes [ n ], List.append d diags)) ([], [])
+        let result =
+            Seq.map (Parse.parseFile) sources
+            |> Async.Parallel
+            |> Async.RunSynchronously
+            |> ParseResult.fold (fun (progs) (p) -> List.append progs [ p ]) []
 
-            { Location = TextLocation.Missing
-              Kind = AstNodeKind.Seq(nodes) },
-            diagnostics
-
-        if Diagnostics.hasErrors diagnostics then
-            diagnostics
+        if Diagnostics.hasErrors result.Diagnostics then
+            result.Diagnostics
         else
 
             // Open the output streams. We don't use an `Option` directly here for
@@ -1238,7 +1236,7 @@ module Compilation =
                 | BuildConfiguration.Release -> null
 
             let result =
-                compile options outputStream (Path.GetFileName(output)) (symbols |> Option.ofObj) ast
+                compile options outputStream (Path.GetFileName(output)) (symbols |> Option.ofObj) result.Root
 
             if result.Diagnostics.IsEmpty && options.OutputType = OutputType.Exe then
                 match result.EmittedAssemblyName with

src/Feersum.CompilerServices/Feersum.CompilerServices.fsproj

@@ -13,11 +13,9 @@
     <Compile Include="Options.fs" />
     <Compile Include="Text.fs" />
     <Compile Include="Diagnostics.fs" />
-    <Compile Include="LegacySyntax.fs" />
     <Compile Include="Syntax/Lex.fs" />
     <Compile Include="Syntax/Tree.fs" />
     <Compile Include="Syntax/Parse.fs" />
-    <Compile Include="Syntax/SyntaxShim.fs" />
     <Compile Include="Scope.fs" />
     <Compile Include="Binding/Libraries.fs" />
     <Compile Include="Binding/Macros.fs" />

src/Feersum.CompilerServices/Syntax/Parse.fs

@@ -44,6 +44,13 @@ module ParseResult =
         { Diagnostics = result.Diagnostics
           Root = result.Root |> mapper }
 
+    /// Fold a set of parse results into a signle result
+    let public fold folder seed results =
+        let (state, diags) = 
+            Seq.fold (fun (state, diags) r -> (folder state r.Root, List.append diags r.Diagnostics)) (seed, []) results
+        { Diagnostics = diags
+          Root = state }
+
     /// Convert a parser response into a plain result type
     ///
     /// This drops any tree from the error, but opens up parser responses to