1 files changed, 47 insertions, 0 deletions
diff --git a/libc/misc/lsearch.c b/libc/misc/lsearch.c
new file mode 100644
index 0000000..f3253e9
--- /dev/null
+++ b/libc/misc/lsearch.c
@@ -0,0 +1,47 @@
+/*
+ * 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);
+}