{-# LINE 1 "Bindings/APR/Shm.hsc" #-}

{-# LINE 2 "Bindings/APR/Shm.hsc" #-}

{-# LINE 3 "Bindings/APR/Shm.hsc" #-}

{-# LINE 4 "Bindings/APR/Shm.hsc" #-}

module Bindings.APR.Shm where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word

{-# LINE 7 "Bindings/APR/Shm.hsc" #-}
import Bindings.APR
import Bindings.APR.ErrNo
import Bindings.APR.Pools

data C'apr_shm_t = C'apr_shm_t

{-# LINE 12 "Bindings/APR/Shm.hsc" #-}

foreign import ccall "apr_shm_create" c'apr_shm_create
  :: Ptr (Ptr C'apr_shm_t) -> C'apr_size_t -> Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t
foreign import ccall "&apr_shm_create" p'apr_shm_create
  :: FunPtr (Ptr (Ptr C'apr_shm_t) -> C'apr_size_t -> Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t)

{-# LINE 14 "Bindings/APR/Shm.hsc" #-}
foreign import ccall "apr_shm_remove" c'apr_shm_remove
  :: Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t
foreign import ccall "&apr_shm_remove" p'apr_shm_remove
  :: FunPtr (Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t)

{-# LINE 15 "Bindings/APR/Shm.hsc" #-}
foreign import ccall "apr_shm_destroy" c'apr_shm_destroy
  :: Ptr C'apr_shm_t -> IO C'apr_status_t
foreign import ccall "&apr_shm_destroy" p'apr_shm_destroy
  :: FunPtr (Ptr C'apr_shm_t -> IO C'apr_status_t)

{-# LINE 16 "Bindings/APR/Shm.hsc" #-}
foreign import ccall "apr_shm_attach" c'apr_shm_attach
  :: Ptr (Ptr C'apr_shm_t) -> Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t
foreign import ccall "&apr_shm_attach" p'apr_shm_attach
  :: FunPtr (Ptr (Ptr C'apr_shm_t) -> Ptr CChar -> Ptr C'apr_pool_t -> IO C'apr_status_t)

{-# LINE 17 "Bindings/APR/Shm.hsc" #-}
foreign import ccall "apr_shm_detach" c'apr_shm_detach
  :: Ptr C'apr_shm_t -> IO C'apr_status_t
foreign import ccall "&apr_shm_detach" p'apr_shm_detach
  :: FunPtr (Ptr C'apr_shm_t -> IO C'apr_status_t)

{-# LINE 18 "Bindings/APR/Shm.hsc" #-}
foreign import ccall "apr_shm_baseaddr_get" c'apr_shm_baseaddr_get
  :: Ptr C'apr_shm_t -> IO (Ptr ())
foreign import ccall "&apr_shm_baseaddr_get" p'apr_shm_baseaddr_get
  :: FunPtr (Ptr C'apr_shm_t -> IO (Ptr ()))

{-# LINE 19 "Bindings/APR/Shm.hsc" #-}
foreign import ccall "apr_shm_size_get" c'apr_shm_size_get
  :: Ptr C'apr_shm_t -> IO C'apr_size_t
foreign import ccall "&apr_shm_size_get" p'apr_shm_size_get
  :: FunPtr (Ptr C'apr_shm_t -> IO C'apr_size_t)

{-# LINE 20 "Bindings/APR/Shm.hsc" #-}

foreign import ccall "apr_shm_pool_get" c'apr_shm_pool_get
  :: Ptr C'apr_shm_t -> IO (Ptr C'apr_pool_t)
foreign import ccall "&apr_shm_pool_get" p'apr_shm_pool_get
  :: FunPtr (Ptr C'apr_shm_t -> IO (Ptr C'apr_pool_t))

{-# LINE 22 "Bindings/APR/Shm.hsc" #-}