split ExprParser.fs into separate files

.gitignore

@@ -7,3 +7,4 @@ TestResults
 coverage.opencover.xml
 .idea
 *.DotSettings.user
+*.received.txt

src/Escalier.Parser.Tests/Tests.fs

@@ -15,119 +15,119 @@ settings.DisableDiff()
 [<Fact>]
 let ParseArithmetic () =
   let src = "0.1 + 2 * (3 - 4) / -5.6"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseString () =
   let src = """msg = "Hello,\n\t\"world!\"" """
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseTemplateString () =
   let src = """msg = `foo ${`bar ${baz}`}`"""
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseFunctionCall () =
   let src = "add(x, y)"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseFunctionCallExtraSpaces () =
   let src = "add( x , y )"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseEmptyCall () =
   let src = "add()"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseIndexer () =
   let src = "array[0]"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseIndexerThenCall () =
   let src = "array[0]()"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseCallThenIndexer () =
   let src = "foo()[0]"
-  let expr = run ExprParser.expr src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseFuncDef () =
   let src = "fn (x, y) { x }"
-  let expr = run ExprParser.func src
+  let expr = run Parser.expr src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseUnionType () =
   let src = "number | string | boolean"
-  let expr = run ExprParser.typeAnn src
+  let expr = run Parser.typeAnn src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseIntersectionType () =
   let src = "number & string & boolean"
-  let expr = run ExprParser.typeAnn src
+  let expr = run Parser.typeAnn src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseUnionAndIntersectionType () =
   let src = "A & B | C & D"
-  let expr = run ExprParser.typeAnn src
+  let expr = run Parser.typeAnn src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseArrayType () =
   let src = "number[][]"
-  let expr = run ExprParser.typeAnn src
+  let expr = run Parser.typeAnn src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask
 
 [<Fact>]
 let ParseParenthesizedType () =
   let src = "(number | string)[]"
-  let expr = run ExprParser.typeAnn src
+  let expr = run Parser.typeAnn src
   let result = $"input: %s{src}\noutput: %A{expr}"
 
   Verifier.Verify(result, settings).ToTask() |> Async.AwaitTask

src/Escalier.Parser/Escalier.Parser.fsproj

@@ -1,18 +1,24 @@
 <Project Sdk="Microsoft.NET.Sdk">
-  <PropertyGroup>
-    <TargetFramework>net7.0</TargetFramework>
-    <GenerateDocumentationFile>true</GenerateDocumentationFile>
-  </PropertyGroup>
-  <ItemGroup>
-    <Compile Include="Library.fs" />
-    <Compile Include="ExprParser.fs" />
-    <Compile Include="JsonParser.fs" />
-  </ItemGroup>
-  <ItemGroup>
-    <ProjectReference Include="..\Escalier.Data\Escalier.Data.fsproj" />
-  </ItemGroup>
-  <ItemGroup>
-    <PackageReference Include="FParsec" Version="1.1.1" />
-    <PackageReference Include="FsToolkit.ErrorHandling" Version="4.10.0" />
-  </ItemGroup>
+    <PropertyGroup>
+        <TargetFramework>net7.0</TargetFramework>
+        <GenerateDocumentationFile>true</GenerateDocumentationFile>
+    </PropertyGroup>
+    <ItemGroup>
+        <Compile Include="ParserRefs.fs"/>
+        <Compile Include="Literals.fs"/>
+        <Compile Include="Expressions.fs"/>
+        <Compile Include="Statements.fs"/>
+        <Compile Include="TypeAnnotations.fs"/>
+        <Compile Include="Patterns.fs"/>
+        <Compile Include="JsonParser.fs"/>
+        <Compile Include="Parser.fs"/>
+        <Compile Include="Library.fs"/>
+    </ItemGroup>
+    <ItemGroup>
+        <ProjectReference Include="..\Escalier.Data\Escalier.Data.fsproj"/>
+    </ItemGroup>
+    <ItemGroup>
+        <PackageReference Include="FParsec" Version="1.1.1"/>
+        <PackageReference Include="FsToolkit.ErrorHandling" Version="4.10.0"/>
+    </ItemGroup>
 </Project>