`sig
exception Ssl_error of Ssl.ssl_error
type ssl_socket_state = [ `Clean | `Client | `Server | `Unclean | `Unset ]
class type ssl_multiplex_controller =
object
method alive : bool
method cancel_reading : unit -> unit
method cancel_shutting_down : unit -> unit
method cancel_writing : unit -> unit
method event_system : Unixqueue.event_system
method inactivate : unit -> unit
method inactivate_no_close : unit -> unit
method mem_supported : bool
method read_eof : bool
method reading : bool
method shutting_down : bool
method ssl_accepting : bool
method ssl_connecting : bool
method ssl_socket : Ssl.socket
method ssl_socket_state : Uq_ssl.ssl_socket_state
method start_mem_reading :
?peek:(unit -> unit) ->
when_done:(exn option -> int -> unit) ->
Netsys_mem.memory -> int -> int -> unit
method start_mem_writing :
when_done:(exn option -> int -> unit) ->
Netsys_mem.memory -> int -> int -> unit
method start_reading :
?peek:(unit -> unit) ->
when_done:(exn option -> int -> unit) -> string -> int -> int -> unit
method start_shutting_down :
?linger:float -> when_done:(exn option -> unit) -> unit -> unit
method start_ssl_accepting :
when_done:(exn option -> unit) -> unit -> unit
method start_ssl_connecting :
when_done:(exn option -> unit) -> unit -> unit
method start_writing :
when_done:(exn option -> int -> unit) -> string -> int -> int -> unit
method start_writing_eof :
when_done:(exn option -> unit) -> unit -> unit
method supports_half_open_connection : bool
method writing : bool
method wrote_eof : bool
end
val create_ssl_multiplex_controller :
?close_inactive_descr:bool ->
?preclose:(unit -> unit) ->
?initial_state:Uq_ssl.ssl_socket_state ->
?timeout:float * exn ->
Unix.file_descr ->
Ssl.context -> Unixqueue.event_system -> Uq_ssl.ssl_multiplex_controller
val ssl_connect_engine :
Uq_ssl.ssl_multiplex_controller -> unit Uq_engines.engine
val ssl_accept_engine :
Uq_ssl.ssl_multiplex_controller -> unit Uq_engines.engine
module Debug :
sig
val enable : bool Pervasives.ref
val dump_data : bool Pervasives.ref
end
end`