/[mldonkey]/mldonkey/tools/mld_hash.ml
ViewVC logotype

Diff of /mldonkey/tools/mld_hash.ml

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

revision 1.3 by spiralvoice, Sun Oct 16 20:42:55 2005 UTC revision 1.4 by spiralvoice, Tue Oct 18 08:58:49 2005 UTC
# Line 288  let check_external_functions size = Line 288  let check_external_functions size =
288        try        try
289          lprintf "Creating file %s\n" filename;          lprintf "Creating file %s\n" filename;
290          let file = f filename file_size in          let file = f filename file_size in
291          Unix32.ftruncate64 file file_size;          Unix32.ftruncate64 file file_size false;
292    
293  (*  (*
294              lprintf "Computing ed2k hash of zeroed file\n";              lprintf "Computing ed2k hash of zeroed file\n";
# Line 426  let _ = Line 426  let _ =
426            sig2dat_hash_filename filename partial;            sig2dat_hash_filename filename partial;
427            bitprint_filename filename partial            bitprint_filename filename partial
428    ) (_s " <filenames> : compute hashes of filenames");    ) (_s " <filenames> : compute hashes of filenames");
   exit 0  
429      exit 0

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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