Mercurial > hg > xemacs-beta

comparison modules/ldap/eldap.c @ 1220:848225013a08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-01-17 16:59:20 by james] Fix modules building breakage due to Ben's Dec. 16 patch.
author james
date Fri, 17 Jan 2003 16:59:26 +0000
parents 25e260cb7994
children d65d8a05e272
comparison
equal deleted inserted replaced
1219:4d3295160d6a 1220:848225013a08
98 make_ldap (Lisp_LDAP *ldap) 98 make_ldap (Lisp_LDAP *ldap)
99 { 99 {
100 return wrap_ldap (ldap); 100 return wrap_ldap (ldap);
101 } 101 }
102 102
103 #ifdef USE_KKCC 103 static const struct memory_description ldap_description [] = {
104 static const struct lrecord_description ldap_description [] = {
105 { XD_LISP_OBJECT, offsetof (struct Lisp_LDAP, host) }, 104 { XD_LISP_OBJECT, offsetof (struct Lisp_LDAP, host) },
106 { XD_END } 105 { XD_END }
107 }; 106 };
108 #endif /* USE_KKCC */
109 107
110 static Lisp_Object 108 static Lisp_Object
111 mark_ldap (Lisp_Object obj) 109 mark_ldap (Lisp_Object obj)
112 { 110 {
113 return XLDAP (obj)->host; 111 return XLDAP (obj)->host;
149 if (ldap->ld) 147 if (ldap->ld)
150 ldap_unbind (ldap->ld); 148 ldap_unbind (ldap->ld);
151 ldap->ld = NULL; 149 ldap->ld = NULL;
152 } 150 }
153 151
154 #ifdef USE_KKCC 152 DEFINE_LRECORD_IMPLEMENTATION ("ldap", ldap, 0,
155 DEFINE_LRECORD_IMPLEMENTATION ("ldap", ldap,
156 0, /*dumpable-flag*/
157 mark_ldap, print_ldap, finalize_ldap, 153 mark_ldap, print_ldap, finalize_ldap,
158 NULL, NULL, ldap_description, Lisp_LDAP); 154 NULL, NULL, ldap_description, Lisp_LDAP);
159 #else /* not USE_KKCC */
160 DEFINE_LRECORD_IMPLEMENTATION ("ldap", ldap,
161 mark_ldap, print_ldap, finalize_ldap,
162 NULL, NULL, 0, Lisp_LDAP);
163 #endif /* not USE_KKCC */
164
165 155
166 156
167 /************************************************************************/ 157 /************************************************************************/
168 /* Basic ldap accessors */ 158 /* Basic ldap accessors */
169 /************************************************************************/ 159 /************************************************************************/