Bindings/APR/Pools.hsc

   1 #include <bindings.dsl.h>
   2 #include <apr_pools.h>
   3
   4 module Bindings.APR.Pools where
   5 #strict_import
   6 import Bindings.APR
   7 import Bindings.APR.Allocator.Types
   8 import Bindings.APR.ErrNo
   9
  10 #opaque_t apr_pool_t
  11
  12 #num APR_POOL_DEBUG
  13
  14 #callback apr_abortfunc_t, CInt -> IO CInt
  15
  16 #ccall apr_pool_initialize, IO <apr_status_t>
  17 #ccall apr_pool_terminate , IO ()
  18
  19 #if APR_POOL_DEBUG
  20
  21 #  cinline apr_pool_create_ex, Ptr (Ptr <apr_pool_t>) -> Ptr <apr_pool_t> -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> IO <apr_status_t>
  22 #  cinline apr_pool_create_core_ex, Ptr (Ptr <apr_pool_t>) -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> IO <apr_status_t>
  23 #  cinline apr_pool_create_unmanaged_ex, Ptr (Ptr <apr_pool_t>) -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> IO <apr_status_t>
  24
  25 #  ccall apr_pool_create_ex_debug, Ptr (Ptr <apr_pool_t>) -> Ptr <apr_pool_t> -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> Ptr CChar -> IO <apr_status_t>
  26 #  ccall apr_pool_create_core_ex_debug, Ptr (Ptr <apr_pool_t>) -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> Ptr CChar -> IO <apr_status_t>
  27 #  ccall apr_pool_create_unmanaged_ex_debug, Ptr (Ptr <apr_pool_t>) -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> Ptr CChar -> IO <apr_status_t>
  28
  29 #else
  30
  31 #  ccall apr_pool_create_ex, Ptr (Ptr <apr_pool_t>) -> Ptr <apr_pool_t> -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> IO <apr_status_t>
  32 #  ccall apr_pool_create_core_ex, Ptr (Ptr <apr_pool_t>) -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> IO <apr_status_t>
  33 #  ccall apr_pool_create_unmanaged_ex, Ptr (Ptr <apr_pool_t>) -> <apr_abortfunc_t> -> Ptr <apr_allocator_t> -> IO <apr_status_t>
  34
  35 #endif
  36
  37 #cinline apr_pool_create, Ptr (Ptr <apr_pool_t>) -> Ptr <apr_pool_t> -> IO <apr_status_t>
  38 #cinline apr_pool_create_core, Ptr (Ptr <apr_pool_t>) -> IO <apr_status_t>
  39 #cinline apr_pool_create_unmanaged, Ptr (Ptr <apr_pool_t>) -> IO <apr_status_t>
  40
  41 #ccall apr_pool_allocator_get, Ptr <apr_pool_t> -> IO (Ptr <apr_allocator_t>)
  42
  43 #if APR_POOL_DEBUG
  44 #  cinline apr_pool_clear, Ptr <apr_pool_t> -> IO ()
  45 #  ccall   apr_pool_clear_debug, Ptr <apr_pool_t> -> Ptr CChar -> IO ()
  46 #else
  47 #  ccall   apr_pool_clear, Ptr <apr_pool_t> -> IO ()
  48 #endif
  49
  50 #if APR_POOL_DEBUG
  51 #  cinline apr_pool_destroy, Ptr <apr_pool_t> -> IO ()
  52 #  ccall   apr_pool_destroy_debug, Ptr <apr_pool_t> -> Ptr CChar -> IO ()
  53 #else
  54 #  ccall   apr_pool_destroy, Ptr <apr_pool_t> -> IO ()
  55 #endif
  56
  57 #if APR_POOL_DEBUG
  58 #  cinline apr_palloc, Ptr <apr_pool_t> -> <apr_size_t> -> IO (Ptr ())
  59 #  ccall   apr_palloc_debug, Ptr <apr_pool_t> -> <apr_size_t> -> Ptr CChar -> IO (Ptr ())
  60 #else
  61 #  ccall   apr_palloc, Ptr <apr_pool_t> -> <apr_size_t> -> IO (Ptr ())
  62 #endif
  63
  64 #cinline apr_pcalloc, Ptr <apr_pool_t> -> <apr_size_t> -> IO (Ptr ())
  65 #if APR_POOL_DEBUG
  66 #  ccall apr_pcalloc_debug, Ptr <apr_pool_t> -> <apr_size_t> -> Ptr CChar -> IO (Ptr ())
  67 #endif
  68
  69 #ccall apr_pool_abort_set  , <apr_abortfunc_t> -> Ptr <apr_pool_t> -> IO ()
  70 #ccall apr_pool_abort_get  , Ptr <apr_pool_t> -> IO <apr_abortfunc_t>
  71 #ccall apr_pool_parent_get , Ptr <apr_pool_t> -> IO (Ptr <apr_pool_t>)
  72 #ccall apr_pool_is_ancestor, Ptr <apr_pool_t> -> Ptr <apr_pool_t> -> IO CInt
  73 #ccall apr_pool_tag        , Ptr <apr_pool_t> -> Ptr CChar -> IO ()
  74
  75 #ccall apr_pool_userdata_set , Ptr () -> Ptr CChar -> FunPtr (Ptr () -> IO <apr_status_t>) -> Ptr <apr_pool_t> -> IO <apr_status_t>
  76 #ccall apr_pool_userdata_setn, Ptr () -> Ptr CChar -> FunPtr (Ptr () -> IO <apr_status_t>) -> Ptr <apr_pool_t> -> IO <apr_status_t>
  77 #ccall apr_pool_userdata_get , Ptr (Ptr ()) -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
  78
  79 #ccall apr_pool_cleanup_register    , Ptr <apr_pool_t> -> Ptr () -> FunPtr (Ptr () -> IO <apr_status_t>) -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO ()
  80 #ccall apr_pool_pre_cleanup_register, Ptr <apr_pool_t> -> Ptr () -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO ()
  81 #ccall apr_pool_cleanup_kill        , Ptr <apr_pool_t> -> Ptr () -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO ()
  82 #ccall apr_pool_child_cleanup_set   , Ptr <apr_pool_t> -> Ptr () -> FunPtr (Ptr () -> IO <apr_status_t>) -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO ()
  83 #ccall apr_pool_cleanup_run         , Ptr <apr_pool_t> -> Ptr () -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO <apr_status_t>
  84 #ccall apr_pool_cleanup_null        , Ptr () -> IO <apr_status_t>
  85 #ccall apr_pool_cleanup_for_exec    , Ptr () -> IO ()
  86
  87 #if APR_POOL_DEBUG
  88 #  ccall apr_pool_join     , Ptr <apr_pool_t> -> Ptr <apr_pool_t> -> IO ()
  89 #  ccall apr_pool_find     , Ptr () -> IO (Ptr <apr_pool_t>)
  90 #  ccall apr_pool_num_bytes, Ptr <apr_pool_t> -> CInt -> IO <apr_size_t>
  91 #  ccall apr_pool_lock     , Ptr <apr_pool_t> -> CInt -> IO ()
  92 #else
  93 #  cinline apr_pool_join, Ptr <apr_pool_t> -> Ptr <apr_pool_t> -> IO ()
  94 #  cinline apr_pool_lock, Ptr <apr_pool_t> -> CInt -> IO ()
  95 #endif