29 |
open CommonUser |
open CommonUser |
30 |
open CommonSearch |
open CommonSearch |
31 |
open CommonTypes |
open CommonTypes |
32 |
|
open CommonInteractive |
33 |
open Options |
open Options |
34 |
open BasicSocket |
open BasicSocket |
35 |
open TcpBufferedSocket |
open TcpBufferedSocket |
107 |
Unix32.read (file_fd file) begin_pos upload_buffer slen len_int; |
Unix32.read (file_fd file) begin_pos upload_buffer slen len_int; |
108 |
let uploaded = Int64.of_int len_int in |
let uploaded = Int64.of_int len_int in |
109 |
count_upload c file uploaded; |
count_upload c file uploaded; |
110 |
|
network_must_update network; |
111 |
(match file.file_shared with None -> () |
(match file.file_shared with None -> () |
112 |
| Some impl -> |
| Some impl -> |
113 |
shared_must_update_downloaded (as_shared impl); |
shared_must_update_downloaded (as_shared impl); |