1999-11-16 07:25:48 -08:00
|
|
|
/***********************************************************************/
|
|
|
|
|
/* */
|
|
|
|
|
/* Objective Caml */
|
|
|
|
|
/* */
|
|
|
|
|
/* Francois Rouaix, projet Cristal, INRIA Rocquencourt */
|
|
|
|
|
/* */
|
|
|
|
|
/* Copyright 1996 Institut National de Recherche en Informatique et */
|
1999-11-17 10:59:06 -08:00
|
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
|
|
|
/* under the terms of the GNU Library General Public License. */
|
1999-11-16 07:25:48 -08:00
|
|
|
/* */
|
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
1998-02-23 04:42:23 -08:00
|
|
|
/* A DB is a finalized value containing
|
|
|
|
|
* a pointer to the DB,
|
|
|
|
|
* a pointer to the openstruct
|
|
|
|
|
* (this could be removed if we were sure that the library doesn't keep
|
|
|
|
|
* a pointer to it !)
|
|
|
|
|
*/
|
|
|
|
|
struct camldb {
|
|
|
|
|
final_fun f;
|
|
|
|
|
DB *db;
|
|
|
|
|
BTREEINFO *info;
|
|
|
|
|
int closed;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#define Max_dballoc 1000000
|
|
|
|
|
|
|
|
|
|
#define Camldb_wosize \
|
|
|
|
|
((sizeof(struct camldb) + sizeof(value) - 1) / sizeof(value))
|
|
|
|
|
|
|
|
|
|
#define Camldb_db(v) (((struct camldb *)(Bp_val(v)))->db)
|
|
|
|
|
#define Camldb_info(v) (((struct camldb *)(Bp_val(v)))->info)
|
|
|
|
|
#define Camldb_closed(v) (((struct camldb *)(Bp_val(v)))->closed)
|
|
|
|
|
|
|
|
|
|
#define Is_string(v) (Is_block(v) && (Tag_val(v) == String_tag))
|
