|
|
1.1 root 1: \File{ryresp\-error.c},{16:19},{May 30 1989}
2: \L{\LB{...}}
3: \L{\LB{}}
4: \L{\LB{\K{void}}\Tab{8}{ros\_adios (rop, event)}}
5: \L{\LB{\K{register} \K{struct} RoSAPpreject *rop;}}
6: \L{\LB{\K{char} *event;}}
7: \L{\LB{\{}}
8: \L{\LB{ ros\_advise (rop, event);}}
9: \L{\LB{}}
10: \L{\LB{ longjmp (toplevel, NOTOK);}}
11: \L{\LB{\}}}
12: \L{\LB{}}
13: \L{\LB{}}
14: \L{\LB{\K{void}}\Tab{8}{ros\_advise (rop, event)}}
15: \L{\LB{\K{register} \K{struct} RoSAPpreject *rop;}}
16: \L{\LB{\K{char} *event;}}
17: \L{\LB{\{}}
18: \L{\LB{ \K{char} buffer[BUFSIZ];}}
19: \L{\LB{}}
20: \L{\LB{ \K{if} (rop \-\> rop\_cc \> 0)}}
21: \L{\LB{}\Tab{8}{(\K{void}) sprintf (buffer, \S{}\"[\%s] \%*.*s\"\SE{}, RoErrString (rop \-\> rop\_reason),}}
22: \L{\LB{}\Tab{16}{rop \-\> rop\_cc, rop \-\> rop\_cc, rop \-\> rop\_data);}}
23: \L{\LB{ \K{else}}}
24: \L{\LB{}\Tab{8}{(\K{void}) sprintf (buffer, \S{}\"[\%s]\"\SE{}, RoErrString (rop \-\> rop\_reason));}}
25: \L{\LB{}}
26: \L{\LB{ advise (LLOG\_EXCEPTIONS, NULLCP, \S{}\"\%s: \%s\"\SE{}, event, buffer);}}
27: \L{\LB{\}}}
28: \L{\LB{}}
29: \L{\LB{}}
30: \L{\LB{\K{void}}\Tab{8}{acs\_advise (aca, event)}}
31: \L{\LB{\K{register} \K{struct} AcSAPabort *aca;}}
32: \L{\LB{\K{char} *event;}}
33: \L{\LB{\{}}
34: \L{\LB{ \K{char} buffer[BUFSIZ];}}
35: \L{\LB{}}
36: \L{\LB{ \K{if} (aca \-\> aca\_cc \> 0)}}
37: \L{\LB{}\Tab{8}{(\K{void}) sprintf (buffer, \S{}\"[\%s] \%*.*s\"\SE{},}}
38: \L{\LB{}\Tab{16}{AcErrString (aca \-\> aca\_reason),}}
39: \L{\LB{}\Tab{16}{aca \-\> aca\_cc, aca \-\> aca\_cc, aca \-\> aca\_data);}}
40: \L{\LB{ \K{else}}}
41: \L{\LB{}\Tab{8}{(\K{void}) sprintf (buffer, \S{}\"[\%s]\"\SE{}, AcErrString (aca \-\> aca\_reason));}}
42: \L{\LB{}}
43: \L{\LB{ advise (LLOG\_EXCEPTIONS, NULLCP, \S{}\"\%s: \%s (source \%d)\"\SE{}, event, buffer,}}
44: \L{\LB{}\Tab{16}{aca \-\> aca\_source);}}
45: \L{\LB{\}}}
46: \L{\LB{}}
47: \L{\LB{}}
48: \L{\LB{\K{\#ifndef}}\Tab{8}{lint}}
49: \L{\LB{\K{void}}\Tab{8}{adios (va\_alist)}}
50: \L{\LB{va\_dcl}}
51: \L{\LB{\{}}
52: \L{\LB{ va\_list ap;}}
53: \L{\LB{}}
54: \L{\LB{ va\_start (ap);}}
55: \L{\LB{ }}
56: \L{\LB{ \_ll\_log (pgm\_log, LLOG\_FATAL, ap);}}
57: \L{\LB{}}
58: \L{\LB{ va\_end (ap);}}
59: \L{\LB{}}
60: \L{\LB{ \_exit (1);}}
61: \L{\LB{\}}}
62: \L{\LB{\K{\#else}}}
63: \L{\LB{\C{}\/* VARARGS2 *\/\CE{}}}
64: \L{\LB{}}
65: \L{\LB{\K{void}}\Tab{8}{adios (what, fmt)}}
66: \L{\LB{\K{char} *what,}}
67: \L{\LB{ *fmt;}}
68: \L{\LB{\{}}
69: \L{\LB{ adios (what, fmt);}}
70: \L{\LB{\}}}
71: \L{\LB{\K{\#endif}}}
72: \L{\LB{}}
73: \L{\LB{}}
74: \L{\LB{\K{\#ifndef}}\Tab{8}{lint}}
75: \L{\LB{\K{void}}\Tab{8}{advise (va\_alist)}}
76: \L{\LB{va\_dcl}}
77: \L{\LB{\{}}
78: \L{\LB{ \K{int}}\Tab{8}{ code;}}
79: \L{\LB{ va\_list ap;}}
80: \L{\LB{}}
81: \L{\LB{ va\_start (ap);}}
82: \L{\LB{}}
83: \L{\LB{ code = va\_arg (ap, \K{int});}}
84: \L{\LB{}}
85: \L{\LB{ \_ll\_log (pgm\_log, code, ap);}}
86: \L{\LB{}}
87: \L{\LB{ va\_end (ap);}}
88: \L{\LB{\}}}
89: \L{\LB{\K{\#else}}}
90: \L{\LB{\C{}\/* VARARGS3 *\/\CE{}}}
91: \L{\LB{}}
92: \L{\LB{\K{void}}\Tab{8}{advise (code, what, fmt)}}
93: \L{\LB{\K{char} *what,}}
94: \L{\LB{ *fmt;}}
95: \L{\LB{\K{int}}\Tab{8}{code;}}
96: \L{\LB{\{}}
97: \L{\LB{ advise (code, what, fmt);}}
98: \L{\LB{\}}}
99: \L{\LB{\K{\#endif}}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.