GitHubCI,scripts: move more YML logic to F#

Author: knocte

.github/workflows/CI.yml

@@ -28,20 +28,9 @@ jobs:
       - name: ownership workaround
         run: git config --global --add safe.directory '*'
 
-      - name: Extract full version
-        run: dotnet fsi scripts/prePublish.fsx
-      - name: Pack the fsxc NuGet package
-        run: |
-          . ./version.config
-          dotnet pack fsxc/fsxc.fsproj -p:PackageVersion=$FullVersion
-      - name: Pack the Fsdk NuGet package
-        run: |
-          . ./version.config
-          dotnet pack Fsdk/Fsdk.fsproj -p:PackageVersion=$FullVersion
-      - name: Pack the fsx NuGet package
-        run: |
-          . ./version.config
-          dotnet pack fsx/fsx.fsproj -p:PackageVersion=$FullVersion
+      - name: Create nuget packages
+        run: dotnet fsi scripts/pack.fsx
+
       - name: Publish fsxc on NuGet website
         if: github.event_name == 'push' && (github.ref == 'refs/heads/master' || startsWith(github.ref, 'refs/tags/')) && env.NUGET_API_KEY != null
         run: |

scripts/pack.fsx

@@ -0,0 +1,108 @@
+open System
+open System.IO
+
+#r "System.Configuration"
+open System.Configuration
+
+#load "../Fsdk/Misc.fs"
+#load "../Fsdk/Process.fs"
+#load "../Fsdk/Network.fs"
+#load "../Fsdk/Git.fs"
+
+open Fsdk
+open Fsdk.Process
+
+let rootDir = Path.Combine(__SOURCE_DIRECTORY__, "..") |> DirectoryInfo
+
+let githubRef = Environment.GetEnvironmentVariable "GITHUB_REF"
+
+if String.IsNullOrEmpty githubRef then
+    Console.Error.WriteLine
+        "This script is only meant to be launched within a CI pipeline"
+
+    Environment.Exit 1
+
+let versionConfigFileName = "version.config"
+
+let versionConfigFile =
+    Path.Combine(rootDir.FullName, versionConfigFileName) |> FileInfo
+
+let AppendFullVersion fullVersion =
+    let fullVersionVarAssignment =
+        sprintf "%sFullVersion=%s" Environment.NewLine fullVersion
+
+    File.AppendAllText(versionConfigFile.FullName, fullVersionVarAssignment)
+
+let tagPrefix = "refs/tags/"
+
+let fullVersion =
+    if githubRef.StartsWith tagPrefix then
+        githubRef.Substring tagPrefix.Length
+    else
+        let baseVersionTokenString = "BaseVersion="
+
+        let rec ReadBaseVersion(lines: seq<string>) =
+            match Seq.tryHead lines with
+            | None -> None
+            | Some line ->
+                if line.StartsWith baseVersionTokenString then
+                    line.Substring baseVersionTokenString.Length |> Some
+                else
+                    ReadBaseVersion <| Seq.tail lines
+
+        let maybeBaseVersion =
+            ReadBaseVersion <| File.ReadAllLines versionConfigFile.FullName
+
+        match maybeBaseVersion with
+        | None ->
+            failwithf
+                "%s file should contain a line with %s var set"
+                versionConfigFile.Name
+                baseVersionTokenString
+        | Some baseVersion ->
+            let nugetPush =
+                Path.Combine(rootDir.FullName, "Tools", "nugetPush.fsx")
+                |> FileInfo
+
+            // to disable welcome msg, see https://stackoverflow.com/a/70493818/544947
+            Environment.SetEnvironmentVariable("DOTNET_NOLOGO", "true")
+
+            let fullVersion =
+                Process
+                    .Execute(
+                        {
+                            Command = "dotnet"
+                            Arguments =
+                                sprintf
+                                    "fsi %s --output-version %s"
+                                    nugetPush.FullName
+                                    baseVersion
+                        },
+                        Echo.Off
+                    )
+                    .UnwrapDefault()
+                    .Trim()
+
+            fullVersion
+
+AppendFullVersion fullVersion
+
+let Pack proj =
+    Process
+        .Execute(
+            {
+                Command = "dotnet"
+                Arguments =
+                    sprintf
+                        "pack %s/%s.fsproj -property:PackageVersion=%s"
+                        proj
+                        proj
+                        fullVersion
+            },
+            Echo.Off
+        )
+        .UnwrapDefault()
+    |> ignore
+
+for proj in [ "fsxc"; "Fsdk"; "fsx" ] do
+    Pack proj