build.fsx

// --------------------------------------------------------------------------------------
// FAKE build script 
// --------------------------------------------------------------------------------------

#I "packages/FAKE/tools"
#r "packages/FAKE/tools/FakeLib.dll"

open System
open System.IO
open Fake 
open Fake.AssemblyInfoFile
open Fake.Git
open Fake.FscHelper

// --------------------------------------------------------------------------------------
// Information about the project to be used at NuGet
// --------------------------------------------------------------------------------------

let project = "FSharp.TypeProviders.StarterPack"
let authors = ["Tomas Petricek"; "Gustavo Guerra"; "Michael Newton"]
let summary = "Helper code and examples for getting started with Type Providers"
let description = """
  The F# Type Provider Starter Pack contains everything you need to start building your own
  type providers."""
let tags = "F# fsharp typeprovider"

let gitHome = "https://github.com/mavnn"
let gitName = "FSharp.TypeProviders.StarterPack"

// Read release notes & version info from RELEASE_NOTES.md
Environment.CurrentDirectory <- __SOURCE_DIRECTORY__
let release = 
    File.ReadLines "RELEASE_NOTES.md" 
    |> ReleaseNotesHelper.parseReleaseNotes

let PullRequest =
    match getBuildParamOrDefault "APPVEYOR_PULL_REQUEST_NUMBER" "" with
    | "" -> 
        trace "Master build detected"
        None
    | a -> 
        trace "Pull Request build detected"
        Some <| int a

let buildNumber =
    int (getBuildParamOrDefault "APPVEYOR_BUILD_VERSION" "0")

let version =
    match PullRequest with
    | None ->
        sprintf "%s.%d" release.AssemblyVersion buildNumber
    | Some num ->
        sprintf "%s-pull-%d-%05d" release.AssemblyVersion num buildNumber
let releaseNotes = release.Notes |> String.concat "\n"
let outputPath = "./output/"
let workingDir = "./temp/"
let srcDir = "src"
let exampleDir =  "examples"
let testDir =  "test"
let nunitDir = "packages" @@ "Nunit.Runners" @@ "tools"

// --------------------------------------------------------------------------------------
// Clean build results

Target "Clean" (fun _ ->
    CleanDirs [outputPath; workingDir;testDir]
)

let pt = [srcDir @@ "ProvidedTypes.fsi";srcDir @@ "ProvidedTypes.fs"]

// --------------------------------------------------------------------------------------
// Compile ProvidedTypes as a smoke test
Target "Compile" (fun _ ->
    Fsc id pt
)

type ExampleWithTests = {
    Name : string
    ProviderSourceFiles : string list
    TestSourceFiles : string list
}

// --------------------------------------------------------------------------------------
// Compile example providers and accompanying test dlls
Target "Examples" (fun _ ->
    let examples =
        [
            { Name = "StaticProperty"; ProviderSourceFiles = ["StaticProperty.fsx"]; TestSourceFiles = ["StaticProperty.Tests.fsx"]}
            { Name = "ErasedWithConstructor"; ProviderSourceFiles = ["ErasedWithConstructor.fsx"]; TestSourceFiles = ["ErasedWithConstructor.Tests.fsx"]}
        ]

    let testNunitDll = testDir @@ "nunit.framework.dll"

    do
        if File.Exists testNunitDll then
            File.Delete testNunitDll
        File.Copy (nunitDir @@ "nunit.framework.dll", testNunitDll)

    let fromExampleDir filenames =
        filenames
        |> List.map (fun filename -> exampleDir @@ filename)

    examples
    |> List.iter (fun example ->
            // Compile type provider
            let output = testDir @@ example.Name + ".dll"
            let setOpts = fun def -> { def with Output = output; FscTarget = FscTarget.Library }
            Fsc setOpts (List.concat [pt;fromExampleDir example.ProviderSourceFiles])

            // Compile test dll
            let setTestOpts = fun def ->
                { def with 
                    Output = testDir @@ example.Name + ".Tests.dll"
                    FscTarget = FscTarget.Library
                    References = [output;nunitDir @@ "nunit.framework.dll"] }
            Fsc setTestOpts (fromExampleDir example.TestSourceFiles)
        )
)

Target "RunTests" (fun _ ->
    !! (testDir @@ "*.Tests.dll")
    |> NUnit id
)

// --------------------------------------------------------------------------------------
// Build a NuGet package

Target "NuGet" (fun _ ->
    [srcDir @@ "ProvidedTypes.fsi"] |> CopyTo (workingDir @@ "content")
    [srcDir @@ "ProvidedTypes.fs"; "./src/DebugProvidedTypes.fs"] |> CopyTo (workingDir @@ "content")
    
    NuGet (fun p -> 
        { p with   
            Authors = authors
            Project = project
            Summary = summary
            Description = description
            Version = version
            ReleaseNotes = releaseNotes
            Tags = tags
            OutputPath = outputPath
            WorkingDir = workingDir
            AccessKey = getBuildParamOrDefault "nugetkey" ""
            Publish = hasBuildParam "nugetkey"
            Files = [workingDir, None, None]
            Dependencies = [] })
        "nuget/FSharp.TypeProviders.StarterPack.nuspec"
)

// --------------------------------------------------------------------------------------
// Help

Target "Help" (fun _ ->
    printfn ""
    printfn "  Please specify the target by calling 'build <Target>'"
    printfn ""
    printfn "  * NuGet (creates package only, doesn't publish unless api key provided)"
    printfn "  * Compile (attempts to compile ProvidedTypes.fs)"
    printfn "")

"Clean"
    ==> "Compile"
    ==> "Examples"
    ==> "RunTests"
    ==> "NuGet"

RunTargetOrDefault "Help"