From 825ad4620a5166cccbf7aec2f5fd17d66531afc4 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Wed, 22 Sep 2010 00:01:48 +0900
Subject: [PATCH 1/1] Bindings.APR.SDBM

---
 Bindings/APR/SDBM.hsc   | 34 ++++++++++++++++++++++++++++++++++
 bindings-apr-util.cabal |  2 ++
 cbits/helper_apr_sdbm.c | 23 +++++++++++++++++++++++
 3 files changed, 59 insertions(+)
 create mode 100644 Bindings/APR/SDBM.hsc
 create mode 100644 cbits/helper_apr_sdbm.c

diff --git a/Bindings/APR/SDBM.hsc b/Bindings/APR/SDBM.hsc
new file mode 100644
index 0000000..45e9a43
--- /dev/null
+++ b/Bindings/APR/SDBM.hsc
@@ -0,0 +1,34 @@
+#include <bindings.dsl.h>
+#include <apr_sdbm.h>
+
+module Bindings.APR.SDBM where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.File.Info
+import Bindings.APR.Pools
+
+#opaque_t apr_sdbm_t
+
+#starttype apr_sdbm_datum_t
+#  field dptr , Ptr CChar
+#  field dsize, CInt
+#stoptype
+
+#globalarray APR_SDBM_DIRFEXT, CChar
+#globalarray APR_SDBM_PAGFEXT, CChar
+
+#num APR_SDBM_INSERT
+#num APR_SDBM_REPLACE
+#num APR_SDBM_INSERTDUP
+
+#ccall   apr_sdbm_open    , Ptr (Ptr <apr_sdbm_t>) -> Ptr CChar -> <apr_int32_t> -> <apr_fileperms_t> -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#ccall   apr_sdbm_close   , Ptr <apr_sdbm_t> -> IO <apr_status_t>
+#ccall   apr_sdbm_lock    , Ptr <apr_sdbm_t> -> CInt -> IO <apr_status_t>
+#ccall   apr_sdbm_unlock  , Ptr <apr_sdbm_t> -> IO <apr_status_t>
+#cinline apr_sdbm_fetch   , Ptr <apr_sdbm_t> -> Ptr <apr_sdbm_datum_t> -> Ptr <apr_sdbm_datum_t> -> IO <apr_status_t>
+#cinline apr_sdbm_store   , Ptr <apr_sdbm_t> -> Ptr <apr_sdbm_datum_t> -> Ptr <apr_sdbm_datum_t> -> CInt -> IO <apr_status_t>
+#cinline apr_sdbm_delete  , Ptr <apr_sdbm_t> -> Ptr <apr_sdbm_datum_t> -> IO <apr_status_t>
+#ccall   apr_sdbm_firstkey, Ptr <apr_sdbm_t> -> Ptr <apr_sdbm_datum_t> -> IO <apr_status_t>
+#ccall   apr_sdbm_nextkey , Ptr <apr_sdbm_t> -> Ptr <apr_sdbm_datum_t> -> IO <apr_status_t>
+#ccall   apr_sdbm_rdonly  , Ptr <apr_sdbm_t> -> IO CInt
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index afa79fc..052cd4c 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -48,6 +48,7 @@ Library
         Bindings.APR.Queue
         Bindings.APR.RMM
         Bindings.APR.ResList
+        Bindings.APR.SDBM
         Bindings.APR.XLate
 
     C-Sources:
@@ -57,6 +58,7 @@ Library
         cbits/helper_apr_ldap.c
         cbits/helper_apr_ldap_init.c
         cbits/helper_apr_md4.c
+        cbits/helper_apr_sdbm.c
 
     Extensions:
         ForeignFunctionInterface
diff --git a/cbits/helper_apr_sdbm.c b/cbits/helper_apr_sdbm.c
new file mode 100644
index 0000000..a839211
--- /dev/null
+++ b/cbits/helper_apr_sdbm.c
@@ -0,0 +1,23 @@
+#include <bindings.cmacros.h>
+#include <apr_sdbm.h>
+
+BC_GLOBALARRAY(APR_SDBM_DIRFEXT, char)
+BC_GLOBALARRAY(APR_SDBM_PAGFEXT, char)
+
+apr_status_t inline_apr_sdbm_fetch(apr_sdbm_t* db,
+                                   apr_sdbm_datum_t* value,
+                                   apr_sdbm_datum_t* key) {
+    return apr_sdbm_fetch(db, value, *key);
+}
+
+apr_status_t inline_apr_sdbm_store(apr_sdbm_t* db,
+                                   apr_sdbm_datum_t* key,
+                                   apr_sdbm_datum_t* value,
+                                   int opt) {
+    return apr_sdbm_store(db, *key, *value, opt);
+}
+
+apr_status_t inline_apr_sdbm_delete(apr_sdbm_t* db,
+                                    const apr_sdbm_datum_t* key) {
+    return apr_sdbm_delete(db, *key);
+}
-- 
2.40.0