module Bindings.APR.Hooks 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
import Bindings.APR.Pools
import Bindings.APR.Tables
c'APR_HOOK_REALLY_FIRST = 10
c'APR_HOOK_REALLY_FIRST :: (Num a) => a
c'APR_HOOK_FIRST = 0
c'APR_HOOK_FIRST :: (Num a) => a
c'APR_HOOK_MIDDLE = 10
c'APR_HOOK_MIDDLE :: (Num a) => a
c'APR_HOOK_LAST = 20
c'APR_HOOK_LAST :: (Num a) => a
c'APR_HOOK_REALLY_LAST = 30
c'APR_HOOK_REALLY_LAST :: (Num a) => a
foreign import ccall "&apr_hook_global_pool" p'apr_hook_global_pool
:: Ptr (Ptr C'apr_pool_t)
foreign import ccall "&apr_hook_debug_enabled" p'apr_hook_debug_enabled
:: Ptr (CInt)
foreign import ccall "&apr_hook_debug_current" p'apr_hook_debug_current
:: Ptr (Ptr CChar)
foreign import ccall "apr_hook_sort_register" c'apr_hook_sort_register
:: Ptr CChar -> Ptr (Ptr C'apr_array_header_t) -> IO ()
foreign import ccall "&apr_hook_sort_register" p'apr_hook_sort_register
:: FunPtr (Ptr CChar -> Ptr (Ptr C'apr_array_header_t) -> IO ())
foreign import ccall "apr_hook_sort_all" c'apr_hook_sort_all
:: Ptr ()
foreign import ccall "&apr_hook_sort_all" p'apr_hook_sort_all
:: FunPtr (Ptr ())
foreign import ccall "apr_hook_debug_show" c'apr_hook_debug_show
:: Ptr CChar -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO ()
foreign import ccall "&apr_hook_debug_show" p'apr_hook_debug_show
:: FunPtr (Ptr CChar -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO ())
foreign import ccall "apr_hook_deregister_all" c'apr_hook_deregister_all
:: Ptr ()
foreign import ccall "&apr_hook_deregister_all" p'apr_hook_deregister_all
:: FunPtr (Ptr ())