BSD stuff --> libndir and libdbm
Randy Suess
randy at chinet.UUCP
Tue Jun 14 22:58:37 AEST 1988
I have been swamped with requests, so figure a posting is in order.
This posting and the following contain the mdbm source as posted
a while ago and the mods made by Dave Ihnat (ignatz at chinet) to
make it look like a 99.9% clone of V7 dbm. Made spacewar and news 2.11
work fine on a 3b2/310 running SysVr3.1.
Good luck.
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 1 (of 2)."
# Contents: . ./addons ./addons/READ.ME ./addons/bcmp.c
# ./addons/bcmp.s ./addons/bcopy.c ./addons/bcopy.s ./addons/bzero.c
# ./addons/bzero.s ./mdbm ./mdbm/.archinfo ./mdbm/Makefile
# ./mdbm/access.c ./mdbm/bcmp.c ./mdbm/bcopy.c ./mdbm/bzero.c
# ./mdbm/checkblock.c ./mdbm/close.c ./mdbm/compare.c ./mdbm/dbm.h
# ./mdbm/dbmcompat.c ./mdbm/delete.c ./mdbm/delitem.c
# ./mdbm/dumpdbm.c ./mdbm/fetch.c ./mdbm/firsthash.c
# ./mdbm/firstkey.c ./mdbm/hash.c ./mdbm/hashinc.c ./mdbm/mdbm.h
# ./mdbm/mdbm_local.h ./mdbm/nextkey.c ./mdbm/open.c ./mdbm/search.c
# ./mdbm/sync.c ./mdbm/testdbm.c
# Wrapped by randy at chinet on Wed Jun 8 13:52:15 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test ! -d ./addons ; then
echo shar: Creating directory \"./addons\"
mkdir ./addons
fi
if test -f ./addons/READ.ME -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/READ.ME\"
else
echo shar: Extracting \"./addons/READ.ME\" \(1514 characters\)
sed "s/^X//" >./addons/READ.ME <<'END_OF_./addons/READ.ME'
XFrom ihnp4!zehntel!hplabs!hao!seismo!umcp-cs!eneevax!chris Sat Aug 18 03:31:41 1984
XRelay-Version: version B 2.10.1 exptools 1/30/84; site ihnp3.UUCP
XPosting-Version: version B 2.10.1 6/24/83; site eneevax.UUCP
XPath: ihnp3!ihnp4!zehntel!hplabs!hao!seismo!umcp-cs!eneevax!chris
XFrom: chris at eneevax.UUCP (Chris Torek)
XNewsgroups: net.sources
XSubject: bcopy, bcmp, bzero for 4.1BSD
XMessage-ID: <153 at eneevax.UUCP>
XDate: Sat, 18-Aug-84 03:31:41 CDT
XArticle-I.D.: eneevax.153
XPosted: Sat Aug 18 03:31:41 1984
XDate-Received: Sun, 19-Aug-84 11:19:10 EDT
XOrganization: Univ. of Maryland, EE Dept.
XLines: 156
X
XI've received (justified) complaints for not explaining bcmp(),
Xbcopy(), and bzero() in my mdbm source posting. This is one of those
X4.2 dependencies I warned about. Anyway, here are implementations of
Xbcopy, bcmp, and bzero in Vax assembly and in C. WARNING: I haven't
Xtested the Vax assembly version of bcmp (nor any of the C routines but
Xwho needs to test those?). Also, the assembly routines won't work
Xunder VMS, which (I believe) needs r2-r11 saved; you'd have to change
Xthe entry masks.
X
XIf you're running 4.2 you should already have these in your C library,
Xso in that case, ignore this posting. (Otherwise, why not rewrite
Xthese for your particular machine and *install* it in your C library?)
X
X--Chris Torek, U of MD CS/EE, seismo!umcp-cs!chris, chris at maryland.ARPA,
X chris at umcp-cs.CSNet (I don't have my regular .signature installed on
X this machine)
X-------------------------------------------
END_OF_./addons/READ.ME
if test 1514 -ne `wc -c <./addons/READ.ME`; then
echo shar: \"./addons/READ.ME\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./addons/bcmp.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/bcmp.c\"
else
echo shar: Extracting \"./addons/bcmp.c\" \(383 characters\)
sed "s/^X//" >./addons/bcmp.c <<'END_OF_./addons/bcmp.c'
X/*
X * bcmp
X *
X * compare count bytes at s1 and s2; return 0 iff equal
X *
X * N.B.: Beware large counts (>32767) on machines with 16 bit `int's.
X * (This routine should really be rewritten for those.)
X */
Xbcmp (s1, s2, count)
Xregister char *s1, *s2;
Xregister int count;
X{
X while (--count >= 0)
X if (*s1++ != *s2++)
X return 1; /* or ``return *--s1 - *--s2;'' */
X return 0;
X}
END_OF_./addons/bcmp.c
if test 383 -ne `wc -c <./addons/bcmp.c`; then
echo shar: \"./addons/bcmp.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./addons/bcmp.s -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/bcmp.s\"
else
echo shar: Extracting \"./addons/bcmp.s\" \(518 characters\)
sed "s/^X//" >./addons/bcmp.s <<'END_OF_./addons/bcmp.s'
X# bcmp (s1, s2, count) char *s1, *s2; int count;
X#
X# Compare "count" bytes at "s1" with those at "s2"; return 0 iff equal
X
X .align 2
X .globl _bcopy
X_bcopy:
X .word 0
X movl 4(ap),r1 # r1 = s1
X movl 8(ap),r3 # r3 = s2
X brb 2f
X1:
X subl2 r0,12(ap) # count-=65535 (bytes compared)
X cmpc3 r0,(r1),(r3) # r1, r3 magically point to next 65K
X bneq 3f
X2:
X movzwl $65535,r0
X cmpl 12(ap),r0 # <= 65535 bytes to compare?
X jgtr 1b # brif not, do 65535 and try again
X cmpc3 12(ap),(r1),(r3) # compare up to 65535 bytes
X3:
X ret
END_OF_./addons/bcmp.s
if test 518 -ne `wc -c <./addons/bcmp.s`; then
echo shar: \"./addons/bcmp.s\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./addons/bcopy.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/bcopy.c\"
else
echo shar: Extracting \"./addons/bcopy.c\" \(356 characters\)
sed "s/^X//" >./addons/bcopy.c <<'END_OF_./addons/bcopy.c'
X/*
X * bcopy - copy count bytes from "from" to "to" - not guaranteed to work
X * if "from" and "to" overlap
X *
X * N.B.: Beware large counts (>32767) on machines with 16 bit `int's.
X * (This routine should really be rewritten for those.)
X */
Xbcopy (from, to, count)
Xregister char *from, *to;
Xregister int count;
X{
X while (--count >= 0)
X *to++ = *from++;
X}
END_OF_./addons/bcopy.c
if test 356 -ne `wc -c <./addons/bcopy.c`; then
echo shar: \"./addons/bcopy.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./addons/bcopy.s -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/bcopy.s\"
else
echo shar: Extracting \"./addons/bcopy.s\" \(540 characters\)
sed "s/^X//" >./addons/bcopy.s <<'END_OF_./addons/bcopy.s'
X# bcopy (from, to, count) char *from, *to; int count;
X#
X# Copy "count" bytes from "from" to "to"; not guaranteed to
X# work if "from" and "to" overlap.
X
X .align 2
X .globl _bcopy
X_bcopy:
X .word 0
X movl 4(ap),r1 # r1 = from
X movl 8(ap),r3 # r3 = to
X brb 2f
X1:
X subl2 r0,12(ap) # count-=65535 (bytes moved this time)
X movc3 r0,(r1),(r3) # r1, r3 magically point to next 65K
X2:
X movzwl $65535,r0
X cmpl 12(ap),r0 # <= 65535 bytes to move?
X jgtr 1b # brif not, move 65535 and try again
X movc3 12(ap),(r1),(r3) # move up to 65535 bytes
X ret
END_OF_./addons/bcopy.s
if test 540 -ne `wc -c <./addons/bcopy.s`; then
echo shar: \"./addons/bcopy.s\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./addons/bzero.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/bzero.c\"
else
echo shar: Extracting \"./addons/bzero.c\" \(284 characters\)
sed "s/^X//" >./addons/bzero.c <<'END_OF_./addons/bzero.c'
X/*
X * bzero - zero count bytes at address addr
X *
X * N.B.: Beware large counts (>32767) on machines with 16 bit `int's.
X * (This routine should really be rewritten for those.)
X */
Xbzero (addr, count)
Xregister char *addr;
Xregister int count;
X{
X while (--count >= 0)
X *addr++ = 0;
X}
END_OF_./addons/bzero.c
if test 284 -ne `wc -c <./addons/bzero.c`; then
echo shar: \"./addons/bzero.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./addons/bzero.s -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./addons/bzero.s\"
else
echo shar: Extracting \"./addons/bzero.s\" \(455 characters\)
sed "s/^X//" >./addons/bzero.s <<'END_OF_./addons/bzero.s'
X# bzero (addr, count) char *addr; int count;
X#
X# Zero "count" bytes at address "addr"
X
X .align 2
X .globl _bzero
X_bzero:
X .word 0
X movl 4(ap),r3 # r3 = addr
X brb 2f
X1:
X subl2 r0,8(ap) # count-=65535 (bytes zeroed this time)
X movc5 $0,(sp),$0,r0,(r3) # r3 magically points to next 65K
X2:
X movzwl $65535,r0
X cmpl 8(ap),r0 # <= 65535 bytes to zero?
X jgtr 1b # brif not, zero 65535 and try again
X movc5 $0,(sp),$0,8(ap),(r3) # zero up to 65535 bytes
X ret
END_OF_./addons/bzero.s
if test 455 -ne `wc -c <./addons/bzero.s`; then
echo shar: \"./addons/bzero.s\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test ! -d ./mdbm ; then
echo shar: Creating directory \"./mdbm\"
mkdir ./mdbm
fi
if test ! -d ./mdbm/.archinfo ; then
echo shar: Creating directory \"./mdbm/.archinfo\"
mkdir ./mdbm/.archinfo
fi
if test -f ./mdbm/Makefile -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/Makefile\"
else
echo shar: Extracting \"./mdbm/Makefile\" \(1830 characters\)
sed "s/^X//" >./mdbm/Makefile <<'END_OF_./mdbm/Makefile'
X# $Header$
X#
X# The -R flag compiles initialized data into the text area. Not really
X# necessary, but nice.
X# (DMI-AiC): Unfortunately, also not on BTL-derived compilers.
X# (DMI-AiC): Added dbm compatibility module
XCC = ccsh # 3b1 Only!
X#CC = cc
X
X#CFLAGS= -O -R
XCFLAGS= -O
X
XOBJS= access.o checkblock.o close.o compare.o delete.o delitem.o\
X fetch.o firsthash.o firstkey.o hash.o hashinc.o nextkey.o\
X open.o search.o store.o sync.o dbmcompat.o
X
XSRCS= access.c checkblock.c close.c compare.c delete.c delitem.c\
X fetch.c firsthash.c firstkey.c hash.c hashinc.c nextkey.c\
X open.c search.c store.c sync.c dbmcompat.c
X
XHDRS= mdbm.h mdbm_local.h
X
X.c.o:
X $(CC) -c $(CFLAGS) $<
X @ld -r -x $@
X @mv a.out $@
X
Xall: libmdbm.a testdbm dumpdbm
X
Xlibmdbm.a: $(OBJS)
X ar cr libmdbm.a `lorder $(OBJS) | tsort`
X# ranlib libmdbm.a
X
Xinstall:
X install -m 444 -o bin -g bin -c libmdbm.a $(DESTDIR)/usr/lib
X ln $(DESTDIR)/usr/lib/libmdbm.a $(DESTDIR)/usr/lib/libdbm.a
X# ranlib $(DESTDIR)/usr/lib/libmdbm.a
X install -m 444 -o bin -g bin -c mdbm.h $(DESTDIR)/include
X install -c mdbm.3x $(DESTDIR)/usr/man/man3
X
Xtestdbm: testdbm.o libmdbm.a
X cc $(CFLAGS) -o testdbm testdbm.o libmdbm.a
X
Xdumpdbm: dumpdbm.o libmdbm.a
X cc $(CFLAGS) -o dumpdbm dumpdbm.o libmdbm.a
X
Xclean:
X rm -f libmdbm.a *.o a.out testdbm dumpdbm core
X
Xlint: $(SRCS) $(HDRS)
X lint -h $(SRCS) | egrep -v 'possible pointer alignment problem'
X
Xaccess.o: mdbm.h mdbm_local.h
Xadditem.o: mdbm.h mdbm_local.h
Xcheckblock.o: mdbm.h mdbm_local.h
Xclose.o: mdbm.h mdbm_local.h
Xdelete.o: mdbm.h mdbm_local.h
Xdelitem.o: mdbm.h mdbm_local.h
Xfetch.o: mdbm.h mdbm_local.h
Xfirsthash.o: mdbm.h mdbm_local.h
Xfirstkey.o: mdbm.h mdbm_local.h
Xhash.o: mdbm.h mdbm_local.h
Xnextkey.o: mdbm.h mdbm_local.h
Xopen.o: mdbm.h mdbm_local.h
Xsearch.o: mdbm_local.h
Xstore.o: mdbm.h mdbm_local.h
Xsync.o: mdbm.h mdbm_local.h
X
X
END_OF_./mdbm/Makefile
if test 1830 -ne `wc -c <./mdbm/Makefile`; then
echo shar: \"./mdbm/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/access.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/access.c\"
else
echo shar: Extracting \"./mdbm/access.c\" \(1210 characters\)
sed "s/^X//" >./mdbm/access.c <<'END_OF_./mdbm/access.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/access.c,v 1.1 84/08/12 09:54:48 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Read in the appropriate data block for an item whose hash index is
X * hash. The hash index specifies the data block in an indirect way:
X * if the bit in the map is set then more bits of the hash value should
X * be considered. If it is not set then we have the right hash bits
X * and the block number is just the low bits of the hash value.
X *
X * Return the hash mask that gets the right block number.
X */
Xint mdbm_access (d, hash)
Xregister struct mdbm *d;
Xregister long hash;
X{
X register long hmask,
X b;
X
X for (hmask = 0;; hmask = (hmask << 1) + 1) {
X b = (hash & hmask) + hmask;/* map bit number */
X if (b < d -> mdbm_maxbit) {
X register int i,
X n;
X
X n = b % BYTESIZ; /* bit index */
X b /= BYTESIZ; /* byte index */
X i = b % d -> mdbm_msize;/* byte offset in map */
X b /= d -> mdbm_msize;/* map block number */
X MDBM_MREAD (d, b);
X if (d -> mdbm_m[i] & (1 << n))
X continue;
X }
X b = hash & hmask;
X MDBM_DREAD (d, b);
X return hmask;
X }
X}
END_OF_./mdbm/access.c
if test 1210 -ne `wc -c <./mdbm/access.c`; then
echo shar: \"./mdbm/access.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/bcmp.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/bcmp.c\"
else
echo shar: Extracting \"./mdbm/bcmp.c\" \(383 characters\)
sed "s/^X//" >./mdbm/bcmp.c <<'END_OF_./mdbm/bcmp.c'
X/*
X * bcmp
X *
X * compare count bytes at s1 and s2; return 0 iff equal
X *
X * N.B.: Beware large counts (>32767) on machines with 16 bit `int's.
X * (This routine should really be rewritten for those.)
X */
Xbcmp (s1, s2, count)
Xregister char *s1, *s2;
Xregister int count;
X{
X while (--count >= 0)
X if (*s1++ != *s2++)
X return 1; /* or ``return *--s1 - *--s2;'' */
X return 0;
X}
END_OF_./mdbm/bcmp.c
if test 383 -ne `wc -c <./mdbm/bcmp.c`; then
echo shar: \"./mdbm/bcmp.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/bcopy.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/bcopy.c\"
else
echo shar: Extracting \"./mdbm/bcopy.c\" \(356 characters\)
sed "s/^X//" >./mdbm/bcopy.c <<'END_OF_./mdbm/bcopy.c'
X/*
X * bcopy - copy count bytes from "from" to "to" - not guaranteed to work
X * if "from" and "to" overlap
X *
X * N.B.: Beware large counts (>32767) on machines with 16 bit `int's.
X * (This routine should really be rewritten for those.)
X */
Xbcopy (from, to, count)
Xregister char *from, *to;
Xregister int count;
X{
X while (--count >= 0)
X *to++ = *from++;
X}
END_OF_./mdbm/bcopy.c
if test 356 -ne `wc -c <./mdbm/bcopy.c`; then
echo shar: \"./mdbm/bcopy.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/bzero.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/bzero.c\"
else
echo shar: Extracting \"./mdbm/bzero.c\" \(284 characters\)
sed "s/^X//" >./mdbm/bzero.c <<'END_OF_./mdbm/bzero.c'
X/*
X * bzero - zero count bytes at address addr
X *
X * N.B.: Beware large counts (>32767) on machines with 16 bit `int's.
X * (This routine should really be rewritten for those.)
X */
Xbzero (addr, count)
Xregister char *addr;
Xregister int count;
X{
X while (--count >= 0)
X *addr++ = 0;
X}
END_OF_./mdbm/bzero.c
if test 284 -ne `wc -c <./mdbm/bzero.c`; then
echo shar: \"./mdbm/bzero.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/checkblock.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/checkblock.c\"
else
echo shar: Extracting \"./mdbm/checkblock.c\" \(724 characters\)
sed "s/^X//" >./mdbm/checkblock.c <<'END_OF_./mdbm/checkblock.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/checkblock.c,v 1.1 84/08/12 09:56:16 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Perform some sanity checks on a data block
X */
Xmdbm_checkblock (buf, size)
Xchar *buf;
Xint size;
X{
X register struct mdbm_dblock *db = (struct mdbm_dblock *) buf;
X register struct mdbm_dentry *de;
X register int i,
X t = size;
X
X de = &db -> db_e[1];
X for (i = 1; i < db -> db_n; i++) {
X if (de -> de_off > t)
X goto bad;
X t = de -> de_off;
X de++;
X }
X if (&buf[t] < (char *) de)
X goto bad;
X return;
X
Xbad:
X printf ("mdbm: bad block\n");
X fflush(stdout);
X abort ();
X bzero (buf, size);
X}
END_OF_./mdbm/checkblock.c
if test 724 -ne `wc -c <./mdbm/checkblock.c`; then
echo shar: \"./mdbm/checkblock.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/close.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/close.c\"
else
echo shar: Extracting \"./mdbm/close.c\" \(454 characters\)
sed "s/^X//" >./mdbm/close.c <<'END_OF_./mdbm/close.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/close.c,v 1.1 84/08/12 09:57:45 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Close a database
X */
Xmdbm_close (d)
Xregister struct mdbm *d;
X{
X MDBM_SYNC (d);
X (void) close (d -> mdbm_datafd);
X (void) close (d -> mdbm_mapfd);
X free (d -> mdbm_d);
X free (d -> mdbm_s);
X free (d -> mdbm_m);
X free ((char *) d);
X return 0;
X}
END_OF_./mdbm/close.c
if test 454 -ne `wc -c <./mdbm/close.c`; then
echo shar: \"./mdbm/close.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/compare.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/compare.c\"
else
echo shar: Extracting \"./mdbm/compare.c\" \(492 characters\)
sed "s/^X//" >./mdbm/compare.c <<'END_OF_./mdbm/compare.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/compare.c,v 1.1 84/08/12 09:57:59 chris Rel $";
X#endif
X
X/*
X * Compare strings s1 and s2 for len bytes; return the difference
X * between the first differing characters. Could probably use strncmp
X * but I don't trust it to work the same way when encountering \0s.
X */
Xmdbm_compare (s1, s2, len)
Xregister char *s1, *s2;
Xregister int len;
X{
X while (--len >= 0)
X if (*s1++ != *s2++)
X return *--s1 - *--s2;
X return 0;
X}
END_OF_./mdbm/compare.c
if test 492 -ne `wc -c <./mdbm/compare.c`; then
echo shar: \"./mdbm/compare.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/dbm.h -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/dbm.h\"
else
echo shar: Extracting \"./mdbm/dbm.h\" \(319 characters\)
sed "s/^X//" >./mdbm/dbm.h <<'END_OF_./mdbm/dbm.h'
X/*
X * Multiple key database library compatibility include file
X * David M. Ihnat, 1988
X */
X
X#include <mdbm.h>
X
Xextern datum fetch ();
Xextern datum firstkey ();
Xextern datum nextkey ();
Xextern long forder ();
Xextern int delete ();
Xextern int store ();
Xextern struct mdbm *open ();
Xextern int close ();
X
END_OF_./mdbm/dbm.h
if test 319 -ne `wc -c <./mdbm/dbm.h`; then
echo shar: \"./mdbm/dbm.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/dbmcompat.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/dbmcompat.c\"
else
echo shar: Extracting \"./mdbm/dbmcompat.c\" \(4647 characters\)
sed "s/^X//" >./mdbm/dbmcompat.c <<'END_OF_./mdbm/dbmcompat.c'
X/*
X * Compat - provides mdbm <--> dbm compatibility
X *
X * Author: David M. Ihnat, 2/9/87
X *
X * This is a work in the Public Domain.
X */
X#include <stdio.h>
X#include <errno.h>
X#include <sys/types.h>
X#include <sys/stat.h>
X#include <fcntl.h>
X#include "mdbm.h"
X
Xstatic struct mdbm *compat_dat = (struct mdbm *)NULL;
X/* */
Xdbminit(file)
Xchar *file;
X{
X /*
X * This is interesting; 'dbm' uses two files, '<file>.dir' and
X * '<file>.pag'; 'mdbm' uses '<file>.map' and '<file>.dat'. There
X * also exists the possibility that calling programs may need to know
X * about the original files' existence and/or size, while all the mdbm
X * routines insist on the new file names. Solution? The following:
X *
X * 1) If called, and the old files don't exist, error--in
X * the old 'dbm' scheme, they had to create the old files.
X *
X * 2) If called and the 'old' name files exist, AND they're of zero
X * then LINK them to the new name files, since they're just creating
X * the database. This will satisfy both the old and new routines.
X *
X * 3) If called, and the 'old' name files exist and are NOT of zero
X * length, then they MUST be already linked to the corresponding
X * new-name file, else they could be trying to feed us an old-format
X * 'dbm' database.
X */
X
X /* Only one database may be open at any one time under 'dbm' */
X if(compat_dat != (struct mdbm *)NULL)
X (void)mdbm_close(compat_dat);
X
X /*
X * Ok, do the files exist (and, of course, if so, are they accessible?)
X */
X if(dbm_fcheck(file,".dir",".map"))
X return(-1);
X
X if(dbm_fcheck(file,".pag",".dat"))
X return(-1);
X
X /* OK, all files either newly set up or already exist! Continue... */
X compat_dat =
X mdbm_open(file,O_RDWR,0,(int *)NULL,(int *)NULL,(char *)NULL);
X
X if(compat_dat == (struct mdbm *)NULL)
X return(-1);
X
X (void)mdbm_setflags(compat_dat,MDBM_ISAUTOW);
X
X return(0);
X}
X/* */
Xdatum
Xfetch(key)
Xdatum key;
X{
X return(mdbm_fetch(compat_dat,key));
X}
X/* */
Xstore(key,content)
Xdatum key,content;
X{
X return(mdbm_store(compat_dat,key,content,MDBM_REPLACE));
X}
X/* */
Xdelete(key)
Xdatum key;
X{
X return(mdbm_delete(compat_dat,key));
X}
X/* */
Xdatum
Xfirstkey()
X{
X return(mdbm_firstkey(compat_dat));
X}
X/* */
Xdatum
Xnextkey(key)
Xdatum key;
X{
X return(mdbm_nextkey(compat_dat,key));
X}
X/* */
Xstatic int
Xdbm_fcheck(file,old,new)
Xchar *file, *old, *new;
X{
X register char *old_file, *new_file;
X register int retval1, retval2;
X struct stat old_statbuf, new_statbuf;
X
X char *malloc();
X
X /*
X * This routine performs all the validity checks. Note that, on error
X * returns, the 'malloc'd space isn't released. This isn't too evil an
X * action, since failure here should mean further processing can't normally
X * continue.
X */
X
X /* Allocate enough space for '<file>.[map|dat]' and '<file>.[dir|pag]'*/
X old_file = malloc((unsigned)(strlen(file) + 5));
X new_file = malloc((unsigned)(strlen(file) + 5));
X
X if(old_file == (char *)NULL || new_file == (char *)NULL)
X {
X fprintf(stderr,"dbmcompat: Couldn't allocate memory (1)\n");
X return(-1);
X }
X
X /* Setup for test of the old/new file set */
X strcpy(old_file,file);
X strcat(old_file,old);
X
X strcpy(new_file,file);
X strcat(new_file,new);
X
X retval1= stat(old_file,&old_statbuf);
X if(retval1)
X retval1 = errno;
X
X retval2= stat(new_file,&new_statbuf);
X if(retval2)
X retval2 = errno;
X
X if(retval1)
X {
X /* Something's fatally wrong */
X if(retval1 == ENOENT) /* Ok...not there... */
X {
X fprintf(stderr,"dbmcompat: No file %s\n",old_file);
X }else
X { /* Couldn't get to it for some reason! */
X fprintf(stderr,
X "dbmcompat: Can't get to file %s: %d\n",
X old_file,retval1);
X }
X return(-1);
X }
X
X /*
X * Got here; file exists & we can get to it. Does the corresponding
X * 'new' file?
X */
X if(retval2)
X {
X if(retval2 == ENOENT) /* Ok, not there... */
X {
X if(old_statbuf.st_size != (off_t)0)
X {
X fprintf(stderr,"dbmcompat: No %s and %s is non-zero size.",
X new_file,old_file);
X fprintf(stderr,"Possibly old 'dbm' database?\n");
X return(-1);
X }else
X {
X /* Interesting--could be initializing new database. */
X if(link(old_file,new_file))
X {
X /* Ouch! */
X perror("dbmcompat");
X return(-1);
X }
X }
X }else
X {
X fprintf(stderr,"dbmcompat: %s inacessible: %d\n",
X new_file,retval2);
X return(-1);
X }
X }else
X {
X /* It exists; had better be linked to the old file! */
X if((old_statbuf.st_dev != new_statbuf.st_dev) ||
X (old_statbuf.st_ino != new_statbuf.st_ino))
X {
X fprintf(stderr,"dbmcompat: %s and %s are not linked!\n",
X old_file,new_file);
X return(-1);
X }
X }
X
X /* Wow--it's all OK! */
X (void)free(old_file);
X (void)free(new_file);
X
X return(0);
X}
END_OF_./mdbm/dbmcompat.c
if test 4647 -ne `wc -c <./mdbm/dbmcompat.c`; then
echo shar: \"./mdbm/dbmcompat.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/delete.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/delete.c\"
else
echo shar: Extracting \"./mdbm/delete.c\" \(1007 characters\)
sed "s/^X//" >./mdbm/delete.c <<'END_OF_./mdbm/delete.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/delete.c,v 1.1 84/08/12 09:58:22 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include <errno.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Delete datum under key in dbm d
X */
Xmdbm_delete (d, key)
Xregister struct mdbm *d;
Xdatum key;
X{
X#define db ((struct mdbm_dblock *) d -> mdbm_d)
X register struct mdbm_dentry *de;
X long keyblock;
X int keyindex;
X extern int errno;
X
X de = mdbm_search (d, key.dptr, key.dsize, &keyblock, &keyindex, 0);
X if (de == 0) {
X errno = ENOENT;
X return (-1);
X }
X if (d -> mdbm_flags & MDBM_ISRONLY) {
X errno = EPERM;
X return (-1);
X }
X
X /* delete the datum */
X mdbm_delitem (d, de - db -> db_e);
X
X /* delete the key */
X de = mdbm_search (d, key.dptr, key.dsize, &keyblock, &keyindex, 1);
X MDBM_DREAD (d, keyblock);
X de = &db -> db_e[keyindex];
X de -> de_outx = 0; /* not in use as a key anymore */
X mdbm_delitem (d, keyindex);
X MDBM_AUTO (d);
X return 0;
X}
END_OF_./mdbm/delete.c
if test 1007 -ne `wc -c <./mdbm/delete.c`; then
echo shar: \"./mdbm/delete.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/delitem.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/delitem.c\"
else
echo shar: Extracting \"./mdbm/delitem.c\" \(1356 characters\)
sed "s/^X//" >./mdbm/delitem.c <<'END_OF_./mdbm/delitem.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/delitem.c,v 1.1 84/08/12 09:58:37 chris Rel $";
X#endif lint
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Delete item 'n' from current data buffer of dbm d
X */
Xmdbm_delitem (d, n)
Xregister struct mdbm *d;
Xregister int n;
X{
X register int i;
X#define db ((struct mdbm_dblock *) d -> mdbm_d)
X register struct mdbm_dentry *de;
X
X if (n < 0 || n >= db -> db_n)
X goto bad;
X de = &db -> db_e[n];
X if (de -> de_links > 1) {
X de -> de_links--;
X goto done;
X }
X db -> db_n--;
X i = (n ? de[-1].de_off : d -> mdbm_dsize) - de -> de_off;
X if (i) { /* delete i bytes of text */
X if (n < db -> db_n) {
X register char *to,
X *from;
X register int bytes;
X
X to = d -> mdbm_d + (n ? de[-1].de_off : d -> mdbm_dsize);
X from = to - i;
X bytes = de -> de_off - db -> db_e[db -> db_n].de_off;
X while (--bytes >= 0)
X *--to = *--from;
X }
X bzero (d -> mdbm_d + db -> db_e[db -> db_n].de_off, i);
X }
X {
X register struct mdbm_dentry *e;
X
X e = &db -> db_e[db -> db_n];
X while (de < e) {
X *de = de[1];
X de -> de_off += i;
X de++;
X }
X bzero ((char *) e, sizeof e);
X }
Xdone:
X d -> mdbm_flags |= MDBM_DDIRTY;
X return;
X
Xbad:
X printf ("mdbm bug: bad delitem\n");
X fflush(stdout);
X abort ();
X}
END_OF_./mdbm/delitem.c
if test 1356 -ne `wc -c <./mdbm/delitem.c`; then
echo shar: \"./mdbm/delitem.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/dumpdbm.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/dumpdbm.c\"
else
echo shar: Extracting \"./mdbm/dumpdbm.c\" \(1830 characters\)
sed "s/^X//" >./mdbm/dumpdbm.c <<'END_OF_./mdbm/dumpdbm.c'
X#include "mdbm.h"
X#include "mdbm_local.h"
X#include <stdio.h>
X#include <sys/types.h>
X#ifdef SYSV
X#include <fcntl.h>
X#else
X#include <sys/file.h>
X#endif
X#include <sys/stat.h>
X#include <signal.h>
X
Xabort () { kill (getpid (), SIGILL); }
X
Xmain (argc, argv)
Xint argc;
Xchar **argv;
X{
X register struct mdbm *mp;
X register struct mdbm_dblock *db;
X register struct mdbm_dentry *de;
X int dsize, msize, blocks;
X register int i, j, len;
X struct stat sb;
X
X if (argc < 2) {
X fprintf (stderr, "Usage: dumpdbm dbname\n");
X exit (1);
X }
X if (argc > 2)
X signal (SIGILL, SIG_IGN);
X dsize = msize = 0;
X mp = mdbm_open (argv[1], O_RDONLY, 0, &dsize, &msize, (char *) 0);
X if (!mp) {
X perror (argv[1]);
X exit (1);
X }
X printf ("dbm %s: dsize = %d, msize = %d\n", argv[1], dsize, msize);
X (void) fstat (mp -> mdbm_datafd, &sb);
X blocks = sb.st_size / dsize;
X printf ("(%d data blocks)\n", blocks);
X db = (struct mdbm_dblock *) mp -> mdbm_d;
X for (i = 0; i < blocks; i++) {
X MDBM_DREAD (mp, i);
X printf ("block %d: %d entries\n", i, db -> db_n);
X for (j = 0, de = db -> db_e; j < db -> db_n; j++, de++) {
X printf ("\t%2d: @%4d links=%2d inx=%4d outx=%4d outh=%08x ",
X j, de -> de_off, de -> de_links, de -> de_inx,
X de -> de_outx, de -> de_outh);
X len = (j ? de[-1].de_off : dsize) - de -> de_off;
X pr_entry (mp -> mdbm_d + de -> de_off, len);
X }
X }
X (void) mdbm_close (mp);
X exit (0);
X}
X
Xpr_entry (s, len)
Xregister char *s;
Xregister int len;
X{
X register int c;
X
X putchar ('"');
X while (--len >= 0) {
X c = *s++ & 0377;
X if (c & 0200)
X putchar ('M'), putchar ('-'), c &= 0177;
X if (c == 0177)
X putchar ('^'), putchar ('?');
X else if (c < ' ')
X putchar ('^'), putchar (c + '@');
X else
X putchar (c);
X }
X putchar ('"');
X putchar ('\n');
X}
END_OF_./mdbm/dumpdbm.c
if test 1830 -ne `wc -c <./mdbm/dumpdbm.c`; then
echo shar: \"./mdbm/dumpdbm.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/fetch.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/fetch.c\"
else
echo shar: Extracting \"./mdbm/fetch.c\" \(670 characters\)
sed "s/^X//" >./mdbm/fetch.c <<'END_OF_./mdbm/fetch.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/fetch.c,v 1.1 84/08/12 09:59:20 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Find datum in dbm d, given key
X */
Xdatum mdbm_fetch (d, key)
Xregister struct mdbm *d;
Xdatum key;
X{
X#define db ((struct mdbm_dblock *) d -> mdbm_d)
X register struct mdbm_dentry *de;
X datum item;
X
X de = mdbm_search (d, key.dptr, key.dsize, (long *) 0, (int *) 0, 0);
X if (de) {
X item.dptr = d -> mdbm_d + de -> de_off;
X item.dsize = (de > db -> db_e ? de[-1].de_off : d -> mdbm_dsize) -
X de -> de_off;
X }
X else
X item.dptr = 0, item.dsize = 0;
X return item;
X}
END_OF_./mdbm/fetch.c
if test 670 -ne `wc -c <./mdbm/fetch.c`; then
echo shar: \"./mdbm/fetch.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/firsthash.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/firsthash.c\"
else
echo shar: Extracting \"./mdbm/firsthash.c\" \(1440 characters\)
sed "s/^X//" >./mdbm/firsthash.c <<'END_OF_./mdbm/firsthash.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/firsthash.c,v 1.1 84/08/12 09:59:59 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Return the first datum in dbm d with hash value hash
X */
Xdatum mdbm_firsthash (d, hash)
Xregister struct mdbm *d;
Xlong hash;
X{
X#define db ((struct mdbm_dblock *) d -> mdbm_d)
X register struct mdbm_dentry *de;
X register int i;
X char *bp;
X int bl;
X char *ip;
X int il,
X found;
X long hmask;
X datum rval;
X
Xloop:
X /* Suck in the block for the given hash, then find the "first" key. */
X hmask = mdbm_access (d, hash);
X found = 0;
X#ifdef lint /* lint doesn't realize that 'found'
X overrides the tests on bl and bp */
X bl = 0;
X bp = 0;
X#endif lint
X for (i = 0, de = db -> db_e; i < db -> db_n; i++, de++) {
X if (de -> de_outx == 0) /* not a key */
X continue;
X il = (i ? de[-1].de_off : d -> mdbm_dsize) - de -> de_off;
X ip = d -> mdbm_d + de -> de_off;
X if (!found || il < bl || (il == bl && mdbm_compare (ip, bp, il) < 0)) {
X bl = il;
X bp = ip;
X found++;
X }
X }
X if (found) {
X bcopy (bp, rval.dptr = d -> mdbm_s, rval.dsize = bl);
X return rval;
X }
X
X /* No item with this hash, so get next hash and try again */
X hash = mdbm_hashinc (hash, hmask);
X if (hash == 0) { /* no more */
X rval.dsize = 0;
X rval.dptr = 0;
X return rval;
X }
X goto loop;
X}
END_OF_./mdbm/firsthash.c
if test 1440 -ne `wc -c <./mdbm/firsthash.c`; then
echo shar: \"./mdbm/firsthash.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/firstkey.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/firstkey.c\"
else
echo shar: Extracting \"./mdbm/firstkey.c\" \(306 characters\)
sed "s/^X//" >./mdbm/firstkey.c <<'END_OF_./mdbm/firstkey.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/firstkey.c,v 1.1 84/08/12 10:00:27 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Return the "first" key in dbm d
X */
Xdatum mdbm_firstkey (d)
Xstruct mdbm *d;
X{
X return mdbm_firsthash (d, 0L);
X}
END_OF_./mdbm/firstkey.c
if test 306 -ne `wc -c <./mdbm/firstkey.c`; then
echo shar: \"./mdbm/firstkey.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/hash.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/hash.c\"
else
echo shar: Extracting \"./mdbm/hash.c\" \(1708 characters\)
sed "s/^X//" >./mdbm/hash.c <<'END_OF_./mdbm/hash.c'
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
Xint hitab[16] = {
X/* ken's
X 055,043,036,054,063,014,004,005,
X 010,064,077,000,035,027,025,071, */
X
X 61, 57, 53, 49, 45, 41, 37, 33,
X 29, 25, 21, 17, 13, 9, 5, 1,
X};
X
Xlong hltab[64] = {
X 06100151277L,06106161736L,06452611562L,05001724107L,
X 02614772546L,04120731531L,04665262210L,07347467531L,
X 06735253126L,06042345173L,03072226605L,01464164730L,
X 03247435524L,07652510057L,01546775256L,05714532133L,
X 06173260402L,07517101630L,02431460343L,01743245566L,
X 00261675137L,02433103631L,03421772437L,04447707466L,
X 04435620103L,03757017115L,03641531772L,06767633246L,
X 02673230344L,00260612216L,04133454451L,00615531516L,
X 06137717526L,02574116560L,02304023373L,07061702261L,
X 05153031405L,05322056705L,07401116734L,06552375715L,
X 06165233473L,05311063631L,01212221723L,01052267235L,
X 06000615237L,01075222665L,06330216006L,04402355630L,
X 01451177262L,02000133436L,06025467062L,07121076461L,
X 03123433522L,01010635225L,01716177066L,05161746527L,
X 01736635071L,06243505026L,03637211610L,01756474365L,
X 04723077174L,03642763134L,05750130273L,03655541561L,
X};
X
X/*
X * Calculate the hash val for the given item.
X */
Xlong mdbm_calchash (s, len)
Xregister char *s;
Xregister int len;
X{
X register int hashi = 0;
X register long hashl = 0L;
X
X while (--len >= 0) {
X register int f = *s++;
X
X#if BYTESIZ > 4 && BYTESIZ <= 8 /* an easy optimization */
X hashi += hitab[f & 15];
X hashl += hltab[hashi & 63];
X f >>= 4;
X hashi += hitab[f & 15];
X hashl += hltab[hashi & 63];
X#else
X register int j;
X
X for (j = 0; j < BYTESIZ; j += 4) {
X hashi += hitab[f & 15];
X hashl += hltab[hashi & 63];
X f >>= 4;
X }
X#endif
X }
X return hashl;
X}
END_OF_./mdbm/hash.c
if test 1708 -ne `wc -c <./mdbm/hash.c`; then
echo shar: \"./mdbm/hash.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/hashinc.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/hashinc.c\"
else
echo shar: Extracting \"./mdbm/hashinc.c\" \(447 characters\)
sed "s/^X//" >./mdbm/hashinc.c <<'END_OF_./mdbm/hashinc.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/hashinc.c,v 1.1 84/08/12 10:01:19 chris Rel $";
X#endif
X
X/*
X * Return the next hash number for this dbm, or 0 for no more
X */
Xlong mdbm_hashinc (hash, hmask)
Xregister long hash, hmask;
X{
X register long bit;
X
X hash &= hmask;
X bit = hmask + 1;
X for (;;) {
X bit >>= 1;
X if (bit == 0)
X return 0L;
X if ((hash & bit) == 0)
X return hash | bit;
X hash &= ~bit;
X }
X}
END_OF_./mdbm/hashinc.c
if test 447 -ne `wc -c <./mdbm/hashinc.c`; then
echo shar: \"./mdbm/hashinc.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/mdbm.h -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/mdbm.h\"
else
echo shar: Extracting \"./mdbm/mdbm.h\" \(2312 characters\)
sed "s/^X//" >./mdbm/mdbm.h <<'END_OF_./mdbm/mdbm.h'
X/* $Header: /ful/chris/dist/mdbm/mdbm.h,v 1.1 84/08/12 10:05:08 chris Rel $ */
X
X/*
X * Multiple key database library (-lmdbm)
X */
X
X/* structure describing an open mdbm file */
Xstruct mdbm {
X int mdbm_flags; /* flags (see below) */
X int mdbm_datafd; /* data area file descriptor */
X int mdbm_mapfd; /* bitmap file descriptor */
X int mdbm_dsize; /* data buffer size */
X int mdbm_msize; /* bitmap buffer size */
X long mdbm_maxbit; /* max possible set bit in map + 1 */
X long mdbm_dblock; /* index of current data block */
X long mdbm_mblock; /* index of current map block */
X char *mdbm_d; /* current data block */
X char *mdbm_s; /* secondary data block */
X char *mdbm_m; /* current map block */
X};
X
X/* structure giving (external) description of data and keys */
Xtypedef struct {
X char *dptr;
X int dsize;
X} datum;
X
X/*
X * mdbm_flags
X */
X#define MDBM_ISRONLY 0x01 /* true => db is readonly */
X#define MDBM_ISAUTOW 0x02 /* true => do all writes immediately */
X#define MDBM_DDIRTY 0x04 /* true => data buffer out of sync */
X#define MDBM_MDIRTY 0x08 /* true => map buffer out of sync */
X
X#define MDBM_UF 0x02 /* user allowed to modify only these flags */
X
X/*
X * flags to mdbm_store()
X */
X#define MDBM_INSERT 0 /* insert only; abort if key found */
X#define MDBM_REPLACE 1 /* replace (or insert if not found) */
X
Xdatum mdbm_fetch ();
Xdatum mdbm_firstkey ();
Xdatum mdbm_nextkey ();
Xlong mdbm_forder ();
Xint mdbm_delete ();
Xint mdbm_store ();
Xstruct mdbm *mdbm_open ();
Xint mdbm_close ();
X
X/*
X * open flags the same as those for the open() system call
X * with the exception that we force O_RDWR for O_WRONLY opens.
X */
X
X/*
X * mdbm files contain a descriptive comment whose length is not
X * longer than this, and is (supposed to be) null terminated.
X */
X#define MDBM_CSIZ 248
X
X/*
X * ``routines'' to examine and alter flags
X */
X#define mdbm_getflags(m) \
X ((m) -> mdbm_flags)
X#define mdbm_setflags(m,f) \
X ((m) -> mdbm_flags &= ~MDBM_UF, (m) -> mdbm_flags |= (f) & MDBM_UF)
X#define mdbm_bisflags(m,f) \
X ((m) -> mdbm_flags |= (f) & MDBM_UF)
X#define mdbm_bicflags(m,f) \
X ((m) -> mdbm_flags &= ~((f) & MDBM_UF))
X
X/*
X * BSD-isms
X */
X#define SYSV
X
X#ifdef SYSV
X#define bcmp(s1, s2, cnt) memcmp(s1,s2,cnt)
X#define bcopy(fr, to, cnt) memcpy(to,fr,cnt)
X#define bzero(addr,cnt) memset(addr,'\0',cnt)
X#endif
END_OF_./mdbm/mdbm.h
if test 2312 -ne `wc -c <./mdbm/mdbm.h`; then
echo shar: \"./mdbm/mdbm.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/mdbm_local.h -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/mdbm_local.h\"
else
echo shar: Extracting \"./mdbm/mdbm_local.h\" \(4198 characters\)
sed "s/^X//" >./mdbm/mdbm_local.h <<'END_OF_./mdbm/mdbm_local.h'
X/* $Header: /ful/chris/dist/mdbm/mdbm_local.h,v 1.1 84/08/12 10:05:28 chris Rel $ */
X
X/*
X * Definitions local to the various mdbm source files
X */
X
X#define BYTESIZ 8 /* size of a byte */
X#define MAXUSHORT 65535 /* largest legal value for unsigned short */
X
X/* Default database sizes for new databases */
X#define MDBM_DefaultDataSize 1024 /* data buffer block size */
X#define MDBM_DefaultMapSize 4096 /* bitmap buffer block size */
X
X/* Minimum sizes. Requests for anything smaller will be brought up
X to these values. */
X#define MDBM_MinDataSize 128 /* minimum data buffer size */
X#define MDBM_MinMapSize 128 /* minimum map buffer size */
X
X/*
X * This structure goes in at the front of the map file. It describes
X * the per-database info. Typically the "comment" field contains the
X * name of the database.
X */
Xstruct mdbm_h {
X int mh_dsize; /* size of data file blocks */
X int mh_msize; /* size of map file blocks */
X char mh_comment[MDBM_CSIZ];/* whatever you like */
X};
X
X/*
X * Within the map file, we simply have bits set whenever a data block
X * was split. The data file is more complex. It contains the following
X * info in each block:
X * # entries in block
X * entries
X * free space
X * text
X *
X * where the format of an entry is (as given by struct mdbm_dentry)
X * <off, links, inx, outx, outh>
X *
X * off is the offset within the block of the text (and thus also specifies
X * the size of the text string); links is the number of links to this item;
X * inx is the ``in index'' number of this item; outx is the ``out index''
X * number of this item; and outh is the out hash.
X *
X * If an item is in use as a key, its outx will contain a nonzero
X * number which is repeated in the inx field of its datum. The hash value
X * in outh will (by the usual extensible hashing rules) determine a block
X * number, and the item with the matching inx field in that block is the
X * datum under the key in question.
X *
X * An item's inx field will always contain a nonzero number that is unique
X * to the block in which the item resides.
X */
Xstruct mdbm_dblock {
X int db_n; /* number of entries */
X struct mdbm_dentry {
X unsigned short de_off; /* offset to beginning of text */
X unsigned short de_links;/* number of links */
X unsigned short de_inx; /* in index */
X unsigned short de_outx; /* out index */
X unsigned long de_outh; /* out hash */
X } db_e[1]; /* actually db_e[db_n], but can't say that */
X};
X
X/* Some macros to simplify(?) things a bit */
X
X/* Read block blk (size sz offset off) from file f into buffer buf */
X#define MDBM_RBLK(f,blk,buf,sz,off) \
X ((void) lseek (f, (blk)*(sz)+(off), 0), (void) read (f, buf, sz))
X
X/* Write block blk (size sz offset off) to file f from buffer buf */
X#define MDBM_WBLK(f,blk,buf,sz,off) \
X ((void) lseek (f, (blk)*(sz)+(off), 0), (void) write (f, buf, sz))
X
X/* Write (if needed) */
X#define MDBM_DSYNC(d) \
X if ((d) -> mdbm_flags & MDBM_DDIRTY) { \
X MDBM_WBLK ((d) -> mdbm_datafd, (d) -> mdbm_dblock, (d) -> mdbm_d, \
X (d) -> mdbm_dsize, 0); \
X (d) -> mdbm_flags &= ~MDBM_DDIRTY; \
X }
X
X#define MDBM_MSYNC(d) \
X if ((d) -> mdbm_flags & MDBM_MDIRTY) { \
X MDBM_WBLK ((d) -> mdbm_mapfd, (d) -> mdbm_mblock, (d) -> mdbm_m, \
X (d) -> mdbm_msize, sizeof (struct mdbm_h)); \
X (d) -> mdbm_flags &= ~MDBM_MDIRTY; \
X }
X
X#define MDBM_SYNC(d) { MDBM_DSYNC(d); MDBM_MSYNC(d); }
X
X/* Do autowrites */
X#define MDBM_AUTO(d) if ((d) -> mdbm_flags & MDBM_ISAUTOW) MDBM_SYNC (d)
X
X/* Read data block b */
X#define MDBM_DREAD(d,b) \
X if ((d) -> mdbm_dblock != (b)) { \
X MDBM_DSYNC (d); \
X bzero ((d) -> mdbm_d, (d) -> mdbm_dsize); \
X MDBM_RBLK ((d) -> mdbm_datafd, (d) -> mdbm_dblock = (b), \
X (d) -> mdbm_d, (d) -> mdbm_dsize, 0); \
X mdbm_checkblock ((d) -> mdbm_d, (d) -> mdbm_dsize); \
X }
X
X/* Read map block b */
X#define MDBM_MREAD(d,b) \
X if ((d) -> mdbm_mblock != (b)) { \
X MDBM_MSYNC (d); \
X bzero ((d) -> mdbm_m, (d) -> mdbm_msize); \
X MDBM_RBLK ((d) -> mdbm_mapfd, (d) -> mdbm_mblock = (b), \
X (d) -> mdbm_m, (d) -> mdbm_msize, sizeof (struct mdbm_h)); \
X }
X
X/*
X * function types
X */
Xlong mdbm_calchash ();
Xlong mdbm_hashinc ();
Xstruct mdbm_dentry *mdbm_search ();
Xdatum mdbm_firsthash ();
Xlong lseek ();
Xchar *malloc ();
END_OF_./mdbm/mdbm_local.h
if test 4198 -ne `wc -c <./mdbm/mdbm_local.h`; then
echo shar: \"./mdbm/mdbm_local.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/nextkey.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/nextkey.c\"
else
echo shar: Extracting \"./mdbm/nextkey.c\" \(1627 characters\)
sed "s/^X//" >./mdbm/nextkey.c <<'END_OF_./mdbm/nextkey.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/nextkey.c,v 1.1 84/08/12 10:01:55 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Return the "next" key in dbm d
X */
Xdatum mdbm_nextkey (d, key)
Xregister struct mdbm *d;
Xdatum key;
X{
X#define db ((struct mdbm_dblock *) d -> mdbm_d)
X register struct mdbm_dentry *de;
X register int i;
X char *bp;
X int bl;
X char *ip;
X int il,
X found;
X long hash,
X hmask;
X datum rval;
X
X /* Suck in the block for the given hash, then find the key that follows
X the one given */
X hash = mdbm_calchash (key.dptr, key.dsize);
X hmask = mdbm_access (d, hash);
X found = 0;
X#ifdef lint /* lint doesn't realize that 'found'
X overrides the tests on bl and bp */
X bl = 0;
X bp = 0;
X#endif lint
X for (i = 0, de = db -> db_e; i < db -> db_n; i++, de++) {
X if (de -> de_outx == 0) /* not a key */
X continue;
X il = (i ? de[-1].de_off : d -> mdbm_dsize) - de -> de_off;
X ip = d -> mdbm_d + de -> de_off;
X if (il < key.dsize ||
X (il == key.dsize && mdbm_compare (ip, key.dptr, il) <= 0))
X continue;
X if (!found || il < bl || (il == bl && mdbm_compare (ip, bp, il) < 0)) {
X bl = il;
X bp = ip;
X found++;
X }
X }
X if (found) {
X bcopy (bp, rval.dptr = d -> mdbm_s, rval.dsize = bl);
X return rval;
X }
X
X /* No item with this hash, so get next hash and return its first item */
X hash = mdbm_hashinc (hash, hmask);
X if (hash == 0) { /* no more */
X rval.dsize = 0;
X rval.dptr = 0;
X return rval;
X }
X return mdbm_firsthash (d, hash);
X}
END_OF_./mdbm/nextkey.c
if test 1627 -ne `wc -c <./mdbm/nextkey.c`; then
echo shar: \"./mdbm/nextkey.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/open.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/open.c\"
else
echo shar: Extracting \"./mdbm/open.c\" \(3310 characters\)
sed "s/^X//" >./mdbm/open.c <<'END_OF_./mdbm/open.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/open.c,v 1.1 84/08/12 10:02:40 chris Rel $";
X#endif
X
X#include "mdbm.h"
X#include "mdbm_local.h"
X#include <stdio.h>
X#include <sys/types.h>
X#include <sys/stat.h>
X#ifdef SYSV
X#include <fcntl.h>
X#else
X#include <sys/file.h>
X#endif
X#include <errno.h>
X
X/*
X * Open or create a database
X */
Xstruct mdbm *mdbm_open (file, flags, mode, adsize, amsize, comment)
Xchar *file;
Xint flags, mode;
Xint *adsize, *amsize;
Xchar *comment;
X{
X register struct mdbm *d;
X struct stat stat;
X struct mdbm_h mdbm_h;
X int dsize,
X msize,
X l;
X char *namebuf,
X *p;
X char *strcpy ();
X char *strncpy ();
X extern int errno;
X
X /* get a descriptor */
X if ((d = (struct mdbm *) malloc (sizeof *d)) == 0) {
X errno = ENOMEM;
X return 0;
X }
X /* get enough room for the file names */
X l = strlen (file);
X if ((namebuf = malloc ((unsigned) (l + 5))) == 0) {
X l = ENOMEM;
X goto out;
X }
X
X /* find out how big the buffers should be, if this is a new db */
X dsize = adsize == 0 || *adsize == 0 ? MDBM_DefaultDataSize : *adsize;
X msize = amsize == 0 || *amsize == 0 ? MDBM_DefaultMapSize : *amsize;
X if (dsize < MDBM_MinDataSize)
X dsize = MDBM_MinDataSize;
X if (msize < MDBM_MinMapSize)
X msize = MDBM_MinMapSize;
X
X /* fix up the mode, then open them files */
X if ((flags & 3) == O_WRONLY)
X flags = (flags & ~3) | O_RDWR;
X (void) strcpy (namebuf, file);
X p = &namebuf[l];
X (void) strcpy (p, ".dat");
X if ((d -> mdbm_datafd = open (namebuf, flags, mode)) < 0) {
X l = errno;
X goto out;
X }
X (void) strcpy (p, ".map");
X if ((d -> mdbm_mapfd = open (namebuf, flags, mode)) < 0) {
X l = errno;
X goto out1;
X }
X free (namebuf);
X
X /* initialize the dbm descriptor */
X d -> mdbm_flags = (flags & 3) == O_RDONLY ? MDBM_ISRONLY : 0;
X
X (void) fstat (d -> mdbm_mapfd, &stat);
X if (stat.st_size == 0) {
X mdbm_h.mh_dsize = dsize;
X mdbm_h.mh_msize = msize;
X bzero (mdbm_h.mh_comment, MDBM_CSIZ);
X (void) strncpy (mdbm_h.mh_comment,
X comment && *comment ? comment : file, MDBM_CSIZ);
X mdbm_h.mh_comment[MDBM_CSIZ - 1] = 0;
X if ((d -> mdbm_flags & MDBM_ISRONLY) == 0)
X if (write (d -> mdbm_mapfd, (char *) & mdbm_h, sizeof mdbm_h) !=
X sizeof mdbm_h)
X goto out2;
X }
X else {
X if (read (d -> mdbm_mapfd, (char *) & mdbm_h, sizeof mdbm_h) !=
X sizeof mdbm_h) {
X l = EINVAL;
X goto out2;
X }
X dsize = mdbm_h.mh_dsize;
X msize = mdbm_h.mh_msize;
X }
X if (adsize)
X *adsize = dsize;
X if (amsize)
X *amsize = msize;
X if (comment)
X (void) strncpy (comment, mdbm_h.mh_comment, MDBM_CSIZ);
X if ((d -> mdbm_d = malloc ((unsigned) dsize)) == 0) {
X l = ENOMEM;
X goto out2;
X }
X if ((d -> mdbm_s = malloc ((unsigned) dsize)) == 0) {
X free (d -> mdbm_d);
X l = ENOMEM;
X goto out2;
X }
X if ((d -> mdbm_m = malloc ((unsigned) msize)) == 0) {
X free (d -> mdbm_s);
X free (d -> mdbm_d);
X l = ENOMEM;
X goto out2;
X }
X d -> mdbm_dsize = dsize;
X d -> mdbm_msize = msize;
X d -> mdbm_maxbit = (stat.st_size - sizeof mdbm_h) * BYTESIZ;
X d -> mdbm_dblock = -1;
X d -> mdbm_mblock = -1;
X
X return d;
X
Xout2:
X (void) close (d -> mdbm_datafd);
Xout1:
X (void) close (d -> mdbm_mapfd);
Xout:
X free ((char *) d);
X errno = l;
X return 0;
X}
END_OF_./mdbm/open.c
if test 3310 -ne `wc -c <./mdbm/open.c`; then
echo shar: \"./mdbm/open.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/search.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/search.c\"
else
echo shar: Extracting \"./mdbm/search.c\" \(1528 characters\)
sed "s/^X//" >./mdbm/search.c <<'END_OF_./mdbm/search.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/search.c,v 1.1 84/08/12 10:03:12 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Search for the given key, and if found, return a pointer to the
X * datum under the key. If ablock and aindex are nonzero, fill in
X * the block and index numbers of the key. If justkey is true,
X * forget about the datum and stop when the key is found.
X *
X * (Workhorse for fetch, also used by delete & store.)
X */
Xstruct mdbm_dentry *mdbm_search (d, s, len, ablock, aindex, justkey)
Xregister struct mdbm *d;
Xchar *s;
Xregister int len;
Xlong *ablock;
Xint *aindex;
Xint justkey;
X{
X#define db ((struct mdbm_dblock *) d -> mdbm_d)
X register struct mdbm_dentry *de;
X register int i;
X register unsigned short outx;
X long outh;
X
X (void) mdbm_access (d, mdbm_calchash (s, len));
X for (i = 0, de = db -> db_e; i < db -> db_n; i++, de++) {
X if (de -> de_outx == 0) /* not a key */
X continue;
X if (len == (i ? de[-1].de_off : d -> mdbm_dsize) - de -> de_off)
X if (bcmp (s, d -> mdbm_d + de -> de_off, len) == 0)
X goto found;
X }
X return 0;
Xfound:
X if (ablock)
X *ablock = d -> mdbm_dblock;
X if (aindex)
X *aindex = i;
X if (justkey)
X return de;
X outx = de -> de_outx;
X (void) mdbm_access (d, outh = de -> de_outh);
X for (i = 0, de = db -> db_e; i < db -> db_n; i++, de++)
X if (de -> de_inx == outx)
X return de;
X printf ("mdbm bug: no datum for key (%d, %d)\n", outh, outx);
X return 0;
X}
END_OF_./mdbm/search.c
if test 1528 -ne `wc -c <./mdbm/search.c`; then
echo shar: \"./mdbm/search.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/sync.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/sync.c\"
else
echo shar: Extracting \"./mdbm/sync.c\" \(423 characters\)
sed "s/^X//" >./mdbm/sync.c <<'END_OF_./mdbm/sync.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/sync.c,v 1.1 84/08/12 10:04:03 chris Rel $";
X#endif
X
X#include <stdio.h>
X#include "mdbm.h"
X#include "mdbm_local.h"
X
X/*
X * Sync the file attached to dbm d
X */
Xmdbm_sync (d)
Xregister struct mdbm *d;
X{
X MDBM_SYNC (d);
X#ifdef SYSV
X (void) sync ();
X (void) sync ();
X#else
X (void) fsync (d -> mdbm_datafd);
X (void) fsync (d -> mdbm_mapfd);
X#endif
X}
END_OF_./mdbm/sync.c
if test 423 -ne `wc -c <./mdbm/sync.c`; then
echo shar: \"./mdbm/sync.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f ./mdbm/testdbm.c -a "${1}" != "-c" ; then
echo shar: Will not over-write existing file \"./mdbm/testdbm.c\"
else
echo shar: Extracting \"./mdbm/testdbm.c\" \(5554 characters\)
sed "s/^X//" >./mdbm/testdbm.c <<'END_OF_./mdbm/testdbm.c'
X#ifndef lint
Xstatic char rcsid[] = "$Header: /ful/chris/dist/mdbm/testdbm.c,v 1.1 84/08/12 10:04:23 chris Rel $";
X#endif lint
X
X/*
X * testdbm - test the new multiple key database library
X */
X
X#include "mdbm.h"
X#include <stdio.h>
X#include <sys/types.h>
X#ifdef SYSV
X#include <fcntl.h>
X#else
X#include <sys/file.h>
X#endif
X#include <ctype.h>
X
Xstruct mdbm *mp;
X#define NAV 10
Xstruct stringarg {
X int s_len;
X char *s_str;
X} av[NAV];
X
Xint c_open (), c_close (), c_fetch (), c_insert (), c_replace ();
Xint c_delete (), c_list (), c_quit (), c_sync ();
X
Xstruct cmd {
X char *c_name;
X int (*c_func)();
X int c_args;
X} cmds[] = {
X "open", c_open, 2,
X "open", c_open, 4,
X "open", c_open, 5,
X "close", c_close, 1,
X "fetch", c_fetch, 2,
X "get", c_fetch, 2,
X "insert", c_insert, 3,
X "store", c_insert, 3,
X "replace", c_replace, 3,
X "delete", c_delete, 2,
X "list", c_list, 1,
X "quit", c_quit, 1,
X "sync", c_sync, 1,
X 0, 0, 0
X};
Xchar serrbuf[BUFSIZ];
X
X#define checkdb() \
X if (!mp) { \
X fprintf (stderr, "no database active\n"); \
X return; \
X } \
X else
X
Xmain () {
X char cmdbuf[BUFSIZ];
X
X setbuf (stderr, serrbuf);
X for (;;) {
X fflush (stderr);
X printf ("testdbm> ");
X fflush (stdout);
X if (fgets (cmdbuf, sizeof cmdbuf, stdin) == NULL) {
X putchar ('\n');
X c_quit (0);
X }
X if (doit (cmdbuf))
X printf ("Eh?\n");
X }
X}
X
Xdoit (s)
Xchar *s;
X{
X register int argc = parse (s);
X register struct cmd *cp;
X
X if (argc < 1)
X return 0;
X if (av[0].s_len < 1)
X return 1;
X for (cp = cmds; cp -> c_name; cp++) {
X if (cp -> c_args != argc)
X continue;
X if (strncmp (cp -> c_name, av[0].s_str, av[0].s_len) == 0) {
X (*cp -> c_func) (argc);
X return 0;
X }
X }
X return 1;
X}
X
Xc_open (argc) {
X int dsize, msize;
X static char comment[MDBM_CSIZ];
X
X if (mp)
X (void) mdbm_close (mp);
X if (argc == 5)
X strncpy (comment, av[4].s_str, sizeof comment);
X else
X *comment = 0;
X if (argc >= 4) {
X dsize = atoi (av[2].s_str);
X msize = atoi (av[3].s_str);
X }
X else
X dsize = msize = 0;
X mp = mdbm_open (av[1].s_str, O_RDWR|O_CREAT, 0666, &dsize, &msize, comment);
X if (mp == 0) {
X fprintf (stderr, "can't open ");
X perror (av[1].s_str);
X return;
X }
X comment[sizeof comment - 1] = 0;
X printf ("opened %s - dsize %d, msize %d, comment %s\n",
X av[1].s_str, dsize, msize, comment);
X}
X
Xc_close (argc) {
X if (mp)
X (void) mdbm_close (mp);
X mp = 0;
X}
X
Xc_fetch (argc) {
X datum key, dat;
X
X checkdb ();
X key.dptr = av[1].s_str;
X key.dsize = av[1].s_len;
X dat = mdbm_fetch (mp, key);
X prdatum (key);
X printf (": ");
X if (dat.dptr == 0)
X printf ("not found");
X else
X prdatum (dat);
X putchar ('\n');
X}
X
Xprdatum (d)
Xdatum d;
X{
X register char *p;
X register int c;
X register int i;
X
X i = d.dsize;
X p = d.dptr;
X while (--i >= 0) {
X c = *p++ & 0377;
X if (c & 0200) {
X putchar ('M'), putchar ('-');
X c &= 0177;
X }
X if (c == 0177 || c < ' ') {
X putchar ('^');
X if (c == 0177)
X putchar ('?');
X else
X putchar (c + '@');
X }
X else
X putchar (c);
X }
X}
X
Xc_insert (argc) {
X datum key, dat;
X int e;
X
X checkdb ();
X key.dptr = av[1].s_str;
X key.dsize = av[1].s_len;
X dat.dptr = av[2].s_str;
X dat.dsize = av[2].s_len;
X e = mdbm_store (mp, key, dat, MDBM_INSERT);
X if (e == 0)
X return;
X if (e < 0)
X perror ("store failed");
X else
X fprintf (stderr, "insert failed, key in use\n");
X}
X
Xc_replace (argc) {
X datum key, dat;
X int e;
X
X checkdb ();
X key.dptr = av[1].s_str;
X key.dsize = av[1].s_len;
X dat.dptr = av[2].s_str;
X dat.dsize = av[2].s_len;
X if (mdbm_store (mp, key, dat, MDBM_REPLACE))
X perror ("store failed");
X}
X
Xc_delete (argc) {
X datum key;
X
X checkdb ();
X key.dptr = av[1].s_str;
X key.dsize = av[1].s_len;
X if (mdbm_delete (mp, key))
X perror ("delete failed");
X}
X
Xc_list () {
X datum key, dat;
X
X checkdb ();
X for (key = mdbm_firstkey (mp); key.dptr; key = mdbm_nextkey (mp, key)) {
X dat = mdbm_fetch (mp, key);
X prdatum (key);
X printf (": ");
X if (dat.dptr == 0)
X printf ("datum not found!");
X else
X prdatum (dat);
X putchar ('\n');
X }
X}
X
Xc_quit () {
X if (mp)
X (void) mdbm_close (mp);
X exit (0);
X}
X
Xc_sync () {
X checkdb ();
X mdbm_sync (mp);
X}
X
Xparse (s)
Xregister char *s;
X{
X register struct stringarg *ap;
X register int aleft;
X register int qu = 0;
X register char *cp;
X register int c;
X static char xbuf[BUFSIZ];
X char *malloc ();
X
X for (ap = av, aleft = NAV; --aleft >= 0; ap++)
X if (ap -> s_str) {
X free (ap -> s_str);
X ap -> s_str = 0;
X }
X
X ap = av;
X aleft = NAV;
X while (*s) {
X while (isspace (*s))
X s++;
X if (!*s)
X break;
X qu = 0;
X cp = xbuf;
X while (((c = *s) != 0) && (qu || !isspace (c))) {
X s++;
X if (qu == '\\') {
X switch (c) {
X case 'n':
X c = '\n';
X break;
X case 'r':
X c = '\r';
X break;
X case 't':
X c = '\t';
X break;
X case 'b':
X c = '\b';
X break;
X case 'f':
X c = '\f';
X break;
X case '0':
X case '1':
X case '2':
X case '3':
X case '4':
X case '5':
X case '6':
X case '7':
X c -= '0';
X if (*s >= '0' && *s <= '7') {
X c = (c << 3) + *s++ - '0';
X if (*s >= '0' && *s <= '7')
X c = (c << 3) + *s++ - '0';
X }
X break;
X }
X *cp++ = c;
X qu = 0;
X }
X else if (c == qu)
X qu = 0;
X else if (qu == 0 && (c == '\'' || c == '"' || c == '\\'))
X qu = c;
X else
X *cp++ = c;
X }
X *cp++ = 0;
X if (--aleft < 0) {
X fprintf (stderr, "too many argv's\n");
X return 0;
X }
X ap -> s_str = malloc (cp - xbuf);
X ap -> s_len = cp - xbuf;
X bcopy (xbuf, ap -> s_str, ap -> s_len);
X ap -> s_len--; /* stop counting trailing \0 */
X ap++;
X }
X return NAV - aleft;
X}
END_OF_./mdbm/testdbm.c
if test 5554 -ne `wc -c <./mdbm/testdbm.c`; then
echo shar: \"./mdbm/testdbm.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 1 \(of 2\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 2 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked both archives.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
---
But don't underestimate raw, frothing, manic hardware.
(barry shein)
Randy Suess
..!att!chinet!randy
--
But don't underestimate raw, frothing, manic hardware.
(barry shein)
Randy Suess
..!att!chinet!randy
More information about the Comp.sys.att
mailing list