Aegisub/aegisub/build/BuildTasks/BuildTasks.fs

149 lines
5.3 KiB
Forth
Raw Normal View History

// Copyright (c) 2012, Thomas Goyne <plorkyeran@aegisub.org>
//
// Permission to use, copy, modify, and distribute this software for any
// purpose with or without fee is hereby granted, provided that the above
// copyright notice and this permission notice appear in all copies.
//
// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
//
// Aegisub Project http://www.aegisub.org/
module BuildTasks
open System
open System.Diagnostics
open Microsoft.Build.Evaluation
open Microsoft.Build.Framework
open Microsoft.Build.Utilities
2012-11-09 22:33:03 +01:00
/// Search the executable path for the directory containing the given file and
/// return it or empty string if not found
let searchPath file =
Environment.GetEnvironmentVariable("path").Split ';'
|> Seq.map (fun p -> IO.Path.Combine(p, file))
|> Seq.filter IO.File.Exists
|> Seq.append [""]
|> Seq.nth 1
2012-11-09 22:33:03 +01:00
/// Read all of the defined properties from the calling project file and stuff
/// them in a Map
let propertyMap (be : IBuildEngine) =
use reader = Xml.XmlReader.Create(be.ProjectFileOfTaskNode)
let project = new Project(reader)
project.AllEvaluatedProperties
|> Seq.filter (fun x -> not x.IsEnvironmentProperty)
|> Seq.filter (fun x -> not x.IsGlobalProperty)
|> Seq.filter (fun x -> not x.IsReservedProperty)
|> Seq.map (fun x -> (x.Name, x.EvaluatedValue))
|> Map.ofSeq
2012-11-09 22:33:03 +01:00
/// Convert a windows path possibly relative to the Aegisub project file to an
/// absolute msys path
let mungePath projectDir path =
let matchre pat str =
let m = System.Text.RegularExpressions.Regex.Match(str, pat)
if m.Success
then List.tail [ for g in m.Groups -> g.Value ]
else []
match IO.Path.Combine(projectDir, path) |> matchre "([A-Za-z]):\\\\(.*)" with
| drive :: path :: [] -> sprintf "/%s/%s" drive (path.Replace('\\', '/'))
| _ -> failwith <| sprintf "Bad path: '%s' '%s'" projectDir path
type ShellWrapper(props : Map<String, String>) =
2012-11-09 22:33:03 +01:00
let setPath msysRoot =
Environment.SetEnvironmentVariable("path", msysRoot + "\\bin;" + props.["NativeExecutablePath"])
Environment.SetEnvironmentVariable("CC", "cl")
Environment.SetEnvironmentVariable("INCLUDE", props.["IncludePath"])
Environment.SetEnvironmentVariable("LIB", props.["LibraryPath"])
let sh =
match props.TryFind "MsysBasePath" with
| None | Some "" -> searchPath "sh.exe"
2012-11-09 22:33:03 +01:00
| Some path -> setPath path; sprintf "%s\\bin\\sh.exe" path
let cwd = function
| null | "" -> props.["AegisubSourceBase"]
2012-11-09 22:33:03 +01:00
| x -> if not <| IO.Directory.Exists x then ignore <| IO.Directory.CreateDirectory(x)
x
2012-11-09 22:33:03 +01:00
member this.call args workingDir =
if not <| IO.File.Exists sh then
2012-11-09 22:33:03 +01:00
failwith "sh.exe not found. Make sure the MSYS root is set to a correct location."
let info = new ProcessStartInfo(FileName = sh
2012-11-09 22:33:03 +01:00
, Arguments = args
, WorkingDirectory = cwd workingDir
, RedirectStandardOutput = true
, UseShellExecute = false)
use p = new Process(StartInfo = info)
ignore(p.Start())
2012-11-09 22:33:03 +01:00
let output = p.StandardOutput.ReadToEnd()
p.WaitForExit()
if p.ExitCode <> 0 then
2012-11-09 22:33:03 +01:00
failwith output
member this.callScript scriptName args workingDir =
this.call (sprintf "%s %s" (mungePath props.["ProjectDir"] scriptName) args) workingDir
type ExecShellScript() =
inherit Task()
member val WorkingDirectory = "" with get, set
member val Command = "" with get, set
2012-11-09 22:33:03 +01:00
member val Script = "" with get, set
member val Arguments = "" with get, set
override this.Execute() =
try
let sw = ShellWrapper (propertyMap this.BuildEngine)
2012-11-09 22:33:03 +01:00
if this.Script.Length > 0
then this.Log.LogMessage("Calling '{0}' {1}", this.Script, this.Arguments);
sw.callScript this.Script this.Arguments this.WorkingDirectory
else this.Log.LogMessage("Calling '{0}' {1}", this.Command, this.Arguments);
sw.call (sprintf "-c '%s %s'" this.Command this.Arguments) this.WorkingDirectory
true
with Failure(e) ->
this.Log.LogError(e)
false
type MsysPath() =
inherit Task()
member val ProjectDir = "" with get, set
member val Path = "" with get, set
[<Output>]
member val Result = "" with get, set
override this.Execute() =
try
this.Result <- mungePath this.ProjectDir this.Path
true
2012-11-09 22:33:03 +01:00
with Failure(e) ->
this.Log.LogError(e)
false
2012-11-09 22:33:03 +01:00
type UpdateFile() =
inherit Task()
member val File = "" with get, set
member val Find = "" with get, set
member val Replacement = "" with get, set
override this.Execute() =
try
this.Log.LogMessage("Replacing '{0}' with '{1}' in '{2}'", this.Find, this.Replacement, this.File)
let text = IO.File.ReadAllText(this.File).Replace(this.Find, this.Replacement)
IO.File.WriteAllText(this.File, text)
true
with e ->
this.Log.LogErrorFromException e
false