Changeset 330

Timestamp:

Aug 30, 2008, 9:01:55 PM (17 years ago)

Author:

RBRi

Message:

improved logging

Location:

branches/2.19_branch

Files:

• NewView/DebugUnit.pas (modified) (2 diffs)
• env.cmd (modified) (1 diff)

branches/2.19_branch/NewView/DebugUnit.pas

@@ -34 +34 @@
     LogAspects = SET OF LogAspect;
 
+  Function IsLogAspectsEnabled(const aLogAspect: LogAspect) : boolean;
   Procedure LogEvent(const aLogAspect: LogAspect; const anEventDescription: String);
 
@@ -166 +167 @@
 
 
+  Function IsLogAspectsEnabled(const aLogAspect: LogAspect) : boolean;
+  Begin
+    result := aLogAspect IN activeLogAspects;
+  End;
+
+
   Procedure LogEvent(const aLogAspect: LogAspect; const anEventDescription: String);
   Var
     tmpMessage : String;
   Begin
-    if (aLogAspect IN activeLogAspects) then
+    if IsLogAspectsEnabled(aLogAspect) then
     begin
       tmpMessage := 'Log[' + GetAspectPrefix(aLogAspect) + ']  ' + anEventDescription;

branches/2.19_branch/env.cmd

@@ -39 +39 @@
 REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogSettings
 REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogI18n
-SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogParse
+REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogParse
 REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogDisplay
-REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogSearch
+SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogSearch
 REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogNHM
 REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogViewStub
 REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogObjConstDest
-SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogMem
+REM SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogMem
 SET NEWVIEW_DEBUG=%NEWVIEW_DEBUG%,LogDebug
 REM