module Client:sig
..end
type
mechanism_return =
| |
Mech_continue of |
(* |
Continue the authentication with this response
| *) |
| |
Mech_ok of |
(* |
Authentification done
| *) |
| |
Mech_error of |
(* |
Authentification failed
| *) |
class virtual mechanism_handler :object
..end
type
mechanism = {
|
mech_name : |
(* |
Name of the mechanism
| *) |
|
mech_exec : |
(* |
Mechanism creator
| *) |
val mech_name : mechanism -> string
mech_name
projectionval mech_exec : mechanism -> unit -> mechanism_handler
mech_exec
projectionval mech_external : mechanism
val mech_anonymous : mechanism
mechanism
: val default_mechanisms : mechanism list
val authenticate : ?capabilities:OBus_auth.capability list ->
?mechanisms:mechanism list ->
stream:OBus_auth.stream ->
unit -> (OBus_address.guid * OBus_auth.capability list) Lwt.t
Note: authenticate
does not sends the initial null byte. You
have to handle it before calling authenticate
.
capabilities
: defaults to []mechanisms
: defualts to OBus_auth.Client.default_mechanisms