sh_find.c

Go to the documentation of this file.

/*
** Copyright (C) 2002 by Kevin L. Mitchell <klmitch@mit.edu>
**
** This library is free software; you can redistribute it and/or
** modify it under the terms of the GNU Library General Public
** License as published by the Free Software Foundation; either
** version 2 of the License, or (at your option) any later version.
**
** This library is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
** Library General Public License for more details.
**
** You should have received a copy of the GNU Library General Public
** License along with this library; if not, write to the Free
** Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
** MA 02111-1307, USA
**
** @(#)$Id: sh_find.c,v 1.3 2006/07/13 19:16:24 klmitch Exp $
*/
#include "dbprim.h"
#include "dbprim_int.h"

RCSTAG("@(#)$Id: sh_find.c,v 1.3 2006/07/13 19:16:24 klmitch Exp $");

struct _sh_find_s {
  smat_comp_t   sf_comp;        
  db_key_t     *sf_key;         
};

static unsigned long
_sh_find_comp(db_key_t *key, void *data)
{
  struct _sh_find_s *sf;

  sf = dk_key(key);

  /* Call the user's comparison function--with some translation */
  return (*sf->sf_comp)(sf->sf_key, data);
}

unsigned long
sh_find(smat_head_t *head, smat_entry_t **elem_p, smat_comp_t comp_func,
        smat_entry_t *start, db_key_t *key)
{
  unsigned long retval;
  link_elem_t *elem;
  struct _sh_find_s sf;
  db_key_t fkey;

  initialize_dbpr_error_table(); /* initialize error table */

  /* verify arguments */
  if (!sh_verify(head) || !elem_p || !comp_func || !key ||
      (start && !se_verify(start)))
    return DB_ERR_BADARGS;

  /* Set up for the call to ll_find()... */
  sf.sf_comp = comp_func;
  sf.sf_key = key;
  dk_key(&fkey) = &sf;

  /* call into the linked list library to find the element */
  if ((retval = ll_find(&head->sh_head, &elem, _sh_find_comp,
                        start ? &start->se_link[head->sh_elem] : 0, &fkey)))
    return retval;

  *elem_p = le_object(elem); /* set the entry pointer correctly */

  return 0;
}

---