From 47658e15fdb97d2502c2e7e1948b17ac53e67ac7 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sun, 12 Sep 2010 00:31:56 +0900
Subject: [PATCH] Bindings.APR.LDAP

---
 Bindings/APR/LDAP.hsc   | 43 +++++++++++++++++++++++++++++++++++++++++
 bindings-apr-util.cabal |  1 +
 2 files changed, 44 insertions(+)
 create mode 100644 Bindings/APR/LDAP.hsc

diff --git a/Bindings/APR/LDAP.hsc b/Bindings/APR/LDAP.hsc
new file mode 100644
index 0000000..8792eed
--- /dev/null
+++ b/Bindings/APR/LDAP.hsc
@@ -0,0 +1,43 @@
+#include <bindings.dsl.h>
+#include <apr_ldap.h>
+
+module Bindings.APR.LDAP where
+#strict_import
+
+#num APR_HAS_LDAP
+
+#num APR_HAS_NETSCAPE_LDAPSDK
+#num APR_HAS_SOLARIS_LDAPSDK
+#num APR_HAS_NOVELL_LDAPSDK
+#num APR_HAS_MOZILLA_LDAPSDK
+#num APR_HAS_OPENLDAP_LDAPSDK
+#num APR_HAS_MICROSOFT_LDAPSDK
+#num APR_HAS_TIVOLI_LDAPSDK
+#num APR_HAS_ZOS_LDAPSDK
+#num APR_HAS_OTHER_LDAPSDK
+
+#if APR_HAS_LDAP
+
+#  num APR_HAS_LDAP_SSL
+#  num APR_HAS_LDAP_URL_PARSE
+
+#  num APR_HAS_LDAPSSL_CLIENT_INIT
+#  num APR_HAS_LDAPSSL_CLIENT_DEINIT
+#  num APR_HAS_LDAPSSL_ADD_TRUSTED_CERT
+#  num APR_HAS_LDAP_START_TLS_S
+#  num APR_HAS_LDAP_SSLINIT
+#  num APR_HAS_LDAPSSL_INIT
+#  num APR_HAS_LDAPSSL_INSTALL_ROUTINES
+
+#  num APR_LDAP_SIZELIMIT
+
+#  starttype struct apr_ldap_err_t
+#    field reason, Ptr CChar
+#    field msg   , Ptr CChar
+#    field rc    , CInt
+#  stoptype
+
+-- FIXME What's the type it takes?
+-- #  cinline APR_LDAP_IS_SERVER_DOWN, <unknown> -> IO CInt
+
+#endif
\ No newline at end of file
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 3f18e62..2fa2cb6 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -37,6 +37,7 @@ Library
         Bindings.APR.DBD
         Bindings.APR.DBM
         Bindings.APR.Hooks
+        Bindings.APR.LDAP
 
     C-Sources:
         cbits/helper_apr_anylock.c
-- 
2.40.0