using fake.exe

Build.bat

@@ -1 +1 @@
-msbuild solrnet.proj /m /t:SetRelease;Clean;Version;Build;Merge
+lib\fake.exe build.fsx %*

Test.bat

@@ -1,3 +1 @@
-msbuild solrnet.proj /m /t:test
-
-pause
+lib\fake target=Test

build.fsx

@@ -9,27 +9,14 @@ open Fake
 
 let version = "0.3.0"
 let buildDir = "merged"
-let (=.) a b = StringComparer.InvariantCultureIgnoreCase.Compare(a,b) = 0
 let (.>) (a: #seq<XElement>) (b: string) = Extensions.Descendants(a, xname b)
 let startsWith s (n: XElement) = n.Value.StartsWith s
 let contains s (n: XElement) = n.Value.Contains s
 let setValue s (n: XElement) = n.Value <- s
 let replaceValue orig repl (n: XElement) = n.Value <- n.Value.Replace((orig:string), (repl:string))
-let flip f x y = f y x
-let def = flip defaultArg
-let anyOf l e = l |> Seq.exists (fun i -> i =. e)
-
-let config =
-    fsi.CommandLineArgs
-    |> Seq.tryFind (anyOf ["/debug"; "/release"])
-    |> def "/debug"
-    |> fun e -> e.Substring(1)
-
-let target = 
-    fsi.CommandLineArgs
-    |> Seq.skip 1
-    |> Seq.tryFind (fun c -> not(c.StartsWith "/"))
-    |> def "BuildAll"
+
+let config = getBuildParamOrDefault "config" "debug"
+let target = getBuildParamOrDefault "target" "BuildAll"
 
 let slnBuild sln x = 
     sln |> build (fun p -> { p with 
@@ -115,12 +102,11 @@ Target "PackageSampleApp" (fun _ ->
     DeleteFile (outputSampleApp @@ "log.txt")
     DeleteFile (outputSampleApp @@ "SampleSolrApp.sln.cache")
     CreateDir (outputSampleApp @@ "lib")    
+
     !+ (outputSampleApp @@ "bin\\*") -- "**\\SampleSolrApp.*" -- "**\\SolrNet.*" 
-    -- (outputSampleApp @@ "bin")
     |> Scan
-    //|> Seq.iter (logf "scanned %s\n")
     |> Copy (outputSampleApp @@ "lib")
-    
+
     ["pingsolr.js"; "license.txt"; "runsample.bat"] |> Copy buildDir
 
     let csproj = outputSampleApp @@ "SampleSolrApp.csproj"
@@ -134,7 +120,9 @@ Target "PackageSampleApp" (fun _ ->
     |> Seq.iter (setValue @"..\SolrNet.dll")
     xml.Save csproj
 
-    !+ (buildDir @@ "**\\*") |> Scan |> Zip buildDir (sprintf "SolrNet-%s-sample.zip" version)
+    !+ (buildDir @@ "**\\*") 
+    |> Scan 
+    |> Zip buildDir (sprintf "SolrNet-%s-sample.zip" version)
 
 )