diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index a1ca45c21e6da75c2948a2a4c99a32b5dc66103d..0dcb0986b57df31edeef14c6a45b778012daa197 100644 (file)
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
interface
interface
-uses
- SysUtils;
+ uses SysUtils;
-type
- TWriteMode = (WM_NEWFILE, WM_OLDFILE);
- TMsgType = (Fatal, Warning, Notify);
+ type
+ TWriteMode = (WM_NEWFILE, WM_OLDFILE);
+ TMsgType = (Fatal, Warning, Notify);
+ procedure e_Log_Initialize;
+ procedure e_Log_Finalize;
procedure e_InitLog (fFileName: String; fWriteMode: TWriteMode);
procedure e_DeinitLog ();
procedure e_InitLog (fFileName: String; fWriteMode: TWriteMode);
procedure e_DeinitLog ();
procedure e_LogWritefln (const fmt: AnsiString; args: array of const; category: TMsgType=TMsgType.Notify; writeTime: Boolean=true; writeConsole: Boolean=true);
procedure e_LogWriteln (const s: AnsiString; category: TMsgType=TMsgType.Notify; writeTime: Boolean=true);
procedure e_LogWritefln (const fmt: AnsiString; args: array of const; category: TMsgType=TMsgType.Notify; writeTime: Boolean=true; writeConsole: Boolean=true);
procedure e_LogWriteln (const s: AnsiString; category: TMsgType=TMsgType.Notify; writeTime: Boolean=true);
-
procedure e_WriteStackTrace (const msg: AnsiString);
procedure e_WriteStackTrace (const msg: AnsiString);
-
-var
- e_WriteToStdOut: Boolean = False;
-
-
implementation
uses
implementation
uses
driverInited: Boolean = false;
driverInited: Boolean = false;
+ procedure e_Log_Initialize;
+ begin
+ end;
+
+ procedure e_Log_Finalize;
+ begin
+ e_DeinitLog
+ end;
+
+
function DecodeIPV4 (ip: LongWord): string;
begin
Result := Format('%d.%d.%d.%d', [ip and $FF, (ip shr 8) and $FF, (ip shr 16) and $FF, (ip shr 24)]);
function DecodeIPV4 (ip: LongWord): string;
begin
Result := Format('%d.%d.%d.%d', [ip and $FF, (ip shr 8) and $FF, (ip shr 16) and $FF, (ip shr 24)]);