X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FLogger%2FConsoleWriter.fs;fp=Parasitemia%2FLogger%2FConsoleWriter.fs;h=f453abbc29e7d84bb6d51e1dc93ec248e910da09;hp=0000000000000000000000000000000000000000;hb=8cf2153bd18919de41745534d3dbf134f085e13c;hpb=6250f10c807301a760b8659f9c00ca6dbbd4c7b7

diff --git a/Parasitemia/Logger/ConsoleWriter.fs b/Parasitemia/Logger/ConsoleWriter.fs
new file mode 100644
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