/[mldonkey]/mldonkey/src/daemon/common/commonIndexing.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonIndexing.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by spiralvoice, Tue May 17 13:18:05 2005 UTC revision 1.4 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC
# Line 324  module Make(Stored : sig Line 324  module Make(Stored : sig
324            let docs = DocIndexer.query index req in            let docs = DocIndexer.query index req in
325  (*  lprintf "%d results\n" (List.length docs);  *)  (*  lprintf "%d results\n" (List.length docs);  *)
326            Array.iter (fun doc ->            Array.iter (fun doc ->
327                if DocIndexer.filtered doc then begin                if DocIndexer.filtered doc then
328                    lprintf "doc filtered\n";                  lprintf_nl "[cInd] doc filtered"
329                  end else                else
330                let r = Document.doc_value doc in                let r = Document.doc_value doc in
331  (*    merge_result s doc.num; *)  (*    merge_result s doc.num; *)
332  (*          lprintf "search_add_result: %d\n" r.result_num;  *)  (*          lprintf "search_add_result: %d\n" r.result_num;  *)
# Line 348  module Make(Stored : sig Line 348  module Make(Stored : sig
348        )        )
349                
350    end    end
     

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26