Bug fixed

Author: Seng-Jik

Bake.Actions/Copy.fs

@@ -10,7 +10,8 @@ let copyFileTask (echo: string option) script srcFile dstFile = {
         | None -> ()
         let dstDir = FileInfo(dstFile).Directory
         if not dstDir.Exists then dstDir.Create ()
-        File.Copy (srcFile, dstFile)
+        let bytes = File.ReadAllBytes srcFile
+        File.WriteAllBytes (dstFile, bytes)
 
     inputFiles = seq { FileInfo (srcFile) }
     source = script

Bake.Core/Task.fs

@@ -15,7 +15,19 @@ type Task = {
 }
 
 module Task = 
-    let isDirty x = true  // Task -> bool
+    let isDirty x = 
+        try
+            if x.dirty || x.inputFiles |> Seq.isEmpty || x.outputFiles |> Seq.isEmpty then true // 如果input、output为空或者设置了强制ditry
+            else if x.outputFiles |> Seq.exists (System.IO.File.Exists >> not) then true        // 如果存在未被生成的文件
+            else
+                let newestInputFiles = 
+                    seq { yield! x.inputFiles; yield x.source.scriptFile } |> Seq.maxBy (fun (x: FileInfo) -> x.LastWriteTimeUtc)
+                let oldestOutputFiles =
+                    x.outputFiles |> Seq.map FileInfo |> Seq.minBy (fun x -> x.LastWriteTimeUtc)
+                if newestInputFiles.LastWriteTimeUtc > oldestOutputFiles.LastWriteTimeUtc then true
+                else false
+        with _ -> true
+
 
     let run (task: Task) : Result<unit, exn> = 
         if isDirty task then 

Bake/Program.fs

@@ -65,7 +65,6 @@ let main args =
         printfn "Error:%A" e 
         -1
 
-// Next: 实现Dirty判断
 // Next: 实现以下Action
 //       * If
 //           * Equals $a $b

Publish.bake

@@ -18,16 +18,15 @@ Run {
 
 CreateDirectory {
 	$Output
-	$Output/src-$DateTime
-	
-	$Output/src-$DateTime/Bake
-	$Output/src-$DateTime/Bake.Core
-	$Output/src-$DateTime/Bake.Actions
-	$Output/src-$DateTime/Bake.Parser
+	$Output/src	
+	$Output/src/Bake
+	$Output/src/Bake.Core
+	$Output/src/Bake.Actions
+	$Output/src/Bake.Parser
 }
 
 Action CopyProject projectName {
-	Copy "$Output/src-$DateTime/projectName" {
+	Copy "$Output/src/projectName" {
 		projectName/*.fs
 		projectName/*.fsproj
 		projectName/Properties
@@ -56,7 +55,7 @@ Parallel {
 			CopyProject Bake
 
 
-			Copy "$Output/src-$DateTime" {
+			Copy "$Output/src" {
 				LICENSE
 				Bake.sln
 				Package.bake
@@ -65,7 +64,7 @@ Parallel {
 		}
 
 		Zip "$Output/Bake-src-$DateTime.zip" {
-			$Output/src-$DateTime/*
+			$Output/src/*
 		}
 	}
 }