scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

attributes during modifications
This commit is contained in:
eknauel 2004-02-16 08:30:46 +00:00
parent b9e53e5cc6
commit 216139daa6
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scheme/ldap-constants.scm
View File

@ -115,13 +115,20 @@
"LDAP_RES_COMPARE" "LDAP_RES_COMPARE"
"LDAP_RES_EXTENDED"))) "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 (define ldap-all-constants
(append ldap-return-codes (append ldap-return-codes
ldap-opt-protocol-version ldap-opt-protocol-version
ldap-scope-arguments ldap-scope-arguments
ldap-attribute-selectors ldap-attribute-selectors
ldap-session-option-values ldap-session-option-values
ldap-message-types)) ldap-message-types
ldap-operation))
(define (write-source-file name string) (define (write-source-file name string)
(call-with-output-file name (call-with-output-file name
@ -175,6 +182,10 @@
"ldap-message-types" (make-drop-common-prefix-name-converter "LDAP_RES_") "ldap-message-types" (make-drop-common-prefix-name-converter "LDAP_RES_")
ldap-message-types) ldap-message-types)
(generate-finite-type-definition
"ldap-operation" (make-drop-common-prefix-name-converter "LDAP_MOD_")
ldap-operation)
(string-join (string-join
(map generate-binding ldap-attribute-selectors))))) (map generate-binding ldap-attribute-selectors)))))