Skip to content

Commit

Permalink
+ build.fsx script.
Browse files Browse the repository at this point in the history
  • Loading branch information
gusty committed Nov 9, 2015
1 parent c354458 commit 444d48a
Show file tree
Hide file tree
Showing 2 changed files with 80 additions and 1 deletion.
5 changes: 4 additions & 1 deletion .travis.yml
Expand Up @@ -9,4 +9,7 @@ env:
before_install:
- wget "http://download.mono-project.com/archive/${MONO_VERSION}/macos-10-x86/MonoFramework-MDK-${MONO_VERSION}.macos10.xamarin.x86.pkg"
- sudo installer -pkg "MonoFramework-MDK-${MONO_VERSION}.macos10.xamarin.x86.pkg" -target /
- mozroots --import --sync
- mozroots --import --sync

script:
- ./build.fsx
76 changes: 76 additions & 0 deletions build.fsx
@@ -0,0 +1,76 @@
#if run_with_bin_sh
# See why this works at http://stackoverflow.com/a/21948918/637783
exec fsharpi --define:mono_posix --exec $0 $*
#endif

(*
* Crossplatform FSharp Makefile Bootstrapper
* Apache licensed - Copyright 2014 Jay Tuley <jay+code@tuley.name>
* v 2.0 https://gist.github.com/jbtule/9243729
*
* How to use:
* On Windows `fsi --exec build.fsx <buildtarget>
*
* On Mac Or Linux `./build.fsx <buildtarget>`
* *Note:* But if you have trouble then use `sh build.fsx <buildtarget>`
*
*)

open System
open System.IO
open System.Diagnostics

(* helper functions *)
#if mono_posix
#r "Mono.Posix.dll"
open Mono.Unix.Native
let applyExecutionPermissionUnix path =
let _,stat = Syscall.lstat(path)
Syscall.chmod(path, FilePermissions.S_IXUSR ||| stat.st_mode) |> ignore
#else
let applyExecutionPermissionUnix path = ()
#endif

let doesNotExist path =
path |> Path.GetFullPath |> File.Exists |> not

let execAt (workingDir:string) (exePath:string) (args:string seq) =
let processStart (psi:ProcessStartInfo) =
let ps = Process.Start(psi)
ps.WaitForExit ()
ps.ExitCode
let fullExePath = exePath |> Path.GetFullPath
applyExecutionPermissionUnix fullExePath
let exitCode = ProcessStartInfo(
fullExePath,
args |> String.concat " ",
WorkingDirectory = (workingDir |> Path.GetFullPath),
UseShellExecute = false)
|> processStart
if exitCode <> 0 then
exit exitCode
()

let exec = execAt Environment.CurrentDirectory

let downloadNugetTo path =
let fullPath = path |> Path.GetFullPath;
if doesNotExist fullPath then
printf "Downloading NuGet..."
use webClient = new System.Net.WebClient()
fullPath |> Path.GetDirectoryName |> Directory.CreateDirectory |> ignore
webClient.DownloadFile("https://nuget.org/nuget.exe", path |> Path.GetFullPath)
printfn "Done."

let passedArgs = fsi.CommandLineArgs.[1..] |> Array.toList

(* execution script customize below *)

let nugetExe = "packages/NuGet/NuGet.exe"
let fakeExe = "packages/FAKE/tools/FAKE.exe"

downloadNugetTo nugetExe

if doesNotExist fakeExe then
exec nugetExe ["install"; "FAKE"; "-OutputDirectory packages"; "-ExcludeVersion"; "-Prerelease"]
exec fakeExe ("makefile.fsx"::passedArgs)"

0 comments on commit 444d48a

Please sign in to comment.