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"; |
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 |