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

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

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

module Bindings.APR.Signal 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 6 "Bindings/APR/Signal.hsc" #-}
import Bindings.APR
import Bindings.APR.ErrNo
import Bindings.APR.Pools

type C'apr_sigfunc_t = FunPtr (CInt -> IO ())
foreign import ccall "wrapper" mk'apr_sigfunc_t
  :: (CInt -> IO ()) -> IO C'apr_sigfunc_t
foreign import ccall "dynamic" mK'apr_sigfunc_t
  :: C'apr_sigfunc_t -> (CInt -> IO ())

{-# LINE 11 "Bindings/APR/Signal.hsc" #-}

foreign import ccall "inline_apr_signal" c'apr_signal
  :: CInt -> C'apr_sigfunc_t -> IO C'apr_sigfunc_t

{-# LINE 13 "Bindings/APR/Signal.hsc" #-}

foreign import ccall "apr_signal_description_get" c'apr_signal_description_get
  :: CInt -> IO (Ptr CChar)
foreign import ccall "&apr_signal_description_get" p'apr_signal_description_get
  :: FunPtr (CInt -> IO (Ptr CChar))

{-# LINE 15 "Bindings/APR/Signal.hsc" #-}
foreign import ccall "apr_signal_init" c'apr_signal_init
  :: Ptr C'apr_pool_t -> IO ()
foreign import ccall "&apr_signal_init" p'apr_signal_init
  :: FunPtr (Ptr C'apr_pool_t -> IO ())

{-# LINE 16 "Bindings/APR/Signal.hsc" #-}
foreign import ccall "apr_signal_block" c'apr_signal_block
  :: CInt -> IO C'apr_status_t
foreign import ccall "&apr_signal_block" p'apr_signal_block
  :: FunPtr (CInt -> IO C'apr_status_t)

{-# LINE 17 "Bindings/APR/Signal.hsc" #-}
foreign import ccall "apr_signal_unblock" c'apr_signal_unblock
  :: CInt -> IO C'apr_status_t
foreign import ccall "&apr_signal_unblock" p'apr_signal_unblock
  :: FunPtr (CInt -> IO C'apr_status_t)

{-# LINE 18 "Bindings/APR/Signal.hsc" #-}