X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/blobdiff_plain/da090173a115e3450b23e6b84aa98972c4f1619e..26c8c119efd44804c7b27f8637c69eda63f0c189:/error.c

diff --git a/error.c b/error.c
index 879d081..00d007d 100644
--- a/error.c
+++ b/error.c
@@ -19,8 +19,9 @@ static void do_error(int code, va_list ap) {
     int i, j;
     char *sp, *sp2;
     wchar_t *wsp, *wsp2;
-    filepos fpos, fpos2;
-    int flags;
+    unsigned wc;
+    filepos fpos, fpos2, *fposp;
+    int flags = 0;
 
     switch(code) {
       case err_nomemory:	       /* no arguments */
@@ -37,6 +38,17 @@ static void do_error(int code, va_list ap) {
 	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;
@@ -228,18 +240,23 @@ static void do_error(int code, va_list ap) {
 		sp);
 	flags = FILEPOS;
 	break;
-      case err_infodirentry:
+      case err_cfginsufarg:
 	fpos = *va_arg(ap, filepos *);
-	sprintf(error, "\\cfg{info-dir-entry} expects at least three"
-		" parameters");
+	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 *);
+	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);
-	flags = FILEPOS;
+	if (fposp) {
+	    flags = FILEPOS;
+	    fpos = *fposp;
+	}
 	break;
       case err_text_codeline:
 	fpos = *va_arg(ap, filepos *);
@@ -249,6 +266,123 @@ static void do_error(int code, va_list ap) {
 		" 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);
@@ -259,7 +393,7 @@ static void do_error(int code, va_list ap) {
     if (flags & PREFIX)
 	fputs("halibut: ", stderr);
     if (flags & FILEPOS) {
-	fprintf(stderr, "%s:", fpos.filename);
+	fprintf(stderr, "%s:", fpos.filename ? fpos.filename : "<standard input>");
 	if (fpos.line > 0)
 	    fprintf(stderr, "%d:", fpos.line);
 	if (fpos.col > 0)