Imported Upstream version 0.66.1

[hcoop/debian/courier-authlib.git] / libs / gdbmobj / gdbmobj3.c

diff --git a/libs/gdbmobj/gdbmobj3.c b/libs/gdbmobj/gdbmobj3.c
new file mode 100644 (file)
index 0000000..1b3b432
--- /dev/null
+++ b/libs/gdbmobj/gdbmobj3.c
@@ -0,0 +1,19 @@
+/*
+** Copyright 1998 - 1999 Double Precision, Inc.  See COPYING for
+** distribution information.
+*/
+
+#include       "gdbmobj.h"
+
+int    gdbmobj_delete(struct gdbmobj *obj, const char *key, size_t keylen)
+{
+datum  dkey;
+
+       if (!obj->has_dbf)      return (0);
+
+       dkey.dptr=(char *)key;
+       dkey.dsize=keylen;
+
+       if (gdbm_delete(obj->dbf, dkey))        return (-1);
+       return (0);
+}