*** empty log message ***
This commit is contained in:
eknauel
commit
a25a3daae0
|
|
@ -0,0 +1,28 @@
|
||||||
|
# CVS default ignores begin
|
||||||
|
tags
|
||||||
|
TAGS
|
||||||
|
.make.state
|
||||||
|
.nse_depinfo
|
||||||
|
*~
|
||||||
|
\#*
|
||||||
|
.#*
|
||||||
|
,*
|
||||||
|
_$*
|
||||||
|
*$
|
||||||
|
*.old
|
||||||
|
*.bak
|
||||||
|
*.BAK
|
||||||
|
*.orig
|
||||||
|
*.rej
|
||||||
|
.del-*
|
||||||
|
*.a
|
||||||
|
*.olb
|
||||||
|
*.o
|
||||||
|
*.obj
|
||||||
|
*.so
|
||||||
|
*.exe
|
||||||
|
*.Z
|
||||||
|
*.elc
|
||||||
|
*.ln
|
||||||
|
core
|
||||||
|
# CVS default ignores end
|
||||||
|
|
@ -0,0 +1,126 @@
|
||||||
|
#include "scsh-ldap.h"
|
||||||
|
|
||||||
|
s48_value scsh_enter_ldap(LDAP *ldap)
|
||||||
|
{
|
||||||
|
s48_value rec = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(rec);
|
||||||
|
rec = s48_make_record(scsh_ldap_record_type);
|
||||||
|
S48_RECORD_SET(rec, 0, s48_enter_integer((long) ldap));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return rec;
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_enter_ldapmessage(LDAPMessage *lm)
|
||||||
|
{
|
||||||
|
s48_value rec = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(rec);
|
||||||
|
rec = s48_make_record(scsh_ldapmessage_record_type);
|
||||||
|
S48_RECORD_SET(rec, 0, s48_enter_integer((long) lm));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return rec;
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_open(s48_value host, s48_value port)
|
||||||
|
{
|
||||||
|
LDAP *ldap;
|
||||||
|
S48_DECLARE_GC_PROTECT(2);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_2(host, port);
|
||||||
|
ldap = ldap_open(s48_extract_string(host), s48_extract_integer(port));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return ldap == NULL ? S48_FALSE : scsh_enter_ldap(ldap);
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_init(s48_value host, s48_value port)
|
||||||
|
{
|
||||||
|
LDAP *ldap;
|
||||||
|
S48_DECLARE_GC_PROTECT(2);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_2(host, port);
|
||||||
|
ldap = ldap_init(s48_extract_string(host), s48_extract_integer(port));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return ldap == NULL ? S48_FALSE : scsh_enter_ldap(ldap);
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_bind_s(s48_value ldap, s48_value user,
|
||||||
|
s48_value cred, s48_value method)
|
||||||
|
{
|
||||||
|
int r;
|
||||||
|
S48_DECLARE_GC_PROTECT(4);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_4(ldap, user, cred, method);
|
||||||
|
r = ldap_bind_s(scsh_extract_ldap(ldap), s48_extract_string(user),
|
||||||
|
s48_extract_string(cred), s48_extract_integer(method));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return s48_enter_integer(r);
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_simple_bind_s(s48_value ldap, s48_value user, s48_value cred)
|
||||||
|
{
|
||||||
|
int r;
|
||||||
|
S48_DECLARE_GC_PROTECT(3);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_3(ldap, user, cred);
|
||||||
|
r = ldap_simple_bind_s(scsh_extract_ldap(ldap), s48_extract_string(user),
|
||||||
|
s48_extract_string(cred));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_unbind_s(s48_value ldap)
|
||||||
|
{
|
||||||
|
return s48_enter_integer(ldap_unbind_s(scsh_extract_ldap(ldap)));
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_error_string(s48_value errcode)
|
||||||
|
{
|
||||||
|
return s48_enter_string(ldap_err2string(s48_extract_integer(errcode)));
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_result_error(s48_value ldap, s48_value res)
|
||||||
|
{
|
||||||
|
int r;
|
||||||
|
S48_DECLARE_GC_PROTECT(2);
|
||||||
|
|
||||||
|
S48_GC_PROTECT_2(ldap, res);
|
||||||
|
r = s48_enter_integer(ldap_result2error(scsh_extract_ldap(ldap),
|
||||||
|
scsh_extract_ldapmessage(res), 0));
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
|
return s48_enter_integer(r);
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_memfree(s48_value ldap)
|
||||||
|
{
|
||||||
|
ldap_memfree(scsh_extract_ldap(ldap));
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
|
}
|
||||||
|
|
||||||
|
s48_value scsh_ldap_msgfree(s48_value ldapmsg)
|
||||||
|
{
|
||||||
|
ldap_msgfree(scsh_extract_ldapmessage(ldapmsg));
|
||||||
|
return S48_UNSPECIFIC;
|
||||||
|
}
|
||||||
|
|
||||||
|
void scsh_ldap_main(void)
|
||||||
|
{
|
||||||
|
S48_GC_PROTECT_GLOBAL(scsh_ldap_record_type);
|
||||||
|
scsh_ldap_record_type = s48_get_imported_binding("ldap");
|
||||||
|
|
||||||
|
S48_GC_PROTECT_GLOBAL(scsh_ldapmessage_record_type);
|
||||||
|
scsh_ldapmessage_record_type = s48_get_imported_binding("ldap-message");
|
||||||
|
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_open);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_init);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_bind_s);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_simple_bind_s);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_unbind_s);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_error_string);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_result_error);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_memfree);
|
||||||
|
S48_EXPORT_FUNCTION(scsh_ldap_msgfree);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
@ -0,0 +1,19 @@
|
||||||
|
#include "scheme48.h"
|
||||||
|
#include <stddef.h>
|
||||||
|
#include <ldap.h>
|
||||||
|
|
||||||
|
static s48_value scsh_ldap_record_type = S48_FALSE;
|
||||||
|
static s48_value scsh_ldapmessage_record_type = S48_FALSE;
|
||||||
|
|
||||||
|
s48_value scsh_enter_ldap(LDAP *ldap);
|
||||||
|
#define scsh_extract_ldap(x) \
|
||||||
|
((LDAP *) \
|
||||||
|
s48_extract_integer(S48_RECORD_REF(x, 0)))
|
||||||
|
|
||||||
|
s48_value scsh_enter_ldapmessage(LDAPMessage *lm);
|
||||||
|
#define scsh_extract_ldapmessage(x) \
|
||||||
|
((LDAPMessage *) \
|
||||||
|
s48_extract_integer(S48_RECORD_REF(x, 0)))
|
||||||
|
|
||||||
|
void scsh_ldap_main(void);
|
||||||
|
|
||||||
|
|
@ -0,0 +1,59 @@
|
||||||
|
(define-record-type ldap :ldap
|
||||||
|
(make-ldap c-pointer)
|
||||||
|
ldap?
|
||||||
|
(c-pointer ldap-c-pointer))
|
||||||
|
|
||||||
|
(define-exported-binding "ldap" :ldap)
|
||||||
|
|
||||||
|
(define-record-type ldap-message :ldap-message
|
||||||
|
(make-ldap-message c-pointer)
|
||||||
|
ldap-message?
|
||||||
|
(c-pointer ldap-message-c-pointer))
|
||||||
|
|
||||||
|
(define-exported-binding "ldap-message" :ldap-message)
|
||||||
|
|
||||||
|
(define (ldap-open host port)
|
||||||
|
(let ((ldap (ldap-open-internal host port)))
|
||||||
|
(if ldap (add-finalizer! ldap ldap-memfree))
|
||||||
|
ldap))
|
||||||
|
|
||||||
|
(define (ldap-init host port)
|
||||||
|
(let ((ldap (ldap-init-internal host port)))
|
||||||
|
(if ldap (add-finalizer! ldap ldap-memfree))
|
||||||
|
ldap))
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-open-internal
|
||||||
|
(host port)
|
||||||
|
"scsh_ldap_open")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-init-internal
|
||||||
|
(host port)
|
||||||
|
"scsh_ldap_init")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-bind-sync
|
||||||
|
(ldap user password method)
|
||||||
|
"scsh_ldap_bind_s")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-simple-bind-sync
|
||||||
|
(ldap user password)
|
||||||
|
"scsh_ldap_simple_bind_s")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-unbind-sync
|
||||||
|
(ldap)
|
||||||
|
"scsh_ldap_unbind_s")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-error-string
|
||||||
|
(error-code)
|
||||||
|
"scsh_ldap_error_string")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-result-error
|
||||||
|
(ldap result)
|
||||||
|
"scsh_ldap_result_error")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-memfree
|
||||||
|
(ldap)
|
||||||
|
"scsh_ldap_memfree")
|
||||||
|
|
||||||
|
(import-lambda-definition ldap-msgfree
|
||||||
|
(ldap)
|
||||||
|
"scsh_ldap_msgfree")
|
||||||
Loading…
Reference in New Issue