Add XDTHelper

FAKE.sln

@@ -1,6 +1,6 @@
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 2013
-VisualStudioVersion = 12.0.30501.0
+# Visual Studio Express 2013 for Windows Desktop
+VisualStudioVersion = 12.0.30723.0
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{0F0488CC-2580-4C07-9E16-3997480F0221}"
 	ProjectSection(SolutionItems) = preProject

src/app/FakeLib/FakeLib.fsproj

@@ -141,6 +141,7 @@
     <Compile Include="FscHelper.fs" />
     <Compile Include="HipChatNotificationHelper.fs" />
     <Compile Include="XamarinHelper.fs" />
+    <Compile Include="XDTHelper.fs" />
     <None Include="app.config" />
   </ItemGroup>
   <ItemGroup>
@@ -206,4 +207,4 @@
   </Target>
   -->
   <Import Project="$(FSharpTargetsPath)" />
-</Project>
+</Project>

src/app/FakeLib/XDTHelper.fs

@@ -0,0 +1,84 @@
+[<AutoOpen>]
+/// Contains functions used to transform config (or any XML) files using Microsoft's XML Document Transformations.
+module Fake.XDTHelper
+
+open System
+open System.IO
+open System.Xml
+open Microsoft.Web.XmlTransform
+
+/// Integrates XDT logging into FAKE logging.
+type FakeXmlTransformationLogger() =
+    interface IXmlTransformationLogger with
+        member x.EndSection(message, messageArgs) = 
+            postMessage <| LogMessage(String.Format(message, messageArgs), true)
+            postMessage <| CloseTag("XDT")
+        member x.EndSection(``type``, message, messageArgs) = 
+            match ``type`` with
+            | MessageType.Verbose -> 
+                postMessage <| TraceMessage(String.Format(message, messageArgs), true)
+                postMessage <| CloseTag("XDT")
+            | _ -> 
+                postMessage <| LogMessage(String.Format(message, messageArgs), true)
+                postMessage <| CloseTag("XDT")
+        member x.LogError(message, messageArgs) =
+            postMessage <| ErrorMessage(String.Format(message, messageArgs))
+        member x.LogError(file, message, messageArgs) =
+            postMessage <| ErrorMessage(sprintf "File: %s" file)
+            postMessage <| ErrorMessage(String.Format(message, messageArgs))
+        member x.LogError(file, lineNumber, linePosition, message, messageArgs) =
+            postMessage <| ErrorMessage(sprintf "File: %s:%d:%d" file lineNumber linePosition)
+            postMessage <| ErrorMessage(String.Format(message, messageArgs))
+        member x.LogErrorFromException(ex) =
+            postMessage <| ErrorMessage(string ex)
+        member x.LogErrorFromException(ex, file) =
+            postMessage <| ErrorMessage(sprintf "File: %s" file)
+            postMessage <| ErrorMessage(string ex)
+        member x.LogErrorFromException(ex, file, lineNumber, linePosition) =
+            postMessage <| ErrorMessage(sprintf "File: %s:%d:%d" file lineNumber linePosition)
+            postMessage <| ErrorMessage(string ex)
+        member x.LogMessage(message, messageArgs) =
+            postMessage <| LogMessage(String.Format(message, messageArgs), true)
+        member x.LogMessage(``type``, message, messageArgs) =
+            match ``type`` with
+            | MessageType.Verbose -> postMessage <| TraceMessage(String.Format(message, messageArgs), true)
+            | _ -> postMessage <| LogMessage(String.Format(message, messageArgs), true)
+        member x.LogWarning(message, messageArgs) =
+            postMessage <| ImportantMessage(String.Format(message, messageArgs))
+        member x.LogWarning(file, message, messageArgs) =
+            postMessage <| ImportantMessage(sprintf "File: %s" file)
+            postMessage <| ImportantMessage(String.Format(message, messageArgs))
+        member x.LogWarning(file, lineNumber, linePosition, message, messageArgs) =
+            postMessage <| ImportantMessage(sprintf "File: %s:%d:%d" file lineNumber linePosition)
+            postMessage <| ImportantMessage(String.Format(message, messageArgs))
+        member x.StartSection(message, messageArgs) =
+            postMessage <| OpenTag("XDT","StartSection")
+            postMessage <| LogMessage(String.Format(message, messageArgs), true)
+        member x.StartSection(``type``, message, messageArgs) =
+            match ``type`` with
+            | MessageType.Verbose -> 
+                postMessage <| OpenTag("XDT","StartSectionVerbose")
+                postMessage <| TraceMessage(String.Format(message, messageArgs), true)
+            | _ -> 
+                postMessage <| OpenTag("XDT","StartSectionNormal")
+                postMessage <| LogMessage(String.Format(message, messageArgs), true)
+
+/// Reads XML file (typically a config file), makes changes according to XDT transform syntax, saves result.
+let TransformFile (inXmlFile:string) (transformFile:string) (outXmlFile:string) =
+    if not <| File.Exists inXmlFile then new FileNotFoundException(sprintf "XML file %s does not exist." inXmlFile) |> raise
+    if not <| File.Exists transformFile then new FileNotFoundException(sprintf "XML Document Transform file %s does not exist." transformFile) |> raise
+    use xdtStream = new FileStream(Path.GetFullPath transformFile, FileMode.Open, FileAccess.Read)
+    let fakeLogger = new FakeXmlTransformationLogger()
+    use xdt = new XmlTransformation(xdtStream, fakeLogger)
+    let xml = new XmlDocument()
+    xml.Load(Path.GetFullPath inXmlFile)
+    if not <| xdt.Apply(xml) then new InvalidOperationException(sprintf "Unable to transform %s with %s." inXmlFile transformFile) |> raise
+    xml.Save(outXmlFile)
+
+/// Modifies an XML file in place using an XDT file named by inserting a .configName in between the filename and .extension.
+let TransformFileWithConfigName (configName:string) (xmlFile:string) =
+    TransformFile xmlFile (Path.ChangeExtension(xmlFile, configName + (Path.GetExtension(xmlFile)))) xmlFile
+
+/// Modifies XML files in place using an XDT file named by inserting a .configName in between each filename and .extension.
+let TransformFilesWithConfigName (configName:string) (files:FileIncludes) = 
+    Seq.iter (TransformFileWithConfigName configName) files