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

* scheme/ldap.scm (ldap-get-values): unpack ldap-entry 

(ldap-count-entries): ditto
(ldap-first-entry): ditto
(ldap-next-entry): ditto
This commit is contained in:
eknauel 2004-02-12 14:29:02 +00:00
parent 90580b2fc4
commit a312de7a51
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scheme/ldap.scm
View File

@ -268,7 +268,7 @@
"scsh_ldap_get_values")
(define (ldap-get-values session entry attribute-name)
(or (ldap-get-values-internal session entry attribute-name)
(or (ldap-get-values-internal session (ldap-entry-message entry) attribute-name)
(raise-ldap-condition (ldap-get-error-return-object session) session)))
;;;
@ -340,28 +340,28 @@
(session message)
"scsh_ldap_next_entry")
(define (ldap-count-entries session message)
(or (ldap-count-entries-internal session message)
(define (ldap-count-entries session entry)
(or (ldap-count-entries-internal session (ldap-entry-message entry))
(raise-ldap-condition (ldap-get-error-return-object session) session)))
(define (ldap-first-entry session message)
(define (ldap-first-entry session entry)
(cond
((ldap-first-entry-internal session message)
((ldap-first-entry-internal session (ldap-entry-message entry))
=> (lambda (new-message)
(add-finalizer! new-message ldap-message-finalizer)
new-message))
(make-ldap-entry new-message)))
(else
(let ((ret-obj (ldap-get-error-return-object session)))
(if (ldap-success? ret-obj)
#f
(raise-ldap-condition ret-obj session))))))
(define (ldap-next-entry session message)
(define (ldap-next-entry session entry)
(cond
((ldap-next-entry-internal session message)
((ldap-next-entry-internal session (ldap-entry-message entry))
=> (lambda (new-message)
(add-finalizer! new-message ldap-message-finalizer)
new-message))
(make-ldap-entry new-message)))
(else
(let ((ret-obj (ldap-get-error-return-object session)))
(if (ldap-success? ret-obj)