From 216139daa6e929ae4cdedcf40851da9ab4bcc6b1 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Mon, 16 Feb 2004 08:30:46 +0000
Subject: [PATCH] + added finite type ldap-operation to represent the operator
 on   attributes during modifications

---
 scheme/ldap-constants.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/scheme/ldap-constants.scm b/scheme/ldap-constants.scm
index dc0de59..42b50e4 100644
--- a/scheme/ldap-constants.scm
+++ b/scheme/ldap-constants.scm
@@ -115,13 +115,20 @@
 	     "LDAP_RES_COMPARE"
 	     "LDAP_RES_EXTENDED")))
 
+    (define ldap-operation
+      (map make-constant-from-c-name-integer
+	   '("LDAP_MOD_ADD"
+	     "LDAP_MOD_DELETE"
+	     "LDAP_MOD_REPLACE")))
+
     (define ldap-all-constants
       (append ldap-return-codes
 	      ldap-opt-protocol-version
 	      ldap-scope-arguments
 	      ldap-attribute-selectors
 	      ldap-session-option-values
-	      ldap-message-types))
+	      ldap-message-types
+	      ldap-operation))
 	   
     (define (write-source-file name string)
       (call-with-output-file name
@@ -175,6 +182,10 @@
 	 "ldap-message-types" (make-drop-common-prefix-name-converter "LDAP_RES_")
 	 ldap-message-types)
 
+	(generate-finite-type-definition
+	 "ldap-operation" (make-drop-common-prefix-name-converter "LDAP_MOD_")
+	 ldap-operation)
+
 	(string-join
 	 (map generate-binding ldap-attribute-selectors)))))