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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
|
/*
* error.c: Halibut error handling
*/
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include "halibut.h"
/*
* Error flags
*/
#define PREFIX 0x0001 /* give `halibut:' prefix */
#define FILEPOS 0x0002 /* give file position prefix */
static void do_error(int code, va_list ap) {
char error[1024];
char c;
int i, j;
char *sp, *sp2;
wchar_t *wsp, *wsp2;
filepos fpos, fpos2;
int flags;
switch(code) {
case err_nomemory: /* no arguments */
sprintf(error, "out of memory");
flags = PREFIX;
break;
case err_optnoarg:
sp = va_arg(ap, char *);
sprintf(error, "option `-%.200s' requires an argument", sp);
flags = PREFIX;
break;
case err_nosuchopt:
sp = va_arg(ap, char *);
sprintf(error, "unrecognised option `-%.200s'", sp);
flags = PREFIX;
break;
case err_cmdcharset:
sp = va_arg(ap, char *);
sprintf(error, "character set `%.200s' not recognised", sp);
flags = PREFIX;
break;
case err_futileopt:
sp = va_arg(ap, char *);
sp2 = va_arg(ap, char *);
sprintf(error, "warning: option `-%s' has no effect%s", sp, sp2);
flags = PREFIX;
break;
case err_noinput: /* no arguments */
sprintf(error, "no input files");
flags = PREFIX;
break;
case err_cantopen:
sp = va_arg(ap, char *);
sprintf(error, "unable to open input file `%.200s'", sp);
flags = PREFIX;
break;
case err_nodata: /* no arguments */
sprintf(error, "no data in input files");
flags = PREFIX;
break;
case err_brokencodepara:
fpos = *va_arg(ap, filepos *);
sprintf(error, "every line of a code paragraph should begin `\\c'");
flags = FILEPOS;
break;
case err_kwunclosed:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected `}' after paragraph keyword");
flags = FILEPOS;
break;
case err_kwexpected:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected a paragraph keyword");
flags = FILEPOS;
break;
case err_kwillegal:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected no paragraph keyword");
flags = FILEPOS;
break;
case err_kwtoomany:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected only one paragraph keyword");
flags = FILEPOS;
break;
case err_bodyillegal:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected no text after paragraph keyword");
flags = FILEPOS;
break;
case err_badparatype:
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
fpos = *va_arg(ap, filepos *);
sprintf(error, "command `%.200s' unrecognised at start of"
" paragraph", sp);
flags = FILEPOS;
sfree(sp);
break;
case err_badmidcmd:
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
fpos = *va_arg(ap, filepos *);
sprintf(error, "command `%.200s' unexpected in mid-paragraph", sp);
flags = FILEPOS;
sfree(sp);
break;
case err_unexbrace:
fpos = *va_arg(ap, filepos *);
sprintf(error, "brace character unexpected in mid-paragraph");
flags = FILEPOS;
break;
case err_explbr:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected `{' after command");
flags = FILEPOS;
break;
case err_commenteof:
fpos = *va_arg(ap, filepos *);
sprintf(error, "end of file unexpected inside `\\#{...}' comment");
flags = FILEPOS;
break;
case err_kwexprbr:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected `}' after cross-reference");
flags = FILEPOS;
break;
case err_codequote:
fpos = *va_arg(ap, filepos *);
sprintf(error, "unable to nest \\q{...} within \\c{...} or \\cw{...}");
flags = FILEPOS;
break;
case err_missingrbrace:
fpos = *va_arg(ap, filepos *);
sprintf(error, "unclosed braces at end of paragraph");
flags = FILEPOS;
break;
case err_missingrbrace2:
fpos = *va_arg(ap, filepos *);
sprintf(error, "unclosed braces at end of input file");
flags = FILEPOS;
break;
case err_nestedstyles:
fpos = *va_arg(ap, filepos *);
sprintf(error, "unable to nest text styles");
flags = FILEPOS;
break;
case err_nestedindex:
fpos = *va_arg(ap, filepos *);
sprintf(error, "unable to nest index markings");
flags = FILEPOS;
break;
case err_indexcase:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
fpos2 = *va_arg(ap, filepos *);
wsp2 = va_arg(ap, wchar_t *);
sp2 = utoa_locale_dup(wsp2);
sprintf(error, "warning: index tag `%.200s' used with ", sp);
sprintf(error + strlen(error), "different case (`%.200s') at %s:%d",
sp2, fpos2.filename, fpos2.line);
flags = FILEPOS;
sfree(sp);
sfree(sp2);
break;
case err_nosuchkw:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "unable to resolve cross-reference to `%.200s'", sp);
flags = FILEPOS;
sfree(sp);
break;
case err_multiBR:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "multiple `\\BR' entries given for `%.200s'", sp);
flags = FILEPOS;
sfree(sp);
break;
case err_nosuchidxtag:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "`\\IM' on unknown index tag `%.200s'", sp);
sfree(sp);
flags = FILEPOS;
break;
case err_cantopenw:
sp = va_arg(ap, char *);
sprintf(error, "unable to open output file `%.200s'", sp);
flags = PREFIX;
break;
case err_macroexists:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "macro `%.200s' already defined", sp);
flags = FILEPOS;
sfree(sp);
break;
case err_sectjump:
fpos = *va_arg(ap, filepos *);
sprintf(error, "expected higher heading levels before this one");
flags = FILEPOS;
break;
case err_winhelp_ctxclash:
fpos = *va_arg(ap, filepos *);
sp = va_arg(ap, char *);
sp2 = va_arg(ap, char *);
sprintf(error, "Windows Help context id `%.200s' clashes with "
"previously defined `%.200s'", sp, sp2);
flags = FILEPOS;
break;
case err_multikw:
fpos = *va_arg(ap, filepos *);
fpos2 = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "paragraph keyword `%.200s' already defined at ", sp);
sprintf(error + strlen(error), "%s:%d", fpos2.filename, fpos2.line);
flags = FILEPOS;
sfree(sp);
break;
case err_misplacedlcont:
fpos = *va_arg(ap, filepos *);
sprintf(error, "\\lcont is only expected after a list item");
flags = FILEPOS;
break;
case err_sectmarkerinblock:
fpos = *va_arg(ap, filepos *);
sp = va_arg(ap, char *);
sprintf(error, "section headings are not supported within \\%.100s",
sp);
flags = FILEPOS;
break;
case err_cfginsufarg:
fpos = *va_arg(ap, filepos *);
sp = va_arg(ap, char *);
i = va_arg(ap, int);
sprintf(error, "\\cfg{%s} expects at least %d parameter%s", sp,
i, (i==1)?"":"s");
flags = FILEPOS;
break;
case err_infonodechar:
fpos = *va_arg(ap, filepos *);
c = (char)va_arg(ap, int);
sprintf(error, "info output format does not support '%c' in"
" node names; removing", c);
flags = FILEPOS;
break;
case err_text_codeline:
fpos = *va_arg(ap, filepos *);
i = va_arg(ap, int);
j = va_arg(ap, int);
sprintf(error, "warning: code paragraph line is %d chars wide, wider"
" than body width %d", i, j);
flags = FILEPOS;
break;
case err_htmlver:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "unrecognised HTML version keyword `%.200s'", sp);
sfree(sp);
flags = FILEPOS;
break;
case err_charset:
fpos = *va_arg(ap, filepos *);
wsp = va_arg(ap, wchar_t *);
sp = utoa_locale_dup(wsp);
sprintf(error, "character set `%.200s' not recognised", sp);
flags = FILEPOS;
sfree(sp);
break;
case err_emptypara:
fpos = *va_arg(ap, filepos *);
sprintf(error, "found no text in paragraph");
flags = FILEPOS;
break;
case err_whatever:
sp = va_arg(ap, char *);
vsprintf(error, sp, ap);
flags = PREFIX;
break;
}
if (flags & PREFIX)
fputs("halibut: ", stderr);
if (flags & FILEPOS) {
fprintf(stderr, "%s:", fpos.filename);
if (fpos.line > 0)
fprintf(stderr, "%d:", fpos.line);
if (fpos.col > 0)
fprintf(stderr, "%d:", fpos.col);
fputc(' ', stderr);
}
fputs(error, stderr);
fputc('\n', stderr);
}
void fatal(int code, ...) {
va_list ap;
va_start(ap, code);
do_error(code, ap);
va_end(ap);
exit(EXIT_FAILURE);
}
void error(int code, ...) {
va_list ap;
va_start(ap, code);
do_error(code, ap);
va_end(ap);
}
|
