hacl-star-raw 0.3.2 · OCaml Package

module CI = Cstubs_internals

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

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

val _3_Hacl_Bignum_Base_mul_wide_add_u64 : 
  Unsigned.uint64 ->
  Unsigned.uint64 ->
  Unsigned.uint64 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64

val _4_Hacl_Bignum_Base_mul_wide_add2_u64 : 
  Unsigned.uint64 ->
  Unsigned.uint64 ->
  Unsigned.uint64 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64

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

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

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

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

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

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

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

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

val _13_Hacl_Bignum_ModInvLimb_mod_inv_uint64 : 
  Unsigned.uint64 ->
  Unsigned.uint64

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

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

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

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

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

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

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