From b2b1d9a3a8cbf2f5d0089e29931cacf36297065a Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Fri, 6 Mar 2026 20:27:49 -0300
Subject: wip: physical

---
 lib/management/database.ml | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 lib/management/database.ml

(limited to 'lib/management/database.ml')

diff --git a/lib/management/database.ml b/lib/management/database.ml
new file mode 100644
index 0000000..4fd43f1
--- /dev/null
+++ b/lib/management/database.ml
@@ -0,0 +1,23 @@
+module RelationMap = Map.Make (String)
+
+type t = {
+  hash : Conventions.Hash.t;
+  name : Conventions.Name.t;
+  tree : unit;
+  relations : Relation.t RelationMap.t;
+  timestamp : float;
+}
+
+let create_database (storage: Physical.Storage.t) ~name =
+  let relations =
+    RelationMap.of_list [("less_than", Prelude.Standard.less_than_natural)]
+  in
+  let state =
+    {
+      hash = "";
+      name;
+      tree = ();
+      relations = relations;
+      timestamp = Unix.time ();
+    }
+  in Physical.Storage.write storage
-- 
cgit v1.2.3