Bindings/APR/LDAP/URL.hsc

   1 #include <bindings.dsl.h>
   2 #include <apr_ldap.h>
   3 #include <apr_ldap_url.h>
   4
   5 module Bindings.APR.LDAP.URL where
   6 #strict_import
   7 import Bindings.APR.LDAP
   8 import Bindings.APR.Pools
   9
  10 #if APR_HAS_LDAP
  11
  12 #  starttype struct apr_ldap_url_desc_t
  13 #    field lud_next  , Ptr <apr_ldap_url_desc_t>
  14 #    field lud_scheme, Ptr CChar
  15 #    field lud_host  , Ptr CChar
  16 #    field lud_port  , CInt
  17 #    field lud_dn    , Ptr CChar
  18 #    field lud_attrs , Ptr (Ptr CChar)
  19 #    field lud_scope , CInt
  20 #    field lud_filter, Ptr CChar
  21 #    field lud_exts  , Ptr (Ptr CChar)
  22 #    field lud_crit_exts, CInt
  23 #  stoptype
  24
  25 #  num APR_LDAP_URL_SUCCESS
  26 #  num APR_LDAP_URL_ERR_MEM
  27 #  num APR_LDAP_URL_ERR_PARAM
  28 #  num APR_LDAP_URL_ERR_BADSCHEME
  29 #  num APR_LDAP_URL_ERR_BADENCLOSURE
  30 #  num APR_LDAP_URL_ERR_BADURL
  31 #  num APR_LDAP_URL_ERR_BADHOST
  32 #  num APR_LDAP_URL_ERR_BADATTRS
  33 #  num APR_LDAP_URL_ERR_BADSCOPE
  34 #  num APR_LDAP_URL_ERR_BADFILTER
  35 #  num APR_LDAP_URL_ERR_BADEXTS
  36
  37 #  ccall apr_ldap_is_ldap_url  , Ptr CChar -> IO CInt
  38 #  ccall apr_ldap_is_ldaps_url , Ptr CChar -> IO CInt
  39 #  ccall apr_ldap_is_ldapi_url , Ptr CChar -> IO CInt
  40 #  ccall apr_ldap_url_parse_ext, Ptr <apr_pool_t> -> Ptr CChar -> Ptr (Ptr <apr_ldap_url_desc_t>) -> Ptr (Ptr <apr_ldap_err_t>) -> IO CInt
  41 #  ccall apr_ldap_url_parse    , Ptr <apr_pool_t> -> Ptr CChar -> Ptr (Ptr <apr_ldap_url_desc_t>) -> Ptr (Ptr <apr_ldap_err_t>) -> IO CInt
  42
  43 #endif