(define-record-type ldap :ldap
  (make-ldap c-pointer)
  ldap?
  (c-pointer ldap-c-pointer))

(define-exported-binding "ldap" :ldap)

(define-record-type ldap-message :ldap-message
  (make-ldap-message c-pointer)
  ldap-message?
  (c-pointer ldap-message-c-pointer))

(define-exported-binding "ldap-message" :ldap-message)

(define (ldap-open host port)
  (let ((ldap (ldap-open-internal host port)))
    (if ldap (add-finalizer! ldap ldap-memfree))
    ldap))

(define (ldap-init host port)
  (let ((ldap (ldap-init-internal host port)))
    (if ldap (add-finalizer! ldap ldap-memfree))
    ldap))

(import-lambda-definition ldap-open-internal
			  (host port)
			  "scsh_ldap_open")

(import-lambda-definition ldap-init-internal
			  (host port)
			  "scsh_ldap_init")

(import-lambda-definition ldap-bind
			  (ldap user password method)
			  "scsh_ldap_bind_s")

(import-lambda-definition ldap-simple-bind
			  (ldap user password)
			  "scsh_ldap_simple_bind_s")

(import-lambda-definition ldap-kerberos-bind
			  (ldap dn)
			  "scsh_ldap_kerberos_bind_s")

(import-lambda-definition ldap-unbind
			  (ldap)
			  "scsh_ldap_unbind_s")

(import-lambda-definition ldap-error-string
			  (error-code)
			  "scsh_ldap_error_string")

(import-lambda-definition ldap-result-error
			  (ldap result)
			  "scsh_ldap_result_error")

(import-lambda-definition ldap-memfree
			  (ldap)
			  "scsh_ldap_memfree")

(import-lambda-definition ldap-msgfree
			  (ldap)
			  "scsh_ldap_msgfree")

(import-lambda-definition ldap-search
			  (ldap base scope filter attributes attributes-only?)
			  "scsh_ldap_search_s")

(import-lambda-definition ldap-search-timeout
			  (ldap base scope filter attributes attributes-only?
		           timeout-secs timeout-usecs)
			  "scsh_ldap_search_st")

(import-lambda-definition ldap-count-entries 
			  (ldap message)
			  "scsh_ldap_count_entries")

(import-lambda-definition ldap-first-entry
			  (ldap message)
			  "scsh_ldap_first_entry")

(import-lambda-definition ldap-next-entry
			  (ldap message)
			  "scsh_ldap_next_entry")

(import-lambda-definition ldap-message-type
			  (message)
			  "scsh_ldap_msgtype")

(import-lambda-definition ldap-message-id
			  (message)
			  "scsh_ldap_msgid")

(import-lambda-definition ldap-get-values
			  (ldap message attribute)
			  "scsh_ldap_get_values")