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 |
|
|
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 |
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 (); |