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