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

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

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

revision 1.5 by mldonkey, Mon Nov 1 11:23:00 2004 UTC revision 1.6 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC
# Line 166  module Known = struct Line 166  module Known = struct
166            
167            
168      let print t =      let print t =
169        lprintf "KNOWN.MET: %d files" (List.length t); lprint_newline ();        lprintf "KNOWN.MET: %d files\n" (List.length t);
170        List.iter (fun f ->        List.iter (fun f ->
171            try            try
172              lprintf "  FILE %s" (Md4.to_string f.md4);              lprintf "  FILE %s\n" (Md4.to_string f.md4);
173              lprint_newline ();              lprintf "  mtime: %s\n" (Int64.to_string f.mtime);
174              lprintf "  mtime: %s" (Int64.to_string f.mtime);              lprintf "  Blocks: %d\n" (Array.length f.blocks);
             lprint_newline ();  
             lprintf "  Blocks: %d" (Array.length f.blocks);  
             lprint_newline ();  
175              Array.iter (fun m ->              Array.iter (fun m ->
176                  lprintf "    %s" (Md4.to_string m);                  lprintf "    %s\n" (Md4.to_string m);
                 lprint_newline ();  
177              ) f.blocks;              ) f.blocks;
178              print_tags f.tags;              print_tags f.tags;
179              lprint_newline ();              lprint_newline ();
180            with _ -> lprintf "EEEEE"; lprint_newline ();            with _ -> lprintf "EEEEE\n";
181        ) t;        ) t;
182        lprint_newline ();        lprint_newline ();
183                
# Line 257  module Part = struct Line 253  module Part = struct
253            
254      let print f =      let print f =
255        try        try
256          lprintf "  FILE %s" (Md4.to_string f.md4);          lprintf "  FILE %s\n" (Md4.to_string f.md4);
257          lprint_newline ();          lprintf "  Blocks: %d\n" (Array.length f.blocks);
         lprintf "  Blocks: %d" (Array.length f.blocks);  
         lprint_newline ();  
258          Array.iter (fun m ->          Array.iter (fun m ->
259              lprintf "    %s" (Md4.to_string m);              lprintf "    %s\n" (Md4.to_string m);
             lprint_newline ();  
260          ) f.blocks;          ) f.blocks;
261          lprint_newline ();          lprint_newline ();
262          lprintf " Absent blocks:"; lprint_newline ();          lprintf " Absent blocks:\n";
263          List.iter (fun (t1,n1) ->          List.iter (fun (t1,n1) ->
264              lprintf "%10s - %10s" (Int64.to_string t1)              lprintf "%10s - %10s\n" (Int64.to_string t1)
265              (Int64.to_string n1); lprint_newline ();              (Int64.to_string n1);
266          ) f.absents;          ) f.absents;
267          print_tags f.tags;          print_tags f.tags;
268          lprint_newline ();          lprint_newline ();
269        with _ -> lprintf "EEEEE"; lprint_newline ();        with _ -> lprintf "EEEEE\n";
270                        
271            
272    end    end
# Line 315  module Pref = struct Line 308  module Pref = struct
308        }        }
309                
310      let print t =      let print t =
311        lprintf "PREF.MET %s" (Md4.to_string t.md4);        lprintf "PREF.MET %s\n" (Md4.to_string t.md4);
       lprint_newline ();  
312                
313        print_tags t.client_tags;        print_tags t.client_tags;
314        lprint_newline ();        lprint_newline ();

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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