From 1eb3e9989a8241c1654788fc7589e1f679e73dff Mon Sep 17 00:00:00 2001 From: Eric Andersen Date: Wed, 11 Oct 2000 22:08:28 +0000 Subject: New misc tree that actually has misc stuff in it. --- libc/misc/lsearch/lsearch.c | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 libc/misc/lsearch/lsearch.c (limited to 'libc/misc/lsearch/lsearch.c') diff --git a/libc/misc/lsearch/lsearch.c b/libc/misc/lsearch/lsearch.c new file mode 100644 index 000000000..aed4b1e7d --- /dev/null +++ b/libc/misc/lsearch/lsearch.c @@ -0,0 +1,43 @@ +/* + * This file lifted in toto from 'Dlibs' on the atari ST (RdeBath) + * + * + * Dale Schumacher 399 Beacon Ave. + * (alias: Dalnefre') St. Paul, MN 55104 + * dal@syntel.UUCP United States of America + * "It's not reality that's important, but how you perceive things." + */ + +#include + +char *lfind(key, base, num, size, cmp) +register char *key, *base; +unsigned int *num; +register unsigned int size; +register int (*cmp) (); +{ + register int n = *num; + + while (n--) { + if ((*cmp) (base, key) == 0) + return (base); + base += size; + } + return (NULL); +} + +char *lsearch(key, base, num, size, cmp) +char *key, *base; +register unsigned int *num; +register unsigned int size; +int (*cmp) (); +{ + register char *p; + char *memcpy(); + + if ((p = lfind(key, base, num, size, cmp)) == NULL) { + p = memcpy((base + (size * (*num))), key, size); + ++(*num); + } + return (p); +} -- cgit v1.2.3