|
|
1.1 root 1: /* psapreport.c - PPM: exception reports */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/psap2/RCS/psapreport.c,v 7.0 89/11/23 22:14:28 mrose Rel $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/psap2/RCS/psapreport.c,v 7.0 89/11/23 22:14:28 mrose Rel $
9: *
10: *
11: * $Log: psapreport.c,v $
12: * Revision 7.0 89/11/23 22:14:28 mrose
13: * Release 6.0
14: *
15: */
16:
17: /*
18: * NOTICE
19: *
20: * Acquisition, use, and distribution of this module and related
21: * materials are subject to the restrictions of a license agreement.
22: * Consult the Preface in the User's Manual for the full terms of
23: * this agreement.
24: *
25: */
26:
27:
28: /* LINTLIBRARY */
29:
30: #include <stdio.h>
31: #include <signal.h>
32: #include "ppkt.h"
33:
34: /* P-U-EXCEPTION-REPORT.REQUEST */
35:
36: int PUReportRequest (sd, reason, data, ndata, pi)
37: int sd;
38: int reason,
39: ndata;
40: PE *data;
41: struct PSAPindication *pi;
42: {
43: SBV smask;
44: int len,
45: result;
46: char *base,
47: *realbase;
48: register struct psapblk *pb;
49: struct SSAPindication sis;
50: register struct SSAPabort *sa = &sis.si_abort;
51:
52: toomuchP (data, ndata, NPDATA, "report");
53: missingP (pi);
54:
55: smask = sigioblock ();
56:
57: psapPsig (pb, sd);
58:
59: if ((result = info2ssdu (pb, pi, data, ndata, &realbase, &base, &len,
60: "P-U-EXCEPTION-REPORT user-data", PPDU_NONE))
61: != OK)
62: goto out2;
63:
64: if ((result = SUReportRequest (sd, reason, base, len, &sis)) == NOTOK)
65: if (SC_FATAL (sa -> sa_reason))
66: (void) ss2pslose (pb, pi, "SUReportRequest", sa);
67: else {
68: (void) ss2pslose (NULLPB, pi, "SUReportRequest", sa);
69: goto out1;
70: }
71:
72: out2: ;
73: if (result == NOTOK)
74: freepblk (pb);
75: else
76: if (result == DONE)
77: result = NOTOK;
78: out1: ;
79: if (realbase)
80: free (realbase);
81: else
82: if (base)
83: free (base);
84:
85: (void) sigiomask (smask);
86:
87: return result;
88: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.