/[mldonkey]/mldonkey/src/utils/lib/unix32.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/unix32.ml

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

revision 1.28 by spiralvoice, Sat May 28 11:19:42 2005 UTC revision 1.29 by spiralvoice, Thu Jun 2 17:43:04 2005 UTC
# Line 136  module FDCache = struct Line 136  module FDCache = struct
136        Unix2.rename t.filename f;        Unix2.rename t.filename f;
137        destroy t        destroy t
138    
139        let multi_rename t f file =
140          check_destroyed t;
141          close t;
142          Unix2.safe_mkdir (Filename.dirname (Filename.concat f file));
143          Unix2.rename t.filename (Filename.concat f file);
144          destroy t
145    
146      let ftruncate64 t len =      let ftruncate64 t len =
147        check_destroyed t;        check_destroyed t;
148        Unix2.c_ftruncate64 (local_force_fd t true) len        Unix2.c_ftruncate64 (local_force_fd t true) len
# Line 421  module MultiFile = struct Line 428  module MultiFile = struct
428            Sys.remove temp_file;            Sys.remove temp_file;
429            raise e            raise e
430    
   
431      let close t =      let close t =
432        List.iter (fun file -> FDCache.close file.fd) t.files        List.iter (fun file -> FDCache.close file.fd) t.files
433    
# Line 430  module MultiFile = struct Line 436  module MultiFile = struct
436    
437      let rename t f =      let rename t f =
438        close t;        close t;
439        Unix2.rename t.dirname f        List.iter (fun file -> FDCache.multi_rename file.fd f file.filename) t.files
   
       (*  
       List.iter (fun file ->  
           file.fd.FDCache.filename <- Filename.concat t.dirname file.filename  
       ) t.files  
 *)  
440    
441      let ftruncate64 t size =      let ftruncate64 t size =
442        t.size <- size        t.size <- size

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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