19 |
|
|
20 |
open DonkeyTypes |
open DonkeyTypes |
21 |
(* |
(* |
22 |
type server_msg = DonkeyProtoServer.t |
type server_msg = DonkeyProtoServer.t |
23 |
type client_msg = DonkeyProtoClient.t |
type client_msg = DonkeyProtoClient.t |
24 |
|
|
25 |
type server_sock = TcpBufferedSocket.t |
type server_sock = TcpBufferedSocket.t |
26 |
type client_sock = TcpBufferedSocket.t |
type client_sock = TcpBufferedSocket.t |
31 |
(*val emule_send : TcpBufferedSocket.t -> DonkeyProtoClient.t -> unit *) |
(*val emule_send : TcpBufferedSocket.t -> DonkeyProtoClient.t -> unit *) |
32 |
val servers_send : TcpBufferedSocket.t list -> DonkeyProtoServer.t -> unit |
val servers_send : TcpBufferedSocket.t list -> DonkeyProtoServer.t -> unit |
33 |
|
|
34 |
|
|
35 |
(* |
(* |
36 |
val client_handler : |
val client_handler : |
37 |
(DonkeyProtoClient.t -> TcpBufferedSocket.t -> unit) -> |
(DonkeyProtoClient.t -> TcpBufferedSocket.t -> unit) -> |
38 |
TcpBufferedSocket.t -> int -> unit |
TcpBufferedSocket.t -> int -> unit |
39 |
*) |
*) |
40 |
|
|
41 |
val cut_messages : (int -> string -> 'a) -> |
val cut_messages : (int -> string -> 'a) -> |
42 |
('a -> TcpBufferedSocket.t -> 'b) -> TcpBufferedSocket.t -> int -> unit |
('a -> TcpBufferedSocket.t -> 'b) -> TcpBufferedSocket.t -> int -> unit |
43 |
|
|
44 |
val client_handler2 : |
val client_handler2 : |
45 |
client option ref -> |
client option ref -> |
46 |
(DonkeyProtoClient.t -> TcpBufferedSocket.t -> client option) -> |
(DonkeyProtoClient.t -> TcpBufferedSocket.t -> client option) -> |
47 |
(client -> DonkeyProtoClient.t -> TcpBufferedSocket.t -> unit) -> |
(client -> DonkeyProtoClient.t -> TcpBufferedSocket.t -> unit) -> |
48 |
TcpBufferedSocket.t -> int -> unit |
TcpBufferedSocket.t -> int -> unit |
49 |
|
|
50 |
(* |
(* |
51 |
val server_handler : |
val server_handler : |
52 |
(DonkeyProtoServer.t -> TcpBufferedSocket.t -> unit) -> |
(DonkeyProtoServer.t -> TcpBufferedSocket.t -> unit) -> |
53 |
TcpBufferedSocket.t -> int -> unit |
TcpBufferedSocket.t -> int -> unit |
54 |
*) |
*) |
55 |
|
|
56 |
val udp_send: UdpSocket.t -> Ip.t -> int -> DonkeyProtoUdp.t -> unit |
val udp_send: UdpSocket.t -> Ip.t -> int -> DonkeyProtoUdp.t -> unit |
57 |
val udp_handler : |
val udp_handler : |
58 |
(DonkeyProtoUdp.t -> UdpSocket.udp_packet -> unit) -> |
(DonkeyProtoUdp.t -> UdpSocket.udp_packet -> unit) -> |
59 |
UdpSocket.t -> UdpSocket.event -> unit |
UdpSocket.t -> UdpSocket.event -> unit |
60 |
|
|
61 |
(* val propagate_working_servers : (Ip.t * int) list -> (Ip.t * int) list -> unit *) |
(* val propagate_working_servers : (Ip.t * int) list -> (Ip.t * int) list -> unit *) |
62 |
val udp_basic_handler : |
val udp_basic_handler : |
63 |
(string -> UdpSocket.udp_packet -> unit) -> UdpSocket.t -> |
(string -> UdpSocket.udp_packet -> unit) -> UdpSocket.t -> |
64 |
UdpSocket.event -> unit |
UdpSocket.event -> unit |
65 |
|
|
66 |
val server_msg_to_string : DonkeyProtoServer.t -> string |
val server_msg_to_string : DonkeyProtoServer.t -> string |
67 |
val client_msg_to_string : emule_proto -> DonkeyProtoClient.t -> string |
val client_msg_to_string : emule_proto -> DonkeyProtoClient.t -> string |
68 |
|
|
69 |
val direct_client_sock_send : emule_proto -> TcpBufferedSocket.t -> DonkeyProtoClient.t -> unit |
val direct_client_sock_send : emule_proto -> TcpBufferedSocket.t -> DonkeyProtoClient.t -> unit |
70 |
|
|
71 |
val server_send_share : |
val server_send_share : |
72 |
bool -> TcpBufferedSocket.t -> file list -> unit |
bool -> TcpBufferedSocket.t -> file list -> unit |
73 |
val client_send_files : |
val client_send_files : |
74 |
TcpBufferedSocket.t -> file list -> unit |
TcpBufferedSocket.t -> file list -> unit |
75 |
|
|
76 |
val new_string : DonkeyProtoClient.t -> string -> unit |
val new_string : DonkeyProtoClient.t -> string -> unit |
77 |
|
|
78 |
val tag_file : file -> CommonTypes.tag list |
val tag_file : file -> CommonTypes.tag list |
|
|
|
79 |
|
|
80 |
val udp_server_send : server -> DonkeyProtoUdp.t -> unit |
val udp_server_send : server -> DonkeyProtoUdp.t -> unit |
|
|
|