|
|
1.1 root 1: ...
2:
3: void ros_adios (rop, event)
4: register struct RoSAPpreject *rop;
5: char *event;
6: {
7: ros_advise (rop, event);
8:
9: _exit (1);
10: }
11:
12:
13: void ros_advise (rop, event)
14: register struct RoSAPpreject *rop;
15: char *event;
16: {
17: char buffer[BUFSIZ];
18:
19: if (rop -> rop_cc > 0)
20: (void) sprintf (buffer, "[%s] %*.*s", RoErrString (rop -> rop_reason),
21: rop -> rop_cc, rop -> rop_cc, rop -> rop_data);
22: else
23: (void) sprintf (buffer, "[%s]", RoErrString (rop -> rop_reason));
24:
25: advise (NULLCP, "%s: %s", event, buffer);
26: }
27:
28:
29: void acs_adios (aca, event)
30: register struct AcSAPabort *aca;
31: char *event;
32: {
33: acs_advise (aca, event);
34:
35: _exit (1);
36: }
37:
38:
39: void acs_advise (aca, event)
40: register struct AcSAPabort *aca;
41: char *event;
42: {
43: char buffer[BUFSIZ];
44:
45: if (aca -> aca_cc > 0)
46: (void) sprintf (buffer, "[%s] %*.*s",
47: AcErrString (aca -> aca_reason),
48: aca -> aca_cc, aca -> aca_cc, aca -> aca_data);
49: else
50: (void) sprintf (buffer, "[%s]", AcErrString (aca -> aca_reason));
51:
52: advise (NULLCP, "%s: %s (source %d)", event, buffer,
53: aca -> aca_source);
54: }
55:
56:
57: #ifndef lint
58: void _advise ();
59:
60:
61: void adios (va_alist)
62: va_dcl
63: {
64: va_list ap;
65:
66: va_start (ap);
67:
68: _advise (ap);
69:
70: va_end (ap);
71:
72: _exit (1);
73: }
74: #else
75: /* VARARGS */
76:
77: void adios (what, fmt)
78: char *what,
79: *fmt;
80: {
81: adios (what, fmt);
82: }
83: #endif
84:
85:
86: #ifndef lint
87: void advise (va_alist)
88: va_dcl
89: {
90: va_list ap;
91:
92: va_start (ap);
93:
94: _advise (ap);
95:
96: va_end (ap);
97: }
98:
99:
100: static void _advise (ap)
101: va_list ap;
102: {
103: char buffer[BUFSIZ];
104:
105: asprintf (buffer, ap);
106:
107: (void) fflush (stdout);
108:
109: fprintf (stderr, "%s: ", myname);
110: (void) fputs (buffer, stderr);
111: (void) fputc ('\n', stderr);
112:
113: (void) fflush (stderr);
114: }
115: #else
116: /* VARARGS */
117:
118: void advise (what, fmt)
119: char *what,
120: *fmt;
121: {
122: advise (what, fmt);
123: }
124: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.