X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=Bindings%2FAPR%2FGlobal%2FMutex.hsc;fp=Bindings%2FAPR%2FGlobal%2FMutex.hsc;h=8e2c32943822601949f063158a454a4d4a97a7bb;hp=fc19af712c033cb81a95608191b420f93d76e713;hb=7c98f6e99621867364357f69f9034a559999b324;hpb=ba73375413bf799c040db1d874257af42f0179fd

diff --git a/Bindings/APR/Global/Mutex.hsc b/Bindings/APR/Global/Mutex.hsc
index fc19af7..8e2c329 100644
--- a/Bindings/APR/Global/Mutex.hsc
+++ b/Bindings/APR/Global/Mutex.hsc
@@ -7,54 +7,13 @@ import Bindings.APR.ErrNo
 import Bindings.APR.Pools
 import Bindings.APR.Proc.Mutex
 
-#if !APR_PROC_MUTEX_IS_GLOBAL
+#opaque_t apr_global_mutex_t
 
-#  opaque_t apr_global_mutex_t
+#cinline apr_global_mutex_create    , Ptr (Ptr <apr_global_mutex_t>) -> Ptr CChar -> <apr_lockmech_e> -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#cinline apr_global_mutex_child_init, Ptr (Ptr <apr_global_mutex_t>) -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
+#cinline apr_global_mutex_lock      , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
+#cinline apr_global_mutex_trylock   , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
+#cinline apr_global_mutex_unlock    , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
+#cinline apr_global_mutex_destroy   , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
 
-#  ccall apr_global_mutex_create    , Ptr (Ptr <apr_global_mutex_t>) -> Ptr CChar -> <apr_lockmech_e> -> Ptr <apr_pool_t> -> IO <apr_status_t>
-#  ccall apr_global_mutex_child_init, Ptr (Ptr <apr_global_mutex_t>) -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
-#  ccall apr_global_mutex_lock      , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
-#  ccall apr_global_mutex_trylock   , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
-#  ccall apr_global_mutex_unlock    , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
-#  ccall apr_global_mutex_destroy   , Ptr <apr_global_mutex_t> -> IO <apr_status_t>
-
-#  ccall apr_global_mutex_pool_get  , Ptr <apr_global_mutex_t> -> IO (Ptr <apr_pool_t>)
-
-#else
-
-#  synonym_t apr_global_mutex_t, <apr_proc_mutex_t>
-
-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
-c'apr_global_mutex_create = c'apr_proc_mutex_create
-
-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
-c'apr_global_mutex_child_init = c'apr_proc_mutex_child_init
-
-c'apr_global_mutex_lock :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
-c'apr_global_mutex_lock = c'apr_proc_mutex_lock
-
-c'apr_global_mutex_trylock :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
-c'apr_global_mutex_trylock = c'apr_proc_mutex_trylock
-
-c'apr_global_mutex_unlock :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
-c'apr_global_mutex_unlock = c'apr_proc_mutex_unlock
-
-c'apr_global_mutex_destroy :: Ptr C'apr_global_mutex_t -> IO C'apr_status_t
-c'apr_global_mutex_destroy = c'apr_proc_mutex_destroy
-
-c'apr_global_mutex_cleanup :: Ptr () -> IO C'apr_status_t
-c'apr_global_mutex_cleanup = c'apr_proc_mutex_cleanup
-
-c'apr_global_mutex_lockfile :: Ptr C'apr_global_mutex_t -> IO (Ptr CChar)
-c'apr_global_mutex_lockfile = c'apr_proc_mutex_lockfile
-
-c'apr_global_mutex_name :: Ptr C'apr_global_mutex_t -> IO (Ptr CChar)
-c'apr_global_mutex_name = c'apr_proc_mutex_name
-
-c'apr_global_mutex_defname :: IO (Ptr CChar)
-c'apr_global_mutex_defname = c'apr_proc_mutex_defname
-
-c'apr_global_mutex_pool_get :: Ptr C'apr_global_mutex_t -> IO (Ptr C'apr_pool_t)
-c'apr_global_mutex_pool_get = c'apr_proc_mutex_pool_get
-
-#endif
+#cinline apr_global_mutex_pool_get  , Ptr <apr_global_mutex_t> -> IO (Ptr <apr_pool_t>)