33 lines
819 B
C
33 lines
819 B
C
#include "scheme48.h"
|
|
#include "config.h"
|
|
|
|
#include <stdlib.h>
|
|
#include <sys/time.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)))
|
|
|
|
/* conditions */
|
|
static s48_value raise_ldap_memory_alloc_error = S48_FALSE;
|
|
|
|
#define RAISE_MEMORY_ALLOC_ERROR(FUNNAME) \
|
|
s48_call_scheme(S48_SHARED_BINDING_REF(raise_ldap_memory_alloc_error), \
|
|
1, s48_enter_string(FUNNAME));
|
|
|
|
char** scsh_extract_string_vector(s48_value vector);
|
|
|
|
void scsh_ldap_main(void);
|
|
|