From 024c502d9fb0a36e29315bc4f3d024a8b8a4b37c Mon Sep 17 00:00:00 2001
From: g00r00 <mysticbbs@gmail.com>
Date: Tue, 1 Oct 2013 21:24:03 -0400
Subject: [PATCH] Initial import

---
 mdl/m_logroller.pas | 82 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100644 mdl/m_logroller.pas

diff --git a/mdl/m_logroller.pas b/mdl/m_logroller.pas
new file mode 100644
index 0000000..5e79020
--- /dev/null
+++ b/mdl/m_logroller.pas
@@ -0,0 +1,82 @@
+Unit m_LogRoller;
+
+{$I M_OPS.PAS}
+
+Interface
+
+Uses
+  m_FileIO,
+  m_Strings,
+  m_DateTime;
+
+Const
+  CRLF     = {$IFDEF WINDOWS} #13#10; {$ENDIF}
+             {$IFDEF UNIX}    #10;    {$ENDIF}
+             {$IFDEF OS2}     #13#10; {$ENDIF}
+  log      = 1;
+  logStart = 2;
+
+Type
+  TLogRoller = Class
+    PreFix   : String;
+    LogFile  : TFileBuffer;
+    BufSize  : LongInt;
+    MaxSize  : LongInt;
+    MaxLogs  : Byte;
+    CurLevel : Byte;
+
+    Constructor Create (FN: String; Max: LongInt; ML, Level: Byte);
+    Destructor  Destroy; Override;
+    Procedure   Add (LogType, LogLevel: Byte; LogChar: Char; LogStr: String);
+  End;
+
+Implementation
+
+Constructor TLogRoller.Create (FN: String; Max: LongInt; ML, Level: Byte);
+Begin
+  Inherited Create;
+
+  MaxSize  := Max * 1024;
+  MaxLogs  := ML;
+  BufSize  := 4 * 1024;
+  CurLevel := Level;
+  PreFix   := FN;
+
+  LogFile := TFileBuffer.Create(BufSize);
+
+  LogFile.OpenStream (PreFix + '_1.log', 1, fmOpenCreate, 66);
+End;
+
+Destructor TLogRoller.Destroy;
+Begin
+  LogFile.Free;
+
+  Inherited Destroy;
+End;
+
+Procedure TLogRoller.Add (LogType, LogLevel: Byte; LogChar: Char; LogStr: String);
+Var
+  Count : Byte;
+Begin
+  If CurLevel < LogLevel Then Exit;
+
+  If (MaxSize > 0) And (System.FileSize(LogFile.InFile) > MaxSize) Then Begin
+    LogFile.CloseStream;
+
+    FileErase (PreFix + '_' + strI2S(MaxLogs) + '.log');
+
+    For Count := MaxLogs - 1 DownTo 1 Do
+      FileReName (PreFix + '_' + strI2S(Count) + '.log', PreFix + '_' + strI2S(Count + 1) + '.log');
+
+    LogFile.OpenStream (PreFix + '_1.log', 1, fmOpenAppend, 66);
+  End;
+
+  Case LogType of
+    logStart : LogStr := '----------  ' + LogStr + ', ' + FormatDate(CurDateDT, 'NNN DD YYYY') + CRLF;
+    log      : LogStr := LogChar + ' ' + FormatDate(CurDateDT, 'HH:II:SS') + '  ' + LogStr + CRLF;
+  End;
+
+  LogFile.WriteBlock (LogStr[1], Length(LogStr));
+End;
+
+End.
\ No newline at end of file