1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
/*************************************************
* xfpt - Simple ASCII->Docbook processor *
*************************************************/
/* Copyright (c) University of Cambridge, 2012 */
/* Written by Philip Hazel. */
/* Error handling routines */
#include "xfpt.h"
/* Error codes */
#define ec_noerror 0
#define ec_warning 1
#define ec_serious 2
#define ec_failed 3
#define ec_disaster 4
/*************************************************
* Static variables *
*************************************************/
static int error_count = 0;
static int warning_count = 0;
/*************************************************
* Texts and return codes *
*************************************************/
typedef struct {
char ec;
const char *text;
} error_struct;
static error_struct error_data[] = {
/* 0-4 */
{ ec_disaster, "failed to open %s: %s" },
{ ec_disaster, "malloc failed: requested %d bytes" },
{ ec_serious, "unknown directive line: %s" },
{ ec_serious, "missing semicolon after \"&%.*s\"" },
{ ec_serious, "unexpected character \"%c\" after \"&#\"" },
/* 5-9 */
{ ec_serious, "\"layout\", \"text\", \"xml\", or \"off\" expected, but \"%s\" found" },
{ ec_serious, "unknown flag \"&%c\"" },
{ ec_serious, "missing closing flag %s" },
{ ec_serious, "flag nesting error: \"%s\" expected before \"%s\"" },
{ ec_serious, "a flag must begin with \"&\"" },
/* 10-14 */
{ ec_serious, "a flag must contain more than just \"&\"" },
{ ec_serious, "malformed directive\n %s" },
{ ec_serious, "line stack is empty" },
{ ec_serious, "missing %s at end of file" },
{ ec_serious, "a macro must be given a name" },
/* 15-19 */
{ ec_serious, "%s is permitted only inside a macro" },
{ ec_serious, "unexpected %s" },
{ ec_serious, "bad macro argument substitution: \"%c\" follows \"%s\"" },
{ ec_serious, "relative macro argument not in \"eacharg\" section" },
{ ec_warning, "extra characters at end of directive\n"
" %s %s\n %.*s%.*s" },
/* 20-24 */
{ ec_disaster, "string too long for internal buffer (%d > %d)" },
{ ec_serious, "entity \"%s\" has already been defined" },
{ ec_serious, "\"%s\" is not permitted in an inline macro call" },
{ ec_serious, "unknown macro \"%.*s\" in inline macro call" },
{ ec_serious, "missing closing parenthesis in inline macro call:\n %s" },
/* 25-29 */
{ ec_serious, "ampersand found at end of line or string - ignored" },
{ ec_serious, "\"begin\" or \"end\" expected, but \"%s\" found" },
{ ec_serious, "\".nest begin\" too deeply nested" },
{ ec_serious, "\".nest end\" incorrectly nested" }
};
#define error_maxerror 28
/*************************************************
* Error message generator *
*************************************************/
/* This function output an error or warning message, and may abandon the
process if the error is sufficiently serious, or if there have been too many
less serious errors. If there are too many warnings, subsequent ones are
suppressed.
Arguments:
n error number
... arguments to fill into message
Returns: nothing, but some errors do not return
*/
void
error(int n, ...)
{
int ec, i;
macroexe *me;
istackstr *fe;
va_list ap;
va_start(ap, n);
if (n > error_maxerror)
{
(void)fprintf(stderr, "** Unknown error number %d\n", n);
ec = ec_disaster;
}
else
{
ec = error_data[n].ec;
if (ec == ec_warning)
{
if (suppress_warnings) return;
(void)fprintf(stderr, "** Warning: ");
}
else if (ec > ec_warning)
(void)fprintf(stderr, "** Error: ");
(void)vfprintf(stderr, error_data[n].text, ap);
(void)fprintf(stderr, "\n");
}
va_end(ap);
me = macrocurrent;
fe = istack;
for (i = from_type_ptr; i >= 0; i--)
{
if (from_type[i] == FROM_MACRO)
{
(void)fprintf(stderr, " Processing macro %s\n", me->macro->name);
me = me->prev;
}
else
{
if (fe != NULL)
{
(void)fprintf(stderr, " Detected near line %d of %s\n",
fe->linenumber, fe->filename);
fe = fe->prev;
}
else
{
(void)fprintf(stderr, " Detected near end of file\n");
}
}
}
if (ec == ec_warning)
{
warning_count++;
if (warning_count > 40)
{
(void)fprintf(stderr, "** Too many warnings - subsequent ones suppressed\n");
suppress_warnings = TRUE;
}
}
else if (ec > ec_warning)
{
return_code = EXIT_FAILURE;
error_count++;
if (error_count > 40)
{
(void)fprintf(stderr, "** Too many errors\n");
ec = ec_failed;
}
}
if (ec >= ec_failed)
{
(void)fprintf(stderr, "** xfpt abandoned\n");
exit(EXIT_FAILURE);
}
(void)fprintf(stderr, "\n"); /* blank before next output */
}
/* End of error.c */
|
