module Bindings.APR.LDAP.Option 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'APR_LDAP_OPT_TLS = 28671
c'APR_LDAP_OPT_TLS :: (Num a) => a
c'APR_LDAP_OPT_TLS_CERT = 28670
c'APR_LDAP_OPT_TLS_CERT :: (Num a) => a
c'APR_LDAP_OPT_VERIFY_CERT = 28669
c'APR_LDAP_OPT_VERIFY_CERT :: (Num a) => a
c'APR_LDAP_OPT_REFERRALS = 28668
c'APR_LDAP_OPT_REFERRALS :: (Num a) => a
c'APR_LDAP_OPT_REFHOPLIMIT = 28667
c'APR_LDAP_OPT_REFHOPLIMIT :: (Num a) => a
c'APR_LDAP_CA_TYPE_UNKNOWN = 0
c'APR_LDAP_CA_TYPE_UNKNOWN :: (Num a) => a
c'APR_LDAP_CA_TYPE_DER = 1
c'APR_LDAP_CA_TYPE_DER :: (Num a) => a
c'APR_LDAP_CA_TYPE_BASE64 = 2
c'APR_LDAP_CA_TYPE_BASE64 :: (Num a) => a
c'APR_LDAP_CA_TYPE_SECMOD = 4
c'APR_LDAP_CA_TYPE_SECMOD :: (Num a) => a
c'APR_LDAP_CERT_TYPE_UNKNOWN = 5
c'APR_LDAP_CERT_TYPE_UNKNOWN :: (Num a) => a
c'APR_LDAP_CERT_TYPE_DER = 6
c'APR_LDAP_CERT_TYPE_DER :: (Num a) => a
c'APR_LDAP_CERT_TYPE_BASE64 = 7
c'APR_LDAP_CERT_TYPE_BASE64 :: (Num a) => a
c'APR_LDAP_CERT_TYPE_KEY3_DB = 8
c'APR_LDAP_CERT_TYPE_KEY3_DB :: (Num a) => a
c'APR_LDAP_CERT_TYPE_NICKNAME = 9
c'APR_LDAP_CERT_TYPE_NICKNAME :: (Num a) => a
c'APR_LDAP_KEY_TYPE_UNKNOWN = 10
c'APR_LDAP_KEY_TYPE_UNKNOWN :: (Num a) => a
c'APR_LDAP_KEY_TYPE_DER = 11
c'APR_LDAP_KEY_TYPE_DER :: (Num a) => a
c'APR_LDAP_KEY_TYPE_BASE64 = 12
c'APR_LDAP_KEY_TYPE_BASE64 :: (Num a) => a
c'APR_LDAP_CERT_TYPE_PFX = 13
c'APR_LDAP_CERT_TYPE_PFX :: (Num a) => a
c'APR_LDAP_KEY_TYPE_PFX = 14
c'APR_LDAP_KEY_TYPE_PFX :: (Num a) => a
c'APR_LDAP_CA_TYPE_CACERTDIR_BASE64 = 15
c'APR_LDAP_CA_TYPE_CACERTDIR_BASE64 :: (Num a) => a
data C'apr_ldap_opt_tls_cert_t = C'apr_ldap_opt_tls_cert_t{
c'apr_ldap_opt_tls_cert_t'type :: CInt
,
c'apr_ldap_opt_tls_cert_t'path :: Ptr CChar
,
c'apr_ldap_opt_tls_cert_t'password :: Ptr CChar
} deriving (Eq,Show)
instance Storable C'apr_ldap_opt_tls_cert_t where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'apr_ldap_opt_tls_cert_t v0 v1 v2
poke p (C'apr_ldap_opt_tls_cert_t v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
c'APR_LDAP_NONE = 0
c'APR_LDAP_NONE :: (Num a) => a
c'APR_LDAP_SSL = 1
c'APR_LDAP_SSL :: (Num a) => a
c'APR_LDAP_STARTTLS = 2
c'APR_LDAP_STARTTLS :: (Num a) => a
c'APR_LDAP_STOPTLS = 3
c'APR_LDAP_STOPTLS :: (Num a) => a
foreign import ccall "apr_ldap_get_option" c'apr_ldap_get_option
:: Ptr C'apr_pool_t -> Ptr C'LDAP -> CInt -> Ptr () -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_get_option" p'apr_ldap_get_option
:: FunPtr (Ptr C'apr_pool_t -> Ptr C'LDAP -> CInt -> Ptr () -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)
foreign import ccall "apr_ldap_set_option" c'apr_ldap_set_option
:: Ptr C'apr_pool_t -> Ptr C'LDAP -> CInt -> Ptr () -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_set_option" p'apr_ldap_set_option
:: FunPtr (Ptr C'apr_pool_t -> Ptr C'LDAP -> CInt -> Ptr () -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)