bindings.apr.inherit.h

diff --git a/Bindings/APR/Network/IO.hsc b/Bindings/APR/Network/IO.hsc
index 90d0e5caf93af783b42a25d883442d110d41fe2a..febaf5e4633a11b23735ff76f13c4bd8d1a39eec 100644 (file)
--- a/Bindings/APR/Network/IO.hsc
+++ b/Bindings/APR/Network/IO.hsc
@@ -1,5 +1,7 @@
 #include <bindings.dsl.h>
 #include <apr_network_io.h>
+#include "bindings.apr.pools.h"
+#include "bindings.apr.inherit.h"
 
 module Bindings.APR.Network.IO where
 #strict_import
@@ -129,9 +131,9 @@ import Bindings.APR.Want
 
 #ccall apr_socket_protocol_get, Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
 
-#ccall apr_socket_pool_get     , Ptr <apr_socket_t> -> IO (Ptr <apr_pool_t>)
-#ccall apr_socket_inherit_set  , Ptr <apr_socket_t> -> IO <apr_status_t>
-#ccall apr_socket_inherit_unset, Ptr <apr_socket_t> -> IO <apr_status_t>
+#apr_pool_accessor socket
+#apr_inherit_set   socket
+#apr_inherit_unset socket
 
 #ccall apr_mcast_join     , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
 #ccall apr_mcast_leave    , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>

diff --git a/Bindings/APR/Shm.hsc b/Bindings/APR/Shm.hsc
index cfd54c0cfe83e823e62ec0c70f9f587d5365f102..84bf37e3479986f213e996e5820f84965100020f 100644 (file)
--- a/Bindings/APR/Shm.hsc
+++ b/Bindings/APR/Shm.hsc
@@ -1,5 +1,6 @@
 #include <bindings.dsl.h>
 #include <apr_shm.h>
+#include "bindings.apr.pools.h"
 
 module Bindings.APR.Shm where
 #strict_import
@@ -17,4 +18,4 @@ import Bindings.APR.Pools
 #ccall apr_shm_baseaddr_get, Ptr <apr_shm_t> -> IO (Ptr ())
 #ccall apr_shm_size_get    , Ptr <apr_shm_t> -> IO <apr_size_t>
 
-#ccall apr_shm_pool_get    , Ptr <apr_shm_t> -> IO (Ptr <apr_pool_t>)
+#apr_pool_accessor shm

diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index 6ea8408ca0cec900a85f78a778dd3819a59734c4..4b18e60082e7339da8df3b1f50c22af2ced2ac94 100644 (file)
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -83,6 +83,8 @@ Library
         include
 
     Install-Includes:
+        bindings.apr.inherit.h
+        bindings.apr.pools.h
         bindings.apr.ring.h
 
     Extensions:

diff --git a/include/bindings.apr.inherit.h b/include/bindings.apr.inherit.h
new file mode 100644 (file)
index 0000000..149be59
--- /dev/null
+++ b/include/bindings.apr.inherit.h
@@ -0,0 +1,15 @@
+#ifndef __BINDINGS_APR_INHERIT_H__
+#define __BINDINGS_APR_INHERIT_H__
+#include <bindings.dsl.h>
+
+#define hsc_apr_inherit_set(TYPE)                       \
+    hsc_ccall(                                          \
+        apr_ ## TYPE ## _inherit_set,                   \
+        Ptr <apr_ ## TYPE ## _t> -> IO <apr_status_t>)
+
+#define hsc_apr_inherit_unset(TYPE)                     \
+    hsc_ccall(                                          \
+        apr_ ## TYPE ## _inherit_unset,                 \
+        Ptr <apr_ ## TYPE ## _t> -> IO <apr_status_t>)
+
+#endif

diff --git a/include/bindings.apr.pools.h b/include/bindings.apr.pools.h
new file mode 100644 (file)
index 0000000..34ca651
--- /dev/null
+++ b/include/bindings.apr.pools.h
@@ -0,0 +1,10 @@
+#ifndef __BINDINGS_APR_POOLS_H__
+#define __BINDINGS_APR_POOLS_H__
+#include <bindings.dsl.h>
+
+#define hsc_apr_pool_accessor(TYPE)                        \
+    hsc_ccall(                                             \
+        apr_ ## TYPE ## _pool_get,                         \
+        Ptr <apr_ ## TYPE ## _t> -> IO (Ptr <apr_pool_t>))
+
+#endif

diff --git a/include/bindings.apr.ring.h b/include/bindings.apr.ring.h
index 73dfa35970547d0c427055053ca77352f98471d4..e4c9f7d62a230e99050d59fec52bb707c979c865 100644 (file)
--- a/include/bindings.apr.ring.h
+++ b/include/bindings.apr.ring.h
@@ -1,5 +1,6 @@
 #ifndef __BINDINGS_APR_RING_H__
 #define __BINDINGS_APR_RING_H__
+#include <bindings.dsl.h>
 
 #define hsc_apr_ring_entry_field(NAME, TYPE)    \
     hsc_field(NAME.next, Ptr TYPE)              \