Merge pull request #564 from jamescrowley/NDepend

NDepend helper

src/app/FakeLib/FakeLib.fsproj

@@ -73,6 +73,7 @@
     <Compile Include="FXCopHelper.fs" />
     <Compile Include="FSharpFormattingHelper.fs" />
     <Compile Include="NCoverHelper.fs" />
+    <Compile Include="NDependHelper.fs" />
     <Compile Include="MsBuildLogger.fs" />
     <Compile Include="FileHelper.fs" />
     <Compile Include="MSBuildHelper.fs" />
@@ -416,4 +417,4 @@
       </ItemGroup>
     </When>
   </Choose>
-</Project>
+</Project>

src/app/FakeLib/NDependHelper.fs

@@ -0,0 +1,42 @@
+module Fake.NDepend
+
+open Fake
+open System
+open System.IO
+open System.Text
+
+let getWorkingDir workingDir =
+    Seq.find isNotNullOrEmpty [workingDir; environVar("teamcity.build.workingDir"); "."]
+    |> Path.GetFullPath
+
+let buildParamsAndExecute parameters buildArguments toolPath workingDir =
+    let args = buildArguments parameters
+    trace (toolPath + " " + args)
+    let result = ExecProcess (fun info ->  
+              info.FileName <- toolPath
+              info.WorkingDirectory <- getWorkingDir workingDir
+              info.Arguments <- args) TimeSpan.MaxValue
+    if result <> 0 then failwithf "Error running %s" toolPath
+
+type NDependParams = 
+    { ToolPath: string
+      WorkingDir: string
+      ProjectFile: string
+      CoverageFiles: string list }
+
+let NDependDefaults = 
+    { ToolPath = findToolInSubPath "ndepend.console.exe" (currentDirectory @@ "tools" @@ "NDepend")
+      WorkingDir = ""
+      ProjectFile = ""
+      CoverageFiles = [] }
+
+let buildNDependArgs parameters =
+    new StringBuilder()
+    |> append parameters.ProjectFile
+    |> appendWithoutQuotes "/CoverageFiles "
+    |> appendFileNamesIfNotNull parameters.CoverageFiles
+    |> toText
+
+let NDepend (setParams: NDependParams -> NDependParams) =
+    let parameters = (NDependDefaults |> setParams)
+    buildParamsAndExecute parameters buildNDependArgs parameters.ToolPath parameters.WorkingDir