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

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

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

revision 1.13 by spiralvoice, Wed Apr 20 16:17:52 2005 UTC revision 1.14 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC
# Line 763  let andnot q1 q2 = QAndNot (q1,q2) Line 763  let andnot q1 q2 = QAndNot (q1,q2)
763  let rec mftp_query_of_query_entry qe =  let rec mftp_query_of_query_entry qe =
764    match qe with    match qe with
765      Q_AND ([]) -> QNone      Q_AND ([]) -> QNone
766    | Q_AND [_] -> lprintf "Q_AND [_]\n"; QNone    | Q_AND [_] -> lprintf_nl "Q_AND [_]"; QNone
767    | Q_COMBO _ -> assert false    | Q_COMBO _ -> assert false
768    | Q_AND (h :: q) ->    | Q_AND (h :: q) ->
769        List.fold_left        List.fold_left
# Line 771  let rec mftp_query_of_query_entry qe = Line 771  let rec mftp_query_of_query_entry qe =
771          (mftp_query_of_query_entry h)          (mftp_query_of_query_entry h)
772          q          q
773    
774    | Q_OR [_] -> lprintf "Q_OR [_]\n"; QNone    | Q_OR [_] -> lprintf_nl "Q_OR [_]"; QNone
775    | Q_OR ([]) -> QNone    | Q_OR ([]) -> QNone
776    | Q_OR (h :: q) ->    | Q_OR (h :: q) ->
777        List.fold_left        List.fold_left
# Line 924  let _ = Line 924  let _ =
924        ) searches_by_num;        ) searches_by_num;
925        Printf.bprintf buf "  Memorized searches: %d\n" !counter;        Printf.bprintf buf "  Memorized searches: %d\n" !counter;
926        Printf.bprintf buf "  Memorized items: %d\n" !items;        Printf.bprintf buf "  Memorized items: %d\n" !items;
   )  
927      )

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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