scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

conditions for ldap-filters

This commit is contained in:
eknauel 2004-04-15 14:01:40 +00:00
parent e0ca103bd4
commit 707ad709ed
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
scheme/conditions.scm
View File

@ -180,6 +180,20 @@
(define-condition-type &ldap-referral-limit-exceeded &ldap-error (define-condition-type &ldap-referral-limit-exceeded &ldap-error
ldap-referral-limit-exceeded?) ldap-referral-limit-exceeded?)
;; ldap filter conditions
(define-condition-type &ldap-filter-error &ldap-error
ldap-filter-error?)
(define-condition-type &ldap-filter-wrong-type &ldap-filter-error
ldap-filter-wrong-type?
(expected ldap-filter-wrong-type-expected)
(value ldap-filter-wrong-type-value))
(define-condition-type &ldap-filter-internal-error &ldap-filter-error
ldap-filter-internal-error?
(what ldap-filter-internal-error-what))
(define raise-ldap-condition (define raise-ldap-condition
(let ((alist (let ((alist
`((,(ldap-return operations-error) ,&ldap-operations-error) `((,(ldap-return operations-error) ,&ldap-operations-error)
@ -246,3 +260,15 @@
(raise (raise
(condition (&ldap-bindings-internal-error (condition (&ldap-bindings-internal-error
(code return-object))))))))) (code return-object)))))))))
; conditions raised in ldap-filter
(define-condition-type &ldap-filter-wrong-type &ldap-error
ldap-filter-wrong-type?
(expected ldap-filter-wrong-type-expected)
(value ldap-filter-wrong-type-value))
(define-condition-type &ldap-filter-internal-error &ldap-error
ldap-filter-internal-error?
(what ldap-filter-internal-error-what))