/* seq_add.c - add an element to a sequence */
static char *rcsid
= "$Header: /f/osi/psap/RCS/seq_add.c,v 7.1 91/02/22 09:36:51 mrose Interim $";
* $Header: /f/osi/psap/RCS/seq_add.c,v 7.1 91/02/22 09:36:51 mrose Interim $
* Revision 7.1 91/02/22 09:36:51 mrose
* Revision 7.0 89/11/23 22:13:35 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
return pe_seterr (pe
, PE_ERR_NMEM
, NOTOK
);
for (p
= &pe
-> pe_cons
; q
= *p
; p
= &q
-> pe_next
)
if (q
-> pe_offset
== i
) {
r
-> pe_next
= q
-> pe_next
;
if (q
-> pe_offset
> i
) {
if ((r
-> pe_offset
= i
) >= pe
-> pe_cardinal
)
pe
-> pe_cardinal
= i
+ 1;