Prepare dotnet tool + project cracking

Author: thinkbeforecoding

.gitignore

@@ -6,3 +6,7 @@
 .vs/
 paket-files/
 **.user
+.ionide/
+.vscode/
+launchSettings.json
+

README.md

@@ -0,0 +1,14 @@
+# Peeble. A F# -> Php transpiler
+
+## Why
+
+I wrote a game using Fable Elmish that has more that 2000LoC of non-trivial game logic executed both in the browser and on the server. When I needed to port it to a platform accepting only Php backend, the simplest option would have been to rewrite the server side to php. But it would have led to heavy code duplication in two different languages.
+
+This is why I tried to transpile F# to Php the same way Fable does to Javascript
+
+## How it works
+
+Peeble use Fable transforms to parse F# files and create a simpler intermediate representation. It then convert this to a Php model before serializing it to text.
+
+## Build it
+

RELEASE_NOTES.md

@@ -0,0 +1,2 @@
+## 0.1.0-alpha
+* Peeble alpha release

build.fsx

@@ -2,6 +2,7 @@
 nuget Fake.Core
 nuget Fake.Core.Target
 nuget Fake.Core.ReleaseNotes
+nuget Fake.DotNet.AssemblyInfoFile
 nuget Fake.DotNet.Cli
 nuget Fake.DotNet.Testing.Coverlet
 nuget Fake.Testing.ReportGenerator
@@ -24,14 +25,20 @@ module Path =
     let peeble = bin </> "peeble"
     let tests = bin </> "tests"
     let coverage = tests </> "coverage.json"
+    let tool = bin </> "tool"
+
+
+let releaseNotes = ReleaseNotes.load "RELEASE_NOTES.md"
+
 
 Target.create "Clean" <| fun _ ->
     Directory.delete Path.bin
 
 Target.create "Build" <| fun _ ->
     Fake.DotNet.DotNet.publish (fun p ->
         { p with Configuration = Fake.DotNet.DotNet.BuildConfiguration.Release
-                 OutputPath = Some Path.peeble }
+                 OutputPath = Some Path.peeble
+                 }
 
     ) "src/peeble/peeble.fsproj"
 
@@ -57,11 +64,29 @@ Target.create "Test" <| fun _ ->
             })
             [ Path.coverage ]
 
+
+Target.create "Tool" <| fun _ ->
+    let prefix, suffix = 
+        match releaseNotes.NugetVersion.Split([|'-'|], 2)|> Seq.toList with
+        | [p] -> p, None
+        | [p;s] -> p, Some s
+        | _ -> failwithf "Unexpected version"
+
+    Trace.logfn "%s %A" prefix suffix
+    Fake.DotNet.DotNet.pack (fun p ->
+        { p with
+            MSBuildParams = { p.MSBuildParams with Properties = [ "VersionPrefix", prefix] }
+            Configuration = Fake.DotNet.DotNet.BuildConfiguration.Release
+            VersionSuffix = suffix
+            } )
+        "src/peeble/peeble.fsproj" 
+
 Target.create "All" ignore
 
 
 "Clean" ==> "Build"
         ==> "Test"
+        ==> "Tool"
         ==> "All"
 
 Target.runOrDefault "All"

build.fsx.lock

@@ -52,6 +52,12 @@ NUGET
     Fake.Core.Xml (5.20.3)
       Fake.Core.String (>= 5.20.3)
       FSharp.Core (>= 4.7.2)
+    Fake.DotNet.AssemblyInfoFile (5.20.3)
+      Fake.Core.Environment (>= 5.20.3)
+      Fake.Core.String (>= 5.20.3)
+      Fake.Core.Trace (>= 5.20.3)
+      Fake.IO.FileSystem (>= 5.20.3)
+      FSharp.Core (>= 4.7.2)
     Fake.DotNet.Cli (5.20.3)
       Fake.Core.Environment (>= 5.20.3)
       Fake.Core.Process (>= 5.20.3)
@@ -106,12 +112,12 @@ NUGET
       FSharp.Core (>= 4.7.2)
       System.Reactive (>= 4.4.1)
     FSharp.Core (4.7.2)
-    Microsoft.Build (16.6)
-    Microsoft.Build.Framework (16.6)
+    Microsoft.Build (16.7)
+    Microsoft.Build.Framework (16.7)
       System.Security.Permissions (>= 4.7)
