Revamp of the Halibut error handling mechanism.

I'm not quite sure why I ever thought it was a good idea to have a
central variadic error() function taking an integer error code
followed by some list of arguments that depend on that code. It now
seems obvious to me that it's a much more sensible idea to have a
separate function per error, so that we can check at compile time that
the arguments to each error call are of the right number and type! So
I've done that instead.

A side effect is that the errors are no longer formatted into a
fixed-size buffer before going to stderr, so I can remove all the
%.200s precautions in the format strings.

[originally from svn r9639]

1 files changed, 340 insertions, 395 deletions

diff --git a/error.c b/error.c
index 00d007d..8aa83b5 100644
--- a/error.c
+++ b/error.c
@@ -13,408 +13,353 @@
 #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;
-    unsigned wc;
-    filepos fpos, fpos2, *fposp;
-    int flags = 0;
-
-    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:
-	fposp = va_arg(ap, filepos *);
-	c = (char)va_arg(ap, int);
-	sprintf(error, "info output format does not support '%c' in"
-		" node names; removing", c);
-	if (fposp) {
-	    flags = FILEPOS;
-	    fpos = *fposp;
-	}
-	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_nofont:
-	fpos = *va_arg(ap, filepos *);
-	wsp = va_arg(ap, wchar_t *);
-	sp = utoa_locale_dup(wsp);
-	sprintf(error, "font `%.200s' not recognised", sp);
-	flags = FILEPOS;
-	sfree(sp);
-	break;
-      case err_afmeof:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "AFM file ended unexpectedly");
-	flags = FILEPOS;
-	break;
-      case err_afmkey:
-	fpos = *va_arg(ap, filepos *);
-	sp = va_arg(ap, char *);
-	sprintf(error, "required AFM key '%.200s' missing", sp);
-	flags = FILEPOS;
-	break;
-      case err_afmvers:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "unsupported AFM version");
-	flags = FILEPOS;
-	break;
-      case err_afmval:
-	fpos = *va_arg(ap, filepos *);
-	sp = va_arg(ap, char *);
-	i = va_arg(ap, int);
-	if (i == 1)
-	    sprintf(error, "AFM key '%.200s' requires a value", sp);
-	else
-	    sprintf(error, "AFM key '%.200s' requires %d values", sp, i);
-	flags = FILEPOS;
-	break;	
-      case err_pfeof:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "Type 1 font file ended unexpectedly");
-	flags = FILEPOS;
-	break;
-      case err_pfhead:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "Type 1 font file header line invalid");
-	flags = FILEPOS;
-	break;
-      case err_pfbad:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "Type 1 font file invalid");
-	flags = FILEPOS;
-	break;
-      case err_pfnoafm:
-	fpos = *va_arg(ap, filepos *);
-	sp = va_arg(ap, char *);
-	sprintf(error, "no metrics available for Type 1 font '%.200s'", sp);
-	flags = FILEPOS;
-	break;
-      case err_chmnames:
-	sprintf(error, "only one of html-mshtmlhelp-chm and "
-		"html-mshtmlhelp-hhp found");
-	flags = PREFIX;
-	break;
-      case err_sfntnotable:
-	fpos = *va_arg(ap, filepos *);
-	sp = va_arg(ap, char *);
-	sprintf(error, "font has no '%.4s' table", sp);
-	flags = FILEPOS;
-	break;
-      case err_sfntnopsname:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "font has no PostScript name");
-	flags = FILEPOS;
-	break;
-      case err_sfntbadtable:
-	fpos = *va_arg(ap, filepos *);
-	sp = va_arg(ap, char *);
-	sprintf(error, "font has an invalid '%.4s' table", sp);
-	flags = FILEPOS;
-	break;
-      case err_sfntnounicmap:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "font has no UCS-2 character map");
-	flags = FILEPOS;
-	break;	
-      case err_sfnttablevers:
-	fpos = *va_arg(ap, filepos *);
-	sp = va_arg(ap, char *);
-	sprintf(error, "font has an unsupported '%.4s' table version", sp);
-	flags = FILEPOS;
-	break;
-      case err_sfntbadhdr:
-	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "font has an invalid header");
-	flags = FILEPOS;
-	break;	
-      case err_sfntbadglyph:
-	fpos = *va_arg(ap, filepos *);
-	wc = va_arg(ap, unsigned);
-	sprintf(error,
-		"warning: character U+%04X references an non-existent glyph",
-		wc);
-	flags = FILEPOS;
-	break;
-      case err_whatever:
-	sp = va_arg(ap, char *);
-        vsprintf(error, sp, ap);
-        flags = PREFIX;
-        break;
-    }
+static void do_error(const filepos *fpos, const char *fmt, ...)
+{
+    va_list ap;
 
-    if (flags & PREFIX)
-	fputs("halibut: ", stderr);
-    if (flags & FILEPOS) {
-	fprintf(stderr, "%s:", fpos.filename ? fpos.filename : "<standard input>");
-	if (fpos.line > 0)
-	    fprintf(stderr, "%d:", fpos.line);
-	if (fpos.col > 0)
-	    fprintf(stderr, "%d:", fpos.col);
+    if (fpos) {
+	fprintf(stderr, "%s:",
+                fpos->filename ? fpos->filename : "<standard input>");
+	if (fpos->line > 0)
+	    fprintf(stderr, "%d:", fpos->line);
+	if (fpos->col > 0)
+	    fprintf(stderr, "%d:", fpos->col);
 	fputc(' ', stderr);
+    } else {
+	fputs("halibut: ", stderr);
     }
-    fputs(error, stderr);
+
+    va_start(ap, fmt);
+    vfprintf(stderr, fmt, ap);
+    va_end(ap);
+
     fputc('\n', stderr);
 }
 
-void fatal(int code, ...) {
-    va_list ap;
-    va_start(ap, code);
-    do_error(code, ap);
-    va_end(ap);
+void fatalerr_nomemory(void)
+{
+    do_error(NULL, "out of memory");
     exit(EXIT_FAILURE);
 }
 
-void error(int code, ...) {
-    va_list ap;
-    va_start(ap, code);
-    do_error(code, ap);
-    va_end(ap);
+void err_optnoarg(const char *sp)
+{
+    do_error(NULL, "option `-%s' requires an argument", sp);
+}
+
+void err_nosuchopt(const char *sp)
+{
+    do_error(NULL, "unrecognised option `-%s'", sp);
+}
+
+void err_cmdcharset(const char *sp)
+{
+    do_error(NULL, "character set `%s' not recognised", sp);
+}
+
+void err_futileopt(const char *sp, const char *sp2)
+{
+    do_error(NULL, "warning: option `-%s' has no effect%s", sp, sp2);
+}
+
+void err_noinput(void)
+{
+    do_error(NULL, "no input files");
+}
+
+void err_cantopen(const char *sp)
+{
+    do_error(NULL, "unable to open input file `%s'", sp);
+}
+
+void err_nodata(void)
+{
+    do_error(NULL, "no data in input files");
+}
+
+void err_brokencodepara(const filepos *fpos)
+{
+    do_error(fpos, "every line of a code paragraph should begin `\\c'");
+}
+
+void err_kwunclosed(const filepos *fpos)
+{
+    do_error(fpos, "expected `}' after paragraph keyword");
+}
+
+void err_kwexpected(const filepos *fpos)
+{
+    do_error(fpos, "expected a paragraph keyword");
+}
+
+void err_kwillegal(const filepos *fpos)
+{
+    do_error(fpos, "expected no paragraph keyword");
+}
+
+void err_kwtoomany(const filepos *fpos)
+{
+    do_error(fpos, "expected only one paragraph keyword");
+}
+
+void err_bodyillegal(const filepos *fpos)
+{
+    do_error(fpos, "expected no text after paragraph keyword");
+}
+
+void err_badparatype(const wchar_t *wsp, const filepos *fpos)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "command `%s' unrecognised at start of paragraph", sp);
+    sfree(sp);
+}
+
+void err_badmidcmd(const wchar_t *wsp, const filepos *fpos)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "command `%s' unexpected in mid-paragraph", sp);
+    sfree(sp);
+}
+
+void err_unexbrace(const filepos *fpos)
+{
+    do_error(fpos, "brace character unexpected in mid-paragraph");
+}
+
+void err_explbr(const filepos *fpos)
+{
+    do_error(fpos, "expected `{' after command");
+}
+
+void err_commenteof(const filepos *fpos)
+{
+    do_error(fpos, "end of file unexpected inside `\\#{...}' comment");
+}
+
+void err_kwexprbr(const filepos *fpos)
+{
+    do_error(fpos, "expected `}' after cross-reference");
+}
+
+void err_codequote(const filepos *fpos)
+{
+    do_error(fpos, "unable to nest \\q{...} within \\c{...} or \\cw{...}");
+}
+
+void err_missingrbrace(const filepos *fpos)
+{
+    do_error(fpos, "unclosed braces at end of paragraph");
+}
+
+void err_missingrbrace2(const filepos *fpos)
+{
+    do_error(fpos, "unclosed braces at end of input file");
+}
+
+void err_nestedstyles(const filepos *fpos)
+{
+    do_error(fpos, "unable to nest text styles");
+}
+
+void err_nestedindex(const filepos *fpos)
+{
+    do_error(fpos, "unable to nest index markings");
+}
+
+void err_indexcase(const filepos *fpos, const wchar_t *wsp,
+                   const filepos *fpos2, const wchar_t *wsp2)
+{
+    char *sp = utoa_locale_dup(wsp), *sp2 = utoa_locale_dup(wsp2);
+    do_error(fpos, "warning: index tag `%s' used with different "
+             "case (`%s') at %s:%d",
+             sp, sp2, fpos2->filename, fpos2->line);
+    sfree(sp);
+    sfree(sp2);
+}
+
+void err_nosuchkw(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "unable to resolve cross-reference to `%s'", sp);
+    sfree(sp);
+}
+
+void err_multiBR(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "multiple `\\BR' entries given for `%s'", sp);
+    sfree(sp);
+}
+
+void err_nosuchidxtag(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "`\\IM' on unknown index tag `%s'", sp);
+    sfree(sp);
+}
+
+void err_cantopenw(const char *sp)
+{
+    do_error(NULL, "unable to open output file `%s'", sp);
+}
+
+void err_macroexists(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "macro `%s' already defined", sp);
+    sfree(sp);
+}
+
+void err_sectjump(const filepos *fpos)
+{
+    do_error(fpos, "expected higher heading levels before this one");
+}
+
+void err_winhelp_ctxclash(const filepos *fpos, const char *sp, const char *sp2)
+{
+    do_error(fpos, "Windows Help context id `%s' clashes with "
+             "previously defined `%s'", sp, sp2);
+}
+
+void err_multikw(const filepos *fpos, const filepos *fpos2, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "paragraph keyword `%s' already defined at %s:%d",
+             sp, fpos2->filename, fpos2->line);
+    sfree(sp);
+}
+
+void err_misplacedlcont(const filepos *fpos)
+{
+    do_error(fpos, "\\lcont is only expected after a list item");
+}
+
+void err_sectmarkerinblock(const filepos *fpos, const char *sp)
+{
+    do_error(fpos, "section headings are not supported within \\%s", sp);
+}
+
+void err_cfginsufarg(const filepos *fpos, const char *sp, int i)
+{
+    do_error(fpos, "\\cfg{%s} expects at least %d parameter%s",
+             sp, i, (i==1)?"":"s");
+}
+
+void err_infonodechar(const filepos *fpos, char c) /* fpos might be NULL */
+{
+    do_error(fpos, "info output format does not support '%c' in"
+             " node names; removing", c);
+}
+
+void err_text_codeline(const filepos *fpos, int i, int j)
+{
+    do_error(fpos, "warning: code paragraph line is %d chars wide, wider"
+             " than body width %d", i, j);
+}
+
+void err_htmlver(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "unrecognised HTML version keyword `%s'", sp);
+    sfree(sp);
+}
+
+void err_charset(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "character set `%s' not recognised", sp);
+    sfree(sp);
+}
+
+void err_nofont(const filepos *fpos, const wchar_t *wsp)
+{
+    char *sp = utoa_locale_dup(wsp);
+    do_error(fpos, "font `%s' not recognised", sp);
+    sfree(sp);
+}
+
+void err_afmeof(const filepos *fpos)
+{
+    do_error(fpos, "AFM file ended unexpectedly");
+}
+
+void err_afmkey(const filepos *fpos, const char *sp)
+{
+    do_error(fpos, "required AFM key '%s' missing", sp);
+}
+
+void err_afmvers(const filepos *fpos)
+{
+    do_error(fpos, "unsupported AFM version");
+}
+
+void err_afmval(const filepos *fpos, const char *sp, int i)
+{
+    if (i == 1)
+        do_error(fpos, "AFM key '%s' requires a value", sp);
+    else
+        do_error(fpos, "AFM key '%s' requires %d values", sp, i);
+}
+
+void err_pfeof(const filepos *fpos)
+{
+    do_error(fpos, "Type 1 font file ended unexpectedly");
+}
+
+void err_pfhead(const filepos *fpos)
+{
+    do_error(fpos, "Type 1 font file header line invalid");
+}
+
+void err_pfbad(const filepos *fpos)
+{
+    do_error(fpos, "Type 1 font file invalid");
+}
+
+void err_pfnoafm(const filepos *fpos, const char *sp)
+{
+    do_error(fpos, "no metrics available for Type 1 font '%s'", sp);
+}
+
+void err_chmnames(void)
+{
+    do_error(NULL, "only one of html-mshtmlhelp-chm and "
+             "html-mshtmlhelp-hhp found");
+}
+
+void err_sfntnotable(const filepos *fpos, const char *sp)
+{
+    do_error(fpos, "font has no '%s' table", sp);
+}
+
+void err_sfntnopsname(const filepos *fpos)
+{
+    do_error(fpos, "font has no PostScript name");
+}
+
+void err_sfntbadtable(const filepos *fpos, const char *sp)
+{
+    do_error(fpos, "font has an invalid '%s' table", sp);
+}
+
+void err_sfntnounicmap(const filepos *fpos)
+{
+    do_error(fpos, "font has no UCS-2 character map");
+}
+
+void err_sfnttablevers(const filepos *fpos, const char *sp)
+{
+    do_error(fpos, "font has an unsupported '%s' table version", sp);
+}
+
+void err_sfntbadhdr(const filepos *fpos)
+{
+    do_error(fpos, "font has an invalid header");
+}
+
+void err_sfntbadglyph(const filepos *fpos, unsigned wc)
+{
+    do_error(fpos,
+             "warning: character U+%04X references a non-existent glyph",
+             wc);
 }