+ added finite type ldap-operation to represent the operator on

attributes during modifications

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)))))