Mercurial > hg > xemacs-beta

comparison modules/ldap/eldap.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents 986cd22006a9
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
1 /* LDAP client interface for XEmacs. 1 /* LDAP client interface for XEmacs.
2 Copyright (C) 1998 Free Software Foundation, Inc. 2 Copyright (C) 1998 Free Software Foundation, Inc.
3 Copyright (C) 2004 Ben Wing. 3 Copyright (C) 2004, 2005 Ben Wing.
4 4
5 5
6 This file is part of XEmacs. 6 This file is part of XEmacs.
7 7
8 XEmacs is free software; you can redistribute it and/or modify it 8 XEmacs is free software; you can redistribute it and/or modify it
160 if (ldap->ld) 160 if (ldap->ld)
161 ldap_unbind (ldap->ld); 161 ldap_unbind (ldap->ld);
162 ldap->ld = NULL; 162 ldap->ld = NULL;
163 } 163 }
164 164
165 #f 0
165 DEFINE_LRECORD_IMPLEMENTATION ("ldap", ldap, 0, 166 DEFINE_LRECORD_IMPLEMENTATION ("ldap", ldap, 0,
166 mark_ldap, print_ldap, finalize_ldap, 167 mark_ldap, print_ldap, finalize_ldap,
167 NULL, NULL, ldap_description, Lisp_LDAP); 168 NULL, NULL, ldap_description, Lisp_LDAP);
168 169 #else
170 DEFINE_NONDUMPABLE_LRECORD_IMPLEMENTATION ("ldap", ldap, mark_ldap,
171 print_ldap, finalize_ldap,
172 NULL, NULL, ldap_description,
173 Lisp_LDAP);
174 #endif
169 175
170 /************************************************************************/ 176 /************************************************************************/
171 /* Basic ldap accessors */ 177 /* Basic ldap accessors */
172 /************************************************************************/ 178 /************************************************************************/
173 179
616 LDAPMod *ldap_mods, **ldap_mods_ptrs; 622 LDAPMod *ldap_mods, **ldap_mods_ptrs;
617 struct berval *bervals; 623 struct berval *bervals;
618 int rc; 624 int rc;
619 int i, j; 625 int i, j;
620 Elemcount len; 626 Elemcount len;
621
622 Lisp_Object values = Qnil; 627 Lisp_Object values = Qnil;
623 struct gcpro gcpro1; 628 struct gcpro gcpro1;
624 629
625 GCPRO1 (values); 630 GCPRO1 (values);
626 631
715 LDAPMod *ldap_mods, **ldap_mods_ptrs; 720 LDAPMod *ldap_mods, **ldap_mods_ptrs;
716 struct berval *bervals; 721 struct berval *bervals;
717 int i, j, rc; 722 int i, j, rc;
718 Lisp_Object mod_op; 723 Lisp_Object mod_op;
719 Elemcount len; 724 Elemcount len;
720
721 Lisp_Object values = Qnil; 725 Lisp_Object values = Qnil;
722 struct gcpro gcpro1; 726 struct gcpro gcpro1;
723 727
724 /* Do all the parameter checking */ 728 /* Do all the parameter checking */
725 CHECK_LIVE_LDAP (ldap); 729 CHECK_LIVE_LDAP (ldap);