krb.public
Authorize.Cross_realm
krb.internal
val create : (Async.Socket.Address.Inet.t -> Cross_realm_principal_name.t -> [ `Accept | `Reject ]) -> t
val accept_single : Cross_realm_principal_name.t -> t
val accept_multiple : Cross_realm_principal_name.Set.t -> t