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

+ changed ldap-modification to hold the actual information that is 

needed to create LDAPMod records.
This commit is contained in:
eknauel 2004-02-16 08:32:18 +00:00
parent 216139daa6
commit 7122c8a1e6
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scheme/types.scm
View File

@ -40,12 +40,22 @@
(ldap-message-c-pointer session-b))) (ldap-message-c-pointer session-b)))
(define-record-type ldap-modification :ldap-modification (define-record-type ldap-modification :ldap-modification
(make-ldap-modification c-pointer) (really-make-ldap-modification operator type value-list)
ldap-modification? ldap-modification?
(c-pointer ldap-modification-c-pointer)) (operator really-ldap-modification-operator)
(type ldap-modification-type)
(value-list ldap-modification-value-list))
(define-exported-binding "ldap-modification" :ldap-modification) (define-exported-binding "ldap-modification" :ldap-modification)
(define (make-ldap-modification operator type value-list)
(really-make-ldap-modification
(ldap-operation-id operator) type value-list))
(define (ldap-modification-operator ldap-modification)
(convert-ldap-operation
(really-make-ldap-modification ldap-modification)))
(define-record-type ldap-api-info :ldap-api-info (define-record-type ldap-api-info :ldap-api-info
(make-ldap-api-info c-pointer) (make-ldap-api-info c-pointer)
ldap-api-info? ldap-api-info?
@ -89,3 +99,7 @@
(define convert-ldap-message-type (define convert-ldap-message-type
(make-finite-type-import-function (make-finite-type-import-function
'ldap-message-types ldap-message-types-elements ldap-message-types-id)) 'ldap-message-types ldap-message-types-elements ldap-message-types-id))
(define convert-ldap-operation
(make-finite-type-import-function
'ldap-operation ldap-operation-elements ldap-operation-id))