Better making function synonyms be macros than handmade synonyms.

[bindings-apr.git] / Bindings / APR / Global / Mutex.hsc

diff --git a/Bindings/APR/Global/Mutex.hsc b/Bindings/APR/Global/Mutex.hsc
index fc19af712c033cb81a95608191b420f93d76e713..8e2c32943822601949f063158a454a4d4a97a7bb 100644 (file)
--- 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>)