From 33d3c4d49813f7b17ab203714a11f101d9c0dc32 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Wed, 14 Jan 2004 09:12:47 +0000
Subject: [PATCH] + added Scheme representation for BerElement

---
 scheme/types.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/scheme/types.scm b/scheme/types.scm
index 67e6b1d..841e7e8 100644
--- 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))
\ No newline at end of file