BSD 4_4_Lite1 release
[unix-history] / usr / src / lib / libc / db / hash / ndbm.c
index 8c2939e..89b9916 100644 (file)
 /*-
 /*-
- * Copyright (c) 1990 The Regents of the University of California.
- * All rights reserved.
+ * Copyright (c) 1990, 1993
+ *     The Regents of the University of California.  All rights reserved.
  *
  * This code is derived from software contributed to Berkeley by
  * Margo Seltzer.
  *
  *
  * This code is derived from software contributed to Berkeley by
  * Margo Seltzer.
  *
- * %sccs.include.redist.c%
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
  */
 
 #if defined(LIBC_SCCS) && !defined(lint)
  */
 
 #if defined(LIBC_SCCS) && !defined(lint)
-static char sccsid[] = "@(#)ndbm.c     5.2 (Berkeley) %G%";
+static char sccsid[] = "@(#)ndbm.c     8.2 (Berkeley) 9/11/93";
 #endif /* LIBC_SCCS and not lint */
 
 /*
 #endif /* LIBC_SCCS and not lint */
 
 /*
   This package provides a dbm compatible interface to the new hashing
-    package described in db(3)
-*/
* This package provides a dbm compatible interface to the new hashing
+ * package described in db(3).
+ */
 
 #include <sys/param.h>
 
 #include <sys/param.h>
+
 #include <ndbm.h>
 #include <ndbm.h>
-#include <stddef.h>
+#include <stdio.h>
+#include <string.h>
+
 #include "hash.h"
 
 /*
 #include "hash.h"
 
 /*
-    return     *DBM on success
-               NULL on failure
-*/
+ * Returns:
+ *     *DBM on success
+ *      NULL on failure
+ */
 extern DBM *
 extern DBM *
-dbm_open( file, flags, mode )
-char   *file;
-int    flags;
-int    mode;
+dbm_open(file, flags, mode)
+       const char *file;
+       int flags, mode;
 {
 {
-    HASHINFO   info;
-    char path[MAXPATHLEN];
-
-    info.bsize = 1024;
-    info.ffactor = 5;
-    info.nelem = 1;
-    info.ncached = NULL;
-    info.hash = NULL;
-    info.lorder = 0;
-    (void)sprintf(path, "%s%s", file, DBM_SUFFIX);
-    return( hash_open ( path, flags, mode, &info ) );
+       HASHINFO info;
+       char path[MAXPATHLEN];
+
+       info.bsize = 4096;
+       info.ffactor = 40;
+       info.nelem = 1;
+       info.cachesize = NULL;
+       info.hash = NULL;
+       info.lorder = 0;
+       (void)strcpy(path, file);
+       (void)strcat(path, DBM_SUFFIX);
+       return ((DBM *)__hash_open(path, flags, mode, &info, 0));
 }
 
 }
 
-extern void 
+extern void
 dbm_close(db)
 dbm_close(db)
