Add ignoring directories options

Author: cezarypiatek

src/CodeTopologyBuilder/cloc.fs

@@ -1,15 +1,10 @@
-module cloc
+[<RequireQualifiedAccess>]
+module cloc
 open FSharp.Data
 
 type cloc = CsvProvider<"SampleData\cloc.csv">
 type FileOfCode={fileName:string; language:string; loc:int}
 
-let private shouldIgnoreFile(fileName:string)= 
-     let lowerFileName = fileName.ToLower()
-     lowerFileName.Contains("\\bin\\") ||
-     lowerFileName.Contains("\\obj\\") ||
-     lowerFileName.Contains("\\packages\\")
-
 let private normalizePath (path:string)=
     path.Replace("\\", "/")
 
@@ -18,8 +13,7 @@ let private adjustFilePath filePath normalCheckoutDir =
 
 let getClocData (clocFilePath:string, checkoutDir) = 
     let normalCheckoutDir = normalizePath checkoutDir    
-    cloc.Load(clocFilePath).Rows
-    |> Seq.filter (fun x -> shouldIgnoreFile (x.Filename) = false)
+    cloc.Load(clocFilePath).Rows  
     |> Seq.map (fun x -> 
            { FileOfCode.fileName  =  adjustFilePath x.Filename normalCheckoutDir
              language = x.Language

src/GenerateReport.ps1

@@ -1,7 +1,8 @@
 [CmdletBinding()]
 param(
     $CheckoutDir, 
-    [Parameter(Mandatory=$true)][ValidateSet('SVN','Git')]$VCS
+    [Parameter(Mandatory=$true)][ValidateSet('SVN','Git')]$VCS,
+    [string[]]$DirToExclude
     )
 
 $scriptPath = if($PSScriptRoot -eq $null){"."} else {$PSScriptRoot}
@@ -29,7 +30,9 @@ function Get-FilesLOC
     }
     Write-Verbose "Start colecting LOC statistics"
     Remove-Item $OutFilePath -ErrorAction SilentlyContinue
-    & $clocExePath --by-file --csv --skip-uniqueness --out="$OutFilePath" $CheckoutDir | Write-Verbose
+    $excludeParam = if ($DirToExclude){"--exclude-dir=$($DirToExclude -join ',')"}else {$null}
+    Write-Verbose "Exclude $excludeParam"
+    & $clocExePath --by-file --csv --skip-uniqueness $excludeParam --out="$OutFilePath" $CheckoutDir | Write-Verbose
     if(-not(Test-Path $OutFilePath))
     {
         $PSCmdlet.ThrowTerminatingError("Cannot create LOC statistics file")