X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Bindings%2FAPR%2FAllocator.hsc;h=b2dcfa66cbe6934d5e2ac197e6747d0a9806ebd3;hb=794d2d4643eb43a9ef18025fb1537388dd803310;hp=454ff1612f12eb22035d282074fcdda4b776af50;hpb=4ea65ba7cb9f3c0114643e5e1bef8d957218960e;p=bindings-apr.git

diff --git a/Bindings/APR/Allocator.hsc b/Bindings/APR/Allocator.hsc
index 454ff16..b2dcfa6 100644
--- a/Bindings/APR/Allocator.hsc
+++ b/Bindings/APR/Allocator.hsc
@@ -4,18 +4,10 @@
 module Bindings.APR.Allocator where
 #strict_import
 import Bindings.APR
-import Bindings.APR.Errno
-
-#opaque_t apr_allocator_t
-
-#starttype struct apr_memnode_t
-#field next       , Ptr <apr_memnode_t>
-#field ref        , Ptr (Ptr <apr_memnode_t>)
-#field index      , <apr_uint32_t>
-#field free_index , <apr_uint32_t>
-#field first_avail, Ptr CChar
-#field endp       , Ptr CChar
-#stoptype
+import Bindings.APR.Allocator.Types
+import Bindings.APR.ErrNo
+import Bindings.APR.Thread.Mutex
+import Bindings.APR.Pools
 
 #num APR_MEMNODE_T_SIZE
 #num APR_ALLOCATOR_MAX_FREE_UNLIMITED
@@ -25,4 +17,10 @@ import Bindings.APR.Errno
 #ccall apr_allocator_alloc  , Ptr <apr_allocator_t> -> <apr_size_t> -> IO (Ptr <apr_memnode_t>)
 #ccall apr_allocator_free   , Ptr <apr_allocator_t> -> Ptr <apr_memnode_t> -> IO ()
 
--- FIXME: incomplete
+#ccall apr_allocator_owner_set, Ptr <apr_allocator_t> -> Ptr <apr_pool_t> -> IO ()
+#ccall apr_allocator_owner_get, Ptr <apr_allocator_t> -> IO (Ptr <apr_pool_t>)
+
+#ccall apr_allocator_max_free_set, Ptr <apr_allocator_t> -> <apr_size_t> -> IO ()
+
+#ccall apr_allocator_mutex_set, Ptr <apr_allocator_t> -> Ptr <apr_thread_mutex_t> -> IO ()
+#ccall apr_allocator_mutex_get, Ptr <apr_allocator_t> -> IO (Ptr <apr_thread_mutex_t>)