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

* scheme/types.scm (ldap-entry): new type

This commit is contained in:
eknauel 2004-02-12 12:44:14 +00:00
parent 2c6c2e5a18
commit 2c206b2023
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/types.scm
View File

@ -27,6 +27,8 @@
(define (ldap-session-messages-member? session message)
(memq message (ldap-session-messages session)))
;;; This is the basic type
(define-record-type ldap-message :ldap-message
(make-ldap-message c-pointer)
ldap-message?
@ -34,6 +36,14 @@
(define-exported-binding "ldap-message" :ldap-message)
;;; The C api does not distinguish ldap-message, ldap-entry and
;;; ldap-attribute as types, they all have the type LDAPMessage. We
;;; do.
(define-record-type ldap-entry :ldap-entry
(make-ldap-entry message)
ldap-entry?
(message ldap-entry-message))
(define-record-type ldap-modification :ldap-modification
(make-ldap-modification c-pointer)
ldap-modification?