144 |
|
|
145 |
let new_file file_id file_name file_size = |
let new_file file_id file_name file_size = |
146 |
let file_temp = Filename.concat !!temp_directory |
let file_temp = Filename.concat !!temp_directory |
147 |
(Printf.sprintf "FT-%s" (Md4.to_string file_id)) in |
(Printf.sprintf "FileTP-%s" (Md4.to_string file_id)) in |
148 |
let t = Unix32.create_rw file_temp in |
let t = Unix32.create_rw file_temp in |
149 |
let rec file = { |
let rec file = { |
150 |
file_file = file_impl; |
file_file = file_impl; |
312 |
|
|
313 |
let file_chunk_size = 307200 |
let file_chunk_size = 307200 |
314 |
|
|
|
|
|
315 |
|
|