Mercurial > hg > xemacs-beta

comparison src/database.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 4c038e89d563
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
129 129
130 130
131 static Lisp_Database * 131 static Lisp_Database *
132 allocate_database (void) 132 allocate_database (void)
133 { 133 {
134 Lisp_Database *db = ALLOC_LCRECORD_TYPE (Lisp_Database, &lrecord_database); 134 Lisp_Object obj = ALLOC_LISP_OBJECT (database);
135 Lisp_Database *db = XDATABASE (obj);
135 136
136 db->fname = Qnil; 137 db->fname = Qnil;
137 db->live_p = 0; 138 db->live_p = 0;
138 #ifdef HAVE_BERKELEY_DB 139 #ifdef HAVE_BERKELEY_DB
139 db->db_handle = NULL; 140 db->db_handle = NULL;
192 wrap_database (db)); 193 wrap_database (db));
193 } 194 }
194 db->funcs->close (db); 195 db->funcs->close (db);
195 } 196 }
196 197
197 DEFINE_LRECORD_IMPLEMENTATION ("database", database, 198 DEFINE_NONDUMPABLE_LISP_OBJECT ("database", database,
198 0, /*dumpable-flag*/ 199 mark_database, print_database,
199 mark_database, print_database, 200 finalize_database, 0, 0,
200 finalize_database, 0, 0, 201 database_description,
201 database_description, 202 Lisp_Database);
202 Lisp_Database);
203 203
204 DEFUN ("close-database", Fclose_database, 1, 1, 0, /* 204 DEFUN ("close-database", Fclose_database, 1, 1, 0, /*
205 Close database DATABASE. 205 Close database DATABASE.
206 */ 206 */
207 (database)) 207 (database))
814 } 814 }
815 815
816 void 816 void
817 syms_of_database (void) 817 syms_of_database (void)
818 { 818 {
819 INIT_LRECORD_IMPLEMENTATION (database); 819 INIT_LISP_OBJECT (database);
820 820
821 DEFSYMBOL (Qdatabasep); 821 DEFSYMBOL (Qdatabasep);
822 #ifdef HAVE_DBM 822 #ifdef HAVE_DBM
823 DEFSYMBOL (Qdbm); 823 DEFSYMBOL (Qdbm);
824 #endif 824 #endif