-DBM    *db;
+       DBM *db;
 {
 {
-    (void)(db->close) (db);
+       (void)(db->close)(db);
 }
 
 /*
 }
 
 /*
-    Returns    DATUM on success
-               NULL on failure
-*/
-extern datum 
-dbm_fetch( db, key )
-DBM    *db;
-datum  key;
+ * Returns:
+ *     DATUM on success
+ *     NULL on failure
+ */
+extern datum
+dbm_fetch(db, key)
+       DBM *db;
+       datum key;
 {
 {
-    int        status;
-    datum      retval;
-
-    status = (db->get) ( db, (DBT *)&key, (DBT *)&retval );
-    if ( status ) {
-       retval.dptr = NULL;
-    }
-    return(retval);
+       datum retval;
+       int status;
+
+       status = (db->get)(db, (DBT *)&key, (DBT *)&retval, 0);
+       if (status) {
+               retval.dptr = NULL;
+               retval.dsize = 0;
+       }
+       return (retval);
 }
 
 /*
 }
 
 /*
-    Returns    DATUM on success
-               NULL on failure
-*/
-extern datum 
+ * Returns:
+ *     DATUM on success
+ *     NULL on failure
+ */
+extern datum
 dbm_firstkey(db)
 dbm_firstkey(db)
-DBM    *db;
+       DBM *db;
 {
 {
-    int        status;
-    datum      retkey;
-    datum      retdata;
-
-    status = (db->seq) ( db, (DBT *)&retkey, (DBT *)&retdata, R_FIRST );
-    if ( status ) {
-       retkey.dptr = NULL;
-    }
-    return(retkey);
+       int status;
+       datum retdata, retkey;
+
+       status = (db->seq)(db, (DBT *)&retkey, (DBT *)&retdata, R_FIRST);
+       if (status)
+               retkey.dptr = NULL;
+       return (retkey);
 }
 }
+
 /*
 /*
-    Returns    DATUM on success
-               NULL on failure
-*/
-extern datum 
+ * Returns:
+ *     DATUM on success
+ *     NULL on failure
+ */
+extern datum
 dbm_nextkey(db)
 dbm_nextkey(db)
-DBM    *db;
+       DBM *db;
 {
 {
-    int        status;
-    datum      retkey;
-    datum      retdata;
-
-    status = (db->seq) ( db, (DBT *)&retkey, (DBT *)&retdata, R_NEXT );
-    if ( status ) {
-       retkey.dptr = NULL;
-    }
-    return(retkey);
-}
+       int status;
+       datum retdata, retkey;
 
 
+       status = (db->seq)(db, (DBT *)&retkey, (DBT *)&retdata, R_NEXT);
+       if (status)
+               retkey.dptr = NULL;
+       return (retkey);
+}
 /*
 /*
-    0 on success
-    <0 failure
-*/
-extern int 
+ * Returns:
+ *      0 on success
+ *     <0 failure
+ */
+extern int
 dbm_delete(db, key)
 dbm_delete(db, key)
-DBM    *db;
-datum  key;
+       DBM *db;
+       datum key;
 {
 {
-    int        status;
-
-    status = (db->delete)( db, (DBT *)&key );
-    if ( status ) {
-       return(-1);
-    } else {
-       return(0);
-    }
+       int status;
+
+       status = (db->del)(db, (DBT *)&key, 0);
+       if (status)
+               return (-1);
+       else
+               return (0);
 }
 
 /*
 }
 
 /*
-    0 on success
-    <0 failure
-    1 if DBM_INSERT and entry exists
-*/
-extern int 
+ * Returns:
+ *      0 on success
+ *     <0 failure
+ *      1 if DBM_INSERT and entry exists
+ */
+extern int
 dbm_store(db, key, content, flags)
 dbm_store(db, key, content, flags)
-DBM    *db;
-datum  key;
-datum  content;
-int    flags;
+       DBM *db;
+       datum key, content;
+       int flags;
 {
 {
-    return ((db->put)( db, (DBT *)&key, (DBT *)&content, 
-                       (flags == DBM_INSERT) ? R_NOOVERWRITE : 0 ));
+       return ((db->put)(db, (DBT *)&key, (DBT *)&content,
+           (flags == DBM_INSERT) ? R_NOOVERWRITE : 0));
 }
 
 extern int
 dbm_error(db)
 }
 
 extern int
 dbm_error(db)
-DBM    *db;
+       DBM *db;
 {
 {
-    HTAB       *hp;
+       HTAB *hp;
 
 
-    hp = (HTAB *)db->internal;
-    return ( hp->errno );
+       hp = (HTAB *)db->internal;
+       return (hp->errno);
 }
 
 extern int
 dbm_clearerr(db)
 }
 
 extern int
 dbm_clearerr(db)
-DBM    *db;
+       DBM *db;
 {
 {
-    HTAB       *hp;
+       HTAB *hp;
+
+       hp = (HTAB *)db->internal;
+       hp->errno = 0;
+       return (0);
+}
 
 
-    hp = (HTAB *)db->internal;
-    hp->errno = 0;
-    return ( 0 );
+extern int
+dbm_dirfno(db)
+       DBM *db;
+{
+       return(((HTAB *)db->internal)->fp);
 }
 }