/[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.23 by spiralvoice, Tue Jul 19 18:01:33 2005 UTC revision 1.24 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC
# Line 162  module Connect  = struct Line 162  module Connect  = struct
162          t.port          t.port
163          (Md4.to_string t.md4);          (Md4.to_string t.md4);
164        (match t.server_info with        (match t.server_info with
165            None -> lprintf_nl ""            None -> lprint_newline ()
166          | Some (ip, port) ->          | Some (ip, port) ->
167              lprintf_nl " on server: %s:%d" (Ip.to_string ip) port);              lprintf_nl " on server: %s:%d" (Ip.to_string ip) port);
168        lprintf "tags: ";        lprintf "tags: ";
# Line 239  module ConnectReply  = struct Line 239  module ConnectReply  = struct
239          t.port          t.port
240          (Md4.to_string t.md4);          (Md4.to_string t.md4);
241        (match t.server_info with        (match t.server_info with
242            None -> lprintf_nl ""            None -> lprint_newline ()
243          | Some (ip, port) ->          | Some (ip, port) ->
244              lprintf_nl " on server: %s:%d" (Ip.to_string ip) port);              lprintf_nl " on server: %s:%d" (Ip.to_string ip) port);
245        lprintf "tags: ";        lprintf "tags: ";
# Line 303  module JoinQueue = struct Line 303  module JoinQueue = struct
303        lprintf "JOIN QUEUE";        lprintf "JOIN QUEUE";
304        (match t with None -> () | Some md4 ->        (match t with None -> () | Some md4 ->
305              lprintf " OF %s" (Md4.to_string md4));              lprintf " OF %s" (Md4.to_string md4));
306        lprintf_nl ""        lprint_newline ()
307                        
308      let write emule buf t =      let write emule buf t =
309        if extendedrequest emule > 0 then        if extendedrequest emule > 0 then
# Line 396  module QueryFile  = struct Line 396  module QueryFile  = struct
396          None -> ()          None -> ()
397        | Some (bitmap, ncompletesources) ->        | Some (bitmap, ncompletesources) ->
398            print_bitmap bitmap;            print_bitmap bitmap;
399            lprintf_nl "";            lprint_newline ();
400            if ncompletesources >= 0 then            if ncompletesources >= 0 then
401              lprintf_nl "Complete sources: %d" ncompletesources              lprintf_nl "Complete sources: %d" ncompletesources
402            
# Line 441  module QueryChunksReply = struct (* Requ Line 441  module QueryChunksReply = struct (* Requ
441        lprint_string "   ";        lprint_string "   ";
442        Array.iter (fun b ->        Array.iter (fun b ->
443            if b then lprintf "1" else lprintf "0") t.chunks;            if b then lprintf "1" else lprintf "0") t.chunks;
444        lprintf_nl ""        lprint_newline ()
445            
446      let write buf t =      let write buf t =
447        buf_md4 buf t.md4;        buf_md4 buf t.md4;
# Line 484  module QueryChunkMd4Reply = struct (* Re Line 484  module QueryChunkMd4Reply = struct (* Re
484        Array.iter (fun b ->        Array.iter (fun b ->
485            lprintf "  %s" (Md4.to_string b))            lprintf "  %s" (Md4.to_string b))
486        t.chunks;        t.chunks;
487        lprintf_nl ""        lprint_newline ()
488                
489      let write buf t =      let write buf t =
490        buf_md4 buf t.md4;        buf_md4 buf t.md4;
# Line 661  module ViewFilesReply = struct Line 661  module ViewFilesReply = struct
661            lprintf_nl "  port: %d" t.f_port;            lprintf_nl "  port: %d" t.f_port;
662            lprintf "  tags: ";            lprintf "  tags: ";
663            print_tags t.f_tags;            print_tags t.f_tags;
664            lprintf_nl "";) t            lprint_newline ();) t
665            
666      let rec write_files buf files =      let rec write_files buf files =
667        match files with        match files with
# Line 834  module EmuleClientInfo = struct Line 834  module EmuleClientInfo = struct
834        lprintf_nl "  protversion: %d" t.version;        lprintf_nl "  protversion: %d" t.version;
835        lprintf "  tags: ";        lprintf "  tags: ";
836        print_tags t.tags;        print_tags t.tags;
837        lprintf_nl ""        lprint_newline ()
838                    
839      let write buf t =      let write buf t =
840        buf_int8 buf t.version;        buf_int8 buf t.version;
# Line 1302  and parse emule_version magic s = Line 1302  and parse emule_version magic s =
1302                    File.from_string tmp_file s;                    File.from_string tmp_file s;
1303                    lprintf_nl "Saved unknown packet %s" tmp_file;                    lprintf_nl "Saved unknown packet %s" tmp_file;
1304                    dump s;                    dump s;
1305                    lprintf_nl "";                    lprint_newline ();
1306                  end;                  end;
1307                UnknownReq (magic,s)                UnknownReq (magic,s)
1308                                
# Line 1330  and parse emule_version magic s = Line 1330  and parse emule_version magic s =
1330               lprintf_nl "Saved unknown packet %s" tmp_file;               lprintf_nl "Saved unknown packet %s" tmp_file;
1331    
1332            dump s;            dump s;
1333            lprintf_nl "";            lprint_newline ();
1334          end;          end;
1335        UnknownReq (magic,s)        UnknownReq (magic,s)
1336        

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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