scsh-ldap/scheme/interfaces.scm

(define-interface ldap-low-interface
  (export
   ldap-open
   ldap-init
   ldap-bind-sync
   ldap-unbind-sync
   ldap-error-string
   ldap-result-error))

(define-interface ldap-conditions-interface
  (export
   &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-session-option-error ldap-session-option-error?
   &ldap-implicit-unbind ldap-implicit-unbind?
   &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-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))

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

(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 :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 :syntax)))

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

(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))