X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=include%2Fbindings.apr.pools.h;fp=include%2Fbindings.apr.pools.h;h=34ca65149a0a07c66de12ec319a1806ecd71688a;hp=0000000000000000000000000000000000000000;hb=a00e288af730f68c4296368ecf8b413c6e569395;hpb=da6a659f8aa0956a86787e64348e2cccc769d2bf

diff --git a/include/bindings.apr.pools.h b/include/bindings.apr.pools.h
new file mode 100644
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