src/engine/e_log.pas

   1 unit e_log;
   2
   3 {$INCLUDE ../shared/a_modes.inc}
   4
   5 interface
   6
   7 uses
   8   SysUtils;
   9
  10 type
  11   TWriteMode=(WM_NEWFILE,  WM_OLDFILE);
  12   TRecordCategory=(MSG_FATALERROR, MSG_WARNING, MSG_NOTIFY);
  13
  14 procedure e_InitLog(fFileName: String; fWriteMode: TWriteMode);
  15 procedure e_WriteLog(TextLine: String; RecordCategory: TRecordCategory;
  16                      WriteTime: Boolean = True);
  17 procedure e_WriteStackTrace (const msg: AnsiString);
  18 function DecodeIPV4(ip: LongWord): string;
  19
  20 implementation
  21
  22 var
  23   FirstRecord: Boolean;
  24   FileName: String;
  25
  26 { TLog }
  27
  28 function DecodeIPV4(ip: LongWord): string;
  29 begin
  30   Result := Format('%d.%d.%d.%d', [ip and $FF, (ip shr 8) and $FF, (ip shr 16) and $FF, (ip shr 24)]);
  31 end;
  32
  33 procedure e_WriteLog(TextLine: String; RecordCategory: TRecordCategory;
  34                      WriteTime: Boolean = True);
  35 var
  36   LogFile: TextFile;
  37   Prefix: ShortString;
  38 begin
  39   if FileName = '' then Exit;
  40
  41   Assign(LogFile, FileName);
  42   if FileExists(FileName) then
  43     Append(LogFile)
  44   else
  45     Rewrite(LogFile);
  46   if FirstRecord then
  47   begin
  48     Writeln(LogFile, '--- Log started at '+TimeToStr(Time)+' ---');
  49     FirstRecord := False;
  50   end;
  51   case RecordCategory of
  52     MSG_FATALERROR: Prefix := '!!!';
  53     MSG_WARNING:    Prefix := '!  ';
  54     MSG_NOTIFY:     Prefix := '***';
  55   end;
  56   if WriteTime then
  57     Writeln(LogFile, '['+TimeToStr(Time)+'] '+Prefix+' '+TextLine)
  58   else
  59     Writeln(LogFile, Prefix+' '+TextLine);
  60   Close(LogFile);
  61 end;
  62
  63 {$I-}
  64 procedure e_WriteStackTrace (const msg: AnsiString);
  65   var LogFile: TextFile;
  66 begin
  67   e_WriteLog(msg, TRecordCategory.MSG_FATALERROR);
  68
  69   Assign(LogFile, FileName);
  70   if FileExists(FileName) then
  71     Append(LogFile)
  72   else
  73     Rewrite(LogFile);
  74
  75   writeln(LogFile, '=====================');
  76   DumpExceptionBackTrace(LogFile);
  77
  78   Close(LogFile);
  79 end;
  80
  81 procedure e_InitLog(fFileName: String; fWriteMode: TWriteMode);
  82 begin
  83  FileName := fFileName;
  84  if fWriteMode = WM_NEWFILE then
  85   if FileExists(FileName) then
  86    DeleteFile(FileName);
  87  FirstRecord := True;
  88 end;
  89
  90 end.