1 |
greg |
1.1 |
/* Copyright (c) 1991 Regents of the University of California */ |
2 |
|
|
|
3 |
|
|
#ifndef lint |
4 |
|
|
static char SCCSid[] = "$SunId$ LBL"; |
5 |
|
|
#endif |
6 |
|
|
|
7 |
|
|
/* |
8 |
|
|
* error.c - standard error reporting function |
9 |
|
|
*/ |
10 |
|
|
|
11 |
|
|
#include "standard.h" |
12 |
|
|
|
13 |
gregl |
2.3 |
#ifndef linux |
14 |
greg |
1.1 |
extern char *sys_errlist[]; /* system error list */ |
15 |
|
|
extern int sys_nerr; /* number of system errors */ |
16 |
gregl |
2.3 |
#endif |
17 |
gregl |
2.4 |
/* global list of error actions */ |
18 |
|
|
struct erract erract[NERRS] = ERRACT_INIT; |
19 |
greg |
1.1 |
|
20 |
greg |
2.2 |
char errmsg[512]; /* global error message buffer */ |
21 |
greg |
1.1 |
|
22 |
|
|
|
23 |
|
|
error(etype, emsg) /* report error, quit if necessary */ |
24 |
|
|
int etype; |
25 |
|
|
char *emsg; |
26 |
|
|
{ |
27 |
gregl |
2.4 |
register struct erract *ep; |
28 |
|
|
|
29 |
|
|
if (etype < 0 | etype >= NERRS) |
30 |
greg |
1.1 |
return; |
31 |
gregl |
2.4 |
ep = erract + etype; |
32 |
|
|
if (ep->pf != NULL) { |
33 |
|
|
(*ep->pf)(ep->pre); |
34 |
|
|
(*ep->pf)(emsg); |
35 |
|
|
if (etype == SYSTEM && errno > 0) { |
36 |
|
|
(*ep->pf)(": "); |
37 |
greg |
1.1 |
if (errno <= sys_nerr) |
38 |
gregl |
2.4 |
(*ep->pf)(sys_errlist[errno]); |
39 |
greg |
1.1 |
else |
40 |
gregl |
2.4 |
(*ep->pf)("Unknown error"); |
41 |
greg |
1.1 |
} |
42 |
gregl |
2.4 |
(*ep->pf)("\n"); |
43 |
|
|
} |
44 |
|
|
if (!ep->ec) /* non-fatal */ |
45 |
|
|
return; |
46 |
|
|
if (ep->ec < 0) /* dump core */ |
47 |
greg |
1.1 |
abort(); |
48 |
gregl |
2.4 |
quit(ep->ec); /* quit calls exit after cleanup */ |
49 |
greg |
1.1 |
} |