===================================================================
RCS file: /cvs/pod2mdoc/pod2mdoc.c,v
retrieving revision 1.46
retrieving revision 1.52
diff -u -p -r1.46 -r1.52
--- pod2mdoc/pod2mdoc.c	2015/02/14 15:34:39	1.46
+++ pod2mdoc/pod2mdoc.c	2015/02/19 11:14:27	1.52
@@ -1,4 +1,4 @@
-/*	$Id: pod2mdoc.c,v 1.46 2015/02/14 15:34:39 schwarze Exp $	*/
+/*	$Id: pod2mdoc.c,v 1.52 2015/02/19 11:14:27 schwarze Exp $	*/
 /*
  * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2014, 2015 Ingo Schwarze <schwarze@openbsd.org>
@@ -1105,6 +1105,24 @@ again:
 			putchar('\n');
 			if (start < end && '\n' == buf[start])
 				start++;
+
+			/* Remember #define for Dv or Fn. */
+
+			if (strncmp(buf + i + 1, "define", 6) ||
+			    ! isspace((unsigned char)buf[i + 7]))
+				goto again;
+
+			ifo = i + 7;
+			while (ifo < start &&
+			    isspace((unsigned char)buf[ifo]))
+				ifo++;
+			ifa = ifo;
+			while ('_' == buf[ifa] ||
+			    isalnum((unsigned char)buf[ifa]))
+				ifa++;
+			dict_put(buf + ifo, ifa - ifo,
+			    '(' == buf[ifa] ? MDOC_Fo : MDOC_Dv);
+
 			goto again;
 		}
 
@@ -1182,7 +1200,10 @@ again:
 				if ('\0' != *cp2)
 					dict_put(cp2, 0, MDOC_Fa);
 				register_type(buf + ifa);
-				printf(".Fa \"%s\"\n", buf + ifa);
+				if (strchr(buf + ifa, ' ') == NULL)
+					printf(".Fa %s\n", buf + ifa);
+				else
+					printf(".Fa \"%s\"\n", buf + ifa);
 				if (cp == NULL)
 					break;
 				while (*cp == ' ' || *cp == '\t')
@@ -1287,7 +1308,7 @@ donamenm(struct state *st, const char *buf, size_t *st
 	assert(OUST_NL == st->oust);
 	assert(st->wantws);
 
-	while (*start < end && ' ' == buf[*start])
+	while (*start < end && isspace((unsigned char)buf[*start]))
 		(*start)++;
 
 	if (end == *start) {
@@ -1308,7 +1329,7 @@ donamenm(struct state *st, const char *buf, size_t *st
 		printf(" ,");
 		mdoc_newln(st);
 		(*start)++;
-		while (*start < end && ' ' == buf[*start])
+		while (*start < end && isspace((unsigned char)buf[*start]))
 			(*start)++;
 	}
 }
@@ -1333,6 +1354,7 @@ ordinary(struct state *st, const char *buf, size_t sta
 	size_t		i, j, opstack, wend;
 	enum mdoc_type	mtype;
 	int		eos, noeos, seq;
+	char		savechar;
 
 	if ( ! st->parsing || st->paused)
 		return;
@@ -1345,7 +1367,8 @@ ordinary(struct state *st, const char *buf, size_t sta
 	 */
 	if (SECT_NAME == st->sect) {
 		for (i = end - 2; i > start; i--)
-			if ('-' == buf[i] && ' ' == buf[i + 1])
+			if ('-' == buf[i] &&
+			    isspace((unsigned char)buf[i + 1]))
 				break;
 		if ('-' == buf[i]) {
 			j = i;
@@ -1355,7 +1378,8 @@ ordinary(struct state *st, const char *buf, size_t sta
 					break;
 			donamenm(st, buf, &start, i + 1);
 			start = j + 1;
-			while (start < end && ' ' == buf[start])
+			while (start < end &&
+			     isspace((unsigned char)buf[start]))
 				start++;
 			formatcodeln(st, "Nd", buf, &start, end, 1);
 			mdoc_newln(st);
@@ -1404,6 +1428,7 @@ ordinary(struct state *st, const char *buf, size_t sta
 			if ( ! isspace(last))
 				outbuf_addchar(st);
 			if (start < end &&
+			    ! isspace((unsigned char)buf[start - 1]) &&
 			    ! isspace((unsigned char)buf[start]))
 				continue;
 
@@ -1435,9 +1460,12 @@ ordinary(struct state *st, const char *buf, size_t sta
 			 */
 
 			mtype = MDOC_Fa;
+			savechar = '\0';
 			if (wend && ')' == st->outbuf[wend] &&
 			    '(' == st->outbuf[wend - 1]) {
 				mtype = dict_get(st->outbuf, --wend);
+				if (MDOC_Dv == mtype)
+					mtype = MDOC_Fo;
 				if (MDOC_Fo == mtype || MDOC_MAX == mtype) {
 					st->outbuflen = wend;
 					st->outbuf[wend] = '\0';
@@ -1448,6 +1476,16 @@ ordinary(struct state *st, const char *buf, size_t sta
 						fputs(".Xr ", stdout);
 					st->oust = OUST_MAC;
 				}
+			} else {
+				mtype = dict_get(st->outbuf, wend);
+				if (MDOC_Dv == mtype) {
+					savechar = st->outbuf[wend];
+					st->outbuf[wend] = '\0';
+					mdoc_newln(st);
+					fputs(".Dv ", stdout);
+					st->oust = OUST_MAC;
+				} else
+					mtype = MDOC_Fa;
 			}
 
 			/*
@@ -1466,12 +1504,15 @@ ordinary(struct state *st, const char *buf, size_t sta
 			    islower((unsigned char)st->outbuf[wend - 1]))) {
 				if (MDOC_MAX == mtype)
 					fputs(" 3", stdout);
-				if (MDOC_Fa != mtype)
-					for (wend += 2;
-					     '\0' != st->outbuf[wend];
-					     wend++)
+				if (MDOC_Fa != mtype) {
+					if (MDOC_Dv == mtype)
+						st->outbuf[wend] = savechar;
+					else
+						wend += 2;
+					while ('\0' != st->outbuf[wend])
 						printf(" %c",
-						    st->outbuf[wend]);
+						    st->outbuf[wend++]);
+				}
 				mdoc_newln(st);
 			}
 
@@ -1492,12 +1533,11 @@ ordinary(struct state *st, const char *buf, size_t sta
 				 * XXX Some punctuation characters
 				 *     are not handled yet.
 				 */
-				if ((start == end - 1 || 
-					(start < end - 1 && 
-					 (' ' == buf[start + 1] ||
-					  '\n' == buf[start + 1]))) &&
-					('.' == buf[start] ||
-					 ',' == buf[start])) {
+				if ((start == end - 1 ||
+				     (start < end - 1 &&
+				      (' ' == buf[start + 1] ||
+				       '\n' == buf[start + 1]))) &&
+				    NULL != strchr("|.,;:?!)]", buf[start])) {
 					putchar(' ');
 					putchar(buf[start++]);
 				}
@@ -1632,7 +1672,7 @@ dofile(const struct args *args, const char *fname, 
 
 	date = args->date;
 	format = (NULL == date) ? "%B %d, %Y" :
-	    strcmp(date, "Mdocdate") ? NULL : "$Mdocdate: February 14 2015 $";
+	    strcmp(date, "Mdocdate") ? NULL : "$" "Mdocdate: %B %d %Y $";
 
 	if (NULL != format) {
 		strftime(datebuf, sizeof(datebuf), format, tm);