/[mldonkey]/mldonkey/src/utils/net/tcpClientSocket.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/tcpClientSocket.ml

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

revision 1.8 by spiralvoice, Mon Sep 19 10:09:06 2005 UTC revision 1.9 by spiralvoice, Tue Oct 11 16:56:33 2005 UTC
# Line 39  type buf = { Line 39  type buf = {
39  type t = {  type t = {
40      mutable sock : BasicSocket.t;      mutable sock : BasicSocket.t;
41      mutable rbuf : buf;      mutable rbuf : buf;
42      mutable wfifo : string Fifo2.t;      mutable wfifo : string Fifo.t;
43      mutable wlen : int;      mutable wlen : int;
44      mutable wfbuf : buf;      mutable wfbuf : buf;
45      mutable event_handler : handler;      mutable event_handler : handler;
# Line 555  let create name fd handler = Line 555  let create name fd handler =
555        write_power = 1;        write_power = 1;
556        read_power = 1;        read_power = 1;
557        wlen = 0;        wlen = 0;
558        wfifo = Fifo2.create ();        wfifo = Fifo.create ();
559      } in      } in
560    let sock = BasicSocket.create name fd (tcp_handler t) in    let sock = BasicSocket.create name fd (tcp_handler t) in
561    let name = (fun () ->    let name = (fun () ->
# Line 585  let create_blocking name fd handler = Line 585  let create_blocking name fd handler =
585        write_power = 1;        write_power = 1;
586        read_power = 1;        read_power = 1;
587        wlen = 0;        wlen = 0;
588        wfifo = Fifo2.create ();        wfifo = Fifo.create ();
589      } in      } in
590    let sock = create_blocking name fd (tcp_handler t) in    let sock = create_blocking name fd (tcp_handler t) in
591    t.sock <- sock;    t.sock <- sock;

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