module Bindings.APR.LDAP.URL 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
data C'apr_ldap_url_desc_t = C'apr_ldap_url_desc_t{
c'apr_ldap_url_desc_t'lud_next :: Ptr C'apr_ldap_url_desc_t
,
c'apr_ldap_url_desc_t'lud_scheme :: Ptr CChar
,
c'apr_ldap_url_desc_t'lud_host :: Ptr CChar
,
c'apr_ldap_url_desc_t'lud_port :: CInt
,
c'apr_ldap_url_desc_t'lud_dn :: Ptr CChar
,
c'apr_ldap_url_desc_t'lud_attrs :: Ptr (Ptr CChar)
,
c'apr_ldap_url_desc_t'lud_scope :: CInt
,
c'apr_ldap_url_desc_t'lud_filter :: Ptr CChar
,
c'apr_ldap_url_desc_t'lud_exts :: Ptr (Ptr CChar)
,
c'apr_ldap_url_desc_t'lud_crit_exts :: CInt
} deriving (Eq,Show)
instance Storable C'apr_ldap_url_desc_t where
sizeOf _ = 40
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
v5 <- peekByteOff p 20
v6 <- peekByteOff p 24
v7 <- peekByteOff p 28
v8 <- peekByteOff p 32
v9 <- peekByteOff p 36
return $ C'apr_ldap_url_desc_t v0 v1 v2 v3 v4 v5 v6 v7 v8 v9
poke p (C'apr_ldap_url_desc_t v0 v1 v2 v3 v4 v5 v6 v7 v8 v9) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
pokeByteOff p 20 v5
pokeByteOff p 24 v6
pokeByteOff p 28 v7
pokeByteOff p 32 v8
pokeByteOff p 36 v9
return ()
c'APR_LDAP_URL_SUCCESS = 0
c'APR_LDAP_URL_SUCCESS :: (Num a) => a
c'APR_LDAP_URL_ERR_MEM = 1
c'APR_LDAP_URL_ERR_MEM :: (Num a) => a
c'APR_LDAP_URL_ERR_PARAM = 2
c'APR_LDAP_URL_ERR_PARAM :: (Num a) => a
c'APR_LDAP_URL_ERR_BADSCHEME = 3
c'APR_LDAP_URL_ERR_BADSCHEME :: (Num a) => a
c'APR_LDAP_URL_ERR_BADENCLOSURE = 4
c'APR_LDAP_URL_ERR_BADENCLOSURE :: (Num a) => a
c'APR_LDAP_URL_ERR_BADURL = 5
c'APR_LDAP_URL_ERR_BADURL :: (Num a) => a
c'APR_LDAP_URL_ERR_BADHOST = 6
c'APR_LDAP_URL_ERR_BADHOST :: (Num a) => a
c'APR_LDAP_URL_ERR_BADATTRS = 7
c'APR_LDAP_URL_ERR_BADATTRS :: (Num a) => a
c'APR_LDAP_URL_ERR_BADSCOPE = 8
c'APR_LDAP_URL_ERR_BADSCOPE :: (Num a) => a
c'APR_LDAP_URL_ERR_BADFILTER = 9
c'APR_LDAP_URL_ERR_BADFILTER :: (Num a) => a
c'APR_LDAP_URL_ERR_BADEXTS = 10
c'APR_LDAP_URL_ERR_BADEXTS :: (Num a) => a
foreign import ccall "apr_ldap_is_ldap_url" c'apr_ldap_is_ldap_url
:: Ptr CChar -> IO CInt
foreign import ccall "&apr_ldap_is_ldap_url" p'apr_ldap_is_ldap_url
:: FunPtr (Ptr CChar -> IO CInt)
foreign import ccall "apr_ldap_is_ldaps_url" c'apr_ldap_is_ldaps_url
:: Ptr CChar -> IO CInt
foreign import ccall "&apr_ldap_is_ldaps_url" p'apr_ldap_is_ldaps_url
:: FunPtr (Ptr CChar -> IO CInt)
foreign import ccall "apr_ldap_is_ldapi_url" c'apr_ldap_is_ldapi_url
:: Ptr CChar -> IO CInt
foreign import ccall "&apr_ldap_is_ldapi_url" p'apr_ldap_is_ldapi_url
:: FunPtr (Ptr CChar -> IO CInt)
foreign import ccall "apr_ldap_url_parse_ext" c'apr_ldap_url_parse_ext
:: Ptr C'apr_pool_t -> Ptr CChar -> Ptr (Ptr C'apr_ldap_url_desc_t) -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_url_parse_ext" p'apr_ldap_url_parse_ext
:: FunPtr (Ptr C'apr_pool_t -> Ptr CChar -> Ptr (Ptr C'apr_ldap_url_desc_t) -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)
foreign import ccall "apr_ldap_url_parse" c'apr_ldap_url_parse
:: Ptr C'apr_pool_t -> Ptr CChar -> Ptr (Ptr C'apr_ldap_url_desc_t) -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt
foreign import ccall "&apr_ldap_url_parse" p'apr_ldap_url_parse
:: FunPtr (Ptr C'apr_pool_t -> Ptr CChar -> Ptr (Ptr C'apr_ldap_url_desc_t) -> Ptr (Ptr C'apr_ldap_err_t) -> IO CInt)