diff options
Diffstat (limited to 'lib/core_functions.ml')
| -rw-r--r-- | lib/core_functions.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/core_functions.ml b/lib/core_functions.ml new file mode 100644 index 0000000..083e0cf --- /dev/null +++ b/lib/core_functions.ml @@ -0,0 +1,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 |