`sig
type session
type 'credentials init_credentials =
(string * string * (string * string) list) list -> 'credentials
type lookup = {
lookup :
'c.
Netsys_sasl.sasl_mechanism ->
'c Netsys_sasl.Server.init_credentials ->
string -> string -> 'c option;
}
val create_session :
mech:Netsys_sasl.sasl_mechanism ->
lookup:Netsys_sasl.Server.lookup ->
params:(string * string * bool) list ->
unit -> Netsys_sasl.Server.session
val process_response :
Netsys_sasl.Server.session -> string -> Netsys_sasl.Server.session
val process_response_restart :
Netsys_sasl.Server.session ->
string -> bool -> Netsys_sasl.Server.session * bool
val emit_challenge :
Netsys_sasl.Server.session -> Netsys_sasl.Server.session * string
val stash_session : Netsys_sasl.Server.session -> string
val resume_session :
mech:Netsys_sasl.sasl_mechanism ->
lookup:Netsys_sasl.Server.lookup -> string -> Netsys_sasl.Server.session
val session_id : Netsys_sasl.Server.session -> string option
val prop : Netsys_sasl.Server.session -> string -> string
val gssapi_props : Netsys_sasl.Server.session -> Netsys_gssapi.server_props
val user_name : Netsys_sasl.Server.session -> string
val authz_name : Netsys_sasl.Server.session -> string
val channel_binding : Netsys_sasl.Server.session -> Netsys_sasl_types.cb
end`