Plasma GitLab Archive
Projects Blog Knowledge

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-> string -> 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-> string -> int -> int -> int
  val mem_send :
    (module Netsys_crypto_types.TLS_ENDPOINT->
    Netsys_types.memory -> 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
This web site is published by Informatikbüro Gerd Stolpmann
Powered by Caml