Exemple #1
0
static Lisp_LDAP *allocate_ldap(void)
{
	Lisp_LDAP *ldap = alloc_lcrecord_type(Lisp_LDAP, &lrecord_ldap);

	ldap->ld = NULL;
	ldap->host = Qnil;
	return ldap;
}
Exemple #2
0
static Lisp_Database *
allocate_database (void)
{
  Lisp_Database *db = alloc_lcrecord_type (Lisp_Database, &lrecord_database);

  db->fname = Qnil;
  db->live_p = 0;
#ifdef HAVE_BERKELEY_DB
  db->db_handle = NULL;
#endif
#ifdef HAVE_DBM
  db->dbm_handle = NULL;
#endif
  db->access_ = 0;
  db->mode = 0;
  db->dberrno = 0;
#ifdef MULE
  db->coding_system = Fget_coding_system (Qbinary);
#endif
  return db;
}