/[mldonkey]/mldonkey/src/networks/fileTP/fileTPGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/networks/fileTP/fileTPGlobals.ml

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

revision 1.11 by spiralvoice, Tue Jul 5 12:28:57 2005 UTC revision 1.12 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC
# Line 144  let set_file_size file size = Line 144  let set_file_size file size =
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;
# Line 312  let client_name () = Line 312  let client_name () =
312        
313  let file_chunk_size = 307200  let file_chunk_size = 307200
314        
     
315      

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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