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

+ added message type constants

This commit is contained in:
eknauel 2004-01-14 09:08:50 +00:00
parent 4c10e069ff
commit fc392a2a41
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
scheme/ldap-constants.scm
View File

@ -102,12 +102,26 @@
(make-string-constant (make-string-constant
"LDAP_ALL_USER_ATTRIBUTES" "ldap-attributes-all-user-attributes"))) "LDAP_ALL_USER_ATTRIBUTES" "ldap-attributes-all-user-attributes")))
(define ldap-message-types
(map make-constant-from-c-name-integer
'("LDAP_RES_BIND"
"LDAP_RES_SEARCH_ENTRY"
"LDAP_RES_SEARCH_REFERENCE"
"LDAP_RES_SEARCH_RESULT"
"LDAP_RES_MODIFY"
"LDAP_RES_ADD"
"LDAP_RES_DELETE"
"LDAP_RES_MODDN"
"LDAP_RES_COMPARE"
"LDAP_RES_EXTENDED")))
(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-options)) ldap-session-options
ldap-message-types))
(define (write-source-file name string) (define (write-source-file name string)
(call-with-output-file name (call-with-output-file name
@ -153,6 +167,10 @@
"ldap-session-options" (make-drop-common-prefix-name-converter "LDAP_OPT_") "ldap-session-options" (make-drop-common-prefix-name-converter "LDAP_OPT_")
ldap-session-options) ldap-session-options)
(generate-finite-type-definition
"ldap-message-types" (make-drop-common-prefix-name-converter "LDAP_RES_")
ldap-message-types)
(string-join (string-join
(map generate-binding ldap-attribute-selectors))))) (map generate-binding ldap-attribute-selectors)))))