+ added Scheme representation for BerElement

2004-01-14 09:12:47 +00:00 · 2004-01-14 09:12:47 +00:00 · 33d3c4d498
parent 9a5978695b
commit 33d3c4d498
1 changed files with 11 additions and 0 deletions
--- a/scheme/types.scm
+++ b/scheme/types.scm
@ -68,8 +68,19 @@
 			  (ldap-ai)
 			  "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)
  (equal? (ldap-return success) obj))

 (define convert-ldap-return-code 
  (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))