sig
type gss_buffer_t
type gss_OID
type gss_OID_set
type gss_cred_id_t
type gss_ctx_id_t
type gss_name_t
type gss_channel_bindings_t
type gss_cred_usage_t = [ `Accept | `Both | `Initiate ]
type flags_flag =
[ `Anon_flag
| `Conf_flag
| `Deleg_flag
| `Integ_flag
| `Mutual_flag
| `Prot_ready_flag
| `Replay_flag
| `Sequence_flag
| `Trans_flag ]
type flags = Netgss_bindings.flags_flag list
type gss_qop_t = [ `Qop_default ]
type status_type_t = [ `Gss_code | `Mech_code ]
val gss_accept_sec_context :
Netgss_bindings.gss_ctx_id_t ->
Netgss_bindings.gss_cred_id_t ->
Netgss_bindings.gss_buffer_t ->
Netgss_bindings.gss_channel_bindings_t ->
int32 * int32 * Netgss_bindings.gss_ctx_id_t *
Netgss_bindings.gss_name_t * Netgss_bindings.gss_OID *
Netgss_bindings.gss_buffer_t * Netgss_bindings.flags * int32 *
Netgss_bindings.gss_cred_id_t
val gss_acquire_cred :
Netgss_bindings.gss_name_t ->
int32 ->
Netgss_bindings.gss_OID_set ->
Netgss_bindings.gss_cred_usage_t ->
int32 * int32 * Netgss_bindings.gss_cred_id_t *
Netgss_bindings.gss_OID_set * int32
val gss_init_sec_context :
Netgss_bindings.gss_cred_id_t ->
Netgss_bindings.gss_ctx_id_t ->
Netgss_bindings.gss_name_t ->
Netgss_bindings.gss_OID ->
Netgss_bindings.flags ->
int32 ->
Netgss_bindings.gss_channel_bindings_t ->
Netgss_bindings.gss_buffer_t ->
int32 * int32 * Netgss_bindings.gss_ctx_id_t * Netgss_bindings.gss_OID *
Netgss_bindings.gss_buffer_t * Netgss_bindings.flags * int32
val gss_process_context_token :
Netgss_bindings.gss_ctx_id_t ->
Netgss_bindings.gss_buffer_t -> int32 * int32
val gss_context_time :
Netgss_bindings.gss_ctx_id_t -> int32 * int32 * int32
val gss_get_mic :
Netgss_bindings.gss_ctx_id_t ->
int32 ->
Netgss_bindings.gss_buffer_t ->
int32 * int32 * Netgss_bindings.gss_buffer_t
val gss_verify_mic :
Netgss_bindings.gss_ctx_id_t ->
Netgss_bindings.gss_buffer_t ->
Netgss_bindings.gss_buffer_t -> int32 * int32 * int32
val gss_wrap :
Netgss_bindings.gss_ctx_id_t ->
bool ->
int32 ->
Netgss_bindings.gss_buffer_t ->
int32 * int32 * bool * Netgss_bindings.gss_buffer_t
val gss_unwrap :
Netgss_bindings.gss_ctx_id_t ->
Netgss_bindings.gss_buffer_t ->
int32 * int32 * Netgss_bindings.gss_buffer_t * bool * int32
val gss_display_status :
int32 ->
Netgss_bindings.status_type_t ->
Netgss_bindings.gss_OID ->
int32 -> int32 * int32 * int32 * Netgss_bindings.gss_buffer_t
val gss_indicate_mechs :
unit -> int32 * int32 * Netgss_bindings.gss_OID_set
val gss_compare_name :
Netgss_bindings.gss_name_t ->
Netgss_bindings.gss_name_t -> int32 * int32 * bool
val gss_display_name :
Netgss_bindings.gss_name_t ->
int32 * int32 * Netgss_bindings.gss_buffer_t * Netgss_bindings.gss_OID
val gss_import_name :
Netgss_bindings.gss_buffer_t ->
Netgss_bindings.gss_OID -> int32 * int32 * Netgss_bindings.gss_name_t
val gss_inquire_cred :
Netgss_bindings.gss_cred_id_t ->
int32 * int32 * Netgss_bindings.gss_name_t * int32 *
Netgss_bindings.gss_cred_usage_t * Netgss_bindings.gss_OID_set
val gss_inquire_context :
Netgss_bindings.gss_ctx_id_t ->
int32 * int32 * Netgss_bindings.gss_name_t * Netgss_bindings.gss_name_t *
int32 * Netgss_bindings.gss_OID * Netgss_bindings.flags * bool *
bool
val gss_wrap_size_limit :
Netgss_bindings.gss_ctx_id_t ->
bool -> int32 -> int32 -> int32 * int32 * int32
val gss_add_cred :
Netgss_bindings.gss_cred_id_t ->
Netgss_bindings.gss_name_t ->
Netgss_bindings.gss_OID ->
Netgss_bindings.gss_cred_usage_t ->
int32 ->
int32 ->
int32 * int32 * Netgss_bindings.gss_cred_id_t *
Netgss_bindings.gss_OID_set * int32 * int32
val gss_inquire_cred_by_mech :
Netgss_bindings.gss_cred_id_t ->
Netgss_bindings.gss_OID ->
int32 * int32 * Netgss_bindings.gss_name_t * int32 * int32 *
Netgss_bindings.gss_cred_usage_t
val gss_export_sec_context :
Netgss_bindings.gss_ctx_id_t ->
int32 * int32 * Netgss_bindings.gss_buffer_t
val gss_import_sec_context :
Netgss_bindings.gss_buffer_t ->
int32 * int32 * Netgss_bindings.gss_ctx_id_t
val gss_inquire_names_for_mech :
Netgss_bindings.gss_OID -> int32 * int32 * Netgss_bindings.gss_OID_set
val gss_inquire_mechs_for_name :
Netgss_bindings.gss_name_t -> int32 * int32 * Netgss_bindings.gss_OID_set
val gss_export_name :
Netgss_bindings.gss_name_t ->
int32 * int32 * Netgss_bindings.gss_buffer_t
val gss_duplicate_name :
Netgss_bindings.gss_name_t -> int32 * int32 * Netgss_bindings.gss_name_t
val gss_canonicalize_name :
Netgss_bindings.gss_name_t ->
Netgss_bindings.gss_OID -> int32 * int32 * Netgss_bindings.gss_name_t
val gss_delete_sec_context : Netgss_bindings.gss_ctx_id_t -> int32 * int32
exception Null_pointer
type memory =
(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t
val buffer_of_string : string -> int -> int -> Netgss_bindings.gss_buffer_t
val buffer_of_bytes :
Stdlib.Bytes.t -> int -> int -> Netgss_bindings.gss_buffer_t
val buffer_of_memory :
Netgss_bindings.memory -> Netgss_bindings.gss_buffer_t
val string_of_buffer : Netgss_bindings.gss_buffer_t -> string
val bytes_of_buffer : Netgss_bindings.gss_buffer_t -> Stdlib.Bytes.t
val memory_of_buffer :
Netgss_bindings.gss_buffer_t -> Netgss_bindings.memory
val release_buffer : Netgss_bindings.gss_buffer_t -> unit
val oid_of_der : string -> Netgss_bindings.gss_OID
val der_of_oid : Netgss_bindings.gss_OID -> string
val array_of_oid_set :
Netgss_bindings.gss_OID_set -> Netgss_bindings.gss_OID array
val oid_set_of_array :
Netgss_bindings.gss_OID array -> Netgss_bindings.gss_OID_set
val map_cb :
int ->
string ->
int -> string -> string -> Netgss_bindings.gss_channel_bindings_t
val no_channel_bindings : unit -> Netgss_bindings.gss_channel_bindings_t
val no_context : unit -> Netgss_bindings.gss_ctx_id_t
val is_no_context : Netgss_bindings.gss_ctx_id_t -> bool
val no_credential : unit -> Netgss_bindings.gss_cred_id_t
val is_no_credential : Netgss_bindings.gss_cred_id_t -> bool
val no_name : unit -> Netgss_bindings.gss_name_t
val is_no_name : Netgss_bindings.gss_name_t -> bool
val no_oid : unit -> Netgss_bindings.gss_OID
val no_oid_set : unit -> Netgss_bindings.gss_OID_set
val gss_indefinite : unit -> int32
end
