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
|
/*
* 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>
#ifdef L_lfind
void attribute_hidden *__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);
}
strong_alias(__lfind,lfind)
#endif
#ifdef L_lsearch
extern void *__lfind (__const void *__key, __const void *__base,
size_t *__nmemb, size_t __size, __compar_fn_t __compar) attribute_hidden;
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
|
