/* ssdu2pe.c - read a PE from SSDU */
static char *rcsid
= "$Header: /f/osi/psap/RCS/ssdu2pe.c,v 7.1 91/02/22 09:37:02 mrose Interim $";
* $Header: /f/osi/psap/RCS/ssdu2pe.c,v 7.1 91/02/22 09:37:02 mrose Interim $
* Revision 7.1 91/02/22 09:37:02 mrose
* Revision 7.0 89/11/23 22:13:44 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
PE
ssdu2pe (base
, len
, realbase
, result
)
if ((ps
= ps_alloc (str_open
)) == NULLPS
) {
if (str_setup (ps
, base
, len
, 1) == OK
) {
pe
-> pe_realbase
= realbase
;
ps
-> ps_errno
= PS_ERR_NONE
;
if (ps
-> ps_errno
== PS_ERR_NONE
)
ps
-> ps_errno
= PS_ERR_EOF
;
*result
= ps
-> ps_errno
;
if (pe
&& (psap_log
-> ll_events
& LLOG_PDUS
))
pe2text (psap_log
, pe
, 1, len
);