bindings.apr.inherit.h

[bindings-apr.git] / include / bindings.apr.pools.h

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