sig
type dh_params =
[ `Generate of int | `PKCS3_DER of string | `PKCS3_PEM_file of string ]
type crt_list = [ `DER of string list | `PEM_file of string ]
type crl_list = [ `DER of string list | `PEM_file of string ]
type private_key =
[ `DSA of string
| `EC of string
| `PEM_file of string
| `PKCS8 of string
| `PKCS8_encrypted of string
| `RSA of string ]
val error_message :
(module Netsys_crypto_types.TLS_PROVIDER) -> string -> string
val create_x509_config :
?algorithms:string ->
?dh_params:Netsys_tls.dh_params ->
?verify:((module Netsys_crypto_types.TLS_ENDPOINT) ->
bool -> bool -> bool) ->
?system_trust:bool ->
?trust:Netsys_tls.crt_list list ->
?revoke:Netsys_tls.crl_list list ->
?keys:(Netsys_tls.crt_list * Netsys_tls.private_key * string option) list ->
peer_auth:[ `None | `Optional | `Required ] ->
(module Netsys_crypto_types.TLS_PROVIDER) ->
(module Netsys_crypto_types.TLS_CONFIG)
val create_file_endpoint :
?resume:string ->
role:[ `Client | `Server ] ->
rd:Unix.file_descr ->
wr:Unix.file_descr ->
peer_name:string option ->
(module Netsys_crypto_types.TLS_CONFIG) ->
(module Netsys_crypto_types.FILE_TLS_ENDPOINT)
val endpoint :
(module Netsys_crypto_types.FILE_TLS_ENDPOINT) ->
(module Netsys_crypto_types.TLS_ENDPOINT)
val handshake : (module Netsys_crypto_types.TLS_ENDPOINT) -> unit
val recv :
?on_rehandshake:((module Netsys_crypto_types.TLS_ENDPOINT) -> bool) ->
(module Netsys_crypto_types.TLS_ENDPOINT) -> Bytes.t -> int -> int -> int
val mem_recv :
?on_rehandshake:((module Netsys_crypto_types.TLS_ENDPOINT) -> bool) ->
(module Netsys_crypto_types.TLS_ENDPOINT) ->
Netsys_types.memory -> int -> int -> int
val send :
(module Netsys_crypto_types.TLS_ENDPOINT) -> Bytes.t -> int -> int -> int
val mem_send :
(module Netsys_crypto_types.TLS_ENDPOINT) ->
Netsys_types.memory -> int -> int -> int
val str_send :
(module Netsys_crypto_types.TLS_ENDPOINT) -> string -> int -> int -> int
val shutdown :
(module Netsys_crypto_types.TLS_ENDPOINT) ->
Unix.shutdown_command -> unit
val at_transport_eof : (module Netsys_crypto_types.TLS_ENDPOINT) -> bool
module Debug : sig val enable : bool Pervasives.ref end
end