[sgt/halibut] / error.c

/*
 * 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 auxbuf[256];
    char *sp, *sp2;
    wchar_t *wsp;
    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_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 = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	fpos = *va_arg(ap, filepos *);
	sprintf(error, "command `%.200s' unrecognised at start of"
		" paragraph", sp);
	flags = FILEPOS;
	break;
      case err_badmidcmd:
	wsp = va_arg(ap, wchar_t *);
	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	fpos = *va_arg(ap, filepos *);
	sprintf(error, "command `%.200s' unexpected in mid-paragraph", sp);
	flags = FILEPOS;
	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_missingrbrace:
	fpos = *va_arg(ap, filepos *);
	sprintf(error, "unclosed braces at end of paragraph");
	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_nosuchkw:
	fpos = *va_arg(ap, filepos *);
	wsp = va_arg(ap, wchar_t *);
	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	sprintf(error, "unable to resolve cross-reference to `%.200s'", sp);
	flags = FILEPOS;
	break;
      case err_multiBR:
	fpos = *va_arg(ap, filepos *);
	wsp = va_arg(ap, wchar_t *);
	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	sprintf(error, "multiple `\\BR' entries given for `%.200s'", sp);
	flags = FILEPOS;
	break;
      case err_nosuchidxtag:
	wsp = va_arg(ap, wchar_t *);
	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	sprintf(error, "`\\IM' on unknown index tag `%.200s'", sp);
	flags = 0;
	/* FIXME: need to get a filepos to here somehow */
	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 = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	sprintf(error, "macro `%.200s' already defined", sp);
	flags = FILEPOS;
	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 = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	sprintf(error, "paragraph keyword `%.200s' already defined at ", sp);
	sprintf(error + strlen(error), "%s:%d", fpos2.filename, fpos2.line);
	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:%d:", fpos.filename, 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);
}
Commit	Line	Data
d7482997	1	/*
	2	* error.c: Halibut error handling
	3	*/
	4
	5	#include <stdio.h>
	6	#include <stdlib.h>
	7	#include <stdarg.h>
	8	#include "halibut.h"
	9
	10	/*
	11	* Error flags
	12	*/
	13	#define PREFIX 0x0001 /* give `halibut:' prefix */
	14	#define FILEPOS 0x0002 /* give file position prefix */
	15
	16	static void do_error(int code, va_list ap) {
	17	char error[1024];
	18	char auxbuf[256];
	19	char sp, sp2;
	20	wchar_t *wsp;
	21	filepos fpos, fpos2;
	22	int flags;
	23
	24	switch(code) {
	25	case err_nomemory: /* no arguments */
	26	sprintf(error, "out of memory");
	27	flags = PREFIX;
	28	break;
	29	case err_optnoarg:
	30	sp = va_arg(ap, char *);
	31	sprintf(error, "option `-%.200s' requires an argument", sp);
	32	flags = PREFIX;
	33	break;
	34	case err_nosuchopt:
	35	sp = va_arg(ap, char *);
	36	sprintf(error, "unrecognised option `-%.200s'", sp);
	37	flags = PREFIX;
	38	break;
	39	case err_noinput: /* no arguments */
	40	sprintf(error, "no input files");
	41	flags = PREFIX;
	42	break;
	43	case err_cantopen:
	44	sp = va_arg(ap, char *);
	45	sprintf(error, "unable to open input file `%.200s'", sp);
	46	flags = PREFIX;
	47	break;
	48	case err_nodata: /* no arguments */
	49	sprintf(error, "no data in input files");
	50	flags = PREFIX;
	51	break;
	52	case err_brokencodepara:
	53	fpos = va_arg(ap, filepos );
	54	sprintf(error, "every line of a code paragraph should begin `\\c'");
	55	flags = FILEPOS;
	56	break;
	57	case err_kwunclosed:
	58	fpos = va_arg(ap, filepos );
	59	sprintf(error, "expected `}' after paragraph keyword");
	60	flags = FILEPOS;
	61	break;
	62	case err_kwexpected:
	63	fpos = va_arg(ap, filepos );
	64	sprintf(error, "expected a paragraph keyword");
65	flags = FILEPOS;
66	break;
67	case err_kwillegal:
68	fpos = va_arg(ap, filepos );
69	sprintf(error, "expected no paragraph keyword");
70	flags = FILEPOS;
71	break;
72	case err_kwtoomany:
73	fpos = va_arg(ap, filepos );
74	sprintf(error, "expected only one paragraph keyword");
75	flags = FILEPOS;
76	break;
77	case err_bodyillegal:
78	fpos = va_arg(ap, filepos );
79	sprintf(error, "expected no text after paragraph keyword");
80	flags = FILEPOS;
81	break;
82	case err_badparatype:
83	wsp = va_arg(ap, wchar_t *);
84	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
85	fpos = va_arg(ap, filepos );
86	sprintf(error, "command `%.200s' unrecognised at start of"
87	" paragraph", sp);
88	flags = FILEPOS;
89	break;
90	case err_badmidcmd:
91	wsp = va_arg(ap, wchar_t *);
92	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
93	fpos = va_arg(ap, filepos );
94	sprintf(error, "command `%.200s' unexpected in mid-paragraph", sp);
95	flags = FILEPOS;
96	break;
97	case err_unexbrace:
98	fpos = va_arg(ap, filepos );
99	sprintf(error, "brace character unexpected in mid-paragraph");
100	flags = FILEPOS;
101	break;
102	case err_explbr:
103	fpos = va_arg(ap, filepos );
104	sprintf(error, "expected `{' after command");
105	flags = FILEPOS;
106	break;
107	case err_commenteof:
108	fpos = va_arg(ap, filepos );
109	sprintf(error, "end of file unexpected inside `\\#{...}' comment");
110	flags = FILEPOS;
111	break;
112	case err_kwexprbr:
113	fpos = va_arg(ap, filepos );
114	sprintf(error, "expected `}' after cross-reference");
115	flags = FILEPOS;
116	break;
117	case err_missingrbrace:
118	fpos = va_arg(ap, filepos );
119	sprintf(error, "unclosed braces at end of paragraph");
120	flags = FILEPOS;
121	break;
122	case err_nestedstyles:
123	fpos = va_arg(ap, filepos );
124	sprintf(error, "unable to nest text styles");
125	flags = FILEPOS;
126	break;
127	case err_nestedindex:
128	fpos = va_arg(ap, filepos );
129	sprintf(error, "unable to nest index markings");
130	flags = FILEPOS;
131	break;
132	case err_nosuchkw:
133	fpos = va_arg(ap, filepos );
134	wsp = va_arg(ap, wchar_t *);
135	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
136	sprintf(error, "unable to resolve cross-reference to `%.200s'", sp);
137	flags = FILEPOS;
138	break;
139	case err_multiBR:
140	fpos = va_arg(ap, filepos );
141	wsp = va_arg(ap, wchar_t *);
142	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
143	sprintf(error, "multiple `\\BR' entries given for `%.200s'", sp);
144	flags = FILEPOS;
145	break;
146	case err_nosuchidxtag:
147	wsp = va_arg(ap, wchar_t *);
148	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
149	sprintf(error, "`\\IM' on unknown index tag `%.200s'", sp);
150	flags = 0;
151	/* FIXME: need to get a filepos to here somehow */
152	break;
153	case err_cantopenw:
154	sp = va_arg(ap, char *);
155	sprintf(error, "unable to open output file `%.200s'", sp);
156	flags = PREFIX;
157	break;
158	case err_macroexists:
159	fpos = va_arg(ap, filepos );
160	wsp = va_arg(ap, wchar_t *);
161	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
162	sprintf(error, "macro `%.200s' already defined", sp);
163	flags = FILEPOS;
164	break;
165	case err_sectjump:
166	fpos = va_arg(ap, filepos );
167	sprintf(error, "expected higher heading levels before this one");
168	flags = FILEPOS;
169	break;
170	case err_winhelp_ctxclash:
171	fpos = va_arg(ap, filepos );
172	sp = va_arg(ap, char *);
173	sp2 = va_arg(ap, char *);
174	sprintf(error, "Windows Help context id `%.200s' clashes with "
175	"previously defined `%.200s'", sp, sp2);
176	flags = FILEPOS;
177	break;
178	case err_multikw:
179	fpos = va_arg(ap, filepos );
180	fpos2 = va_arg(ap, filepos );
181	wsp = va_arg(ap, wchar_t *);
182	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
183	sprintf(error, "paragraph keyword `%.200s' already defined at ", sp);
184	sprintf(error + strlen(error), "%s:%d", fpos2.filename, fpos2.line);
185	flags = FILEPOS;
186	break;
187	case err_whatever:
188	sp = va_arg(ap, char *);
189	vsprintf(error, sp, ap);
190	flags = PREFIX;
191	break;
192	}
193
194	if (flags & PREFIX)
195	fputs("halibut: ", stderr);
196	if (flags & FILEPOS) {
197	fprintf(stderr, "%s:%d:", fpos.filename, fpos.line);
198	if (fpos.col > 0)
199	fprintf(stderr, "%d:", fpos.col);
200	fputc(' ', stderr);
201	}
202	fputs(error, stderr);
203	fputc('\n', stderr);
204	}
205
206	void fatal(int code, ...) {
207	va_list ap;
208	va_start(ap, code);
209	do_error(code, ap);
210	va_end(ap);
211	exit(EXIT_FAILURE);
212	}
213
214	void error(int code, ...) {
215	va_list ap;
216	va_start(ap, code);
217	do_error(code, ap);
218	va_end(ap);
219	}