Bug fixed

Author: Seng-Jik

Bake.Actions/CreateDirectory.fs

@@ -13,7 +13,6 @@ let createDirectoryTask (ctx: BakeActionContext) script (dir: string) =
             if not <| System.IO.Directory.Exists dir then
                 System.IO.Directory.CreateDirectory dir
                 |> ignore
-                lock stdout (fun () -> printfn "CreateDirectory %s" dir)
     }
 
 [<BakeAction>]

Bake.Core/Action.fs

@@ -23,7 +23,6 @@ and BakeActionContext = {
 }
 
 module Action =
-    exception MethodIsNotAnException of string
     let getActionsFromAssembly (assembly: Assembly) =
         let toBakeAction (action: PropertyInfo) = 
 
@@ -68,7 +67,10 @@ module Action =
         , ctx
 
     exception ActionNotFound of string
+    exception ActionException of Script * BakeActionContext * exn
     let runAction ctx script =
         match ctx.actions |> Map.tryFind script.command with
         | None -> raise <| ActionNotFound script.command
-        | Some action -> action.action ctx script
+        | Some action -> 
+            try action.action ctx script
+            with e -> raise <| ActionException (script, ctx, e)

Bake.Core/Task.fs

@@ -28,7 +28,7 @@ module Task =
                 else false
         with _ -> true
 
-
+    exception TaskException of Task * exn
     let run (task: Task) : Result<unit, exn> = 
         if isDirty task then 
             try
@@ -43,7 +43,7 @@ module Task =
                 |> Seq.iter (fun x -> 
                     try System.IO.File.Delete x
                     with _ -> ())
-                Error e
+                TaskException (task, e) |> Error
 
         else Ok ()
 

Bake/Program.fs

@@ -1,9 +1,18 @@
 
+open System
 open Bake
 
+let processError fmt =
+    Console.ForegroundColor <- ConsoleColor.Red
+    Console.Beep ()
+    Printf.kprintf (fun _ -> Console.ResetColor (); -1) fmt
+
 [<EntryPoint>]
 let main args =
     try
+        try
+            Console.SetWindowSize(90,40)
+        with _ -> ()
         let buildScriptFile =
             match args with
             | [||] -> 
@@ -58,24 +67,12 @@ let main args =
 
         0
     with 
-    | Parser.ParsingError e ->
-        printfn "Parsing Error:%s" e
-        -1
-    | Action.ActionNotFound e ->
-        printfn "Action Not Found:%s" e
-        -1
-    | Action.ActionUsageError e ->
-        printfn "Action Usage Error:%s" e
-        -1
-    | e ->
-        printfn "Error:%A" e 
-        -1
-
-// Next: 实现以下Action
-//       * If
-//           * Equals $a $b
-//           * Exists File $file
-//           * Exists Directory $dir
-//           * Not $Expression
-//           * $SrcFiles Newer $DstFiles
+    | Parser.ParsingError e -> processError "Parsing Error:%s" e
+    | Action.ActionNotFound e -> processError "Action Not Found:%s" e
+    | Action.ActionUsageError e -> processError "Action Usage Error:%s" e
+    | Action.ActionException (script, ctx, e) ->
+        processError "Action Error:%s\n\n%A\n\n%A\n\n%A" e.Message e script ctx
+    | Task.TaskException (task, e) ->
+        processError "Task Error:%s\n\n%A\n\n%A" e.Message e task
+    | e -> processError "Error:%A" e