More LMDB bindings

1 files changed, 20 insertions, 1 deletions

diff --git a/lib/external/lmdb.ml b/lib/external/lmdb.ml
index 7b0812d..9c1d646 100644
--- a/lib/external/lmdb.ml
+++ b/lib/external/lmdb.ml
@@ -16,9 +16,28 @@ let mdb_mode_t = mode_t
 
 let mdb_result = view ~read:mdb_result_of_int ~write:int_of_mdb_result int
 
+type mdb_env = unit ptr
 let mdb_env = ptr Void
 
-let mdb_env_create = foreign "mdb_env_create" (ptr mdb_env @-> returning mdb_result)
+type mdb_dbi = Unsigned.uint
+let mdb_dbi = uint
+
+type mdb_txn = unit ptr
+let mdb_txn = ptr Void
+
+let mdb_env_create = foreign "mdb_env_create" (ptr ptr mdb_env @-> returning mdb_result)
+let mdb_env_create' () =
+  let open Utilities.Result in
+  let env_ptr = allocate mdb_env null in
+  let* () = mdb_env_create env_ptr in
+  Ok (!@ env_ptr)
 
 let mdb_env_open = foreign "mdb_env_open" (ptr mdb_env @-> string @-> uint @-> mdb_mode_t @-> returning mdb_result)
 let mdb_env_close = foreign "mdb_env_close" (ptr mdb_env @-> returning Void)
+
+let mdb_dbi_open = foreign "mdb_dbi_open" (ptr mdb_txn @-> string @-> uint @-> ptr mdb_dbi @-> returning mdb_result)
+let mdb_dbi_open' txn name flags =
+  let open Utilities.Result in
+  let dbi_ptr = allocate mdb_dbi (Unsigned.UInt.of_int 0) in
+  let* () = mdb_dbi_open txn name flags dbi_ptr in
+  Ok (!@ dbi_ptr)