comparison src/eldap.h @ 282:c42ec1d1cded r21-0b39

Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children 57709be46d1b
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
36 #define XSETLDAP(x, p) XSETRECORD (x, p, ldap) 36 #define XSETLDAP(x, p) XSETRECORD (x, p, ldap)
37 #define LDAPP(x) RECORDP (x, ldap) 37 #define LDAPP(x) RECORDP (x, ldap)
38 #define GC_LDAPP(x) GC_RECORDP (x, ldap) 38 #define GC_LDAPP(x) GC_RECORDP (x, ldap)
39 #define CHECK_LDAP(x) CHECK_RECORD (x, ldap) 39 #define CHECK_LDAP(x) CHECK_RECORD (x, ldap)
40 #define CONCHECK_LDAP(x) CONCHECK_RECORD (x, ldap) 40 #define CONCHECK_LDAP(x) CONCHECK_RECORD (x, ldap)
41 #define LDAP_LIVE_P(x) (EQ (x->status_symbol, Qopen))
42 41
43 #define CHECK_LIVE_LDAP(ldap) do { \ 42 #define CHECK_LIVE_LDAP(ldap) do { \
44 CHECK_LDAP (ldap); \ 43 CHECK_LDAP (ldap); \
45 if (!LDAP_LIVE_P (XLDAP (ldap))) \ 44 if (!XLDAP (ldap)->livep) \
46 signal_simple_error ("Attempting to access closed LDAP connection", \ 45 signal_simple_error ("Attempting to access closed LDAP connection", \
47 ldap); \ 46 ldap); \
48 } while (0) 47 } while (0)
49 48
50 49
51 50
52 51