#include "scheme48.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);