X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=blobdiff_plain;f=Bindings%2FAPR%2FLDAP%2FInit.hsc;fp=Bindings%2FAPR%2FLDAP%2FInit.hsc;h=381d2977bfd0726f52162003a86c44d236589824;hp=0000000000000000000000000000000000000000;hb=af77c96df168360682b58a83f49eee1cbdf6535c;hpb=47658e15fdb97d2502c2e7e1948b17ac53e67ac7

diff --git a/Bindings/APR/LDAP/Init.hsc b/Bindings/APR/LDAP/Init.hsc
new file mode 100644
index 0000000..381d297
--- /dev/null
+++ b/Bindings/APR/LDAP/Init.hsc
@@ -0,0 +1,19 @@
+#include <bindings.dsl.h>
+#include <apr_ldap_init.h>
+
+module Bindings.APR.LDAP.Init where
+#strict_import
+import Bindings.APR.LDAP
+import Bindings.APR.Pools
+
+#if APR_HAS_LDAP
+
+#  num APU_LDAP_INSUFFICIENT_ACCESS
+#  cinline APU_LDAP_SECURITY_ERROR, CInt -> IO CInt
+
+#  ccall apr_ldap_ssl_init  , Ptr <apr_pool_t> -> Ptr CChar -> CInt -> Ptr (Ptr <apr_ldap_err_t>) -> IO CInt
+#  ccall apr_ldap_ssl_deinit, IO CInt
+#  ccall apr_ldap_init      , Ptr <apr_pool_t> -> Ptr (Ptr <LDAP>) -> Ptr CChar -> CInt -> CInt -> Ptr (Ptr <apr_ldap_err_t>) -> IO CInt
+#  ccall apr_ldap_info      , Ptr <apr_pool_t> -> Ptr (Ptr <apr_ldap_err_t>) -> IO CInt
+
+#endif