lib/core_functions.ml


1
2
3
4
5
6
7
8
9
10
11

module Types = Types_generated

module Functions (F : Ctypes.FOREIGN) = struct
  open F

  let compute_hash =
    foreign "compute_hash"
      (F.(@->) (Ctypes.ptr Ctypes.char)
         (F.(@->) Ctypes.string (F.returning Ctypes.void)))

end