aboutsummaryrefslogtreecommitdiffstats
path: root/lib/interop.ml
diff options
context:
space:
mode:
authorMarcos Magueta <maguetamarcos@gmail.com>2024-10-27 01:53:18 -0300
committerGitHub <noreply@github.com>2024-10-27 01:53:18 -0300
commitfcb5613755b08fcb7ae73a3826b1cdce40e2747f (patch)
treee9f1df3a4e0d9b2bb38fdc432edeae21424dbe99 /lib/interop.ml
parent2eab114a120c7818861c0640ecdc300cf7366e53 (diff)
downloadSakura-fcb5613755b08fcb7ae73a3826b1cdce40e2747f.tar.gz
Sakura-fcb5613755b08fcb7ae73a3826b1cdce40e2747f.zip
State of the world with Merkle Tree composition of files (#2)
* file state hash calculation with history on replace and insert * add state transitions with linear hashing * add test * format dune files * nix format * delete shared flake * disable fmt check on flake * add nix formatter to flake shell
Diffstat (limited to 'lib/interop.ml')
-rw-r--r--lib/interop.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/interop.ml b/lib/interop.ml
index fdfde5f..28b4fb9 100644
--- a/lib/interop.ml
+++ b/lib/interop.ml
@@ -16,4 +16,7 @@ module Merkle = struct
let hashes = CArray.of_list string hashes in
C.Functions.merkle_generate_root (CArray.start hashes) len buf;
Ctypes.coerce (ptr char) Ctypes.string buf
+
+ let register_to_merkle content =
+ C.Functions.register_to_merkle "/tmp/relational-engine/tree" content
end