module Bindings.APR.LDAP.Init 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.LDAP
import Bindings.APR.Pools
c'APU_LDAP_INSUFFICIENT_ACCESS = 50
c'APU_LDAP_INSUFFICIENT_ACCESS :: (Num a) => a
foreign import ccall "inline_APU_LDAP_SECURITY_ERROR" c'APU_LDAP_SECURITY_ERROR
:: CInt -> IO CInt
foreign import ccall "apr_ldap_ssl_init" c'apr_ldap_ssl_init
:: Ptr C'apr_pool_t -> Ptr CChar -> CInt -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_ssl_init" p'apr_ldap_ssl_init
:: FunPtr (Ptr C'apr_pool_t -> Ptr CChar -> CInt -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)
foreign import ccall "apr_ldap_ssl_deinit" c'apr_ldap_ssl_deinit
:: IO CInt
foreign import ccall "&apr_ldap_ssl_deinit" p'apr_ldap_ssl_deinit
:: FunPtr (IO CInt)
foreign import ccall "apr_ldap_init" c'apr_ldap_init
:: Ptr C'apr_pool_t -> Ptr (Ptr C'LDAP) -> Ptr CChar -> CInt -> CInt -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_init" p'apr_ldap_init
:: FunPtr (Ptr C'apr_pool_t -> Ptr (Ptr C'LDAP) -> Ptr CChar -> CInt -> CInt -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)
foreign import ccall "apr_ldap_info" c'apr_ldap_info
:: Ptr C'apr_pool_t -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_info" p'apr_ldap_info
:: FunPtr (Ptr C'apr_pool_t -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)