static Lisp_LDAP *allocate_ldap(void) { Lisp_LDAP *ldap = alloc_lcrecord_type(Lisp_LDAP, &lrecord_ldap); ldap->ld = NULL; ldap->host = Qnil; return ldap; }
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; }