[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_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_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_misplacedlcont:
	fpos = *va_arg(ap, filepos *);
	sprintf(error, "\\lcont is only expected after a list item");
	flags = FILEPOS;
	break;
      case err_sectmarkerinlcont:
	fpos = *va_arg(ap, filepos *);
	sprintf(error, "section headings are not supported within \\lcont");
	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;
7136a6c7	122	case err_missingrbrace2:
	123	fpos = va_arg(ap, filepos );
	124	sprintf(error, "unclosed braces at end of input file");
	125	flags = FILEPOS;
	126	break;
d7482997	127	case err_nestedstyles:
	128	fpos = va_arg(ap, filepos );
	129	sprintf(error, "unable to nest text styles");
	130	flags = FILEPOS;
	131	break;
	132	case err_nestedindex:
	133	fpos = va_arg(ap, filepos );
	134	sprintf(error, "unable to nest index markings");
	135	flags = FILEPOS;
	136	break;
	137	case err_nosuchkw:
	138	fpos = va_arg(ap, filepos );
	139	wsp = va_arg(ap, wchar_t *);
	140	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	141	sprintf(error, "unable to resolve cross-reference to `%.200s'", sp);
	142	flags = FILEPOS;
	143	break;
	144	case err_multiBR:
	145	fpos = va_arg(ap, filepos );
	146	wsp = va_arg(ap, wchar_t *);
	147	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	148	sprintf(error, "multiple `\\BR' entries given for `%.200s'", sp);
	149	flags = FILEPOS;
	150	break;
	151	case err_nosuchidxtag:
	152	wsp = va_arg(ap, wchar_t *);
	153	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	154	sprintf(error, "`\\IM' on unknown index tag `%.200s'", sp);
	155	flags = 0;
	156	/* FIXME: need to get a filepos to here somehow */
	157	break;
	158	case err_cantopenw:
	159	sp = va_arg(ap, char *);
	160	sprintf(error, "unable to open output file `%.200s'", sp);
	161	flags = PREFIX;
	162	break;
	163	case err_macroexists:
	164	fpos = va_arg(ap, filepos );
	165	wsp = va_arg(ap, wchar_t *);
	166	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	167	sprintf(error, "macro `%.200s' already defined", sp);
	168	flags = FILEPOS;
	169	break;
	170	case err_sectjump:
	171	fpos = va_arg(ap, filepos );
	172	sprintf(error, "expected higher heading levels before this one");
	173	flags = FILEPOS;
	174	break;
	175	case err_winhelp_ctxclash:
	176	fpos = va_arg(ap, filepos );
	177	sp = va_arg(ap, char *);
	178	sp2 = va_arg(ap, char *);
	179	sprintf(error, "Windows Help context id `%.200s' clashes with "
	180	"previously defined `%.200s'", sp, sp2);
	181	flags = FILEPOS;
	182	break;
	183	case err_multikw:
	184	fpos = va_arg(ap, filepos );
	185	fpos2 = va_arg(ap, filepos );
	186	wsp = va_arg(ap, wchar_t *);
	187	sp = ustrtoa(wsp, auxbuf, sizeof(auxbuf));
	188	sprintf(error, "paragraph keyword `%.200s' already defined at ", sp);
	189	sprintf(error + strlen(error), "%s:%d", fpos2.filename, fpos2.line);
	190	flags = FILEPOS;
191	break;
7136a6c7	192	case err_misplacedlcont:
	193	fpos = va_arg(ap, filepos );
	194	sprintf(error, "\\lcont is only expected after a list item");
	195	flags = FILEPOS;
	196	break;
	197	case err_sectmarkerinlcont:
	198	fpos = va_arg(ap, filepos );
	199	sprintf(error, "section headings are not supported within \\lcont");
	200	flags = FILEPOS;
	201	break;
d7482997	202	case err_whatever:
	203	sp = va_arg(ap, char *);
	204	vsprintf(error, sp, ap);
	205	flags = PREFIX;
	206	break;
	207	}
	208
	209	if (flags & PREFIX)
	210	fputs("halibut: ", stderr);
	211	if (flags & FILEPOS) {
	212	fprintf(stderr, "%s:%d:", fpos.filename, fpos.line);
	213	if (fpos.col > 0)
	214	fprintf(stderr, "%d:", fpos.col);
	215	fputc(' ', stderr);
	216	}
	217	fputs(error, stderr);
	218	fputc('\n', stderr);
	219	}
	220
	221	void fatal(int code, ...) {
	222	va_list ap;
	223	va_start(ap, code);
	224	do_error(code, ap);
	225	va_end(ap);
	226	exit(EXIT_FAILURE);
	227	}
	228
	229	void error(int code, ...) {
	230	va_list ap;
	231	va_start(ap, code);
	232	do_error(code, ap);
	233	va_end(ap);
	234	}