scsh-ldap/scheme/interfaces.scm

(define-interface ldap-low-interface
  (export
   ldap-init
   ldap-simple-bind
   ldap-simple-bind-as-nobody
   ldap-sasl-bind
   ldap-unbind
   ldap-search

   set-ldap-session-option!
   ldap-session-option

   ldap-first-message
   ldap-next-message
   ldap-count-messages
   
   ldap-get-message-type
   ldap-get-message-id
   
   ldap-first-attribute
   ldap-next-attribute
   ldap-all-attributes

   ldap-get-values
   ldap-compare
   ldap-message-dn
   ldap-explode-dn
   ldap-explode-rdn
   ldap-make-dn-userfriendly
   
   ldap-count-entries
   ldap-first-entry
   ldap-next-entry

   ldap-count-references
   ldap-first-reference
   ldap-next-reference))
   
(define-interface ldap-conditions-interface
  (export
   raise-ldap-condition

   &ldap-error ldap-error? ldap-error-code ldap-error-session
   &ldap-security-error ldap-security-error?
   &ldap-service-error ldap-service-error?
   &ldap-data-error ldap-data-error?

   &ldap-bindings-internal-error ldap-bindings-internal-error?
   &ldap-bindings-not-implemented ldap-bindings-not-implemented?
   &ldap-implicit-unbind ldap-implicit-unbind?
   &ldap-session-option-error ldap-session-option-error?
   &ldap-operations-error ldap-operations-error?
   &ldap-protocol-error ldap-protocol-error?
   &ldap-timelimit-exceeded ldap-timelimit-exceeded?
   &ldap-sizelimit-exceeded ldap-sizelimit-exceeded?
   &ldap-strong-auth-not-supported ldap-strong-auth-not-supported?
   &ldap-strong-auth-required ldap-strong-auth-required?
   &ldap-adminlimit-exceeded ldap-adminlimit-exceeded?
   &ldap-critical-extension-unavailable ldap-critical-extension-unavailable?
   &ldap-confidentiality-required ldap-confidentiality-required?
   &ldap-sasl-bind-in-progress ldap-sasl-bind-in-progress?
   &ldap-no-such-attribute ldap-no-such-attribute?
   &ldap-undefined-type ldap-undefined-type?
   &ldap-inappropriate-type ldap-inappropriate-type?
   &ldap-insufficient-access ldap-insufficient-access?
   &ldap-busy ldap-busy?
   &ldap-unavailable ldap-unavailable?
   &ldap-unwilling-to-perform ldap-unwilling-to-perform?
   &ldap-loop-detect ldap-loop-detect?
   &ldap-invalid-syntax ldap-invalid-syntax?
   &ldap-invalid-dn-syntax ldap-invalid-dn-syntax?
   &ldap-naming-violation ldap-naming-violation?
   &ldap-constraint-violation ldap-constraint-violation?
   &ldap-type-or-value-exists ldap-type-or-value-exists?
   &ldap-objectclass-violation ldap-objectclass-violation?
   &ldap-not-allowed-on-leaf ldap-not-allowed-on-leaf?
   &ldap-not-allowed-on-rdn ldap-not-allowed-on-rdn?
   &ldap-already-exists ldap-already-exists?
   &ldap-no-such-object ldap-no-such-object?
   &ldap-alias-problem ldap-alias-problem?
   &ldap-alias-deref-problem ldap-alias-deref-problem?
   &ldap-referral-limit-exceeded ldap-referral-limit-exceeded?
   &ldap-no-objectclass-mods ldap-no-objectclass-mods?
   &ldap-results-too-large ldap-results-too-large?
   &ldap-affects-multiple-dsas ldap-affects-multiple-dsas?
   &ldap-server-down ldap-server-down?
   &ldap-local-error ldap-local-error?
   &ldap-encoding-error ldap-encoding-error?
   &ldap-decoding-error ldap-decoding-error?
   &ldap-timeout-error ldap-timeout-error?
   &ldap-auth-unknown ldap-auth-unknown?
   &ldap-filter-error ldap-filter-error?
   &ldap-param-error ldap-param-error?
   &ldap-no-memory ldap-no-memory?
   &ldap-connect-error ldap-connect-error?
   &ldap-not-supported ldap-not-supported?
   &ldap-control-not-found ldap-control-not-found?
   &ldap-referral-limit-exceeded ldap-referral-limit-exceeded?))

(define-interface ldap-handle-types-interface
  (export
   ldap-session?
   ldap-session-bound?
   set-ldap-session-bound?!
   ldap-session-options
   ldap-session-messages
   set-ldap-session-messages!

   ldap-entry?
   make-ldap-entry
   ldap-entry-message

   ldap-message?
   ldap-modification?

   ldap-api-info?
   ldap-api-info-info-version
   ldap-api-info-api-version
   ldap-api-info-protocol-version
   ldap-api-info-vendor-name
   ldap-api-info-vendor-version

   make-session-options
   set-ldap-session-options!
   ldap-session-implicit-unbind-ok?
   ldap-session-auto-unbind?

   ldap-session-messages-adjoin!))

(define-interface ldap-return-interface
  (export
   ldap-return-object?
   ldap-return-elements
   ldap-return-name
   (ldap-return :syntax)
   convert-ldap-return-code
   ldap-success?))
  

(define-interface ldap-option-version-interface
  (export
   ldap-option-version-object?
   ldap-option-version-elements
   ldap-option-version-name
   (ldap-option-version :syntax)))

(define-interface ldap-scope-arguments-interface
  (export
   ldap-scope-arguments-object?
   ldap-scope-arguments-elements
   ldap-scope-arguments-name
   ldap-scope-arguments-id
   (ldap-scope-arguments :syntax)))

(define-interface ldap-session-option-values-interface
  (export
   ldap-session-option-value-object?
   ldap-session-option-value-elements
   ldap-session-option-value-name
   ldap-session-option-value-id
   (ldap-session-option-value :syntax)))

(define-interface ldap-message-types-interface
  (export
   ldap-message-types-object?
   ldap-message-types-elements
   ldap-message-types-name
   (ldap-message-types :syntax)
   convert-ldap-message-type))

(define-interface ldap-attributes-special-values-interfaces
  (export 
   ldap-attributes-no-attribute
   ldap-attributes-all-user-attributes))

(define-interface ldap-types-interface
  (compound-interface
   ldap-return-interface   
   ldap-option-version-interface
   ldap-scope-arguments-interface
   ldap-session-option-values-interface
   ldap-message-types-interface
   ldap-attributes-special-values-interfaces
   ;;
   ldap-handle-types-interface))