Bindings/APR/Global/Mutex.hsc

   1 #include <bindings.dsl.h>
   2 #include <apr_getopt.h>
   3
   4 module Bindings.APR.Global.Mutex where
   5 #strict_import
   6 import Bindings.APR.ErrNo
   7 import Bindings.APR.Pools
   8 import Bindings.APR.Proc.Mutex
   9
  10 #if !APR_PROC_MUTEX_IS_GLOBAL
  11
  12 #  opaque_t apr_global_mutex_t
  13
  14 #  ccall apr_global_mutex_create    , Ptr (Ptr <apr_global_mutex_t>) -> Ptr CChar -> <apr_lockmech_e> -> Ptr <apr_pool_t> -> IO <apr_status_t>
  15 #  ccall apr_global_mutex_child_init, Ptr (Ptr <apr_global_mutex_t>) -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
  16 #  ccall apr_global_mutex_lock      , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
  17 #  ccall apr_global_mutex_trylock   , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
  18 #  ccall apr_global_mutex_unlock    , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
  19 #  ccall apr_global_mutex_destroy   , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
  20
  21 #  ccall apr_global_mutex_pool_get  , Ptr <apr_global_mutex_t> -> IO (Ptr <apr_pool_t>)
  22
  23 #else
  24
  25 #  synonym_t apr_global_mutex_t, <apr_proc_mutex_t>
  26
  27 c'apr_global_mutex_create :: Ptr (Ptr C'apr_global_mutex_t) -> Ptr CChar -> C'apr_lockmech_e -> Ptr C'apr_pool_t -> IO C'apr_status_t
  28 c'apr_global_mutex_create = c'apr_proc_mutex_create
  29
  30 c'apr_global_mutex_child_init :: Ptr (Ptr C'apr_global_mutex_t) -> Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t
  31 c'apr_global_mutex_child_init = c'apr_proc_mutex_child_init
  32
  33 c'apr_global_mutex_lock :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
  34 c'apr_global_mutex_lock = c'apr_proc_mutex_lock
  35
  36 c'apr_global_mutex_trylock :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
  37 c'apr_global_mutex_trylock = c'apr_proc_mutex_trylock
  38
  39 c'apr_global_mutex_unlock :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
  40 c'apr_global_mutex_unlock = c'apr_proc_mutex_unlock
  41
  42 c'apr_global_mutex_destroy :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
  43 c'apr_global_mutex_destroy = c'apr_proc_mutex_destroy
  44
  45 c'apr_global_mutex_cleanup :: Ptr () -> IO C'apr_status_t
  46 c'apr_global_mutex_cleanup = c'apr_proc_mutex_cleanup
  47
  48 c'apr_global_mutex_lockfile :: Ptr C'apr_global_mutex_t -> IO (Ptr CChar)
  49 c'apr_global_mutex_lockfile = c'apr_proc_mutex_lockfile
  50
  51 c'apr_global_mutex_name :: Ptr C'apr_global_mutex_t -> IO (Ptr CChar)
  52 c'apr_global_mutex_name = c'apr_proc_mutex_name
  53
  54 c'apr_global_mutex_defname :: IO (Ptr CChar)
  55 c'apr_global_mutex_defname = c'apr_proc_mutex_defname
  56
  57 c'apr_global_mutex_pool_get :: Ptr C'apr_global_mutex_t -> IO (Ptr C'apr_pool_t)
  58 c'apr_global_mutex_pool_get = c'apr_proc_mutex_pool_get
  59
  60 #endif