118 lines
3.5 KiB
OCaml
118 lines
3.5 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2018. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open P2p_point
|
||
|
|
|
||
|
|
type 'conn t =
|
||
|
|
| Requested of { cancel: Lwt_canceler.t }
|
||
|
|
(** We initiated a connection. *)
|
||
|
|
| Accepted of { current_peer_id: P2p_peer.Id.t ;
|
||
|
|
cancel: Lwt_canceler.t }
|
||
|
|
(** We accepted a incoming connection. *)
|
||
|
|
| Running of { data: 'conn ;
|
||
|
|
current_peer_id: P2p_peer.Id.t }
|
||
|
|
(** Successfully authentificated connection, normal business. *)
|
||
|
|
| Disconnected
|
||
|
|
(** No connection established currently. *)
|
||
|
|
type 'conn state = 'conn t
|
||
|
|
|
||
|
|
val pp : Format.formatter -> 'conn t -> unit
|
||
|
|
|
||
|
|
module Info : sig
|
||
|
|
|
||
|
|
type 'conn t
|
||
|
|
type 'conn point_info = 'conn t
|
||
|
|
(** Type of info associated to a point. *)
|
||
|
|
|
||
|
|
val compare : 'conn point_info -> 'conn point_info -> int
|
||
|
|
|
||
|
|
type greylisting_config = {
|
||
|
|
factor: float ;
|
||
|
|
initial_delay: int ;
|
||
|
|
disconnection_delay: int ;
|
||
|
|
}
|
||
|
|
|
||
|
|
val create :
|
||
|
|
?trusted:bool ->
|
||
|
|
?greylisting_config:greylisting_config ->
|
||
|
|
P2p_addr.t -> P2p_addr.port -> 'conn point_info
|
||
|
|
(** [create ~trusted addr port] is a freshly minted point_info. If
|
||
|
|
[trusted] is true, this point is considered trusted and will
|
||
|
|
be treated as such. *)
|
||
|
|
|
||
|
|
val trusted : 'conn point_info -> bool
|
||
|
|
(** [trusted pi] is [true] iff [pi] has is trusted,
|
||
|
|
i.e. "whitelisted". *)
|
||
|
|
|
||
|
|
val set_trusted : 'conn point_info -> unit
|
||
|
|
val unset_trusted : 'conn point_info -> unit
|
||
|
|
|
||
|
|
val last_failed_connection :
|
||
|
|
'conn point_info -> Time.t option
|
||
|
|
val last_rejected_connection :
|
||
|
|
'conn point_info -> (P2p_peer.Id.t * Time.t) option
|
||
|
|
val last_established_connection :
|
||
|
|
'conn point_info -> (P2p_peer.Id.t * Time.t) option
|
||
|
|
val last_disconnection :
|
||
|
|
'conn point_info -> (P2p_peer.Id.t * Time.t) option
|
||
|
|
|
||
|
|
val last_seen :
|
||
|
|
'conn point_info -> (P2p_peer.Id.t * Time.t) option
|
||
|
|
(** [last_seen pi] is the most recent of:
|
||
|
|
|
||
|
|
* last established connection
|
||
|
|
* last rejected connection
|
||
|
|
* last disconnection
|
||
|
|
*)
|
||
|
|
|
||
|
|
val last_miss :
|
||
|
|
'conn point_info -> Time.t option
|
||
|
|
(** [last_miss pi] is the most recent of:
|
||
|
|
|
||
|
|
* last failed connection
|
||
|
|
* last rejected connection
|
||
|
|
* last disconnection
|
||
|
|
*)
|
||
|
|
|
||
|
|
val greylisted :
|
||
|
|
?now:Time.t -> 'conn point_info -> bool
|
||
|
|
|
||
|
|
val greylisted_until : 'conn point_info -> Time.t
|
||
|
|
|
||
|
|
val point : 'conn point_info -> Id.t
|
||
|
|
|
||
|
|
val log_incoming_rejection :
|
||
|
|
?timestamp:Time.t -> 'conn point_info -> P2p_peer.Id.t -> unit
|
||
|
|
|
||
|
|
val fold :
|
||
|
|
'conn t -> init:'a -> f:('a -> Pool_event.t -> 'a) -> 'a
|
||
|
|
|
||
|
|
val watch :
|
||
|
|
'conn t -> Pool_event.t Lwt_stream.t * Lwt_watcher.stopper
|
||
|
|
end
|
||
|
|
|
||
|
|
val get : 'conn Info.t -> 'conn t
|
||
|
|
|
||
|
|
val is_disconnected : 'conn Info.t -> bool
|
||
|
|
|
||
|
|
val set_requested :
|
||
|
|
?timestamp:Time.t ->
|
||
|
|
'conn Info.t -> Lwt_canceler.t -> unit
|
||
|
|
|
||
|
|
val set_accepted :
|
||
|
|
?timestamp:Time.t ->
|
||
|
|
'conn Info.t -> P2p_peer.Id.t -> Lwt_canceler.t -> unit
|
||
|
|
|
||
|
|
val set_running :
|
||
|
|
?timestamp:Time.t -> 'conn Info.t -> P2p_peer.Id.t -> 'conn -> unit
|
||
|
|
|
||
|
|
val set_disconnected :
|
||
|
|
?timestamp:Time.t -> ?requested:bool -> 'conn Info.t -> unit
|
||
|
|
|