hacl-star-raw 0.2.1 · OCaml Package

Parameters

module F : Cstubs.FOREIGN

Signature

module Hacl_Spec_applied : sig ... end

module Hacl_HMAC_DRBG_applied : sig ... end

type everCrypt_DRBG_supported_alg =
  Hacl_Spec_applied.spec_Hash_Definitions_hash_alg

val everCrypt_DRBG_supported_alg : Unsigned.uint8 Ctypes.typ

val everCrypt_DRBG_reseed_interval : Unsigned.uint32 Ctypes.ptr F.result

val everCrypt_DRBG_max_output_length : Unsigned.uint32 Ctypes.ptr F.result

val everCrypt_DRBG_max_length : Unsigned.uint32 Ctypes.ptr F.result

val everCrypt_DRBG_max_personalization_string_length : 
  Unsigned.uint32 Ctypes.ptr F.result

val everCrypt_DRBG_max_additional_input_length : 
  Unsigned.uint32 Ctypes.ptr F.result

val everCrypt_DRBG_min_length : 
  (Unsigned.uint8 -> Unsigned.uint32 F.return) F.result

type everCrypt_DRBG_state_s_tags = Unsigned.UInt8.t

val everCrypt_DRBG_state_s_tags : Unsigned.uint8 Ctypes.typ

val everCrypt_DRBG_state_s_tags_EverCrypt_DRBG_SHA1_s : Unsigned.UInt8.t

val everCrypt_DRBG_state_s_tags_EverCrypt_DRBG_SHA2_256_s : Unsigned.UInt8.t

val everCrypt_DRBG_state_s_tags_EverCrypt_DRBG_SHA2_384_s : Unsigned.UInt8.t

val everCrypt_DRBG_state_s_tags_EverCrypt_DRBG_SHA2_512_s : Unsigned.UInt8.t

type everCrypt_DRBG_state_s = [ `everCrypt_DRBG_state_s ] Ctypes.structure

val everCrypt_DRBG_state_s : 
  [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes.typ

val everCrypt_DRBG_state_s_tag : 
  (Unsigned.uint8, [ `everCrypt_DRBG_state_s ] Ctypes.structure) Ctypes.field

type everCrypt_DRBG_state_s_val = [ `anonymous ] Ctypes.union

val everCrypt_DRBG_state_s_val : [ `anonymous ] Ctypes.union Ctypes.typ

val everCrypt_DRBG_state_s_val_case_SHA1_s : 
  ([ `hacl_HMAC_DRBG_state ] Ctypes.structure, [ `anonymous ] Ctypes.union)
    Ctypes.field

val everCrypt_DRBG_state_s_val_case_SHA2_256_s : 
  ([ `hacl_HMAC_DRBG_state ] Ctypes.structure, [ `anonymous ] Ctypes.union)
    Ctypes.field

val everCrypt_DRBG_state_s_val_case_SHA2_384_s : 
  ([ `hacl_HMAC_DRBG_state ] Ctypes.structure, [ `anonymous ] Ctypes.union)
    Ctypes.field

val everCrypt_DRBG_state_s_val_case_SHA2_512_s : 
  ([ `hacl_HMAC_DRBG_state ] Ctypes.structure, [ `anonymous ] Ctypes.union)
    Ctypes.field

val everCrypt_DRBG_state_s_u : 
  ([ `anonymous ] Ctypes.union, [ `everCrypt_DRBG_state_s ] Ctypes.structure)
    Ctypes.field

val everCrypt_DRBG_create : 
  (Unsigned.uint8 ->
    [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr F.return)
    F.result

val everCrypt_DRBG_instantiate_sha1 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_instantiate_sha2_256 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_instantiate_sha2_384 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_instantiate_sha2_512 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_reseed_sha1 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_reseed_sha2_256 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_reseed_sha2_384 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_reseed_sha2_512 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_generate_sha1 : 
  (bytes Ctypes_static.ocaml ->
    [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    Unsigned.uint32 ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_generate_sha2_256 : 
  (bytes Ctypes_static.ocaml ->
    [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    Unsigned.uint32 ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_generate_sha2_384 : 
  (bytes Ctypes_static.ocaml ->
    [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    Unsigned.uint32 ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_generate_sha2_512 : 
  (bytes Ctypes_static.ocaml ->
    [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    Unsigned.uint32 ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_uninstantiate_sha1 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    unit F.return)
    F.result

val everCrypt_DRBG_uninstantiate_sha2_256 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    unit F.return)
    F.result

val everCrypt_DRBG_uninstantiate_sha2_384 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    unit F.return)
    F.result

val everCrypt_DRBG_uninstantiate_sha2_512 : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    unit F.return)
    F.result

val everCrypt_DRBG_instantiate : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_reseed : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_generate : 
  (bytes Ctypes_static.ocaml ->
    [ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    Unsigned.uint32 ->
    bytes Ctypes_static.ocaml ->
    Unsigned.uint32 ->
    bool F.return)
    F.result

val everCrypt_DRBG_uninstantiate : 
  ([ `everCrypt_DRBG_state_s ] Ctypes.structure Ctypes_static.ptr ->
    unit F.return)
    F.result

package hacl-star-raw

Parameters

Signature