Changeset 43 for trunk/NewView/SearchUnit.pas

Timestamp:

Jan 2, 2007, 8:29:54 PM (19 years ago)

Author:

RBRi

Message:

% use new debug unit

File:

• trunk/NewView/SearchUnit.pas (modified) (10 diffs)

trunk/NewView/SearchUnit.pas

@@ -48 +48 @@
 uses
   SysUtils,
+  DebugUnit,
   ACLStringUtility,
-  ACLProfile,
   HelpTopic;
 
@@ -360 +360 @@
     Term := Query.Term[ TermIndex ];
 
-    ProfileEvent( 'Searching for term "'
+    LogEvent(LogSearch, 'Searching for term "'
                   + Term.Text
                   + '", '
@@ -379 +379 @@
       TermPart := Term.Parts[ TermPartIndex ];
 
-      ProfileEvent( '  Searching for [' + TermPart + ']' );
+      LogEvent(LogSearch, '  Searching for [' + TermPart + ']' );
 
       AllocUInt32Array( DictionaryRelevances,
@@ -416 +416 @@
       // this search term part, search topic texts
 
-      ProfileEvent( '  Dictionary search done' );
+      LogEvent(LogSearch, '  Dictionary search done' );
       ClearUInt32Array( TopicsMatchingTermPart,
                         TopicCount );
@@ -441 +441 @@
       end;
 
-      ProfileEvent( 'TOpic searches done' );
+      LogEvent(LogSearch, 'Topic searches done' );
 
       if TermPartIndex = 0 then
@@ -460 +460 @@
     // for all parts of the term. Now combine all together
 
-    ProfileEvent( 'Checking for sequences' );
+    LogEvent(LogSearch, 'Checking for sequences' );
     for TopicIndex := 0 to TopicCount - 1 do
     begin
@@ -494 +494 @@
     // Search titles and index
 
-    ProfileEvent( '  Searching titles' );
+    LogEvent(LogSearch, '  Searching titles' );
     SearchTopicTitles( HelpFile, Term.Text, TopicsMatchingTerm );
 
-    ProfileEvent( '  Searching index' );
+    LogEvent(LogSearch, '  Searching index' );
     SearchIndex( HelpFile, Term.Text, TopicsMatchingTerm );
 
-    ProfileEvent( '  Combining' );
+    LogEvent(LogSearch, '  Combining' );
     case Term.CombineMethod of
       cmOptional:
@@ -530 +530 @@
   end;
 
-  ProfileEvent( 'Search completed, converting to list' );
+  LogEvent(LogSearch, 'Search completed, converting to list' );
 
   // Now convert to list form.
@@ -547 +547 @@
   end;
 
-  ProfileEvent( 'Freeing arrays' );
+  LogEvent(LogSearch, 'Freeing arrays' );
   FreeUInt32Array( TopicRelevances, TopicCount );
   FreeUInt32Array( TopicsExcluded, TopicCount );
@@ -554 +554 @@
   FreeUInt32Array( TopicsMatchingDictWord, TopicCount );
 
-  ProfileEvent( 'Done' );
+  LogEvent(LogSearch, 'Done' );
 end;