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
|
/*
* 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 <stdio.h>
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);
}
|
