/* set_del.c - remove member from set */
static char *rcsid
= "$Header: /f/osi/psap/RCS/set_del.c,v 7.1 91/02/22 09:36:58 mrose Interim $";
* $Header: /f/osi/psap/RCS/set_del.c,v 7.1 91/02/22 09:36:58 mrose Interim $
* Revision 7.1 91/02/22 09:36:58 mrose
* Revision 7.0 89/11/23 22:13:40 mrose
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
int set_del (pe
, class, id
)
register PElementClass
class;
pe_id
= PE_ID (class, id
);
for (p
= &pe
-> pe_cons
; q
= *p
; p
= &q
-> pe_next
)
if (PE_ID (q
-> pe_class
, q
-> pe_id
) == pe_id
) {
return pe_seterr (pe
, PE_ERR_MBER
, NOTOK
);