-    Microsoft.Build.Tasks.Core (16.6)
-      Microsoft.Build.Framework (>= 16.6)
-      Microsoft.Build.Utilities.Core (>= 16.6)
+    Microsoft.Build.Tasks.Core (16.7)
+      Microsoft.Build.Framework (>= 16.7)
+      Microsoft.Build.Utilities.Core (>= 16.7)
       Microsoft.Win32.Registry (>= 4.3)
       System.CodeDom (>= 4.4)
       System.Collections.Immutable (>= 1.5)
@@ -121,13 +127,13 @@ NUGET
       System.Security.Permissions (>= 4.7)
       System.Threading.Tasks.Dataflow (>= 4.9)
     Microsoft.Build.Tasks.Git (1.0)
-    Microsoft.Build.Utilities.Core (16.6)
-      Microsoft.Build.Framework (>= 16.6)
+    Microsoft.Build.Utilities.Core (16.7)
+      Microsoft.Build.Framework (>= 16.7)
       Microsoft.Win32.Registry (>= 4.3)
       System.Collections.Immutable (>= 1.5)
       System.Security.Permissions (>= 4.7)
       System.Text.Encoding.CodePages (>= 4.0.1)
-    Microsoft.NETCore.Platforms (3.1.2)
+    Microsoft.NETCore.Platforms (3.1.3)
     Microsoft.NETCore.Targets (3.1)
     Microsoft.SourceLink.Common (1.0)
     Microsoft.SourceLink.GitHub (1.0)

build.sh

@@ -0,0 +1,3 @@
+#!/bin/bash
+dotnet tool restore
+dotnet fake build

paket.dependencies

@@ -3,6 +3,7 @@ source https://api.nuget.org/v3/index.json
 storage: none
 framework: netcore3.1, netstandard2.0, netstandard2.1
 
+nuget Dotnet.ProjInfo
 nuget Fable.Core
 github fable-compiler/fable lib\fcs\FSharp.Compiler.Service.dll
 github fable-compiler/fable lib\fcs\FSharp.Compiler.Service.xml

paket.lock

@@ -7,6 +7,10 @@ NUGET
       System.Configuration.ConfigurationManager (>= 4.4)
     coverlet.collector (1.3)
     coverlet.msbuild (2.9)
+    Dotnet.ProjInfo (0.44)
+      FSharp.Core (>= 4.6.2)
+      Microsoft.NETFramework.ReferenceAssemblies (>= 1.0)
+      System.ValueTuple (>= 4.4)
     Fable.Core (3.1.5)
       FSharp.Core (>= 4.7)
     FSharp.Core (4.7.2)
@@ -15,6 +19,7 @@ NUGET
       Microsoft.CodeCoverage (>= 16.7.1) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= net45)) (&& (== netstandard2.0) (>= netcoreapp2.1)) (&& (== netstandard2.1) (>= net45)) (&& (== netstandard2.1) (>= netcoreapp2.1))
       Microsoft.TestPlatform.TestHost (>= 16.7.1) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= netcoreapp2.1)) (&& (== netstandard2.1) (>= netcoreapp2.1))
     Microsoft.NETCore.Platforms (3.1.2)
+    Microsoft.NETFramework.ReferenceAssemblies (1.0)
     Microsoft.TestPlatform.ObjectModel (16.7.1) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= netcoreapp2.1)) (&& (== netstandard2.1) (>= netcoreapp2.1))
       NuGet.Frameworks (>= 5.0)
     Microsoft.TestPlatform.TestHost (16.7.1) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= netcoreapp2.1)) (&& (== netstandard2.1) (>= netcoreapp2.1))
@@ -48,6 +53,7 @@ NUGET
       System.Security.AccessControl (>= 4.7)
       System.Windows.Extensions (>= 4.7) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= netcoreapp3.0)) (&& (== netstandard2.1) (>= netcoreapp3.0))
     System.Security.Principal.Windows (4.7)
+    System.ValueTuple (4.5)
     System.Windows.Extensions (4.7) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= netcoreapp3.0)) (&& (== netstandard2.1) (>= netcoreapp3.0))
       System.Drawing.Common (>= 4.7) - restriction: || (== netcoreapp3.1) (&& (== netstandard2.0) (>= netcoreapp3.0)) (&& (== netstandard2.1) (>= netcoreapp3.0))
     Unquote (5.0)

