49 lines
1.3 KiB
C
49 lines
1.3 KiB
C
|
/*
|
||
|
|
* Copyright (c) 1992, 1993 by the University of Southern California
|
||
|
|
*
|
||
|
|
* For copying and distribution information, please see the file
|
||
|
|
* <usc-copyr.h>
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <usc-copyr.h>
|
||
|
|
#include <pfs.h> /* def of PATTRIB */
|
||
|
|
#include <psrv.h> /* prototype for delete_matching_at() */
|
||
|
|
#include <list_macros.h> /* EXTRACT_ITEM macro */
|
||
|
|
#include <perrno.h>
|
||
|
|
|
||
|
|
/* Looks for an attribute equal to the key according to the equal function.
|
||
|
|
Deletes & frees it.
|
||
|
|
Returns: PSUCCESS or PFAILURE
|
||
|
|
This is currently only used in ed_link_info.c and ed_obj_info.c
|
||
|
|
*/
|
||
|
|
int
|
||
|
|
delete_matching_at(PATTRIB key, PATTRIB *headp, int (*equal)(PATTRIB, PATTRIB))
|
||
|
|
{
|
||
|
|
/* ick - this was "index" which is defined as a macro */
|
||
|
|
PATTRIB ind;
|
||
|
|
/* Find the match. */
|
||
|
|
for (ind = *headp; ind; ind = ind->next) {
|
||
|
|
if ((*equal)(key, ind)) {
|
||
|
|
EXTRACT_ITEM(ind, (*headp));
|
||
|
|
atfree(ind);
|
||
|
|
return PSUCCESS;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
RETURNPFAILURE;
|
||
|
|
}
|
||
|
|
|
||
|
|
int
|
||
|
|
delete_matching_fl(FILTER key, FILTER *headp)
|
||
|
|
{
|
||
|
|
FILTER ind;
|
||
|
|
/* Find the match. */
|
||
|
|
for (ind = *headp; ind; ind = ind->next) {
|
||
|
|
if (equal_filters(key, ind)) {
|
||
|
|
EXTRACT_ITEM(ind, (*headp));
|
||
|
|
flfree(ind);
|
||
|
|
return PSUCCESS;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
RETURNPFAILURE;
|
||
|
|
}
|