===================================================================
RCS file: /cvs/mandoc/Attic/mdoc_action.c,v
retrieving revision 1.18
retrieving revision 1.22
diff -u -p -r1.18 -r1.22
--- mandoc/Attic/mdoc_action.c	2009/06/22 12:04:05	1.18
+++ mandoc/Attic/mdoc_action.c	2009/07/06 11:14:03	1.22
@@ -1,4 +1,4 @@
-/*	$Id: mdoc_action.c,v 1.18 2009/06/22 12:04:05 kristaps Exp $ */
+/*	$Id: mdoc_action.c,v 1.22 2009/07/06 11:14:03 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -24,15 +24,13 @@
 
 #include "libmdoc.h"
 
-enum	mwarn {
-	WBADSEC,
-	WNOWIDTH,
-	WBADDATE
-};
-
 enum	merr {
+	EBADDATE,
+	ENOWIDTH,
+	EBADSEC,
 	ETOOLONG,
 	EMALLOC,
+	EUTSNAME,
 	ENUMFMT
 };
 
@@ -44,8 +42,7 @@ struct	actions {
 	int	(*post)(POST_ARGS);
 };
 
-static	int	  pwarn(struct mdoc *, int, int, enum mwarn);
-static	int	  perr(struct mdoc *, int, int, enum merr);
+static	int	  perr(struct mdoc *, int, int, enum merr, int);
 static	int	  concat(struct mdoc *, const struct mdoc_node *, 
 			char *, size_t);
 
@@ -67,9 +64,9 @@ static	int	  post_std(POST_ARGS);
 static	int	  pre_bd(PRE_ARGS);
 static	int	  pre_dl(PRE_ARGS);
 
-#define	vwarn(m, t) pwarn((m), (m)->last->line, (m)->last->pos, (t))
-#define	verr(m, t) perr((m), (m)->last->line, (m)->last->pos, (t))
-#define	nerr(m, n, t) perr((m), (n)->line, (n)->pos, (t))
+#define	vwarn(m, t) perr((m), (m)->last->line, (m)->last->pos, (t), 0)
+#define	verr(m, t) perr((m), (m)->last->line, (m)->last->pos, (t), 1)
+#define	nerr(m, n, t) perr((m), (n)->line, (n)->pos, (t), 1)
 
 const	struct actions mdoc_actions[MDOC_MAX] = {
 	{ NULL, NULL }, /* Ap */
@@ -89,7 +86,7 @@ const	struct actions mdoc_actions[MDOC_MAX] = {
 	{ NULL, NULL }, /* Ad */ 
 	{ NULL, NULL }, /* An */
 	{ NULL, post_ar }, /* Ar */
-	{ NULL, NULL }, /* Cd */
+	{ NULL, NULL }, /* Cd */ /* FIXME: tabs are accepted! */
 	{ NULL, NULL }, /* Cm */
 	{ NULL, NULL }, /* Dv */ 
 	{ NULL, NULL }, /* Er */ 
@@ -260,11 +257,12 @@ concat(struct mdoc *m, const struct mdoc_node *n, 
 
 
 static int
-perr(struct mdoc *m, int line, int pos, enum merr type)
+perr(struct mdoc *m, int line, int pos, enum merr type, int iserr)
 {
 	char		*p;
 
 	p = NULL;
+
 	switch (type) {
 	case (ENUMFMT):
 		p = "bad number format";
@@ -272,37 +270,28 @@ perr(struct mdoc *m, int line, int pos, enum merr type
 	case (ETOOLONG):
 		p = "argument text too long";
 		break;
+	case (EUTSNAME):
+		p = "utsname";
+		break;
 	case (EMALLOC):
 		p = "memory exhausted";
 		break;
-	}
-	assert(p);
-	return(mdoc_perr(m, line, pos, p));
-}
-
-
-static int
-pwarn(struct mdoc *m, int line, int pos, enum mwarn type)
-{
-	char		*p;
-	int		 c;
-
-	p = NULL;
-	c = WARN_SYNTAX;
-	switch (type) {
-	case (WBADSEC):
+	case (EBADSEC):
 		p = "inappropriate document section in manual section";
-		c = WARN_COMPAT;
 		break;
-	case (WNOWIDTH):
+	case (ENOWIDTH):
 		p = "cannot determine default width";
 		break;
-	case (WBADDATE):
+	case (EBADDATE):
 		p = "malformed date syntax";
 		break;
 	}
+
 	assert(p);
-	return(mdoc_pwarn(m, line, pos, c, p));
+	if (iserr)
+		return(mdoc_perr(m, line, pos, p));
+
+	return(mdoc_pwarn(m, line, pos, p));
 }
 
 
@@ -387,7 +376,7 @@ post_sh(POST_ARGS)
 		case (9):
 			break;
 		default:
-			return(vwarn(m, WBADSEC));
+			return(vwarn(m, EBADSEC));
 		}
 		break;
 	default:
@@ -505,7 +494,7 @@ post_os(POST_ARGS)
 
 	if (0 == buf[0]) {
 		if (-1 == uname(&utsname))
-			return(mdoc_err(m, "utsname"));
+			return(verr(m, EUTSNAME));
 		if (strlcat(buf, utsname.sysname, 64) >= 64)
 			return(verr(m, ETOOLONG));
 		if (strlcat(buf, " ", 64) >= 64)
@@ -550,7 +539,7 @@ post_bl_tagwidth(struct mdoc *m)
 	if (n) {
 		if (MDOC_TEXT != n->type) {
 			if (0 == (sz = (int)mdoc_macro2len(n->tok)))
-				if ( ! vwarn(m, WNOWIDTH))
+				if ( ! vwarn(m, ENOWIDTH))
 					return(0);
 		} else
 			sz = (int)strlen(n->string) + 1;
@@ -618,7 +607,7 @@ post_bl_width(struct mdoc *m)
 	else if (MDOC_MAX == (tok = mdoc_hash_find(m->htab, p)))
 		return(1);
 	else if (0 == (width = mdoc_macro2len(tok))) 
-		return(vwarn(m, WNOWIDTH));
+		return(vwarn(m, ENOWIDTH));
 
 	/* The value already exists: free and reallocate it. */
 
@@ -775,7 +764,7 @@ post_dd(POST_ARGS)
 		return(0);
 
 	if (0 == (m->meta.date = mdoc_atotime(buf))) {
-		if ( ! vwarn(m, WBADDATE))
+		if ( ! vwarn(m, EBADDATE))
 			return(0);
 		m->meta.date = time(NULL);
 	}