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

diff --git a/Parasitemia/Logger/Constants.fs b/Parasitemia/Logger/Constants.fs
new file mode 100644
index 0000000..339ac07
--- /dev/null
+++ b/Parasitemia/Logger/Constants.fs
@@ -0,0 +1,22 @@
+module internal Logger.Constants
+
+open System.Text
+open System.Text.RegularExpressions
+
+let [<Literal>] DEFAULT_MAX_SIZE_FILE = 52428800L // [byte] (50 MB).
+
+// Each 100 entries added we check the size of the log file to test if it is greater than 'MAX_SIZE_FILE'.
+let [<Literal>] NB_ENTRIES_CHECK_SIZE = 100;
+
+let [<Literal>] MAX_NB_OF_MESSAGE_HASHES_WHEN_AVOIDING_REPEATING_IDENTICAL_MESSAGES = 10;
+let [<Literal>] MIN_MESSAGE_LENGTH_TO_NOT_BE_REPEATED = 40;
+
+let [<Literal>] COMPRESS_ARCHIVED_FILES = true
+
+let [<Literal>] FILENAME_FORMAT = "{0:D4}.log"
+let [<Literal>] COMPRESSED_FILE_POSTFIX = ".gzip"
+let FILENAME_PATTERN = Regex @"\d{4}\.log"
+let FILENAME_PATTERN_COMPRESSED = Regex (string FILENAME_PATTERN + COMPRESSED_FILE_POSTFIX.Replace (".", @"\."))
+let encoding = Encoding.GetEncoding "UTF-8"
+let [<Literal>] DEFAULT_LOG_DIR = "log"
+