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

+ added Scheme representation for BerElement

This commit is contained in:
eknauel 2004-01-14 09:12:47 +00:00
parent 9a5978695b
commit 33d3c4d498
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scheme/types.scm
View File

@ -68,8 +68,19 @@
(ldap-ai) (ldap-ai)
"scsh_ldapapiinfo_get_vendor_version") "scsh_ldapapiinfo_get_vendor_version")
(define-record-type ber-element :ber-element
(make-ber-element c-pointer)
ber-element?
(c-pointer ber-element-c-pointer))
(define-exported-binding "ber-element" :ber-element)
(define (ldap-success? obj) (define (ldap-success? obj)
(equal? (ldap-return success) obj)) (equal? (ldap-return success) obj))
(define convert-ldap-return-code (define convert-ldap-return-code
(make-finite-type-import-function 'ldap-return ldap-return-elements ldap-return-id)) (make-finite-type-import-function 'ldap-return ldap-return-elements ldap-return-id))
(define convert-ldap-message-type
(make-finite-type-import-function
'ldap-message-type ldap-message-type-elements ldap-message-type-id))