1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
/*
* 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 <string.h>
#include <stdio.h>
#include <search.h>
libc_hidden_proto(lfind)
#ifdef L_lfind
void *lfind(const void *key, const void *base, size_t *nmemb,
size_t size, int (*compar)(const void *, const void *))
{
register int n = *nmemb;
while (n--) {
if ((*compar) (base, key) == 0)
return ((void*)base);
base += size;
}
return (NULL);
}
libc_hidden_def(lfind)
#endif
#ifdef L_lsearch
libc_hidden_proto(memcpy)
void *lsearch(const void *key, void *base, size_t *nmemb,
size_t size, int (*compar)(const void *, const void *))
{
register char *p;
if ((p = lfind(key, base, nmemb, size, compar)) == NULL) {
p = memcpy((base + (size * (*nmemb))), key, size);
++(*nmemb);
}
return (p);
}
#endif
|
