Merge pull request #1190 from BeyondFold/feature/issue-138

Support generating F# AssemblyVersion attributes

Author: asbjornu

src/GitVersionTask.Tests/AssemblyInfoBuilderTests.cs

@@ -232,8 +232,10 @@ public void GetAssemblyInfoBuilder_Null_ThrowsArgumentNullException()
 
     [TestCase("Class1.cs", typeof(CSharpAssemblyInfoBuilder))]
     [TestCase("Class1.vb", typeof(VisualBasicAssemblyInfoBuilder))]
+    [TestCase("Class1.fs", typeof(FSharpAssemblyInfoBuilder))]
     [TestCase("AssemblyInfo.cs", typeof(CSharpAssemblyInfoBuilder))]
     [TestCase("AssemblyInfo.vb", typeof(VisualBasicAssemblyInfoBuilder))]
+    [TestCase("AssemblyInfo.fs", typeof(FSharpAssemblyInfoBuilder))]
     public void GetAssemblyInfoBuilder_ShouldReturnAppropriateAssemblyInfoBuilder(string fileName, Type assemblyInfoBuilderType)
     {
         var taskItem = Substitute.For<ITaskItem>();

src/GitVersionTask/AssemblyInfoBuilder/AssemblyInfoBuilder.cs

@@ -11,8 +11,8 @@ public abstract class AssemblyInfoBuilder
     private static readonly Dictionary<string, Type> assemblyInfoBuilders = new Dictionary<string, Type>
     {
         {".cs", typeof(CSharpAssemblyInfoBuilder)},
-        {".vb", typeof(VisualBasicAssemblyInfoBuilder)}
-        // TODO: Missing FSharpAssemblyInfoBuilder
+        {".vb", typeof(VisualBasicAssemblyInfoBuilder)},
+        {".fs", typeof(FSharpAssemblyInfoBuilder)},
     };
 
     public abstract string AssemblyInfoExtension { get; }

src/GitVersionTask/AssemblyInfoBuilder/FSharpAssemblyInfoBuilder.cs

@@ -0,0 +1,62 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using GitVersion;
+
+public class FSharpAssemblyInfoBuilder : AssemblyInfoBuilder
+{
+    public override string AssemblyInfoExtension { get { return "fs"; } }
+
+    public override string GetAssemblyInfoText(VersionVariables vars, string rootNamespace)
+    {
+        var v = vars.ToList();
+
+        // TODO: Consolidate this with GitVersion.VersionAssemblyInfoResources.AssemblyVersionInfoTemplates. @asbjornu
+        var assemblyInfo = string.Format(
+@"//------------------------------------------------------------------------------
+// <auto-generated>
+//     This code was generated by a tool.
+//     GitVersion
+//
+//     Changes to this file may cause incorrect behavior and will be lost if
+//     the code is regenerated.
+// </auto-generated>
+//------------------------------------------------------------------------------
+
+namespace {4}
+
+open System
+open System.Reflection
+
+[<assembly: AssemblyVersion(""{0}"")>]
+[<assembly: AssemblyFileVersion(""{1}"")>]
+[<assembly: AssemblyInformationalVersion(""{2}"")>]
+
+do
+    ()
+
+[<AbstractClass; Sealed>]
+[<global.System.Runtime.CompilerServices.CompilerGenerated>]
+module GitVersionInformation =
+{3}
+",
+        vars.AssemblySemVer,
+        vars.MajorMinorPatch + ".0",
+        vars.InformationalVersion,
+        GenerateStaticVariableMembers(v),
+        rootNamespace);
+
+        return assemblyInfo;
+    }
+
+    static string GenerateStaticVariableMembers(IList<KeyValuePair<string, string>> vars)
+    {
+        return GenerateMembers(vars, "    let {0} = \"{1}\"");
+    }
+
+
+    static string GenerateMembers(IList<KeyValuePair<string, string>> vars, string memberFormat)
+    {
+        return string.Join(Environment.NewLine, vars.Select(v => string.Format(memberFormat, v.Key, v.Value)));
+    }
+}

src/GitVersionTask/GitVersionTask.csproj

@@ -65,6 +65,7 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="AssemblyInfoBuilder\AssemblyInfoBuilder.cs" />
+    <Compile Include="AssemblyInfoBuilder\FSharpAssemblyInfoBuilder.cs" />
     <Compile Include="AssemblyInfoBuilder\VisualBasicAssemblyInfoBuilder.cs" />
     <Compile Include="AssemblyInfoBuilder\CSharpAssemblyInfoBuilder.cs" />
     <Compile Include="BuildLogger.cs" />