#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
#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>
#include <bindings.dsl.h>
#include <apr_shm.h>
+#include "bindings.apr.pools.h"
module Bindings.APR.Shm where
#strict_import
#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
include
Install-Includes:
+ bindings.apr.inherit.h
+ bindings.apr.pools.h
bindings.apr.ring.h
Extensions:
--- /dev/null
+#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
--- /dev/null
+#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
#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) \