48 lines
1.3 KiB
Scheme
48 lines
1.3 KiB
Scheme
|
(define-record-type ldap :ldap
|
||
|
|
(make-ldap c-pointer)
|
||
|
|
ldap?
|
||
|
|
(c-pointer ldap-c-pointer))
|
||
|
|
|
||
|
|
(define-exported-binding "ldap" :ldap)
|
||
|
|
|
||
|
|
(define-record-type ldap-message :ldap-message
|
||
|
|
(make-ldap-message c-pointer)
|
||
|
|
ldap-message?
|
||
|
|
(c-pointer ldap-message-c-pointer))
|
||
|
|
|
||
|
|
(define-exported-binding "ldap-message" :ldap-message)
|
||
|
|
|
||
|
|
(define-record-type ldap-modification :ldap-modification
|
||
|
|
(make-ldap-modification c-pointer)
|
||
|
|
ldap-modification?
|
||
|
|
(c-pointer ldap-modification-c-pointer))
|
||
|
|
|
||
|
|
(define-exported-binding "ldap-modification" :ldap-modification)
|
||
|
|
|
||
|
|
(define-record-type ldap-api-info :ldap-api-info
|
||
|
|
(make-ldap-api-info c-pointer)
|
||
|
|
ldap-api-info?
|
||
|
|
(c-pointer ldap-api-info-c-pointer))
|
||
|
|
|
||
|
|
(define-exported-binding "ldap-api-info" :ldap-api-info)
|
||
|
|
|
||
|
|
(import-lambda-definition ldap-api-info-info-version
|
||
|
|
(ldap-ai)
|
||
|
|
"scsh_ldapapiinfo_get_info_version")
|
||
|
|
|
||
|
|
(import-lambda-definition ldap-api-info-api-version
|
||
|
|
(ldap-ai)
|
||
|
|
"scsh_ldapapiinfo_get_api_version")
|
||
|
|
|
||
|
|
(import-lambda-definition ldap-api-info-protocol-version
|
||
|
|
(ldap-ai)
|
||
|
|
"scsh_ldapapiinfo_get_protocol_version")
|
||
|
|
|
||
|
|
(import-lambda-definition ldap-api-info-vendor-name
|
||
|
|
(ldap-ai)
|
||
|
|
"scsh_ldapapiinfo_get_vendor_name")
|
||
|
|
|
||
|
|
(import-lambda-definition ldap-api-info-vendor-version
|
||
|
|
(ldap-ai)
|
||
|
|
"scsh_ldapapiinfo_get_vendor_version")
|