321 |
let kernel = Int64Swarmer.create_swarmer file_temp file_size |
let kernel = Int64Swarmer.create_swarmer file_temp file_size |
322 |
(Int64.of_int (256 * 1024)) in |
(Int64.of_int (256 * 1024)) in |
323 |
let swarmer = Int64Swarmer.create kernel (as_file file) megabyte in |
let swarmer = Int64Swarmer.create kernel (as_file file) megabyte in |
324 |
Int64Swarmer.set_verifier swarmer VerificationNotAvailable; |
Int64Swarmer.set_verifier swarmer ForceVerification; |
325 |
|
|
326 |
(* TODO: we could generalize this approach to any UID that is computed |
(* TODO: we could generalize this approach to any UID that is computed |
327 |
on the complete file (md5, sha1,...) *) |
on the complete file (md5, sha1,...) *) |