Mercurial > hg > xemacs-beta

comparison modules/ldap/eldap.c @ 2387:7ee6ea4ff5c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-11-14 01:43:02 by ben] fix eldap * ldap/eldap.c (Fldap_modify) Need braces around EXTERNAL_LIST_LOOP_2.
author ben
date Sun, 14 Nov 2004 01:43:12 +0000
parents ecf1ebac70d8
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2386:ecfffd1549ba 2387:7ee6ea4ff5c0
765 len = (Elemcount) XINT (Flength (values)); 765 len = (Elemcount) XINT (Flength (values));
766 bervals = alloca_array (struct berval, len); 766 bervals = alloca_array (struct berval, len);
767 ldap_mods[i].mod_vals.modv_bvals = 767 ldap_mods[i].mod_vals.modv_bvals =
768 alloca_array (struct berval *, 1 + len); 768 alloca_array (struct berval *, 1 + len);
769 j = 0; 769 j = 0;
770 EXTERNAL_LIST_LOOP_2 (cur2, values) 770 {
771 { 771 EXTERNAL_LIST_LOOP_2 (cur2, values)
772 CHECK_STRING (cur2); 772 {
773 ldap_mods[i].mod_vals.modv_bvals[j] = &(bervals[j]); 773 CHECK_STRING (cur2);
774 TO_EXTERNAL_FORMAT (LISP_STRING, cur2, 774 ldap_mods[i].mod_vals.modv_bvals[j] = &(bervals[j]);
775 ALLOCA, (bervals[j].bv_val, 775 TO_EXTERNAL_FORMAT (LISP_STRING, cur2,
776 bervals[j].bv_len), 776 ALLOCA, (bervals[j].bv_val,
777 Qnative); 777 bervals[j].bv_len),
778 j++; 778 Qnative);
779 } 779 j++;
780 ldap_mods[i].mod_vals.modv_bvals[j] = NULL; 780 }
781 i++; 781 ldap_mods[i].mod_vals.modv_bvals[j] = NULL;
782 i++;
783 }
782 } 784 }
783 } 785 }
784 ldap_mods_ptrs[i] = NULL; 786 ldap_mods_ptrs[i] = NULL;
785 rc = ldap_modify_s (ld, NEW_LISP_STRING_TO_EXTERNAL (dn, Qnative), 787 rc = ldap_modify_s (ld, NEW_LISP_STRING_TO_EXTERNAL (dn, Qnative),
786 ldap_mods_ptrs); 788 ldap_mods_ptrs);