|
|
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: longjmp (toplevel, NOTOK);
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 (LLOG_EXCEPTIONS, NULLCP, "%s: %s", event, buffer);
26: }
27:
28:
29: void acs_advise (aca, event)
30: register struct AcSAPabort *aca;
31: char *event;
32: {
33: char buffer[BUFSIZ];
34:
35: if (aca -> aca_cc > 0)
36: (void) sprintf (buffer, "[%s] %*.*s",
37: AcErrString (aca -> aca_reason),
38: aca -> aca_cc, aca -> aca_cc, aca -> aca_data);
39: else
40: (void) sprintf (buffer, "[%s]", AcErrString (aca -> aca_reason));
41:
42: advise (LLOG_EXCEPTIONS, NULLCP, "%s: %s (source %d)", event, buffer,
43: aca -> aca_source);
44: }
45:
46:
47: #ifndef lint
48: void adios (va_alist)
49: va_dcl
50: {
51: va_list ap;
52:
53: va_start (ap);
54:
55: _ll_log (pgm_log, LLOG_FATAL, ap);
56:
57: va_end (ap);
58:
59: _exit (1);
60: }
61: #else
62: /* VARARGS2 */
63:
64: void adios (what, fmt)
65: char *what,
66: *fmt;
67: {
68: adios (what, fmt);
69: }
70: #endif
71:
72:
73: #ifndef lint
74: void advise (va_alist)
75: va_dcl
76: {
77: int code;
78: va_list ap;
79:
80: va_start (ap);
81:
82: code = va_arg (ap, int);
83:
84: _ll_log (pgm_log, code, ap);
85:
86: va_end (ap);
87: }
88: #else
89: /* VARARGS3 */
90:
91: void advise (code, what, fmt)
92: char *what,
93: *fmt;
94: int code;
95: {
96: advise (code, what, fmt);
97: }
98: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.