]> gitweb @ CieloNegro.org - bindings-apr.git/blob - Bindings/APR/Atomic.hsc
Bindings.APR.Random
[bindings-apr.git] / Bindings / APR / Atomic.hsc
1 #include <bindings.dsl.h>
2 #include <apr_atomic.h>
3
4 module Bindings.APR.Atomic where
5 #strict_import
6 import Bindings.APR
7 import Bindings.APR.ErrNo
8 import Bindings.APR.Pools
9
10 #ccall apr_atomic_init, Ptr <apr_pool_t> -> IO <apr_status_t>
11
12 #ccall apr_atomic_read32, Ptr <apr_uint32_t> -> IO <apr_uint32_t>
13 #ccall apr_atomic_set32 , Ptr <apr_uint32_t> -> <apr_uint32_t> -> IO ()
14 #ccall apr_atomic_add32 , Ptr <apr_uint32_t> -> <apr_uint32_t> -> IO <apr_uint32_t>
15 #ccall apr_atomic_sub32 , Ptr <apr_uint32_t> -> <apr_uint32_t> -> IO ()
16 #ccall apr_atomic_inc32 , Ptr <apr_uint32_t> -> IO <apr_uint32_t>
17 #ccall apr_atomic_dec32 , Ptr <apr_uint32_t> -> IO CInt
18 #ccall apr_atomic_cas32 , Ptr <apr_uint32_t> -> <apr_uint32_t> -> <apr_uint32_t> -> IO <apr_uint32_t>
19 #ccall apr_atomic_xchg32, Ptr <apr_uint32_t> -> <apr_uint32_t> -> IO <apr_uint32_t>
20
21 #ccall apr_atomic_casptr , Ptr (Ptr ()) -> Ptr () -> Ptr () -> IO (Ptr ())
22 #ccall apr_atomic_xchgptr, Ptr (Ptr ()) -> Ptr () -> IO (Ptr ())