1 files changed, 165 insertions, 0 deletions
diff --git a/gdbmobj/testgdbm.C b/gdbmobj/testgdbm.C
new file mode 100644
index 0000000..6723609
--- /dev/null
+++ b/gdbmobj/testgdbm.C
@@ -0,0 +1,165 @@
+#include	"gdbmobj.h"
+#include	<stdio.h>
+#include	<string.h>
+
+/* either egcs or libc breaks fwrite on some platforms -- this is confirmed */
+
+static void fw(char *p, size_t a, size_t b, FILE *f)
+{
+size_t i, j=a*b;
+
+	for (i=0; i<j; i++)
+		putc(p[i], f);
+}
+
+struct	kd {
+	struct kd *next;
+	char *key, *data;
+	} ;
+
+static int kdcmp (const void *a, const void *b)
+{
+	return (strcmp(  (*(const struct kd **)a)->key,
+		(*(const struct kd **)b)->key));
+}
+
+int main(int argc, char **argv)
+{
+	if (argc < 2)	exit(1);
+
+	if (argc < 3)
+	{
+	GdbmObj	dbw;
+	char	*key, *data;
+	size_t	keylen, datalen;
+	struct	kd *kdlist, **kdarray;
+	size_t	kdcnt;
+
+		if (dbw.Open(argv[1], "R"))
+		{
+			perror("open");
+			exit(1);
+		}
+
+		printf("Dumping %s:\n", argv[1]);
+		kdlist=0;
+		kdcnt=0;
+		for (key=dbw.FetchFirstKeyVal(keylen, data, datalen);
+			key; key=dbw.FetchNextKeyVal(keylen, data, datalen))
+		{
+		struct kd *k=(struct kd *)malloc(sizeof(struct kd));
+
+			if (!k)
+			{
+				perror("malloc");
+				exit(1);
+			}
+			if ((k->key=(char *)malloc(keylen+1)) == 0 ||
+				(k->data=(char *)malloc(datalen+1)) == 0)
+			{
+				perror("malloc");
+				exit(1);
+			}
+			memcpy(k->key, key, keylen);
+			k->key[keylen]=0;
+			memcpy(k->data, data, datalen);
+			k->data[datalen]=0;
+			free(data);
+			++kdcnt;
+			k->next=kdlist;
+			kdlist=k;
+		}
+
+		if ((kdarray=(struct kd **)
+			malloc( (kdcnt+1)*sizeof(struct kd *))) == 0)
+		{
+			perror("malloc");
+			exit(1);
+		}
+		kdcnt=0;
+		while ( kdlist )
+		{
+			kdarray[kdcnt++]=kdlist;
+			kdlist=kdlist->next;
+		}
+		kdarray[kdcnt]=0;
+
+		qsort( kdarray, kdcnt, sizeof(kdarray[0]), &kdcmp);
+
+		for (kdcnt=0; kdarray[kdcnt]; kdcnt++)
+		{
+			printf("Key: ");
+			fw(kdarray[kdcnt]->key, strlen(kdarray[kdcnt]->key),
+				1, stdout);
+			printf(", Data: ");
+			fw(kdarray[kdcnt]->data, strlen(kdarray[kdcnt]->data),
+				1, stdout);
+			printf("\n");
+			free(kdarray[kdcnt]->key);
+			free(kdarray[kdcnt]->data);
+			free(kdarray[kdcnt]);
+		}
+		free(kdarray);
+		dbw.Close();
+	} else if (argc < 4 && argv[2][0] == '-')
+	{
+	GdbmObj	dbw;
+
+		if (dbw.Open(argv[1], "W"))
+		{
+			perror("open");
+			exit(1);
+		}
+
+		printf("Deleting %s from %s:\n", argv[2], argv[1]);
+		if (dbw.Delete(argv[2]+1, strlen(argv[2]+1)))
+			fprintf(stderr, "Not found.\n");
+
+		dbw.Close();
+	} else if (argc < 4)
+	{
+	GdbmObj	dbw;
+
+		if (dbw.Open(argv[1], "R"))
+		{
+			perror("open");
+			exit(1);
+		}
+
+	size_t len;
+	char *val=dbw.Fetch(argv[2], strlen(argv[2]), len, 0);
+
+		if (!val)
+		{
+			fprintf(stderr, "%s: not found.\n", argv[2]);
+			exit(1);
+		}
+		printf("Fetching %s from %s: ", argv[2], argv[1]);
+		fw(val, len, 1, stdout);
+		printf("\n");
+		free(val);
+		dbw.Close();
+	}
+	else
+	{
+	GdbmObj	dbw;
+
+		if (dbw.Open(argv[1], "C"))
+		{
+			perror("open");
+			exit(1);
+		}
+
+		printf("Storing %s/%s into %s:\n", argv[2], argv[3], argv[1]);
+		if (dbw.Store(argv[2], strlen(argv[2]),
+			argv[3], strlen(argv[3]), "R"))
+		{
+			perror("write");
+			exit(1);
+		}
+
+		dbw.Close();
+	}
+	exit(0);
+	return (0);
+}