Upgrade the logger component

[master-thesis.git] / Parasitemia / Logger / ConsoleWriter.fs

diff --git a/Parasitemia/Logger/ConsoleWriter.fs b/Parasitemia/Logger/ConsoleWriter.fs
new file mode 100644 (file)
index 0000000..f453abb
--- /dev/null
+++ b/Parasitemia/Logger/ConsoleWriter.fs
@@ -0,0 +1,26 @@
+namespace Logger
+
+open System
+open System.Threading
+
+open Logger.Types
+
+type internal ConsoleWriter () =
+
+    interface IWriter with
+        member val DebugLoggingEnabled = false with get, set
+        member val AvoidRepeatingIdenticalMessages = false with get, set // Not implemented: TODO.
+
+        member this.LogDir = "" // Not relevant.
+        member val MaxSizeFile = 0L with get, set // Not relevant.
+        member this.LogFiles = Seq.empty // Not relevant.
+
+        member this.Write (message : Message) =
+            let header = Utils.formatHeader message
+            Console.WriteLine (Utils.formatMessage header message.Message)
+
+        member this.Flush () = () // Not relevant.
+        member this.ClearLogFilesOlderThan (timeOld : TimeSpan) = () // Not relevant.
+
+    interface IDisposable with
+        member this.Dispose () = ()
\ No newline at end of file