#r @"packages/build/FAKE/tools/FakeLib.dll"

#load "scripts/Butler.fs"

open Fake

open System.Net

let mode = getBuildParamOrDefault "mode" "Release"

let parentDir = "../"

let buildDirBase = "./bin/"

let buildDir = buildDirBase + mode + "/"

let appName = "turnt_ninja"

let appPath = buildDir + appName + ".exe"

let substructioRepo = @"https://github.com/opcon/Substructio"

let substructioBranch = "develop"

let substructioFolder = "Substructio"

let substructioDir = parentDir + substructioFolder + "/"

let substructioBuildDir = substructioDir + buildDirBase + mode + "/"

let contentDirDeployName = "Content"

let licenseDirDeployName = "Licenses"

let dllDirDeployName = "Dependencies"

let kickstartArchive = @"https://my.mixtape.moe/boqboe.zip"

let kickstartArchiveNoSSL = @"http://my.mixtape.moe/boqboe.zip"

let kickstartArchivePath = "./kickstart.zip"

let tempDirBase = "./tmp/"

let deployDir = "./deploy/"

let squirrelDeployDir = deployDir + "squirrel/"

let postFix = match mode.ToLower() with

| "release" -> ""

| _ -> "-" + mode.ToLower()

let (|Prefix|_|) (p:string) (s:string) =

if s.StartsWith(p) then

Some(s.Substring(p.Length))

else

None

let isTagged (repoDir:string) =

let _,msg,error = Git.CommandHelper.runGitCommand repoDir "describe --abbrev=0 --exact-match"

let success =

match error with

| Prefix "fatal: " rest ->

trace rest

false

| "" -> true

| _ -> true

let tag =

match success with

| false -> ""

| true -> msg |> Seq.head

(tag, success)

let versionString =

lazy

let ver = VersionHelper.GetAssemblyVersion appPath

let vs1 = sprintf "%i.%i.%i%s" ver.Major ver.Minor ver.Build postFix

let t,s = isTagged "./"

let vs =

match s with

| true ->

let split = StringHelper.split('-') t

match split.Length with

| 1 -> vs1

| _ -> (sprintf "%s-%s" vs1 (List.last split))

| false -> vs1

vs

let alphaBuild =

lazy

((StringHelper.split('-') versionString.Value).Length > 1)

let deployName =

lazy

sprintf "%s-%s" appName versionString.Value

let tempDirName = lazy

tempDirBase + appName + "/"

let deployKickstartName = lazy

deployName.Value + "-kickstart"

let deployZipName = lazy

deployName.Value + ".zip"

let deployZipPath = lazy

deployDir + deployZipName.Value

let deployKickstartPath = lazy

deployDir + deployKickstartName.Value + ".zip"

let tempKickstartPath = lazy

tempDirBase + deployKickstartName.Value + "/"

let macAppName = "Turnt Ninja"

let macAppFolder = macAppName + ".app"

let macAppDeployName = lazy

macAppFolder + "-" + versionString.Value + ".zip"

let macAppDeployPath = lazy

deployDir + macAppDeployName.Value

let tempMacAppPath = lazy

tempDirBase + "mac/" + macAppFolder + "/"

let tempMacAppContents = lazy

tempMacAppPath.Value + "Contents/"

let tempMacAppResources = lazy

tempMacAppContents.Value + "Resources/"

let tempMacAppMacOS = lazy

tempMacAppContents.Value + "MacOS/"

let macIconOrigPath = lazy

tempMacAppMacOS.Value + "Content/Images/icon.icns"

