Output logs to AppUser/Roaming/Parasitemia/Logs

[master-thesis.git] / Parasitemia / ParasitemiaUI / Program.fs

diff --git a/Parasitemia/ParasitemiaUI/Program.fs b/Parasitemia/ParasitemiaUI/Program.fs
index b3ca81d..5b5edd0 100644 (file)
--- a/Parasitemia/ParasitemiaUI/Program.fs
+++ b/Parasitemia/ParasitemiaUI/Program.fs
@@ -12,36 +12,6 @@ open Logger
 open ParasitemiaCore.Utils
 open ParasitemiaCore.Config
 
-type Input =
-    | File of string
-    | Dir of string
-
-type RunningMode =
-    | CmdLine of Input * string // A file or a directory to process and the output directory.
-    | Window of string option // An optional path to a file to open can be given in window mode.
-
-type Arguments = RunningMode * bool // bool : true if in debug mode.
-
-let parseArgs (args : string[]) : Arguments =
-
-    let output = Array.tryFindIndex ((=) "--output") args
-
-    let runningMode =
-        match Array.tryFindIndex ((=) "--folder") args, output with
-        | Some i, Some i_output when i < args.Length - 2 && i_output < args.Length - 2 ->
-            CmdLine ((Dir args.[i + 1]), args.[i_output + 1])
-        | _ ->
-            match Array.tryFindIndex ((=) "--file") args, output with
-            | Some i, Some i_output when i < args.Length - 2 && i_output < args.Length - 2 ->
-                CmdLine ((File args.[i + 1]), args.[i_output + 1])
-            |_ ->
-                Window (if args.Length > 0 && not (args.[0].StartsWith ("--")) then Some args.[0] else None)
-
-    runningMode, Array.exists ((=) "--debug") args
-
-let showArgsHelp () =
-    Console.WriteLine Utils.argsHelp
-
 [<System.Runtime.InteropServices.DllImport "kernel32.dll">]
 extern bool AttachConsole (int dwProcessId)
 
@@ -51,20 +21,39 @@ let main args =
     // To redirect stdout to the attached console.
     AttachConsole -1 |> ignore // -1 to attach to the parent process.
 
+    Log.LogDirectory <- Constants.USER_DIRECTORY_LOG
+
+#if DEBUG
+    Log.ClearLogFiles ()
+#endif
+
+    Log.AvoidRepeatingIdenticalMessages <- true
+
     if Array.exists (fun e -> e = "--help" || e = "-h") args then
-        showArgsHelp ()
+        Args.showArgsHelp ()
         0
     else
         try
-            Log.Info "Starting of Parasitemia UI ..."
+            Log.Info ">>>>> Starting of Parasitemia UI ..."
+            // Log.Info "UI Version: %s" Utils.UIVersion TODO
 
             let result =
-                match parseArgs args with
+                match Args.parse args with
                 | mode, debug ->
                     let config = Config defaultParameters
 
+#if DEBUG
+                    Log.DebugLoggingEnabled <- true
+#else
+                    Log.DebugLoggingEnabled <- debug
+#endif
+
+                    Log.Info "Command line arguments: %s" (args |> String.concat " ")
+                    Log.Info "Configuration: %O" config
+                    // Log.Info "Settings from %s:\n%s" Settings.Instance.Path Settings.Instance.AsJson TODO
+
                     match mode with
-                    | CmdLine (input, output) ->
+                    | Args.CmdLine (input, output) ->
                         if debug then
                             config.Debug <- DebugOn output
 
@@ -76,9 +65,10 @@ let main args =
 
                         Log.Info "=== New run : %O %s ===" DateTime.Now  (if debug then "[DEBUG]" else "[RELEASE]")
 
-                        let files = match input with
-                                    | File file -> [ file ]
-                                    | Dir dir -> Directory.EnumerateFiles dir |> List.ofSeq
+                        let files =
+                            match input with
+                            | Args.File file -> [ file ]
+                            | Args.Dir dir -> Directory.EnumerateFiles dir |> List.ofSeq
 
                         use resultFile = new StreamWriter (new FileStream (Path.Combine (output, "results.txt"), FileMode.Append, FileAccess.Write))
 
@@ -101,14 +91,16 @@ let main args =
                         Log.RemoveListener listener
                         0
 
-                    | Window fileToOpen ->
+                    | Args.Window fileToOpen ->
                         if debug then config.Debug <- DebugOn "."
                         GUI.run config fileToOpen
 
-            Log.Info "Parasitemia UI closed"
+            Log.Info "<<<<< Parasitemia UI closed"
+            Log.Close ()
             result
 
         with
         | ex ->
             Log.Fatal "Error: %A" ex
+            Log.Close ()
             1
\ No newline at end of file