open Ctypes module Bindings(F:Cstubs.FOREIGN) = struct open F let hacl_Curve25519_51_scalarmult = foreign "Hacl_Curve25519_51_scalarmult" (ocaml_bytes @-> (ocaml_bytes @-> (ocaml_bytes @-> (returning void)))) let hacl_Curve25519_51_secret_to_public = foreign "Hacl_Curve25519_51_secret_to_public" (ocaml_bytes @-> (ocaml_bytes @-> (returning void))) let hacl_Curve25519_51_ecdh = foreign "Hacl_Curve25519_51_ecdh" (ocaml_bytes @-> (ocaml_bytes @-> (ocaml_bytes @-> (returning bool)))) end