let macInfoFile = """<?xml version="1.0" encoding="UTF-8"?>

let itchLinuxConfig = @"[[actions]]

let itchMacConfig = @"[[actions]]

let itchWindowsConfig = @"[[actions]]

let itchPushTarget = "opcon/turnt-ninja"

let itchChannelSuffix =

match Git.Information.getBranchName "./" with

| "develop" -> "-ci"

| _ -> ""

let squirrelToolName = "Squirrel.exe"

let ILMergeToolName = "ILRepack.exe"

let msbuild2017Location = @"C:\Program Files (x86)\Microsoft Visual Studio\2017\Community\MSBuild\15.0\Bin"

let ZipFolderWithWorkingDir (workingDir:string) (folderPath:string) (zipPath:string) =

let dInfo = new System.IO.DirectoryInfo(folderPath)

Zip workingDir zipPath [ for f in dInfo.EnumerateFiles("*", System.IO.SearchOption.AllDirectories) do yield f.FullName]

let ZipFolder (folderPath:string) (zipPath:string) = ZipFolderWithWorkingDir folderPath folderPath zipPath

let pushAppVeyorArtifact (appVeyorFileName:string) (localPath:string) =

AppVeyor.PushArtifact (fun p ->

{p with

FileName = appVeyorFileName

Path = localPath

})

Target "Clean" (fun _ ->

try

CleanDir buildDir

with

| _ -> ()

Target "CleanSubstructio" (fun _ ->

CleanDir substructioBuildDir

Target "CleanAll" (fun _ ->

try

CleanDir buildDirBase

with

| _ -> ()

Target "CheckSubstructioExists" (fun _ ->

if not (directoryExists substructioDir) then

trace "Substructio does not exist, cloning Substructio"

Git.Repository.cloneSingleBranch parentDir substructioRepo substructioBranch substructioFolder

else

trace "Substructio folder already exists"

Target "RestoreSubstructioPackages" (fun _ ->

Paket.Restore (fun p ->

{ p with

WorkingDir = substructioDir})

Target "BuildSubstructio" (fun _ ->

"Building Substructio, in " + mode + " configuration" |> trace

!! (substructioDir + "src/**/*.csproj")

|>

match mode.ToLower() with

| "release" -> MSBuildRelease "" "Build"

| _ -> MSBuildDebug "" "Build"

|> Log "AppBuild-Output:"

Target "Build" (fun _ ->

"Building Turnt Ninja in " + mode + " configuration" |> trace

!! "src/**/*.csproj"

|>

match mode.ToLower() with

| "release" -> MSBuildRelease buildDir "Build"

| _ -> MSBuildDebug buildDir "Build"

|> Log "AppBuild-Output: "

Target "CleanTemp" (fun _ ->

CleanDir tempDirBase

Target "CleanDeploy" (fun _ ->

CleanDir deployDir

Target "CopyToTemp" (fun _ ->

ensureDirectory deployDir

ensureDirectory tempDirBase

let mainFiles = !! (sprintf "%s*.dll" buildDir) ++ (sprintf "%s*.config" buildDir) ++ (sprintf "%s*.exe" buildDir) -- (sprintf "%s*vshost*" buildDir)

CopyFiles tempDirName.Value mainFiles

CopyDir (tempDirName.Value + contentDirDeployName) "src/TurntNinja/Content/" (fun x -> true)

CopyDir (tempDirName.Value + licenseDirDeployName) "docs/licenses" (fun x-> true)

let filesToMove = !! (sprintf "%s*.dll" tempDirName.Value) ++ (sprintf "%s*.dll.config" tempDirName.Value)

Copy (tempDirName.Value + dllDirDeployName) filesToMove

DeleteFiles filesToMove

Target "DownloadKickstart" (fun _ ->

ensureDirectory (tempKickstartPath.Value)

trace ("Downloading kickstart from " + kickstartArchive)

// Download mono kickstart

let wc = new WebClient()

try

wc.DownloadFile(kickstartArchive, kickstartArchivePath)

with

| _ -> (trace ("Download failed, using non-ssl url " + kickstartArchiveNoSSL)

wc.DownloadFile(kickstartArchiveNoSSL, kickstartArchivePath))

Target "DeployZip" (fun _ ->

let dInfo = new System.IO.DirectoryInfo(tempDirName.Value)

Zip tempDirName.Value deployZipPath.Value [ for f in dInfo.EnumerateFiles("*", System.IO.SearchOption.AllDirectories) do yield f.FullName]

//ArchiveHelper.Tar.GZip.CompressWithDefaults (directoryInfo artifactTempDir) (fileInfo (deployDir + deployName + ".tar.gz")) (dInfo.EnumerateFiles("*", System.IO.SearchOption.AllDirectories))

Target "DeploySquirrel" (fun _ ->

ensureDirectory squirrelDeployDir

let info = System.Diagnostics.FileVersionInfo.GetVersionInfo appPath

let packagePath = sprintf "%s%s.%s%s.nupkg" deployDir appName info.FileVersion postFix

// Pack nuget package

NuGet (fun p ->

{p with

Authors = ["Patrick Yates"]

Description = "A music game"

Project = "Turnt Ninja"

Version = info.FileVersion + postFix

ReleaseNotes = "https://github.com/opcon/turnt-ninja"

Files = [

("**/*.*", Some @"lib/net45", None)

]

OutputPath = deployDir

WorkingDir = tempDirName.Value

})

"src/TurntNinja/TurntNinja.nuspec"

let squirrelPath = findToolInSubPath squirrelToolName ""

// Create squirrel package

Squirrel.SquirrelPack (fun p ->

{p with

ReleaseDir = squirrelDeployDir

ToolPath = squirrelPath

})

packagePath

Target "DeployKickstart" (fun _ ->

trace "Copying build files to kickstart folder"

CopyDir (tempKickstartPath.Value + appName) tempDirName.Value (fun x -> true)

trace "Unzipping kickstart over top"

Unzip (tempKickstartPath.Value + appName) kickstartArchivePath

trace "Zipping it all up"

ZipFolder tempKickstartPath.Value deployKickstartPath.Value

Target "DeployMacApp" (fun _ ->

ensureDirectory tempMacAppContents.Value

ensureDirectory tempMacAppMacOS.Value

ensureDirectory tempMacAppResources.Value

trace "Copying kickstart folder to mac app folder"

CopyDir tempMacAppMacOS.Value (tempKickstartPath.Value + appName) (fun x -> true)

trace "Copying icon to mac app folder"

CopyFile tempMacAppResources.Value macIconOrigPath.Value

trace "Writing Info.plist file"

WriteStringToFile false (tempMacAppContents.Value + "Info.plist") macInfoFile

trace "Zipping it all up"

ZipFolderWithWorkingDir (tempDirBase + "mac/") tempMacAppPath.Value macAppDeployPath.Value

Target "Deploy" (fun _ -> ())

Target "DeployAll" (fun _ -> ())

Target "PushArtifacts" (fun _ ->

match buildServer with

| BuildServer.AppVeyor ->

pushAppVeyorArtifact (deployName.Value + "-appveyor.zip") deployZipPath.Value

pushAppVeyorArtifact macAppDeployName.Value macAppDeployPath.Value

pushAppVeyorArtifact (deployKickstartName.Value + ".zip") deployKickstartPath.Value

| _ -> ()

Target "SetupMSBuildPath" (fun _ ->

if (directoryExists msbuild2017Location) then

trace (sprintf "Found 2017 MSBuild directory at %s, setting MSBuild build parameter to this location" msbuild2017Location)

setBuildParam "MSBuild" msbuild2017Location

Target "Default" (fun _ ->

()

Target "DownloadButler" (fun _ ->

Butler.DownloadButler "./"

let pushWin (channel:string) =

WriteStringToFile false (tempDirName.Value + "/.itch.toml") itchWindowsConfig

Butler.PushBuild "./" tempDirName.Value itchPushTarget channel versionString.Value true |> string |> trace

let pushLinux (channel:string) =

WriteStringToFile false (tempKickstartPath.Value + appName + "/.itch.toml") itchLinuxConfig

Butler.PushBuild "./" (tempKickstartPath.Value + appName) itchPushTarget channel versionString.Value true |> string |> trace

let pushMac (channel:string) =

WriteStringToFile false (tempDirBase + "mac/" + ".itch.toml") itchMacConfig

Butler.PushBuild "./" (tempDirBase + "mac") itchPushTarget channel versionString.Value true |> string |> trace

Target "PushItchCI" (fun _ ->

match mode.ToLower() with

| "release" ->

match (Git.Information.getBranchName "./").ToLower() with

| "master" | "develop" ->

let t,s = isTagged "./"

()

match s with

| true ->

match buildServer with

| BuildServer.AppVeyor ->

pushWin ("win" + itchChannelSuffix)

| BuildServer.Travis ->

match EnvironmentHelper.isMacOS with

| true ->

pushMac ("mac" + itchChannelSuffix)

| false ->

pushLinux ("linux" + itchChannelSuffix)

| BuildServer.LocalBuild ->

pushWin ("win" + itchChannelSuffix)

pushLinux ("linux" + itchChannelSuffix)

pushMac ("mac" + itchChannelSuffix)

| _ -> ()

| false -> ()

| _ -> ()

| _ -> ()

Target "PrintVersion" (fun _ ->

trace versionString.Value

Target "StampAssembly" (fun _ ->

let t,s = isTagged "./"

let stamp1 = sprintf "Head:%s Sha:%s" (Git.Information.getBranchName "./") (Git.Information.getCurrentHash())

let stamp =

match s with

| true ->

(sprintf "Tag:%s %s" t stamp1)

| false -> stamp1

AssemblyInfoFile.UpdateAttributes ("src/TurntNinja/Properties/AssemblyInfo.cs") [AssemblyInfoFile.Attribute.InformationalVersion stamp]

Target "PushArtifactsAndItchBuilds" (fun _ ->

()

==> "Build"

==> "Build"

==> "Default"

==> "Build"

==> "RestoreSubstructioPackages"

==> "BuildSubstructio"

==> "Build"

==> "CleanSubstructio"

==> "CopyToTemp"

==> "DeployZip"

==> "Deploy"

==> "DeployAll"

==> "DeploySquirrel"

==> "DeployKickstart"

==> "DeployMacApp"

==> "PushArtifacts"

==> "DeployAll"

==> "DeployAll"

==> "PushItchCI"

=?> ("PushItchCI", not (fileExists ("./" + Butler.butlerFileName)))

==> "PushArtifactsAndItchBuilds"

==> "PushArtifactsAndItchBuilds"

=?> ("CopyToTemp", not (fileExists appPath))

=?> ("DeployKickstart", not (fileExists kickstartArchivePath))

RunTargetOrDefault "Default"