X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=Bindings%2FAPR%2FShm.hsc;fp=Bindings%2FAPR%2FShm.hsc;h=cfd54c0cfe83e823e62ec0c70f9f587d5365f102;hp=0000000000000000000000000000000000000000;hb=c3100272dedde8dcb76594ad7b3c0559707ec638;hpb=cc9a1eed057e9491d3999a26b68696f5d5e0b624

diff --git a/Bindings/APR/Shm.hsc b/Bindings/APR/Shm.hsc
new file mode 100644
index 0000000..cfd54c0
--- /dev/null
+++ b/Bindings/APR/Shm.hsc
@@ -0,0 +1,20 @@
+#include <bindings.dsl.h>
+#include <apr_shm.h>
+
+module Bindings.APR.Shm where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+
+#opaque_t apr_shm_t
+
+#ccall apr_shm_create      , Ptr (Ptr <apr_shm_t>) -> <apr_size_t> -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#ccall apr_shm_remove      , Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#ccall apr_shm_destroy     , Ptr <apr_shm_t> -> IO <apr_status_t>
+#ccall apr_shm_attach      , Ptr (Ptr <apr_shm_t>) -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#ccall apr_shm_detach      , Ptr <apr_shm_t> -> IO <apr_status_t>
+#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>)