#ident "$URL: svn://elmer/devel/SVN/SDDAS/trunk/libant/ListFromList.c $ %D% SwRI"
/* ListFrom List.c */

#include "LinkList.h"

/* ListFromList -- apply function to one list to create another */
LinkList
ListFromList(
LinkList inlist,
LinkFilter fun)
{
  LinkList outlist=0;

  for (; inlist; inlist = LinkNext(inlist))
    {
      void* data = fun(LinkData(inlist));
      if (data)
	outlist = LinkAppend(outlist,data);
    }
  return outlist;
}