/[mldonkey]/mldonkey/src/networks/donkey/donkeyProtoClient.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyProtoClient.ml

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

revision 1.28 by spiralvoice, Sat Nov 12 11:20:22 2005 UTC revision 1.29 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC
# Line 301  module QueryFile  = struct Line 301  module QueryFile  = struct
301        }        }
302    
303      let parse emule len s =      let parse emule len s =
304  (*      Printf.printf "Query File: emule version %d len %d"  (*      lprintf "Query File: emule version %d len %d"
305        (extendedrequest emule) len;        (extendedrequest emule) len;
306        print_newline (); *)        print_newline (); *)
307        let md4 = get_md4 s 1 in        let md4 = get_md4 s 1 in
# Line 1140  let rec parse_emule_packet emule opcode Line 1140  let rec parse_emule_packet emule opcode
1140      | 0x92 (* 146 *) ->      | 0x92 (* 146 *) ->
1141          let md4 = get_md4 s 1 in          let md4 = get_md4 s 1 in
1142    
1143  (*        Printf.printf "MULTI EMULE VERSION %d"  (*        lprintf "MULTI EMULE VERSION %d"
1144            (extendedrequest emule); print_newline (); *)            (extendedrequest emule); print_newline (); *)
1145          let pos = 17 in          let pos = 17 in
1146          let rec iter pos =          let rec iter pos =
# Line 1177  let rec parse_emule_packet emule opcode Line 1177  let rec parse_emule_packet emule opcode
1177          end;          end;
1178          let md4 = get_md4 s 1 in          let md4 = get_md4 s 1 in
1179    
1180  (*        Printf.printf "MULTI EMULE VERSION %d"  (*        lprintf "MULTI EMULE VERSION %d"
1181            (extendedrequest emule); print_newline (); *)            (extendedrequest emule); print_newline (); *)
1182          let rec iter s pos len =          let rec iter s pos len =
1183            if pos < len then            if pos < len then

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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