Dirty Detect

Author: Seng-Jik

Bake.Actions/Download.fs

@@ -3,16 +3,18 @@
 open Bake
 open System.Net
 
+let downloadFile (url: string) targetFile =
+    use webClient = new WebClient ()
+    webClient.DownloadFile (url, targetFile)
+
 let downloadTask echo (targetDir: string) script (url: string) = 
     let fileName = url.[1 + url.LastIndexOf '/'..]
     let targetDir = targetDir.Trim().Trim('\\', '/') + "/"
     let targetFile = targetDir + fileName
     {
         run = fun () ->
-            
             if echo then lock stdout (fun () -> printfn "Downloading %s..." fileName)
-            use webClient = new WebClient ()
-            webClient.DownloadFile (url, targetFile)
+            downloadFile url targetFile
         inputFiles = Seq.empty
         outputFiles = seq { targetFile }
         dirty = true

Bake.Actions/Run.fs

@@ -4,6 +4,19 @@ open Bake
 
 exception ExitCodeIsNotZero of int
 
+let run waitForExit workingDir (cmd: string) =
+    let cmd, args = let cells = cmd.Split ' ' in cells.[0], cells.[1..]
+    let args = Array.reduce (fun a b -> a + " " + b) args
+
+    let startInfo = new System.Diagnostics.ProcessStartInfo ()
+    startInfo.FileName <- cmd
+    startInfo.Arguments <- args
+    startInfo.WorkingDirectory <- workingDir
+
+    let prc = System.Diagnostics.Process.Start startInfo
+    if waitForExit then prc.WaitForExit ()
+    if prc.ExitCode <> 0 then raise <| ExitCodeIsNotZero prc.ExitCode
+
 let runTask echo waitForExit script (command: string seq) = {
     inputFiles = Seq.empty
     outputFiles = Seq.empty
@@ -13,17 +26,7 @@ let runTask echo waitForExit script (command: string seq) = {
         command
         |> Seq.iter (fun cmd ->
             if echo then lock stdout (fun () -> printfn "%s" cmd)
-            let cmd, args = let cells = cmd.Split ' ' in cells.[0], cells.[1..]
-            let args = Array.reduce (fun a b -> a + " " + b) args
-
-            let startInfo = new System.Diagnostics.ProcessStartInfo ()
-            startInfo.FileName <- cmd
-            startInfo.Arguments <- args
-            startInfo.WorkingDirectory <- script.scriptFile.Directory.FullName
-
-            let prc = System.Diagnostics.Process.Start startInfo
-            if waitForExit then prc.WaitForExit ()
-            if prc.ExitCode <> 0 then raise <| ExitCodeIsNotZero prc.ExitCode)
+            run waitForExit cmd script.scriptFile.Directory.FullName)
 }
 
 let runAction echo waitForExit = fun ctx script -> 

Bake.Actions/Unzip.fs

@@ -33,11 +33,12 @@ let Unzip = {
     action = fun ctx script -> 
         if script.arguments.Length <> 2 then raise <| Action.ActionUsageError "Unzip必须有两个参数。"
 
+        let srcDir = script.scriptFile.Directory.FullName.Trim().Trim('\\', '/') + "/"
         let targetDir = script.arguments.[0].Trim() |> Action.applyContextToArgument ctx
         let targetDir = targetDir.TrimEnd('\\', '/') + "/"
 
         Action.blockArgumentTaskPerLine (fun _ script zip ->
-            seq { unzipTask true script targetDir zip }) ctx script script.arguments.[1],
+            seq { unzipTask true script targetDir <| srcDir + zip }) ctx script script.arguments.[1],
         ctx
 }
 

Bake/Program.fs

@@ -4,7 +4,7 @@ open Bake
 [<EntryPoint>]
 let main args =
     try
-        let buildScript =
+        let buildScriptFile =
             match args with
             | [||] -> 
                 [
@@ -17,6 +17,9 @@ let main args =
             | [|a|] -> [ a; a + ".bake" ] |> List.find System.IO.File.Exists
             | _ -> failwithf "Not support"
             |> System.IO.FileInfo
+
+        let buildScript =
+            buildScriptFile
             |> Parser.parseFromFile
             |> function
             | Ok x -> x
@@ -32,7 +35,10 @@ let main args =
         //buildScript |> Seq.iter (printfn "%A")
 
         let context = {
-            variables = Map.empty
+            variables = 
+                Map.empty
+                |> Map.add "StartDir" buildScriptFile.Directory.FullName
+                |> Map.add "CurrentDir" System.Environment.CurrentDirectory
             actions = defaultActions
 
             runChildBlock = Bake.Actions.Sync.syncBlockRunner

README.md

@@ -34,6 +34,10 @@
 * Copy - 复制
 * Zip - 打包
 
+## 规则
+1. 输入文件全部使用相对路径（相对于脚本文件）
+2. 输出文件全部使用绝对路径（可使用$StartDir获取启动脚本的路径以设置$Output变量）
+
 ## 脚本语言示例
 
 ##### Build.bake