/[mldonkey]/mldonkey/src/networks/opennap/opennapClients.ml
ViewVC logotype

Diff of /mldonkey/src/networks/opennap/opennapClients.ml

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

revision 1.8 by spiralvoice, Sun Mar 20 01:41:30 2005 UTC revision 1.9 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 145  let read_stream c file sock b = Line 145  let read_stream c file sock b =
145        Unix2.really_write fd b.buf b.pos b.len;        Unix2.really_write fd b.buf b.pos b.len;
146      end; *)      end; *)
147  (*      lprintf "DIFF %d/%d" nread b.len; lprint_newline ();*)  (*      lprintf "DIFF %d/%d" nread b.len; lprint_newline ();*)
148      c.client_pos <- Int64.add c.client_pos (Int64.of_int b.len);      c.client_pos <- c.client_pos ++ (Int64.of_int b.len);
149  (*  (*
150        lprintf "NEW SOURCE POS %s" (Int64.to_string c.source_pos);        lprintf "NEW SOURCE POS %s" (Int64.to_string c.source_pos);
151  lprint_newline ();  lprint_newline ();
# Line 153  lprint_newline (); Line 153  lprint_newline ();
153      TcpBufferedSocket.buf_used b b.len;      TcpBufferedSocket.buf_used b b.len;
154  (*    if c.client_pos > file_downloaded file then begin  (*    if c.client_pos > file_downloaded file then begin
155          add_file_downloaded file.file_file          add_file_downloaded file.file_file
156          (Int64.sub c.client_pos (file_downloaded file))          (c.client_pos -- (file_downloaded file))
157        end; *)        end; *)
158      if file_downloaded file = file_size file then      if file_downloaded file = file_size file then
159                

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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