===================================================================
RCS file: /cvs/pod2mdoc/pod2mdoc.c,v
retrieving revision 1.46
retrieving revision 1.53
diff -u -p -r1.46 -r1.53
--- pod2mdoc/pod2mdoc.c	2015/02/14 15:34:39	1.46
+++ pod2mdoc/pod2mdoc.c	2015/02/19 13:50:45	1.53
@@ -1,4 +1,4 @@
-/*	$Id: pod2mdoc.c,v 1.46 2015/02/14 15:34:39 schwarze Exp $	*/
+/*	$Id: pod2mdoc.c,v 1.53 2015/02/19 13:50:45 schwarze Exp $	*/
 /*
  * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2014, 2015 Ingo Schwarze <schwarze@openbsd.org>
@@ -1059,11 +1059,26 @@ verbatim(struct state *st, char *buf, size_t start, si
 {
 	size_t		 i, ift, ifo, ifa, ifc, inl;
 	char		*cp, *cp2;
-	int		 nopen;
+	int		 indisplay, nopen, wantsp;
 
-	if ( ! st->parsing || st->paused || start == end)
+	if (st->paused || ! st->parsing)
 		return;
+
+	indisplay = wantsp = 0;
+
 again:
+	if (start == end) {
+		if (indisplay)
+			puts(".Ed");
+		return;
+	}
+
+	if ('\n' == buf[start]) {
+		wantsp = 1;
+		start++;
+		goto again;
+	}
+
 	/* 
 	 * If we're in the SYNOPSIS, see if we're an #include block.
 	 * If we are, then print the "In" macro and re-loop.
@@ -1075,7 +1090,7 @@ again:
 		while (i < end && buf[i] == ' ')
 			i++;
 		if (i == end)
-			return;
+			goto again;
 
 		/* We're an include block! */
 		if (end - i > 10 && 
@@ -1083,6 +1098,9 @@ again:
 			start = i + 10;
 			while (start < end && ' ' == buf[start])
 				start++;
+			if (indisplay)
+				puts(".Ed");
+			indisplay = wantsp = 0;
 			fputs(".In ", stdout);
 			/* Stop til the '>' marker or we hit eoln. */
 			while (start < end && 
@@ -1098,6 +1116,9 @@ again:
 
 		/* Other preprocessor directives. */
 		if ('#' == buf[i]) {
+			if (indisplay)
+				puts(".Ed");
+			indisplay = wantsp = 0;
 			fputs(".Fd ", stdout);
 			start = i;
 			while(start < end && '\n' != buf[start])
@@ -1105,6 +1126,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;
 		}
 
@@ -1159,6 +1198,9 @@ again:
 					buf[i] = ' ';
 			buf[ifo++] = '\0';
 			register_type(buf + ift);
+			if (indisplay)
+				puts(".Ed");
+			indisplay = wantsp = 0;
 			printf(".Ft %s", buf + ift);
 			if (buf[ifo] == '*') {
 				fputs(" *", stdout);
@@ -1182,7 +1224,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')
@@ -1196,28 +1241,37 @@ again:
 				buf[inl] = '\0';
 				puts(buf + ifc);
 			}
-			start = inl + 1;
-			if (start < end) 
-				goto again;
-			return;
+			start = inl < end ? inl + 1 : end;
+			goto again;
 		}
 	}
-	
-	puts(".Bd -literal");
-	for (last = ' '; start < end; start++) {
+
+	if ( ! indisplay)
+		puts(".Bd -literal");
+	else if (wantsp)
+		putchar('\n');
+	indisplay = 1;
+	wantsp = 0;
+
+	for (last = '\n'; start < end; start++) {
 		/*
 		 * Handle accidental macros (newline starting with
 		 * control character) and escapes.
 		 */
-		if ('\n' == last)
+		if ('\n' == last) {
+			if ('\n' == buf[start])
+				goto again;
 			if ('.' == buf[start] || '\'' == buf[start])
 				printf("\\&");
+		}
 		putchar(last = buf[start]);
 		if ('\\' == buf[start])
 			printf("e");
 	}
-	putchar(last = '\n');
-	puts(".Ed");
+	if ('\n' != last)
+		putchar('\n');
+	if (indisplay)
+		puts(".Ed");
 }
 
 /*
@@ -1287,7 +1341,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 +1362,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 +1387,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 +1400,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 +1411,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 +1461,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 +1493,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 +1509,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 +1537,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 +1566,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++]);
 				}
@@ -1587,7 +1660,8 @@ dofile(const struct args *args, const char *fname, 
 	struct state	 st;
 	const char	*fbase, *fext, *section, *date, *format;
 	char		*title, *cp;
-	size_t		 sup, end, i, cur = 0;
+	size_t		 cur, end;
+	int		 verb;
 
 	if (0 == sz)
 		return;
@@ -1632,7 +1706,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);
@@ -1659,24 +1733,32 @@ dofile(const struct args *args, const char *fname, 
 
 	/* Main loop over file contents. */
 
-	while (cur < sz) {
+	cur = 0;
+	for (;;) {
+		while (cur < sz && '\n' == buf[cur])
+			cur++;
+		if (cur >= sz)
+			break;
+
+		verb = isspace((unsigned char)buf[cur]);
+
 		/* Read until next paragraph. */
-		for (i = cur + 1; i < sz; i++)
-			if ('\n' == buf[i] && '\n' == buf[i - 1]) {
-				/* Consume blank paragraphs. */
-				while (i + 1 < sz && '\n' == buf[i + 1])
-					i++;
+
+		for (end = cur + 1; end + 1 < sz; end++)
+			if ('\n' == buf[end] && '\n' == buf[end + 1] &&
+			    !(verb && end + 2 < sz &&
+			      isspace((unsigned char)buf[end + 2])))
 				break;
-			}
 		
 		/* Adjust end marker for EOF. */
-		end = i < sz ? i - 1 : 
-			('\n' == buf[sz - 1] ? sz - 1 : sz);
-		sup = i < sz ? end + 2 : sz;
 
+		if (end < sz && '\n' != buf[end])
+			end++;
+
 		/* Process paragraph and adjust start. */
+
 		dopar(&st, buf, cur, end);
-		cur = sup;
+		cur = end + 2;
 	}
 	dict_destroy();
 }