summary refs log tree commit diff
path: root/db2/db185/db185.c
diff options
context:
space:
mode:
Diffstat (limited to 'db2/db185/db185.c')
-rw-r--r--db2/db185/db185.c472
1 files changed, 472 insertions, 0 deletions
diff --git a/db2/db185/db185.c b/db2/db185/db185.c
new file mode 100644
index 0000000000..933f55c813
--- /dev/null
+++ b/db2/db185/db185.c
@@ -0,0 +1,472 @@
+/*-
+ * See the file LICENSE for redistribution information.
+ *
+ * Copyright (c) 1996, 1997
+ *	Sleepycat Software.  All rights reserved.
+ */
+
+#include "config.h"
+
+#ifndef lint
+static const char copyright[] =
+"@(#) Copyright (c) 1997\n\
+	Sleepycat Software Inc.  All rights reserved.\n";
+static const char sccsid[] = "@(#)db185.c	8.13 (Sleepycat) 8/24/97";
+#endif
+
+#ifndef NO_SYSTEM_INCLUDES
+#include <sys/types.h>
+
+#include <errno.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#endif
+
+#include "db_int.h"
+#include "db185_int.h"
+#include "common_ext.h"
+
+static int db185_close __P((DB185 *));
+static int db185_del __P((const DB185 *, const DBT185 *, u_int));
+static int db185_fd __P((const DB185 *));
+static int db185_get __P((const DB185 *, const DBT185 *, DBT185 *, u_int));
+static int db185_put __P((const DB185 *, DBT185 *, const DBT185 *, u_int));
+static int db185_seq __P((const DB185 *, DBT185 *, DBT185 *, u_int));
+static int db185_sync __P((const DB185 *, u_int));
+
+DB185 *
+__dbopen(file, oflags, mode, type, openinfo)
+	const char *file;
+	int oflags, mode;
+	DBTYPE type;
+	const void *openinfo;
+{
+	const BTREEINFO *bi;
+	const HASHINFO *hi;
+	const RECNOINFO *ri;
+	DB *dbp;
+	DB185 *db185p;
+	DB_INFO dbinfo, *dbinfop;
+	int s_errno;
+
+	if ((db185p = (DB185 *)calloc(1, sizeof(DB185))) == NULL)
+		return (NULL);
+	dbinfop = NULL;
+	memset(&dbinfo, 0, sizeof(dbinfo));
+
+	/*
+	 * !!!
+	 * The DBTYPE enum wasn't initialized in DB 185, so it's off-by-one
+	 * from DB 2.0.
+	 */
+	switch (type) {
+	case 0:					/* DB_BTREE */
+		type = DB_BTREE;
+		if ((bi = openinfo) != NULL) {
+			dbinfop = &dbinfo;
+			if (bi->flags & ~R_DUP)
+				goto einval;
+			if (bi->flags & R_DUP)
+				dbinfop->flags |= DB_DUP;
+			dbinfop->db_cachesize = bi->cachesize;
+			dbinfop->bt_maxkey = bi->maxkeypage;
+			dbinfop->bt_minkey = bi->minkeypage;
+			dbinfop->db_pagesize = bi->psize;
+			/*
+			 * !!!
+			 * Comparisons and prefix calls work because the DBT
+			 * structures in 1.85 and 2.0 have the same initial
+			 * fields.
+			 */
+			dbinfop->bt_compare = bi->compare;
+			dbinfop->bt_prefix = bi->prefix;
+			dbinfop->db_lorder = bi->lorder;
+		}
+		break;
+	case 1:					/* DB_HASH */
+		type = DB_HASH;
+		if ((hi = openinfo) != NULL) {
+			dbinfop = &dbinfo;
+			dbinfop->db_pagesize = hi->bsize;
+			dbinfop->h_ffactor = hi->ffactor;
+			dbinfop->h_nelem = hi->nelem;
+			dbinfop->db_cachesize = hi->cachesize;
+			dbinfop->h_hash = hi->hash;
+			dbinfop->db_lorder = hi->lorder;
+		}
+
+		break;
+	case 2:					/* DB_RECNO */
+		type = DB_RECNO;
+		dbinfop = &dbinfo;
+
+		/* DB 1.85 did renumbering by default. */
+		dbinfop->flags |= DB_RENUMBER;
+
+		/*
+		 * !!!
+		 * The file name given to DB 1.85 recno is the name of the DB
+		 * 2.0 backing file.  If the file doesn't exist, create it if
+		 * the user has the O_CREAT flag set, DB 1.85 did it for you,
+		 * and DB 2.0 doesn't.
+		 *
+		 * !!!
+		 * Note, the file name in DB 1.85 was a const -- we don't do
+		 * that in DB 2.0, so do that cast.
+		 */
+		if (file != NULL) {
+			if (oflags & O_CREAT && __db_exists(file, NULL) != 0)
+				(void)close(open(file, oflags, mode));
+			dbinfop->re_source = (char *)file;
+			file = NULL;
+		}
+
+		if ((ri = openinfo) != NULL) {
+			/*
+			 * !!!
+			 * We can't support the bfname field.
+			 */
+#define	BFMSG	"DB: DB 1.85's recno bfname field is not supported.\n"
+			if (ri->bfname != NULL) {
+				(void)write(2, BFMSG, sizeof(BFMSG) - 1);
+				goto einval;
+			}
+
+			if (ri->flags & ~(R_FIXEDLEN | R_NOKEY | R_SNAPSHOT))
+				goto einval;
+			if (ri->flags & R_FIXEDLEN) {
+				dbinfop->flags |= DB_FIXEDLEN;
+				if (ri->bval != 0) {
+					dbinfop->flags |= DB_PAD;
+					dbinfop->re_pad = ri->bval;
+				}
+			} else
+				if (ri->bval != 0) {
+					dbinfop->flags |= DB_DELIMITER;
+					dbinfop->re_delim = ri->bval;
+				}
+
+			/*
+			 * !!!
+			 * We ignore the R_NOKEY flag, but that's okay, it was
+			 * only an optimization that was never implemented.
+			 */
+
+			if (ri->flags & R_SNAPSHOT)
+				dbinfop->flags |= DB_SNAPSHOT;
+
+			dbinfop->db_cachesize = ri->cachesize;
+			dbinfop->db_pagesize = ri->psize;
+			dbinfop->db_lorder = ri->lorder;
+			dbinfop->re_len = ri->reclen;
+		}
+		break;
+	default:
+		goto einval;
+	}
+
+	db185p->close = db185_close;
+	db185p->del = db185_del;
+	db185p->fd = db185_fd;
+	db185p->get = db185_get;
+	db185p->put = db185_put;
+	db185p->seq = db185_seq;
+	db185p->sync = db185_sync;
+
+	/*
+	 * !!!
+	 * Store the returned pointer to the real DB 2.0 structure in the
+	 * internal pointer.  Ugly, but we're not going for pretty, here.
+	 */
+	if ((errno = db_open(file,
+	    type, __db_oflags(oflags), mode, NULL, dbinfop, &dbp)) != 0) {
+		free(db185p);
+		return (NULL);
+	}
+
+	/* Create the cursor used for sequential ops. */
+	if ((errno = dbp->cursor(dbp, NULL, &((DB185 *)db185p)->dbc)) != 0) {
+		s_errno = errno;
+		(void)dbp->close(dbp, 0);
+		free(db185p);
+		errno = s_errno;
+		return (NULL);
+	}
+
+	db185p->internal = dbp;
+	return (db185p);
+
+einval:	free(db185p);
+	errno = EINVAL;
+	return (NULL);
+}
+weak_alias (__dbopen, dbopen)
+
+static int
+db185_close(db185p)
+	DB185 *db185p;
+{
+	DB *dbp;
+
+	dbp = (DB *)db185p->internal;
+
+	errno = dbp->close(dbp, 0);
+
+	free(db185p);
+
+	return (errno == 0 ? 0 : -1);
+}
+
+static int
+db185_del(db185p, key185, flags)
+	const DB185 *db185p;
+	const DBT185 *key185;
+	u_int flags;
+{
+	DB *dbp;
+	DBT key;
+
+	dbp = (DB *)db185p->internal;
+
+	memset(&key, 0, sizeof(key));
+	key.data = key185->data;
+	key.size = key185->size;
+
+	if (flags & ~R_CURSOR)
+		goto einval;
+	if (flags & R_CURSOR)
+		errno = db185p->dbc->c_del(db185p->dbc, 0);
+	else
+		errno = dbp->del(dbp, NULL, &key, 0);
+
+	switch (errno) {
+	case 0:
+		return (0);
+	case DB_NOTFOUND:
+		return (1);
+	}
+	return (-1);
+
+einval:	errno = EINVAL;
+	return (-1);
+}
+
+static int
+db185_fd(db185p)
+	const DB185 *db185p;
+{
+	DB *dbp;
+	int fd;
+
+	dbp = (DB *)db185p->internal;
+
+	return ((errno = dbp->fd(dbp, &fd)) == 0 ? fd : -1);
+}
+
+static int
+db185_get(db185p, key185, data185, flags)
+	const DB185 *db185p;
+	const DBT185 *key185;
+	DBT185 *data185;
+	u_int flags;
+{
+	DB *dbp;
+	DBT key, data;
+
+	dbp = (DB *)db185p->internal;
+
+	memset(&key, 0, sizeof(key));
+	key.data = key185->data;
+	key.size = key185->size;
+	memset(&data, 0, sizeof(data));
+	data.data = data185->data;
+	data.size = data185->size;
+
+	if (flags)
+		goto einval;
+
+	switch (errno = dbp->get(dbp, NULL, &key, &data, 0)) {
+	case 0:
+		data185->data = data.data;
+		data185->size = data.size;
+		return (0);
+	case DB_NOTFOUND:
+		return (1);
+	}
+	return (-1);
+
+einval:	errno = EINVAL;
+	return (-1);
+}
+
+static int
+db185_put(db185p, key185, data185, flags)
+	const DB185 *db185p;
+	DBT185 *key185;
+	const DBT185 *data185;
+	u_int flags;
+{
+	DB *dbp;
+	DBC *dbcp_put;
+	DBT key, data;
+	int s_errno;
+
+	dbp = (DB *)db185p->internal;
+
+	memset(&key, 0, sizeof(key));
+	key.data = key185->data;
+	key.size = key185->size;
+	memset(&data, 0, sizeof(data));
+	data.data = data185->data;
+	data.size = data185->size;
+
+	switch (flags) {
+	case 0:
+		errno = dbp->put(dbp, NULL, &key, &data, 0);
+		break;
+	case R_CURSOR:
+		errno =
+		    db185p->dbc->c_put(db185p->dbc, &key, &data, DB_CURRENT);
+		break;
+	case R_IAFTER:
+	case R_IBEFORE:
+		if (dbp->type != DB_RECNO)
+			goto einval;
+
+		if ((errno = dbp->cursor(dbp, NULL, &dbcp_put)) != 0)
+			return (-1);
+		if ((errno =
+		    dbcp_put->c_get(dbcp_put, &key, &data, DB_SET)) != 0) {
+			s_errno = errno;
+			(void)dbcp_put->c_close(dbcp_put);
+			errno = s_errno;
+			return (-1);
+		}
+		memset(&data, 0, sizeof(data));
+		data.data = data185->data;
+		data.size = data185->size;
+		errno = dbcp_put->c_put(dbcp_put,
+		    &key, &data, flags == R_IAFTER ? DB_AFTER : DB_BEFORE);
+		s_errno = errno;
+		(void)dbcp_put->c_close(dbcp_put);
+		errno = s_errno;
+		break;
+	case R_NOOVERWRITE:
+		errno = dbp->put(dbp, NULL, &key, &data, DB_NOOVERWRITE);
+		break;
+	case R_SETCURSOR:
+		if (dbp->type != DB_BTREE && dbp->type != DB_RECNO)
+			goto einval;
+
+		if ((errno = dbp->put(dbp, NULL, &key, &data, 0)) != 0)
+			break;
+		errno =
+		    db185p->dbc->c_get(db185p->dbc, &key, &data, DB_SET_RANGE);
+		break;
+	default:
+		goto einval;
+	}
+
+	switch (errno) {
+	case 0:
+		key185->data = key.data;
+		key185->size = key.size;
+		return (0);
+	case DB_KEYEXIST:
+		return (1);
+	}
+	return (-1);
+
+einval:	errno = EINVAL;
+	return (-1);
+}
+
+static int
+db185_seq(db185p, key185, data185, flags)
+	const DB185 *db185p;
+	DBT185 *key185, *data185;
+	u_int flags;
+{
+	DB *dbp;
+	DBT key, data;
+
+	dbp = (DB *)db185p->internal;
+
+	memset(&key, 0, sizeof(key));
+	key.data = key185->data;
+	key.size = key185->size;
+	memset(&data, 0, sizeof(data));
+	data.data = data185->data;
+	data.size = data185->size;
+
+	switch (flags) {
+	case R_CURSOR:
+		flags = DB_SET_RANGE;
+		break;
+	case R_FIRST:
+		flags = DB_FIRST;
+		break;
+	case R_LAST:
+		if (dbp->type != DB_BTREE && dbp->type != DB_RECNO)
+			goto einval;
+		flags = DB_LAST;
+		break;
+	case R_NEXT:
+		flags = DB_NEXT;
+		break;
+	case R_PREV:
+		if (dbp->type != DB_BTREE && dbp->type != DB_RECNO)
+			goto einval;
+		flags = DB_PREV;
+		break;
+	default:
+		goto einval;
+	}
+	switch (errno = db185p->dbc->c_get(db185p->dbc, &key, &data, flags)) {
+	case 0:
+		key185->data = key.data;
+		key185->size = key.size;
+		data185->data = data.data;
+		data185->size = data.size;
+		return (0);
+	case DB_NOTFOUND:
+		return (1);
+	}
+	return (-1);
+
+einval:	errno = EINVAL;
+	return (-1);
+}
+
+static int
+db185_sync(db185p, flags)
+	const DB185 *db185p;
+	u_int flags;
+{
+	DB *dbp;
+
+	dbp = (DB *)db185p->internal;
+
+	switch (flags) {
+	case 0:
+		break;
+	case R_RECNOSYNC:
+		/*
+		 * !!!
+		 * We can't support the R_RECNOSYNC flag.
+		 */
+#define	RSMSG	"DB: DB 1.85's R_RECNOSYNC sync flag is not supported.\n"
+		(void)write(2, RSMSG, sizeof(RSMSG) - 1);
+		goto einval;
+	default:
+		goto einval;
+	}
+
+	return ((errno = dbp->sync(dbp, 0)) == 0 ? 0 : -1);
+
+einval:	errno = EINVAL;
+	return (-1);
+}
generated by cgit-pink 1.4.1 (git 2.36.1) at 2024-12-16 18:04:03 +0000