module Bindings.APR.LDAP 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
c'APR_HAS_LDAP = 1
c'APR_HAS_LDAP :: (Num a) => a
c'APR_HAS_NETSCAPE_LDAPSDK = 0
c'APR_HAS_NETSCAPE_LDAPSDK :: (Num a) => a
c'APR_HAS_SOLARIS_LDAPSDK = 0
c'APR_HAS_SOLARIS_LDAPSDK :: (Num a) => a
c'APR_HAS_NOVELL_LDAPSDK = 0
c'APR_HAS_NOVELL_LDAPSDK :: (Num a) => a
c'APR_HAS_MOZILLA_LDAPSDK = 0
c'APR_HAS_MOZILLA_LDAPSDK :: (Num a) => a
c'APR_HAS_OPENLDAP_LDAPSDK = 1
c'APR_HAS_OPENLDAP_LDAPSDK :: (Num a) => a
c'APR_HAS_MICROSOFT_LDAPSDK = 0
c'APR_HAS_MICROSOFT_LDAPSDK :: (Num a) => a
c'APR_HAS_TIVOLI_LDAPSDK = 0
c'APR_HAS_TIVOLI_LDAPSDK :: (Num a) => a
c'APR_HAS_ZOS_LDAPSDK = 0
c'APR_HAS_ZOS_LDAPSDK :: (Num a) => a
c'APR_HAS_OTHER_LDAPSDK = 0
c'APR_HAS_OTHER_LDAPSDK :: (Num a) => a
c'APR_HAS_LDAP_SSL = 1
c'APR_HAS_LDAP_SSL :: (Num a) => a
c'APR_HAS_LDAP_URL_PARSE = 0
c'APR_HAS_LDAP_URL_PARSE :: (Num a) => a
data C'LDAP = C'LDAP
c'APR_HAS_LDAPSSL_CLIENT_INIT = 0
c'APR_HAS_LDAPSSL_CLIENT_INIT :: (Num a) => a
c'APR_HAS_LDAPSSL_CLIENT_DEINIT = 0
c'APR_HAS_LDAPSSL_CLIENT_DEINIT :: (Num a) => a
c'APR_HAS_LDAPSSL_ADD_TRUSTED_CERT = 0
c'APR_HAS_LDAPSSL_ADD_TRUSTED_CERT :: (Num a) => a
c'APR_HAS_LDAP_START_TLS_S = 1
c'APR_HAS_LDAP_START_TLS_S :: (Num a) => a
c'APR_HAS_LDAP_SSLINIT = 0
c'APR_HAS_LDAP_SSLINIT :: (Num a) => a
c'APR_HAS_LDAPSSL_INIT = 0
c'APR_HAS_LDAPSSL_INIT :: (Num a) => a
c'APR_HAS_LDAPSSL_INSTALL_ROUTINES = 0
c'APR_HAS_LDAPSSL_INSTALL_ROUTINES :: (Num a) => a
c'APR_LDAP_SIZELIMIT = 0
c'APR_LDAP_SIZELIMIT :: (Num a) => a
data C'apr_ldap_err_t = C'apr_ldap_err_t{
c'apr_ldap_err_t'reason :: Ptr CChar
,
c'apr_ldap_err_t'msg :: Ptr CChar
,
c'apr_ldap_err_t'rc :: CInt
} deriving (Eq,Show)
instance Storable C'apr_ldap_err_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_err_t v0 v1 v2
poke p (C'apr_ldap_err_t v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
foreign import ccall "inline_APR_LDAP_IS_SERVER_DOWN" c'APR_LDAP_IS_SERVER_DOWN
:: CInt -> IO CInt