From 613987fbcff40ada6aaed5165c8d64147bcca232 Mon Sep 17 00:00:00 2001 From: eknauel Date: Thu, 8 Jan 2004 07:42:22 +0000 Subject: [PATCH] + renamed ldap-interfaces.scm -> interfaces.scm, ldap-packages.scm -> packages.scm + various changes --- scheme/interfaces.scm | 75 ++++++++++++++++++++++++++++++++++++++ scheme/ldap-interfaces.scm | 24 ------------ scheme/ldap-packages.scm | 7 ---- scheme/packages.scm | 19 ++++++++++ 4 files changed, 94 insertions(+), 31 deletions(-) create mode 100644 scheme/interfaces.scm delete mode 100644 scheme/ldap-interfaces.scm delete mode 100644 scheme/ldap-packages.scm create mode 100644 scheme/packages.scm diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm new file mode 100644 index 0000000..baaeee6 --- /dev/null +++ b/scheme/interfaces.scm @@ -0,0 +1,75 @@ +(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-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 + + ldap-return-object? + ldap-return-elements)) + +(define-interface ldap-conditions-interface + (export + &ldap-error ldap-error? ldap-error-code ldap-error-session + &ldap-security-error ldap-security-error? + &ldap-connection-error ldap-connection-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-naming-violation ldap-naming-violation? + &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-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?)) diff --git a/scheme/ldap-interfaces.scm b/scheme/ldap-interfaces.scm deleted file mode 100644 index f333714..0000000 --- a/scheme/ldap-interfaces.scm +++ /dev/null @@ -1,24 +0,0 @@ -(define-interface ldap-low-interface - (export - ldap? - ldap-message? - - ldap-open - ldap-init - ldap-bind-sync - ldap-unbind-sync - ldap-error-string - ldap-result-error)) - -(define-interface ldap-types-interface - (export - ldap? - 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)) diff --git a/scheme/ldap-packages.scm b/scheme/ldap-packages.scm deleted file mode 100644 index 85bc54d..0000000 --- a/scheme/ldap-packages.scm +++ /dev/null @@ -1,7 +0,0 @@ -(define-structure ldap-low ldap-low-interface - (open scheme - define-record-types - primitives - external-calls - ffi-tools-rts) - (files ldap const-gen)) diff --git a/scheme/packages.scm b/scheme/packages.scm new file mode 100644 index 0000000..bb4a717 --- /dev/null +++ b/scheme/packages.scm @@ -0,0 +1,19 @@ +(define-structure ldap-low ldap-low-interface + (open scheme + define-record-types + primitives + external-calls + srfi-34 srfi-35 + ffi-tools-rts) + (files ldap)) + +(define-structure ldap-types ldap-types-interface + (open scheme + define-record-types + external-calls) + (files types const-gen)) + +(define-structure ldap-conditions ldap-conditions-interface + (open scheme + srfi-34 srfi-35) + (files conditions))