Add GitVersionHelper (take 2)

fsprojects · Jul 21, 2016 · 72338b2 · 72338b2
1 parent f4024fd
commit 72338b2
Show file tree

Hide file tree

Showing 2 changed files with 52 additions and 1 deletion.
diff --git a/src/app/FakeLib/FakeLib.fsproj b/src/app/FakeLib/FakeLib.fsproj
@@ -186,6 +186,7 @@
     <Compile Include="SonarQubeHelper.fs" />
     <Compile Include="AzureKudu.fs" />
     <Compile Include="DocFxHelper.fs" />
+    <Compile Include="GitVersionHelper.fs" />
   </ItemGroup>
   <ItemGroup>
     <Reference Include="ICSharpCode.SharpZipLib">
@@ -505,4 +506,4 @@
       </ItemGroup>
     </When>
   </Choose>
-</Project>
+</Project>
diff --git a/src/app/FakeLib/GitVersionHelper.fs b/src/app/FakeLib/GitVersionHelper.fs
@@ -0,0 +1,50 @@
+module Fake.GitVersionHelper
+
+open FSharp.Data
+open Newtonsoft.Json
+open System
+
+type GitVersionProperties = {
+                                Major : int;
+                                Minor : int;
+                                Patch : int;
+                                PreReleaseTag : string;
+                                PreReleaseTagWithDash : string;
+                                PreReleaseLabel : string;
+                                PreReleaseNumber : int;
+                                BuildMetaData : string;
+                                BuildMetaDataPadded : string;
+                                FullBuildMetaData : string;
+                                MajorMinorPatch : string;
+                                SemVer : string;
+                                LegacySemVer : string;
+                                LegacySemVerPadded : string;
+                                AssemblySemVer : string;
+                                FullSemVer : string;
+                                InformationalVersion : string;
+                                BranchName : string;
+                                Sha : string;
+                                NuGetVersionV2 : string;
+                                NuGetVersion : string;
+                                CommitsSinceVersionSource : int;
+                                CommitsSinceVersionSourcePadded : string;
+                                CommitDate : string;
+                            }
+
+
+let GitVersion () =
+    let dirs = [ (environVar "ProgramData")  @@ "chocolatey" @@ "bin" ]
+    let file = "GitVersion.exe"
+    let timespan =  TimeSpan.FromMinutes 1.
+    let usage = "To install GitVersion.exe, start PowerShell as Administrator and run choco install gitversion.portable -s https://chocolatey.org/api/v2"
+
+    let run executable =
+        let result = ExecProcessAndReturnMessages (fun info ->
+            info.FileName <- executable ) timespan
+        if result.ExitCode <> 0 then failwithf "%s failed with exit code %i" executable result.ExitCode
+        result.Messages |> String.concat ""
+
+
+    match tryFindFile dirs file with
+        | Some executable -> run executable  |> fun j -> JsonConvert.DeserializeObject<GitVersionProperties>(j)
+        | None -> failwithf  "%s is not installed. %s" file usage