comparison src/eldap.c @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents fdefd0186b75
children e38acbeb1cae
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
81 #else 81 #else
82 ldap_err = ld->ld_errno; 82 ldap_err = ld->ld_errno;
83 #endif 83 #endif
84 } 84 }
85 invalid_operation ("LDAP error", 85 invalid_operation ("LDAP error",
86 build_string (ldap_err2string (ldap_err))); 86 build_string (ldap_err2string (ldap_err)));
87 } 87 }
88 88
89 89
90 /************************************************************************/ 90 /************************************************************************/
91 /* ldap lrecord basic functions */ 91 /* ldap lrecord basic functions */
331 if (err != LDAP_SUCCESS) 331 if (err != LDAP_SUCCESS)
332 { 332 {
333 Intbyte *interrmess; 333 Intbyte *interrmess;
334 EXTERNAL_TO_C_STRING (ldap_err2string (err), interrmess, Qnative); 334 EXTERNAL_TO_C_STRING (ldap_err2string (err), interrmess, Qnative);
335 signal_error (Qprocess_error, "Failed binding to the server", 335 signal_error (Qprocess_error, "Failed binding to the server",
336 build_string (interrmess)); 336 build_intstring (interrmess));
337 } 337 }
338 338
339 ldap = allocate_ldap (); 339 ldap = allocate_ldap ();
340 ldap->ld = ld; 340 ldap->ld = ld;
341 ldap->host = host; 341 ldap->host = host;
580 580
581 /* #### See above for calling message(). */ 581 /* #### See above for calling message(). */
582 if (! NILP (verbose)) 582 if (! NILP (verbose))
583 message ("Parsing ldap results... done"); 583 message ("Parsing ldap results... done");
584 584
585 unbind_to (speccount, Qnil); 585 unbind_to (speccount);
586 UNGCPRO; 586 UNGCPRO;
587 return Fnreverse (result); 587 return Fnreverse (result);
588 } 588 }
589 589
590 DEFUN ("ldap-add", Fldap_add, 3, 3, 0, /* 590 DEFUN ("ldap-add", Fldap_add, 3, 3, 0, /*