hacl-star-raw 0.7.1 · OCaml Package

module CI = Cstubs_internals

val _1_Hacl_Bignum64_add : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint64

val _2_Hacl_Bignum64_sub : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint64

val _3_Hacl_Bignum64_add_mod : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _4_Hacl_Bignum64_sub_mod : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _5_Hacl_Bignum64_mul : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _6_Hacl_Bignum64_sqr : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  unit

val _7_Hacl_Bignum64_mod : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  bool

val _8_Hacl_Bignum64_mod_exp_vartime : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  bool

val _9_Hacl_Bignum64_mod_exp_consttime : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  bool

val _10_Hacl_Bignum64_mod_inv_prime_vartime : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  bool

val _11_Hacl_Bignum64_mont_ctx_init : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  CI.voidp

val _12_Hacl_Bignum64_mont_ctx_free : ('a, 'b) CI.fatptr -> unit

val _13_Hacl_Bignum64_mod_precomp : 
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _14_Hacl_Bignum64_mod_exp_vartime_precomp : 
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _15_Hacl_Bignum64_mod_exp_consttime_precomp : 
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _16_Hacl_Bignum64_mod_inv_prime_vartime_precomp : 
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _17_Hacl_Bignum64_new_bn_from_bytes_be : 
  Unsigned.uint32 ->
  bytes CI.ocaml ->
  CI.voidp

val _18_Hacl_Bignum64_new_bn_from_bytes_le : 
  Unsigned.uint32 ->
  bytes CI.ocaml ->
  CI.voidp

val _19_Hacl_Bignum64_bn_to_bytes_be : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  bytes CI.ocaml ->
  unit

val _20_Hacl_Bignum64_bn_to_bytes_le : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  bytes CI.ocaml ->
  unit

val _21_Hacl_Bignum64_lt_mask : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint64

val _22_Hacl_Bignum64_eq_mask : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint64

type !'a result = 'a

type !'a return = 'a

type !'a1 fn =

| Returns : 'a CI.typ -> 'a return fn
| Function : 'a0 CI.typ * 'b fn -> ('a0 -> 'b) fn

val map_result : ('a -> 'b) -> 'a -> 'b

val returning : 'a CI.typ -> 'a return fn

val (@->) : 'a CI.typ -> 'b fn -> ('a -> 'b) fn

val foreign : string -> ('a -> 'b) fn -> 'a -> 'b

val foreign_value : string -> 'a Ctypes.typ -> 'a Ctypes.ptr

package hacl-star-raw