/[mldonkey]/mldonkey/src/networks/donkey/donkeyFiles.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyFiles.ml

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

revision 1.12 by spiralvoice, Sun Mar 20 01:41:30 2005 UTC revision 1.13 by spiralvoice, Mon Aug 15 20:27:56 2005 UTC
# Line 29  open CommonFile Line 29  open CommonFile
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
# Line 106  module NewUpload = struct Line 107  module NewUpload = struct
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);

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

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