Subversion Repositories or1k

/*

 * 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);

}