diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-05 23:42:15 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-05 23:42:15 -0300 |
| commit | 8c640a262969ef44cd8bc0e0abe95e2a54f4c3f5 (patch) | |
| tree | 84f9ddd9e41236fb7a6f540aab07e65db9bc93cb /lib/core_functions.ml | |
| parent | 295c6a5a1f2b0db9d756ffe7bf413553a0c02737 (diff) | |
| download | Sakura-8c640a262969ef44cd8bc0e0abe95e2a54f4c3f5.tar.gz Sakura-8c640a262969ef44cd8bc0e0abe95e2a54f4c3f5.zip | |
ocaml re-migration
Diffstat (limited to '')
| -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 |