peeble.sln

@@ -12,6 +12,7 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = ".build", ".build", "{E5F881
 		build.cmd = build.cmd
 		build.fsx = build.fsx
 		paket.dependencies = paket.dependencies
+		README.md = README.md
 	EndProjectSection
 EndProject
 Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "sample", "sample\sample.fsproj", "{A0E1D26F-8347-4D34-BB21-CF2DC5B37A2A}"
@@ -20,6 +21,8 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "tests", "tests", "{EDC8338C
 EndProject
 Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "peeble.tests", "tests\peeble.tests\peeble.tests.fsproj", "{3709B967-ABCA-4241-A93E-2E45C5C1BFBE}"
 EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "FSharp.Core", "FSharp.Core", "{9F388538-E59A-4747-9153-5A4CA36E7E8A}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -73,6 +76,7 @@ Global
 	GlobalSection(NestedProjects) = preSolution
 		{F64FE7F3-697C-4524-8CC9-163F4B02A351} = {8E5084BC-7C05-4DBD-9DE7-F89CCBAE19C3}
 		{3709B967-ABCA-4241-A93E-2E45C5C1BFBE} = {EDC8338C-CA75-44DC-B828-204C1010CC44}
+		{9F388538-E59A-4747-9153-5A4CA36E7E8A} = {8E5084BC-7C05-4DBD-9DE7-F89CCBAE19C3}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {DA6AC55B-22A3-4299-8FCD-34973A51BF0A}

src/FSharp.Core/FSharp.Core.php

@@ -0,0 +1,120 @@
+<?php
+
+include "FSharpArray.php";
+include "FSharpList.php";
+include "Seq.php";
+include "Set.php";
+include "Map.php";
+
+$equals = function ($x,$y) { return $x == $y; };
+
+interface iComparable {
+    public function CompareTo($Other);
+}
+
+
+
+class Util {
+    static function equals($x,$y) { 
+        if ( $x instanceof iComparable)
+            return $x->CompareTo($y) == 0;
+        
+        return $x == $y; }
+
+    static function max($comparer, $x, $y) {
+        return $comparer($x,$y) >= 0 ? $x : $y;
+    }
+    static function min($comparer, $x, $y) {
+        return $comparer($x,$y) <= 0 ? $x : $y;
+    }
+
+
+    static function randomNext($min,$max)
+    {
+        return bga_rand ($min , $max );
+    }
+
+
+    static function comparePrimitives($x,$y) 
+    { return $x == $y ? 0 : ($x > $y ? 1 : -1); }
+
+    static function compareArrays ($x,$y) { 
+        $i = 0;
+        $xl = count($x);
+        $yl = count($y);
+        while(true)
+        {
+            if ($i == $xl && $i == $yl)
+                return 0;
+            if ($i == $xl)
+                return -1;
+            if ($i == $yl)
+                return 1;
+
+            $c = Util::compare($x[$i],$y[$i]);
+            if ($c !== 0)
+                return $c;
+            $i++;
+        }
+    }
+
+    static function compare($x,$y)
+    {
+        if (is_array($x))
+        {
+            if (is_array($y))
+                return Util::compareArrays($x,$y);
+            else
+                return 1;
+        }
+        elseif ($x instanceof iComparable )
+        {
+            return $x->CompareTo($y);
+        }
+        {
+            if (is_array($y))
+                return -1;
+            else
+                return Util::comparePrimitives($x,$y);
+        }
+
+        
+    }
+}
+interface Union {
+    public function get_Case();
+}
+interface FSharpUnion {
+    public function get_FSharpCase();
+}
+
+
+function void($x) {}
+
+class Result {
+
+}
+
+class Ok extends Result {
+    public $ResultValue;
+    function __construct($value)
+    {
+        $this->ResultValue = $value;
+    }
+
+}
+
+class ResultError extends Result {
+    public $ErrorValue;
+    function __construct($value)
+    {
+        $this->ErrorValue = $value;
+    }
+}
+
+class Option {
+    static function  defaultArg($opt, $val)
+    {
+        return is_null($opt) ? $val : $opt;
+    }
+}