Basic storage with C interop (#1)

* writer command design

* dune build with shared core lib

* port c lib project inside ocaml

* os specific dynamic link

* fix project name on flake

* fix: cmake cxx version breaking merklecpp

* finish write to disk and update maps func

* add non atomic commit to transaction graph

* merkle tree binding for generating root hash

* disk module refactor

---------

Co-authored-by: Renan Lopes <renans.l@icloud.com>

1 files changed, 30 insertions, 0 deletions

diff --git a/shared/librelational_engine/library.cpp b/shared/librelational_engine/library.cpp
new file mode 100644
index 0000000..8048486
--- /dev/null
+++ b/shared/librelational_engine/library.cpp
@@ -0,0 +1,30 @@
+#include <iostream>
+#include <merklecpp.h>
+#include <openssl/sha.h>
+#include <iomanip>
+extern "C" {
+#include "library.h"
+    extern void merkle_generate_root(char** hashes, const int n, char* root) {
+        merkle::Tree tree;
+        for (int i = 0; i < n; i++){
+            tree.insert(merkle::Hash(hashes[i]));
+        }
+        std::memcpy(root, tree.root().to_string().c_str(), HASH_SIZE);
+    }
+    extern void compute_hash(char* computed_hash, const char *content) {
+
+        unsigned char hash[SHA256_DIGEST_LENGTH];
+        SHA256_CTX sha256;
+        SHA256_Init(&sha256);
+        SHA256_Update(&sha256, content, sizeof(content));
+        SHA256_Final(hash, &sha256);
+        std::stringstream ss;
+        for (int i = 0; i < SHA256_DIGEST_LENGTH; i++)
+            ss << std::hex << std::setw(2) << std::setfill('0') << static_cast<int>(hash[i]);
+
+        std::memcpy(computed_hash, ss.str().c_str(), HASH_SIZE);
+        std::cout << "⚙️ COMPUTED HASH: " << computed_hash << std::endl;
+    }
+
+    extern int trash() { return 100; }
+}
\ No newline at end of file