Relay-Version: version B 2.10.3 beta 11/15/85; site seismo.CSS.GOV
Posting-Version: version B 2.10.2 9/3/84; site panda.UUCP
Path: seismo!harvard!talcott!panda!sources-request
From: sources-request@panda.UUCP
Newsgroups: mod.sources
Subject: Submission for mod.sources
Message-ID: <1288@panda.UUCP>
Date: 10 Jan 86 23:13:39 GMT
Sender: jpn@panda.UUCP
Lines: 90
Approved: jpn@panda.UUCP

Mod.sources:  Volume 3, Issue 86
Submitted by: genrad!mit-eddie!mirror!rs (Rich Salz)


At least on the distributed 4.2 there is no lint library specification
for the DBM library.  Here's one.

--
Rich $alz	{mit-eddie, ihnp4!inmet, wjh12, cca, datacube}!mirror!rs
Mirror Systems	2067 Massachusetts Avenue  Cambridge, MA, 02140
Telephone:	6,176,610,777

# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by mirror!rs on Wed Dec  4 17:00:49 EST 1985
# Contents:  llib-ldbm
 
echo x - llib-ldbm
sed 's/^XX//' > "llib-ldbm" <<'@//E*O*F llib-ldbm//'
XX/*
XXstatic char sccsid[] = "@(#)dbm.c	4.1 (Berkeley) 6/27/83";
XX*/

XX#include	"dbm.h"
XX#include	<sys/types.h>
XX#include	<sys/stat.h>

XX/* initialize the data. */
XXlong bitno = 1;
XXlong maxbno = 1;
XXlong blkno = 1;
XXlong hmask = 1;
XXint dirf = 1;
XXint pagf = 1;
XXint dbrdonly = 1;

XX/* needed herein. */
XXstatic datum __data__;

XXdbminit(file)
XX    char *file;
XX    { return(pagbuf[0] = dirbuf[0] = *file); }

XXlong forder(key)
XX    datum key;
XX    { return(key.dsize); }

XXdatum fetch(key)
XX    datum key;
XX    { return(key); }

XXdelete(key)
XX    datum key;
XX    { blkno = key.dsize; }

XXstore(key, dat)
XX    datum key, dat;
XX    { key = dat; }

XXdatum firstkey()
XX    { return(__data__); }

XXdatum nextkey(key)
XX    datum key;
XX    { return(key); }

XXdatum firsthash(hash)
XX    long hash;
XX    { return(blkno = hash, __data__); }

XXdatum makdatum(buf, n)
XX    char buf[PBLKSIZ];
XX    { return(__data__.dptr = buf+n, __data__); }

XXcmpdatum(d1, d2)
XX    datum d1, d2;
XX    { return(d1.dsize - d2.dsize); }

XXlong hashinc(hash)
XX    long hash;
XX    { return(hash); }

XXlong calchash(item)
XX    datum item;
XX    { return(item.dsize); }
@//E*O*F llib-ldbm//
chmod u=rw,g=rw,o=rw llib-ldbm
 
exit 0