Ability to diff assemblies from files, directories, nuget and github (#3027)

This commit adds a build target, diff, that can create a diff output of assemblies from

1. files
2. directories
3. nuget packages
4. github commits

It uses Progress/Telerik's JustAssembly command line tool to generate an XML file of the public diffs between two assemblies, with functions implemented to transform XML to markdown and asciidoc. Since JustAssembly installation cannot be easily automated, an exception is thrown when diff is run if the tool is not installed, prompting the user with a link to download.

When specifying directories or nuget packages, the assemblies within the first path will be paired up with assemblies with the same name in the second path, and a diff will be generated for each pair.

The diff can output XML, Markdown and Asciidoc, with the latter two implemented as functions that convert the XML to a document structure.

Add skipdocs argument to be able to skip generating documentation.

(cherry picked from commit e0a42a5)

Author: russcam

build/scripts/Commandline.fsx

@@ -29,6 +29,7 @@ Targets:
 * canary [apikey] [feed]
   - create a canary nuget package based on the current version if [feed] and [apikey] are provided
     also pushes to upstream (myget)
+* diff <github|nuget|directories|assemblies> <version|path 1> <version|path 2> [format]
 
 NOTE: both the `test` and `integrate` targets can be suffixed with `-all` to force the tests against all suported TFM's
 """
@@ -38,7 +39,8 @@ module Commandline =
 
     let private args = getBuildParamOrDefault "cmdline" "build" |> split ' '
     let skipTests = args |> List.exists (fun x -> x = "skiptests")
-    let private filteredArgs = args |> List.filter (fun x -> x <> "skiptests")
+    let skipDocs = args |> List.exists (fun x -> x = "skipdocs") || isMono
+    let private filteredArgs = args |> List.filter (fun x -> x <> "skiptests" && x <> "skipdocs")
 
     let multiTarget =
         match (filteredArgs |> List.tryHead) with
@@ -57,7 +59,7 @@ module Commandline =
         | ("test", _)
         | ("integrate", _) -> false
         | _ -> true
-
+        
     let arguments =
         match filteredArgs with
         | _ :: tail -> target :: tail
@@ -68,6 +70,24 @@ module Commandline =
         | true, _ -> Some candidate
         | _ -> None
 
+    let private (|IsDiff|_|) (candidate:string) =
+        let c = candidate |> toLower
+        match c with
+        | "github" | "nuget" | "directories" | "assemblies" -> Some c
+        | _ -> failwith (sprintf "Unknown diff type: %s" candidate)
+        
+    let private (|IsProject|_|) (candidate:string) =
+        let c = candidate |> toLower
+        match c with
+        | "nest" | "elasticsearch.net" -> Some c
+        | _ -> None     
+        
+    let private (|IsFormat|_|) (candidate:string) =
+        let c = candidate |> toLower
+        match c with
+        | "xml" | "markdown" | "asciidoc" -> Some c
+        | _ -> None 
+
     let parse () =
         setEnvironVar "FAKEBUILD" "1"
         match arguments with
@@ -131,6 +151,28 @@ module Commandline =
             setBuildParam "clusterfilter" "ConnectionReuse"
             setBuildParam "numberOfConnections" numberOfConnections
 
+        | ["diff"; IsDiff diffType; IsProject project; firstVersionOrPath; secondVersionOrPath; IsFormat format] ->
+             setBuildParam "diffType" diffType
+             setBuildParam "project" project
+             setBuildParam "first" firstVersionOrPath
+             setBuildParam "second" secondVersionOrPath            
+             setBuildParam "format" format            
+        | ["diff"; IsDiff diffType; IsProject project; firstVersionOrPath; secondVersionOrPath] ->
+             setBuildParam "diffType" diffType
+             setBuildParam "project" project
+             setBuildParam "first" firstVersionOrPath
+             setBuildParam "second" secondVersionOrPath        
+        | ["diff"; IsDiff diffType; firstVersionOrPath; secondVersionOrPath; IsFormat format] ->
+             setBuildParam "diffType" diffType
+             setBuildParam "first" firstVersionOrPath
+             setBuildParam "second" secondVersionOrPath            
+             setBuildParam "format" format          
+        | ["diff"; IsDiff diffType; firstVersionOrPath; secondVersionOrPath] ->
+            setBuildParam "diffType" diffType
+            setBuildParam "first" firstVersionOrPath
+            setBuildParam "second" secondVersionOrPath         
+
+        | ["temp"; ] -> ignore()
         | ["canary"; ] -> ignore()
         | ["canary"; apiKey ] ->
             setBuildParam "apiKey" apiKey