Changeset 55 for trunk/NewView/DebugUnit.pas

Timestamp:

Jan 13, 2007, 9:01:36 PM (19 years ago)

Author:

RBRi

Message:

support for log aspect selection (compile time only at the moment)

File:

• trunk/NewView/DebugUnit.pas (modified) (4 diffs)

trunk/NewView/DebugUnit.pas

@@ -26 +26 @@
   // -- Logging --
   Type
-    LogAspect = (LogStartup, LogShutdown, LogSettings, LogParse, LogDisplay, LogSearch);
+    LogAspect = (LogStartup, LogShutdown, LogSettings, LogParse, LogDisplay, LogSearch, LogViewStub);
+    LogAspects = SET OF LogAspect;
 
   Procedure LogEvent(const aLogAspect: LogAspect; const anEventDescription: String);
@@ -43 +44 @@
   // Procedure PrfTraceEvent(const anEventDescription: String);
 
+const
+  activeLogAspects : LogAspects = [
+                                        LogStartup
+//                                        LogShutdown,
+//                                        LogSettings,
+//                                        LogParse,
+//                                        LogDisplay,
+//                                        LogSearch,
+//                                        LogViewStub
+                                  ];
 
 var
@@ -59 +70 @@
       LogDisplay  :  result := 'Display';
       LogSearch   :  result := 'Search';
+      LogViewStub :  result := 'ViewStub';
       else           result := 'Unknown';
       end;
@@ -72 +84 @@
   Begin
 {$ifdef DEBUG}
-    tmpMessage := 'Log[' + GetAspectPrefix(aLogAspect) + ']  ' + anEventDescription;
+    if (aLogAspect IN activeLogAspects) then
+    begin
+      tmpMessage := 'Log[' + GetAspectPrefix(aLogAspect) + ']  ' + anEventDescription;
 
-    tmpPCharMessage := StrAlloc(length(tmpMessage) + 1);
-    StrPCopy(tmpPCharMessage, tmpMessage);
+      tmpPCharMessage := StrAlloc(length(tmpMessage) + 1);
+      StrPCopy(tmpPCharMessage, tmpMessage);
 
-    PmPrintfString(tmpPCharMessage);
-    StrDispose(tmpPCharMessage);
+      PmPrintfString(tmpPCharMessage);
+      StrDispose(tmpPCharMessage);
+    end;
 {$endif}
   end;