===================================================================
RCS file: /cvs/docbook2mdoc/docbook2mdoc.c,v
retrieving revision 1.2
retrieving revision 1.124
diff -u -p -r1.2 -r1.124
--- docbook2mdoc/docbook2mdoc.c	2014/03/28 02:06:29	1.2
+++ docbook2mdoc/docbook2mdoc.c	2019/04/14 20:13:25	1.124
@@ -1,6 +1,7 @@
-/*	$Id: docbook2mdoc.c,v 1.2 2014/03/28 02:06:29 kristaps Exp $ */
+/* $Id: docbook2mdoc.c,v 1.124 2019/04/14 20:13:25 schwarze Exp $ */
 /*
  * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>
+ * Copyright (c) 2019 Ingo Schwarze <schwarze@openbsd.org>
  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above
@@ -14,758 +15,1351 @@
  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */
-#include <sys/queue.h>
-
 #include <assert.h>
 #include <ctype.h>
-#include <expat.h>
-#include <fcntl.h>
-#include <getopt.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 
-/*
- * All recognised node types.
- */
-enum	nodeid {
-	NODE_ROOT = 0, /* Must comes first. */
-	/* Alpha-ordered hereafter. */
-	NODE_CITEREFENTRY,
-	NODE_CODE,
-	NODE_FUNCSYNOPSIS,
-	NODE_FUNCSYNOPSISINFO,
-	NODE_MANVOLNUM, 
-	NODE_PARA,
-	NODE_PROGRAMLISTING,
-	NODE_REFCLASS,
-	NODE_REFDESCRIPTOR,
-	NODE_REFENTRY,
-	NODE_REFENTRYTITLE,
-	NODE_REFMETA,
-	NODE_REFMISCINFO,
-	NODE_REFNAME,
-	NODE_REFNAMEDIV,
-	NODE_REFPURPOSE,
-	NODE_REFSECT1,
-	NODE_REFSYNOPSISDIV,
-	NODE_SYNOPSIS,
-	NODE_TEXT, 
-	NODE_TITLE,
-	NODE__MAX
-};
+#include "node.h"
+#include "macro.h"
+#include "format.h"
 
 /*
- * Global parse state.
- * Keep this as simple and small as possible.
+ * The implementation of the mdoc(7) formatter.
  */
-struct	parse {
-	enum nodeid	 node; /* current (NODE_ROOT if pre-tree) */
-	int		 stop; /* should we stop now? */
-	struct pnode	*root; /* root of parse tree */
-	struct pnode	*cur; /* current node in tree */
-	char		*b;
-	size_t		 bsz;
-	size_t		 mbsz;
-};
 
-struct	node {
-	const char	*name;
-	unsigned int	 flags;
-#define	NODE_IGNTEXT	 1 /* ignore all contained text */
-};
+static void	 pnode_print(struct format *, struct pnode *);
+static void	 pnode_printrefentry(struct format *, struct pnode *);
 
-TAILQ_HEAD(pnodeq, pnode);
 
-struct	pnode {
-	enum nodeid	 node; /* node type */
-	char		*b; /* binary data buffer */
-	size_t		 bsz; /* data buffer size */
-	struct pnode	*parent; /* parent (or NULL if top) */
-	struct pnodeq	 childq; /* queue of children */
-	TAILQ_ENTRY(pnode) child;
-};
+static void
+pnode_printtext(struct format *f, struct pnode *n)
+{
+	struct pnode	*nn;
+	char		*cp;
+	int		 accept_arg;
 
-static	const struct node nodes[NODE__MAX] = {
-	{ NULL, 0 }, 
-	{ "citerefentry", NODE_IGNTEXT }, 
-	{ "code", 0 }, 
-	{ "funcsynopsis", NODE_IGNTEXT }, 
-	{ "funcsynopsisinfo", 0 }, 
-	{ "manvolnum", 0 }, 
-	{ "para", 0 }, 
-	{ "programlisting", 0 }, 
-	{ "refclass", NODE_IGNTEXT }, 
-	{ "refdescriptor", NODE_IGNTEXT }, 
-	{ "refentry", NODE_IGNTEXT }, 
-	{ "refentrytitle", 0 }, 
-	{ "refmeta", NODE_IGNTEXT }, 
-	{ "refmiscinfo", NODE_IGNTEXT }, 
-	{ "refname", 0 }, 
-	{ "refnamediv", NODE_IGNTEXT }, 
-	{ "refpurpose", 0 }, 
-	{ "refsect1", 0 }, 
-	{ "refsynopsisdiv", NODE_IGNTEXT }, 
-	{ "synopsis", 0 }, 
-	{ NULL, 0 }, 
-	{ "title", 0 }, 
-};
+	cp = n->b;
+	accept_arg = f->flags & FMT_ARG;
+	if (f->linestate == LINE_MACRO && !n->spc && !accept_arg) {
+		for (;;) {
+			if (*cp == '\0')
+				return;
+			if (strchr("!),.:;?]", *cp) == NULL)
+				break;
+			printf(" %c", *cp++);
+		}
+		if (isspace((unsigned char)*cp)) {
+			while (isspace((unsigned char)*cp))
+				cp++;
+			macro_close(f);
+		} else {
+			fputs(" Ns", stdout);
+			f->flags &= FMT_IMPL;
+			accept_arg = 1;
+		}
+	}
+	if (f->linestate == LINE_MACRO && !accept_arg &&
+	    (f->flags & (FMT_CHILD | FMT_IMPL)) == 0)
+		macro_close(f);
 
+	/*
+	 * Text preceding a macro without intervening whitespace
+	 * requires a .Pf macro.
+	 * Set the spacing flag to avoid a redundant .Ns macro.
+	 */
+
+	if (f->linestate != LINE_MACRO &&
+	    (nn = TAILQ_NEXT(n, child)) != NULL && nn->spc == 0) {
+		switch (pnode_class(nn->node)) {
+		case CLASS_LINE:
+		case CLASS_ENCL:
+			macro_open(f, "Pf");
+			accept_arg = 1;
+			f->flags |= FMT_CHILD;
+			nn->spc = 1;
+			break;
+		default:
+			break;
+		}
+	}
+
+	switch (f->linestate) {
+	case LINE_NEW:
+		break;
+	case LINE_TEXT:
+		if (n->spc) {
+			if (n->node == NODE_TEXT)
+				macro_close(f);
+			else
+				putchar(' ');
+		}
+		break;
+	case LINE_MACRO:
+		if (accept_arg)
+			putchar(' ');
+		else
+			macro_close(f);
+		break;
+	}
+
+	if (n->node == NODE_ESCAPE) {
+		fputs(n->b, stdout);
+		if (f->linestate == LINE_NEW)
+			f->linestate = LINE_TEXT;
+		return;
+	}
+
+	/*
+	 * Remove the prefix '-' from <option> elements
+	 * because the arguments of .Fl macros do not need it.
+	 */
+
+	if (n->parent != NULL && n->parent->node == NODE_OPTION && *cp == '-')
+		cp++;
+
+	if (f->linestate == LINE_MACRO)
+		macro_addarg(f, cp, 0);
+	else
+		print_text(f, cp, 0);
+}
+
+static void
+pnode_printpara(struct format *f, struct pnode *n)
+{
+	struct pnode	*np;
+
+	if (n->parent == NULL)
+		return;
+
+	if ((np = TAILQ_PREV(n, pnodeq, child)) == NULL)
+	    np = n->parent;
+
+	f->flags = 0;
+
+	switch (np->node) {
+	case NODE_ENTRY:
+	case NODE_GLOSSTERM:
+	case NODE_LISTITEM:
+	case NODE_TERM:
+		return;
+	case NODE_APPENDIX:
+	case NODE_LEGALNOTICE:
+	case NODE_PREFACE:
+	case NODE_SECTION:
+		if (f->level < 3)
+			return;
+		break;
+	default:
+		break;
+	}
+	macro_line(f, "Pp");
+}
+
+static void
+pnode_printrefnamediv(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc, *nn;
+	int		 comma;
+
+	macro_line(f, "Sh NAME");
+	comma = 0;
+	TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) {
+		if (nc->node != NODE_REFNAME)
+			continue;
+		if (comma)
+			macro_addarg(f, ",", ARG_SPACE);
+		macro_open(f, "Nm");
+		macro_addnode(f, nc, ARG_SPACE);
+		pnode_unlink(nc);
+		comma = 1;
+	}
+	macro_close(f);
+}
+
 /*
- * Look up whether "parent" is a valid parent for "node".
+ * If the SYNOPSIS macro has a superfluous title, kill it.
  */
-static int
-isparent(enum nodeid node, enum nodeid parent)
+static void
+pnode_printrefsynopsisdiv(struct format *f, struct pnode *n)
 {
+	struct pnode	*nc, *nn;
 
-	switch (node) {
-	case (NODE_ROOT):
-		return(0);
-	case (NODE_CITEREFENTRY):
-		switch (parent) {
-		case (NODE_FUNCSYNOPSISINFO):
-		case (NODE_PARA):
-		case (NODE_PROGRAMLISTING):
-		case (NODE_REFDESCRIPTOR):
-		case (NODE_REFENTRYTITLE):
-		case (NODE_REFNAME):
-		case (NODE_REFPURPOSE):
-		case (NODE_SYNOPSIS):
-		case (NODE_TITLE):
-			return(1);
-		default:
+	TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn)
+		if (nc->node == NODE_TITLE)
+			pnode_unlink(nc);
+
+	macro_line(f, "Sh SYNOPSIS");
+}
+
+/*
+ * Start a hopefully-named `Sh' section.
+ */
+static void
+pnode_printsection(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc, *ncc;
+	const char	*title;
+	int		 flags, level;
+
+	if (n->parent == NULL) {
+		pnode_printrefentry(f, n);
+		return;
+	}
+
+	level = ++f->level;
+	flags = ARG_SPACE;
+	switch (n->node) {
+	case NODE_PREFACE:
+	case NODE_SECTION:
+	case NODE_APPENDIX:
+		if (level == 1)
+			flags |= ARG_UPPER;
+		break;
+	case NODE_SIMPLESECT:
+	case NODE_LEGALNOTICE:
+		if (level < 2)
+			level = 2;
+		break;
+	default:
+		if (level < 3)
+			level = 3;
+		break;
+	}
+
+	TAILQ_FOREACH(nc, &n->childq, child)
+		if (nc->node == NODE_TITLE)
 			break;
-		}
-		return(0);
-	case (NODE_CODE):
-		switch (parent) {
-		case (NODE_FUNCSYNOPSISINFO):
-		case (NODE_PARA):
-		case (NODE_PROGRAMLISTING):
-		case (NODE_REFDESCRIPTOR):
-		case (NODE_REFENTRYTITLE):
-		case (NODE_REFNAME):
-		case (NODE_REFPURPOSE):
-		case (NODE_SYNOPSIS):
-		case (NODE_TITLE):
-			return(1);
-		default:
+
+	if (nc == NULL) {
+		switch (n->node) {
+		case NODE_PREFACE:
+			title = "Preface";
 			break;
-		}
-		return(0);
-	case (NODE_MANVOLNUM):
-		switch (parent) {
-		case (NODE_CITEREFENTRY):
-		case (NODE_REFMETA):
-			return(1);
-		default:
+		case NODE_APPENDIX:
+			title = "Appendix";
 			break;
-		}
-		return(0);
-	case (NODE_FUNCSYNOPSIS):
-		switch (parent) {
-		case (NODE_PARA):
-		case (NODE_REFSECT1):
-		case (NODE_REFSYNOPSISDIV):
-			return(1);
-		default:
+		case NODE_LEGALNOTICE:
+			title = "Legal Notice";
 			break;
-		}
-		return(0);
-	case (NODE_FUNCSYNOPSISINFO):
-		return(NODE_FUNCSYNOPSIS == parent);
-	case (NODE_PARA):
-		switch (parent) {
-		case (NODE_REFSECT1):
-		case (NODE_REFSYNOPSISDIV):
-			return(1);
-		default:
+		case NODE_CAUTION:
+			title = "Caution";
 			break;
-		}
-		return(0);
-	case (NODE_PROGRAMLISTING):
-		switch (parent) {
-		case (NODE_PARA):
-		case (NODE_REFSECT1):
-		case (NODE_REFSYNOPSISDIV):
-			return(1);
-		default:
+		case NODE_NOTE:
+			title = "Note";
 			break;
-		}
-		return(0);
-	case (NODE_REFCLASS):
-		return(parent == NODE_REFNAMEDIV);
-	case (NODE_REFDESCRIPTOR):
-		return(parent == NODE_REFNAMEDIV);
-	case (NODE_REFENTRY):
-		return(parent == NODE_ROOT);
-	case (NODE_REFENTRYTITLE):
-		switch (parent) {
-		case (NODE_CITEREFENTRY):
-		case (NODE_REFMETA):
-			return(1);
-		default:
+		case NODE_TIP:
+			title = "Tip";
 			break;
-		}
-	case (NODE_REFMETA):
-		return(parent == NODE_REFENTRY);
-	case (NODE_REFMISCINFO):
-		return(parent == NODE_REFMETA);
-	case (NODE_REFNAME):
-		return(parent == NODE_REFNAMEDIV);
-	case (NODE_REFNAMEDIV):
-		return(parent == NODE_REFENTRY);
-	case (NODE_REFPURPOSE):
-		return(parent == NODE_REFNAMEDIV);
-	case (NODE_REFSECT1):
-		return(parent == NODE_REFENTRY);
-	case (NODE_REFSYNOPSISDIV):
-		return(parent == NODE_REFENTRY);
-	case (NODE_SYNOPSIS):
-		switch (parent) {
-		case (NODE_REFSYNOPSISDIV):
-		case (NODE_REFSECT1):
-			return(1);
-		default:
+		case NODE_WARNING:
+			title = "Warning";
 			break;
-		}
-		return(0);
-	case (NODE_TITLE):
-		switch (parent) {
-		case (NODE_REFSECT1):
-		case (NODE_REFSYNOPSISDIV):
-			return(1);
 		default:
+			title = "Unknown";
 			break;
 		}
-		return(0);
-	case (NODE_TEXT):
-		return(1);
-	case (NODE__MAX):
+	}
+
+	switch (level) {
+	case 1:
+		macro_close(f);
+		macro_open(f, "Sh");
 		break;
+	case 2:
+		macro_close(f);
+		macro_open(f, "Ss");
+		break;
+	default:
+		pnode_printpara(f, n);
+		macro_open(f, "Sy");
+		break;
 	}
 
-	abort();
-	return(0);
+	if (nc != NULL)
+		macro_addnode(f, nc, flags);
+	else
+		macro_addarg(f, title, flags | ARG_QUOTED);
+	macro_close(f);
+
+	/*
+	 * DocBook has no equivalent for -split mode,
+	 * so just switch the default in the AUTHORS section.
+	 */
+
+	if (nc != NULL) {
+		ncc = TAILQ_FIRST(&nc->childq);
+		if (ncc != NULL && ncc->node == NODE_TEXT &&
+		    strcasecmp(ncc->b, "AUTHORS") == 0)
+			macro_line(f, "An -nosplit");
+		pnode_unlink(nc);
+	}
 }
 
+/*
+ * Start a reference, extracting the title and volume.
+ */
 static void
-xml_char(void *arg, const XML_Char *p, int sz)
+pnode_printciterefentry(struct format *f, struct pnode *n)
 {
-	struct parse	*ps = arg;
-	struct pnode	*dat;
+	struct pnode	*nc, *title, *manvol;
 
-	/* Stopped or no tree yet. */
-	if (ps->stop || NODE_ROOT == ps->node)
-		return;
+	title = manvol = NULL;
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		if (nc->node == NODE_MANVOLNUM)
+			manvol = nc;
+		else if (nc->node == NODE_REFENTRYTITLE)
+			title = nc;
+	}
+	macro_open(f, "Xr");
+	if (title == NULL)
+		macro_addarg(f, "unknown", ARG_SPACE);
+	else
+		macro_addnode(f, title, ARG_SPACE | ARG_SINGLE);
+	if (manvol == NULL)
+		macro_addarg(f, "1", ARG_SPACE);
+	else
+		macro_addnode(f, manvol, ARG_SPACE | ARG_SINGLE);
+	pnode_unlinksub(n);
+}
 
-	/* Not supposed to be collecting text. */
-	assert(NULL != ps->cur);
-	if (NODE_IGNTEXT & nodes[ps->node].flags)
-		return;
+static void
+pnode_printfuncdef(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc;
 
-	/*
-	 * Are we in the midst of processing text?
-	 * If we're not processing text right now, then create a text
-	 * node for doing so.
-	 */
-	if (NODE_TEXT != ps->node) {
-		dat = calloc(1, sizeof(struct pnode));
-		if (NULL == dat) {
-			perror(NULL);
-			exit(EXIT_FAILURE);
-		}
+	nc = TAILQ_FIRST(&n->childq);
+	if (nc != NULL && nc->node == NODE_TEXT) {
+		macro_argline(f, "Ft", nc->b);
+		pnode_unlink(nc);
+	}
+	macro_nodeline(f, "Fo", n, ARG_SINGLE);
+	pnode_unlinksub(n);
+}
 
-		dat->node = ps->node = NODE_TEXT;
-		dat->parent = ps->cur;
-		TAILQ_INIT(&dat->childq);
-		TAILQ_INSERT_TAIL(&ps->cur->childq, dat, child);
-		ps->cur = dat;
-		assert(NULL != ps->root);
+/*
+ * The <mml:mfenced> node is a little peculiar.
+ * First, it can have arbitrary open and closing tokens, which default
+ * to parentheses.
+ * Second, >1 arguments are separated by commas.
+ */
+static void
+pnode_printmathfenced(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc;
 
-	}
+	printf("left %s ", pnode_getattr_raw(n, ATTRKEY_OPEN, "("));
 
-	/* Append to current buffer. */
-	assert(sz >= 0);
-	ps->cur->b = realloc(ps->cur->b, 
-		ps->cur->bsz + (size_t)sz);
-	if (NULL == ps->cur->b) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
+	nc = TAILQ_FIRST(&n->childq);
+	pnode_print(f, nc);
+
+	while ((nc = TAILQ_NEXT(nc, child)) != NULL) {
+		putchar(',');
+		pnode_print(f, nc);
 	}
-	memcpy(ps->cur->b + ps->cur->bsz, p, sz);
-	ps->cur->bsz += (size_t)sz;
+	printf("right %s ", pnode_getattr_raw(n, ATTRKEY_CLOSE, ")"));
+	pnode_unlinksub(n);
 }
 
 /*
- * Begin an element.
- * First, look for the element.
- * If we don't find it and we're not parsing, keep going.
- * If we don't find it (and we're parsing), puke and exit.
- * If we find it but we're not parsing yet (i.e., it's not a refentry
- * and thus out of context), keep going.
- * If we're at the root and already have a tree, puke and exit.
- * Make sure that the element is in the right context.
- * Lastly, put the node onto our parse tree and continue.
+ * These math nodes require special handling because they have infix
+ * syntax, instead of the usual prefix or prefix.
+ * So we need to break up the first and second child node with a
+ * particular eqn(7) word.
  */
 static void
-xml_elem_start(void *arg, const XML_Char *name, const XML_Char **atts)
+pnode_printmath(struct format *f, struct pnode *n)
 {
-	struct parse	*ps = arg;
-	enum nodeid	 node;
-	struct pnode	*dat;
+	struct pnode	*nc;
 
-	if (ps->stop)
-		return;
+	nc = TAILQ_FIRST(&n->childq);
+	pnode_print(f, nc);
 
-	/* Close out text node, if applicable... */
-	if (NODE_TEXT == ps->node) {
-		assert(NULL != ps->cur);
-		ps->cur = ps->cur->parent;
-		assert(NULL != ps->cur);
-		ps->node = ps->cur->node;
+	switch (n->node) {
+	case NODE_MML_MSUP:
+		fputs(" sup ", stdout);
+		break;
+	case NODE_MML_MFRAC:
+		fputs(" over ", stdout);
+		break;
+	case NODE_MML_MSUB:
+		fputs(" sub ", stdout);
+		break;
+	default:
+		break;
 	}
 
-	for (node = 0; node < NODE__MAX; node++)
-		if (NULL == nodes[node].name)
-			continue;
-		else if (0 == strcmp(nodes[node].name, name))
-			break;
+	nc = TAILQ_NEXT(nc, child);
+	pnode_print(f, nc);
+	pnode_unlinksub(n);
+}
 
-	if (NODE__MAX == node && NODE_ROOT == ps->node) {
-		fprintf(stderr, "%s: ignoring node\n", name);
-		return;
-	} else if (NODE__MAX == node) {
-		fprintf(stderr, "%s: unknown node\n", name);
-		ps->stop = 1;
-		return;
-	} else if (NODE_ROOT == ps->node && NULL != ps->root) {
-		fprintf(stderr, "%s: reentering?\n", name);
-		ps->stop = 1;
-		return;
-	} else if (NODE_ROOT == ps->node && NODE_REFENTRY != node) {
-		fprintf(stderr, "%s: known node w/o context\n", name);
-		return;
-	} else if ( ! isparent(node, ps->node)) {
-		fprintf(stderr, "%s: bad parent\n", name);
-		ps->stop = 1;
-		return;
-	}
+static void
+pnode_printfuncprototype(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc, *fdef;
 
-	if (NULL == (dat = calloc(1, sizeof(struct pnode)))) {
-		perror(NULL);
-		exit(EXIT_FAILURE);
-	}
+	TAILQ_FOREACH(fdef, &n->childq, child)
+		if (fdef->node == NODE_FUNCDEF)
+			break;
 
-	dat->node = ps->node = node;
-	dat->parent = ps->cur;
-	TAILQ_INIT(&dat->childq);
+	if (fdef != NULL) {
+		pnode_printfuncdef(f, fdef);
+		pnode_unlink(fdef);
+	} else
+		macro_line(f, "Fo UNKNOWN");
 
-	if (NULL != ps->cur)
-		TAILQ_INSERT_TAIL(&ps->cur->childq, dat, child);
+	TAILQ_FOREACH(nc, &n->childq, child)
+		macro_nodeline(f, "Fa", nc, ARG_SINGLE);
 
-	ps->cur = dat;
-	if (NULL == ps->root)
-		ps->root = dat;
+	macro_line(f, "Fc");
+	pnode_unlinksub(n);
 }
 
 /*
- * Roll up the parse tree.
- * Does nothing else special.
- * If we hit the root, then assign ourselves as the NODE_ROOT.
+ * The <arg> element is more complicated than it should be because text
+ * nodes are treated like ".Ar foo", but non-text nodes need to be
+ * re-sent into the printer (i.e., without the preceding ".Ar").
+ * This also handles the case of "repetition" (or in other words, the
+ * ellipsis following an argument) and optionality.
  */
 static void
-xml_elem_end(void *arg, const XML_Char *name)
+pnode_printarg(struct format *f, struct pnode *n)
 {
-	struct parse	*ps = arg;
+	struct pnode	*nc;
+	struct pattr	*a;
+	int		 isop, isrep, was_impl;
 
-	if (ps->stop || NODE_ROOT == ps->node)
-		return;
+	isop = 1;
+	isrep = was_impl = 0;
+	TAILQ_FOREACH(a, &n->attrq, child) {
+		if (a->key == ATTRKEY_CHOICE &&
+		    (a->val == ATTRVAL_PLAIN || a->val == ATTRVAL_REQ))
+			isop = 0;
+		else if (a->key == ATTRKEY_REP && a->val == ATTRVAL_REPEAT)
+			isrep = 1;
+	}
+	if (isop) {
+		if (f->flags & FMT_IMPL) {
+			was_impl = 1;
+			macro_open(f, "Oo");
+		} else {
+			macro_open(f, "Op");
+			f->flags |= FMT_IMPL;
+		}
+	}
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		if (nc->node == NODE_TEXT)
+			macro_open(f, "Ar");
+		pnode_print(f, nc);
+	}
+	if (isrep && f->linestate == LINE_MACRO)
+		macro_addarg(f, "...", ARG_SPACE);
+	if (isop) {
+		if (was_impl)
+			macro_open(f, "Oc");
+		else
+			f->flags &= ~FMT_IMPL;
+	}
+	pnode_unlinksub(n);
+}
 
-	/* Close out text node, if applicable... */
-	if (NODE_TEXT == ps->node) {
-		assert(NULL != ps->cur);
-		ps->cur = ps->cur->parent;
-		assert(NULL != ps->cur);
-		ps->node = ps->cur->node;
+static void
+pnode_printgroup(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc;
+	struct pattr	*a;
+	int		 bar, isop, isrep, was_impl;
+
+	isop = 1;
+	isrep = was_impl = 0;
+	TAILQ_FOREACH(a, &n->attrq, child) {
+		if (a->key == ATTRKEY_CHOICE &&
+		    (a->val == ATTRVAL_PLAIN || a->val == ATTRVAL_REQ))
+			isop = 0;
+		else if (a->key == ATTRKEY_REP && a->val == ATTRVAL_REPEAT)
+			isrep = 1;
 	}
+	if (isop) {
+		if (f->flags & FMT_IMPL) {
+			was_impl = 1;
+			macro_open(f, "Oo");
+		} else {
+			macro_open(f, "Op");
+			f->flags |= FMT_IMPL;
+		}
+	} else if (isrep) {
+		if (f->flags & FMT_IMPL) {
+			was_impl = 1;
+			macro_open(f, "Bro");
+		} else {
+			macro_open(f, "Brq");
+			f->flags |= FMT_IMPL;
+		}
+	}
+	bar = 0;
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		if (bar && f->linestate == LINE_MACRO)
+			macro_addarg(f, "|", ARG_SPACE);
+		pnode_print(f, nc);
+		bar = 1;
+	}
+	if (isop) {
+		if (was_impl)
+			macro_open(f, "Oc");
+		else
+			f->flags &= ~FMT_IMPL;
+	} else if (isrep) {
+		if (was_impl)
+			macro_open(f, "Brc");
+		else
+			f->flags &= ~FMT_IMPL;
+	}
+	if (isrep && f->linestate == LINE_MACRO)
+		macro_addarg(f, "...", ARG_SPACE);
+	pnode_unlinksub(n);
+}
 
-	if (NULL == (ps->cur = ps->cur->parent))
-		ps->node = NODE_ROOT;
-	else
-		ps->node = ps->cur->node;
+static void
+pnode_printsystemitem(struct format *f, struct pnode *n)
+{
+	switch (pnode_getattr(n, ATTRKEY_CLASS)) {
+	case ATTRVAL_IPADDRESS:
+		break;
+	case ATTRVAL_SYSTEMNAME:
+		macro_open(f, "Pa");
+		break;
+	case ATTRVAL_EVENT:
+	default:
+		macro_open(f, "Sy");
+		break;
+	}
 }
 
 static void
-pnode_free(struct pnode *pn)
+pnode_printauthor(struct format *f, struct pnode *n)
 {
-	struct pnode	*pp;
+	struct pnode	*nc, *nn;
+	int		 have_contrib, have_name;
 
-	if (NULL == pn)
+	/*
+	 * Print <contrib> children up front, before the .An scope,
+	 * and figure out whether we a name of a person.
+	 */
+
+	have_contrib = have_name = 0;
+	TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) {
+		switch (nc->node) {
+		case NODE_CONTRIB:
+			if (have_contrib)
+				print_text(f, ",", 0);
+			print_textnode(f, nc);
+			pnode_unlink(nc);
+			have_contrib = 1;
+			break;
+		case NODE_PERSONNAME:
+			have_name = 1;
+			break;
+		default:
+			break;
+		}
+	}
+	if (TAILQ_FIRST(&n->childq) == NULL)
 		return;
 
-	while (NULL != (pp = TAILQ_FIRST(&pn->childq))) {
-		TAILQ_REMOVE(&pn->childq, pp, child);
-		pnode_free(pp);
+	if (have_contrib)
+		print_text(f, ":", 0);
+
+	/*
+         * If we have a name, print it in the .An scope and leave
+         * all other content for child handlers, to print after the
+         * scope.  Otherwise, print everything in the scope.
+	 */
+
+	macro_open(f, "An");
+	TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) {
+		if (nc->node == NODE_PERSONNAME || have_name == 0) {
+			macro_addnode(f, nc, ARG_SPACE);
+			pnode_unlink(nc);
+		}
 	}
 
-	free(pn->b);
-	free(pn);
+	/*
+	 * If there is an email address,
+	 * print it on the same macro line.
+	 */
+
+	if ((nc = pnode_findfirst(n, NODE_EMAIL)) != NULL) {
+		f->flags |= FMT_CHILD;
+		macro_open(f, "Aq Mt");
+		macro_addnode(f, nc, ARG_SPACE);
+		pnode_unlink(nc);
+	}
+
+	/*
+	 * If there are still unprinted children, end the scope
+	 * with a comma.  Otherwise, leave the scope open in case
+	 * a text node follows that starts with closing punctuation.
+	 */
+
+	if (TAILQ_FIRST(&n->childq) != NULL) {
+		macro_addarg(f, ",", ARG_SPACE);
+		macro_close(f);
+	}
 }
 
 static void
-pnode_unlink(struct pnode *pn)
+pnode_printlink(struct format *f, struct pnode *n)
 {
+	struct pnode	*nc;
+	const char	*uri, *text;
 
-	if (NULL != pn->parent)
-		TAILQ_REMOVE(&pn->parent->childq, pn, child);
-	pnode_free(pn);
+	uri = pnode_getattr_raw(n, ATTRKEY_LINKEND, NULL);
+	if (uri != NULL) {
+		if (TAILQ_FIRST(&n->childq) != NULL) {
+			TAILQ_FOREACH(nc, &n->childq, child)
+				pnode_print(f, nc);
+			text = "";
+		} else if ((text = pnode_getattr_raw(n,
+		    ATTRKEY_ENDTERM, NULL)) != NULL) {
+			if (f->linestate == LINE_MACRO && f->flags & FMT_ARG)
+				macro_addarg(f, text, ARG_SPACE);
+			else
+				print_text(f, text, ARG_SPACE);
+		}
+		if (text != NULL) {
+			if (f->flags & FMT_IMPL)
+				macro_open(f, "Po");
+			else {
+				macro_open(f, "Pq");
+				f->flags |= FMT_CHILD;
+			}
+		}
+		macro_open(f, "Sx");
+		macro_addarg(f, uri, ARG_SPACE);
+		if (text != NULL && f->flags & FMT_IMPL)
+			macro_open(f, "Pc");
+		pnode_unlinksub(n);
+		return;
+	}
+	uri = pnode_getattr_raw(n, ATTRKEY_XLINK_HREF, NULL);
+	if (uri == NULL)
+		uri = pnode_getattr_raw(n, ATTRKEY_URL, NULL);
+	if (uri != NULL) {
+		macro_open(f, "Lk");
+		macro_addarg(f, uri, ARG_SPACE | ARG_SINGLE);
+		if (TAILQ_FIRST(&n->childq) != NULL)
+			macro_addnode(f, n, ARG_SPACE | ARG_SINGLE);
+		pnode_unlinksub(n);
+		return;
+	}
 }
 
 static void
-bufclear(struct parse *p)
+pnode_printprologue(struct format *f, struct pnode *root)
 {
+	struct pnode	*date, *refmeta, *name, *vol, *descr, *nc, *nn;
+	const char	*sname;
 
-	p->b[p->bsz = 0] = '\0';
+	/* Collect information. */
+
+	if ((date = pnode_takefirst(root, NODE_PUBDATE)) == NULL)
+		date = pnode_takefirst(root, NODE_DATE);
+
+	name = vol = NULL;
+	if ((refmeta = pnode_findfirst(root, NODE_REFMETA)) != NULL) {
+		TAILQ_FOREACH_SAFE(nc, &refmeta->childq, child, nn) {
+			switch (nc->node) {
+			case NODE_REFENTRYTITLE:
+				name = nc;
+				break;
+			case NODE_MANVOLNUM:
+				vol = nc;
+				break;
+			default:
+				continue;
+			}
+			TAILQ_REMOVE(&refmeta->childq, nc, child);
+		}
+	}
+
+	if (pnode_findfirst(root, NODE_REFNAMEDIV) == NULL &&
+	    ((nc = pnode_findfirst(root, NODE_BOOKINFO)) != NULL ||
+	     (nc = pnode_findfirst(root, NODE_REFENTRYINFO)) != NULL))
+		descr = pnode_takefirst(nc, NODE_TITLE);
+	else
+		descr = NULL;
+
+	/* Print prologue. */
+
+	if (date == NULL)
+		macro_line(f, "Dd $Mdocdate" "$");
+	else
+		macro_nodeline(f, "Dd", date, 0);
+
+	macro_open(f, "Dt");
+	if (name == NULL) {
+		sname = pnode_getattr_raw(root, ATTRKEY_ID, "UNKNOWN");
+		macro_addarg(f, sname, ARG_SPACE | ARG_SINGLE | ARG_UPPER);
+	} else
+		macro_addnode(f, name, ARG_SPACE | ARG_SINGLE | ARG_UPPER);
+	if (vol == NULL)
+		macro_addarg(f, "1", ARG_SPACE);
+	else
+		macro_addnode(f, vol, ARG_SPACE | ARG_SINGLE);
+
+	macro_line(f, "Os");
+
+	if (descr != NULL) {
+		macro_line(f, "Sh NAME");
+		if (name == NULL)
+			macro_argline(f, "Nm", sname);
+		else
+			macro_nodeline(f, "Nm", name, ARG_SINGLE);
+		macro_nodeline(f, "Nd", descr, 0);
+	}
+
+	/* Clean up. */
+
+	pnode_unlink(date);
+	pnode_unlink(name);
+	pnode_unlink(vol);
+	pnode_unlink(descr);
 }
 
 static void
-bufappend(struct parse *p, struct pnode *pn)
+pnode_printrefentry(struct format *f, struct pnode *n)
 {
+	struct pnode	*info, *meta, *nc, *title;
+	struct pnode	*match, *later;
 
-	assert(NODE_TEXT == pn->node);
-	if (p->bsz + pn->bsz + 1 > p->mbsz) {
-		p->mbsz = p->bsz + pn->bsz + 1;
-		if (NULL == (p->b = realloc(p->b, p->mbsz))) {
+	/* Collect nodes that remained behind when writing the prologue. */
+
+	meta = NULL;
+	info = pnode_takefirst(n, NODE_BOOKINFO);
+	if (info != NULL && TAILQ_FIRST(&info->childq) == NULL) {
+		pnode_unlink(info);
+		info = NULL;
+	}
+	if (info == NULL) {
+		info = pnode_takefirst(n, NODE_REFENTRYINFO);
+		if (info != NULL && TAILQ_FIRST(&info->childq) == NULL) {
+			pnode_unlink(info);
+			info = NULL;
+		}
+		meta = pnode_takefirst(n, NODE_REFMETA);
+		if (meta != NULL && TAILQ_FIRST(&meta->childq) == NULL) {
+			pnode_unlink(meta);
+			meta = NULL;
+		}
+	}
+	if (info == NULL && meta == NULL)
+		return;
+
+	/*
+	 * Find the best place to put this information.
+	 * Use the last existing AUTHORS node, if any.
+	 * Otherwise, put it behind all standard sections that
+	 * conventionally precede AUTHORS, and also behind any
+	 * non-standard sections that follow the last of these,
+	 * but before the next standard section.
+	 */
+
+	match = later = NULL;
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		switch (nc->node) {
+		case NODE_REFENTRY:
+		case NODE_REFNAMEDIV:
+		case NODE_REFSYNOPSISDIV:
+		case NODE_PREFACE:
+			later = NULL;
+			continue;
+		case NODE_APPENDIX:
+		case NODE_INDEX:
+			if (later == NULL)
+				later = nc;
+			continue;
+		default:
+			break;
+		}
+		if ((title = pnode_findfirst(nc, NODE_TITLE)) == NULL ||
+		    (title = TAILQ_FIRST(&title->childq)) == NULL ||
+		    title->node != NODE_TEXT)
+			continue;
+		if (strcasecmp(title->b, "AUTHORS") == 0 ||
+		    strcasecmp(title->b, "AUTHOR") == 0)
+			match = nc;
+		else if (strcasecmp(title->b, "NAME") == 0 ||
+		    strcasecmp(title->b, "SYNOPSIS") == 0 ||
+		    strcasecmp(title->b, "DESCRIPTION") == 0 ||
+		    strcasecmp(title->b, "RETURN VALUES") == 0 ||
+		    strcasecmp(title->b, "ENVIRONMENT") == 0 ||
+		    strcasecmp(title->b, "FILES") == 0 ||
+		    strcasecmp(title->b, "EXIT STATUS") == 0 ||
+		    strcasecmp(title->b, "EXAMPLES") == 0 ||
+		    strcasecmp(title->b, "DIAGNOSTICS") == 0 ||
+		    strcasecmp(title->b, "ERRORS") == 0 ||
+		    strcasecmp(title->b, "SEE ALSO") == 0 ||
+		    strcasecmp(title->b, "STANDARDS") == 0 ||
+		    strcasecmp(title->b, "HISTORY") == 0)
+			later = NULL;
+		else if ((strcasecmp(title->b, "CAVEATS") == 0 ||
+		    strcasecmp(title->b, "BUGS") == 0) &&
+		    later == NULL)
+			later = nc;
+	}
+
+	/*
+	 * If no AUTHORS section was found, create one from scratch,
+	 * and insert that at the place selected earlier.
+	 */
+
+	if (match == NULL) {
+		if ((match = calloc(1, sizeof(*match))) == NULL) {
 			perror(NULL);
-			exit(EXIT_FAILURE);
+			exit(1);
 		}
+		match->node = NODE_SECTION;
+		match->spc = 1;
+		match->parent = n;
+		TAILQ_INIT(&match->childq);
+		TAILQ_INIT(&match->attrq);
+		if ((nc = pnode_alloc(match)) == NULL) {
+			perror(NULL);
+			exit(1);
+		}
+		nc->node = NODE_TITLE;
+		nc->spc = 1;
+		if ((nc = pnode_alloc(nc)) == NULL) {
+			perror(NULL);
+			exit(1);
+		}
+		nc->node = NODE_TEXT;
+		if ((nc->b = strdup("AUTHORS")) == NULL) {
+			perror(NULL);
+			exit(1);
+		}
+		nc->spc = 1;
+		if (later == NULL)
+			TAILQ_INSERT_TAIL(&n->childq, match, child);
+		else
+			TAILQ_INSERT_BEFORE(later, match, child);
 	}
-	memcpy(p->b + p->bsz, pn->b, pn->bsz);
-	p->bsz += pn->bsz;
-	p->b[p->bsz] = '\0';
+
+	/*
+	 * Dump the stuff excised at the beginning
+	 * into this AUTHORS section.
+	 */
+
+	if (info != NULL)
+		TAILQ_INSERT_TAIL(&match->childq, info, child);
+	if (meta != NULL)
+		TAILQ_INSERT_TAIL(&match->childq, meta, child);
 }
 
 /*
- * Print text presumably on a macro line.
- * Ignore any child macros.
- * Convert all whitespace to regular spaces.
+ * We can have multiple <term> elements within a <varlistentry>, which
+ * we should comma-separate as list headers.
  */
 static void
-pnode_printmacrolinepart(struct parse *p, struct pnode *pn)
+pnode_printvarlistentry(struct format *f, struct pnode *n)
 {
-	struct pnode	*pp;
-	char		*cp;
+	struct pnode	*nc, *nn;
+	int		 first = 1;
 
-	bufclear(p);
-	while (NULL != (pp = TAILQ_FIRST(&pn->childq))) {
-		if (NODE_TEXT == pp->node)
-			bufappend(p, pp);
-		pnode_unlink(pp);
+	macro_open(f, "It");
+	f->flags |= FMT_IMPL;
+	TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) {
+		if (nc->node != NODE_TERM && nc->node != NODE_GLOSSTERM)
+			continue;
+		if (first == 0) {
+			switch (f->linestate) {
+			case LINE_NEW:
+				break;
+			case LINE_TEXT:
+				print_text(f, ",", 0);
+				break;
+			case LINE_MACRO:
+				macro_addarg(f, ",", 0);
+				break;
+			}
+		}
+		pnode_print(f, nc);
+		pnode_unlink(nc);
+		first = 0;
 	}
+	macro_close(f);
+	while ((nc = TAILQ_FIRST(&n->childq)) != NULL) {
+		pnode_print(f, nc);
+		pnode_unlink(nc);
+	}
+	macro_close(f);
+}
 
-	/* Convert all space to spaces. */
-	for (cp = p->b; '\0' != *cp; cp++)
-		if (isspace((int)*cp))
-			*cp = ' ';
+static void
+pnode_printtitle(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc, *nn;
 
-	for (cp = p->b; isspace((int)*cp); cp++)
-		/* Spin. */ ;
+	TAILQ_FOREACH_SAFE(nc, &n->childq, child, nn) {
+		if (nc->node == NODE_TITLE) {
+			pnode_printpara(f, nc);
+			pnode_print(f, nc);
+			pnode_unlink(nc);
+		}
+	}
+}
 
-	for ( ; '\0' != *cp; cp++) {
-		/* Escape us if we look like a macro. */
-		if ((cp == p->b || ' ' == *(cp - 1)) &&
-			isupper((int)*cp) &&
-			'\0' != *(cp + 1) && 
-			islower((int)*(cp + 1)) &&
-			('\0' == *(cp + 2) || 
-			 ' ' == *(cp + 2) ||
-			 (islower((int)*(cp + 2)) &&
-			  ('\0' == *(cp + 3) || 
-			   ' ' == *(cp + 3)))))
-			fputs("\\&", stdout);
-		putchar(*cp);
-		/* If we're a character escape, escape us. */
-		if ('\\' == *cp)
-			putchar('e');
+static void
+pnode_printrow(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc;
+
+	macro_line(f, "Bl -dash -compact");
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		macro_line(f, "It");
+		pnode_print(f, nc);
 	}
+	macro_line(f, "El");
+	pnode_unlink(n);
 }
 
-/*
- * Just pnode_printmacrolinepart() but with a newline.
- * If no text, just the newline.
- */
 static void
-pnode_printmacroline(struct parse *p, struct pnode *pn)
+pnode_printtgroup1(struct format *f, struct pnode *n)
 {
+	struct pnode	*nc;
 
-	pnode_printmacrolinepart(p, pn);
-	putchar('\n');
+	macro_line(f, "Bl -bullet -compact");
+	while ((nc = pnode_findfirst(n, NODE_ENTRY)) != NULL) {
+		macro_line(f, "It");
+		pnode_print(f, nc);
+		pnode_unlink(nc);
+	}
+	macro_line(f, "El");
+	pnode_unlinksub(n);
 }
 
 static void
-pnode_printrefsect(struct parse *p, struct pnode *pn)
+pnode_printtgroup2(struct format *f, struct pnode *n)
 {
-	struct pnode	*pp;
+	struct pnode	*nr, *ne;
 
-	TAILQ_FOREACH(pp, &pn->childq, child)
-		if (NODE_TITLE == pp->node)
+	macro_line(f, "Bl -tag -width Ds");
+	while ((nr = pnode_findfirst(n, NODE_ROW)) != NULL) {
+		if ((ne = pnode_findfirst(n, NODE_ENTRY)) == NULL)
 			break;
-
-	if (NULL != pp) {
-		fputs(".Sh ", stdout);
-		pnode_printmacroline(p, pp);
-		pnode_unlink(pp);
-	} else
-		puts(".Sh UNKNOWN");
+		macro_open(f, "It");
+		f->flags |= FMT_IMPL;
+		pnode_print(f, ne);
+		macro_close(f);
+		pnode_unlink(ne);
+		pnode_print(f, nr);
+		pnode_unlink(nr);
+	}
+	macro_line(f, "El");
+	pnode_unlinksub(n);
 }
 
 static void
-pnode_printciterefentry(struct parse *p, struct pnode *pn)
+pnode_printtgroup(struct format *f, struct pnode *n)
 {
-	struct pnode	*pp, *title, *manvol;
+	struct pnode	*nc;
 
-	title = manvol = NULL;
-	TAILQ_FOREACH(pp, &pn->childq, child)
-		if (NODE_MANVOLNUM == pp->node)
-			manvol = pp;
-		else if (NODE_REFENTRYTITLE == pp->node)
-			title = pp;
+	switch (atoi(pnode_getattr_raw(n, ATTRKEY_COLS, "0"))) {
+	case 1:
+		pnode_printtgroup1(f, n);
+		return;
+	case 2:
+		pnode_printtgroup2(f, n);
+		return;
+	default:
+		break;
+	}
 
-	fputs(".Xr ", stdout);
-	if (NULL != title) {
-		pnode_printmacrolinepart(p, title);
-		pnode_unlink(title);
-	} else
-		fputs("unknown", stdout);
-	putchar(' ');
-	if (NULL != manvol) {
-		pnode_printmacroline(p, manvol);
-		pnode_unlink(manvol);
-	} else
-		puts("1");
+	macro_line(f, "Bl -ohang");
+	while ((nc = pnode_findfirst(n, NODE_ROW)) != NULL) {
+		macro_line(f, "It Table Row");
+		pnode_printrow(f, nc);
+	}
+	macro_line(f, "El");
+	pnode_unlinksub(n);
 }
 
 static void
-pnode_printrefmeta(struct parse *p, struct pnode *pn)
+pnode_printlist(struct format *f, struct pnode *n)
 {
-	struct pnode	*pp, *title, *manvol;
+	struct pnode	*nc;
 
-	title = manvol = NULL;
-	TAILQ_FOREACH(pp, &pn->childq, child)
-		if (NODE_MANVOLNUM == pp->node)
-			manvol = pp;
-		else if (NODE_REFENTRYTITLE == pp->node)
-			title = pp;
+	pnode_printtitle(f, n);
+	macro_argline(f, "Bl",
+	    n->node == NODE_ORDEREDLIST ? "-enum" : "-bullet");
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		macro_line(f, "It");
+		pnode_print(f, nc);
+	}
+	macro_line(f, "El");
+	pnode_unlinksub(n);
+}
 
-	puts(".Dd $Mdocdate" "$");
-	fputs(".Dt ", stdout);
+static void
+pnode_printvariablelist(struct format *f, struct pnode *n)
+{
+	struct pnode	*nc;
 
-	if (NULL != title) {
-		pnode_printmacrolinepart(p, title);
-		pnode_unlink(title);
-	} else
-		fputs("UNKNOWN", stdout);
-	putchar(' ');
-	if (NULL != manvol) {
-		pnode_printmacroline(p, manvol);
-		pnode_unlink(manvol);
-	} else
-		puts("1");
-
-	puts(".Os");
+	pnode_printtitle(f, n);
+	macro_line(f, "Bl -tag -width Ds");
+	TAILQ_FOREACH(nc, &n->childq, child) {
+		if (nc->node == NODE_VARLISTENTRY)
+			pnode_printvarlistentry(f, nc);
+		else
+			macro_nodeline(f, "It", nc, 0);
+	}
+	macro_line(f, "El");
+	pnode_unlinksub(n);
 }
 
 /*
  * Print a parsed node (or ignore it--whatever).
  * This is a recursive function.
- * FIXME: macro line continuation?
+ * FIXME: if we're in a literal context (<screen> or <programlisting> or
+ * whatever), don't print inline macros.
  */
 static void
-pnode_print(struct parse *p, struct pnode *pn)
+pnode_print(struct format *f, struct pnode *n)
 {
-	struct pnode	*pp;
-	char		*cp;
-	int		 last;
+	struct pnode	*nc, *nn;
+	int		 was_impl;
 
-	if (NULL == pn)
+	if (n == NULL)
 		return;
 
-	if (NODE_TEXT != pn->node && NODE_ROOT != pn->node)
-		printf(".\\\" %s\n", nodes[pn->node].name);
+	was_impl = f->flags & FMT_IMPL;
+	if (n->spc)
+		f->flags &= ~FMT_NOSPC;
+	else
+		f->flags |= FMT_NOSPC;
 
-	switch (pn->node) {
-	case (NODE_CITEREFENTRY):
-		pnode_printciterefentry(p, pn);
+	switch (n->node) {
+	case NODE_ARG:
+		pnode_printarg(f, n);
 		break;
-	case (NODE_CODE):
-		fputs(".Li ", stdout);
-		pnode_printmacroline(p, pn);
+	case NODE_AUTHOR:
+		pnode_printauthor(f, n);
 		break;
-	case (NODE_FUNCSYNOPSISINFO):
-		fputs(".Fd ", stdout);
-		pnode_printmacroline(p, pn);
+	case NODE_AUTHORGROUP:
+		macro_line(f, "An -split");
 		break;
-	case (NODE_PARA):
-		/* FIXME: not always. */
-		puts(".Pp");
+	case NODE_BLOCKQUOTE:
+		macro_line(f, "Bd -ragged -offset indent");
 		break;
-	case (NODE_PROGRAMLISTING):
-		puts(".Bd -literal");
+	case NODE_CITEREFENTRY:
+		pnode_printciterefentry(f, n);
 		break;
-	case (NODE_REFMETA):
-		pnode_printrefmeta(p, pn);
+	case NODE_CITETITLE:
+		macro_open(f, "%T");
 		break;
-	case (NODE_REFNAME):
-		fputs(".Nm ", stdout);
-		pnode_printmacroline(p, pn);
-		return;
-	case (NODE_REFNAMEDIV):
-		puts(".Sh NAME");
+	case NODE_COMMAND:
+		macro_open(f, "Nm");
 		break;
-	case (NODE_REFPURPOSE):
-		fputs(".Nd ", stdout);
-		pnode_printmacroline(p, pn);
-		return;
-	case (NODE_REFSYNOPSISDIV):
-		puts(".Sh SYNOPSIS");
+	case NODE_CONSTANT:
+		macro_open(f, "Dv");
 		break;
-	case (NODE_REFSECT1):
-		pnode_printrefsect(p, pn);
+	case NODE_COPYRIGHT:
+		print_text(f, "Copyright", ARG_SPACE);
+		fputs(" \\(co", stdout);
 		break;
-	case (NODE_TEXT):
-		bufclear(p);
-		bufappend(p, pn);
-		/*
-		 * Output all characters, squeezing out whitespace
-		 * between newlines. 
-		 * XXX: all whitespace, including tabs (?).
-		 * Remember to escape control characters and escapes.
-		 */
-		for (last = '\n', cp = p->b; '\0' != *cp; ) {
-			if ('\n' == last) {
-				/* Consume all whitespace. */
-				if (isspace((int)*cp)) {
-					while (isspace((int)*cp))
-						cp++;
-					continue;
-				} else if ('\'' == *cp || '.' == *cp)
-					fputs("\\&", stdout);
-			}
-			putchar(last = *cp++);
-			/* If we're a character escape, escape us. */
-			if ('\\' == last)
-				putchar('e');
+	case NODE_EDITOR:
+		print_text(f, "editor:", ARG_SPACE);
+		pnode_printauthor(f, n);
+		break;
+	case NODE_EMAIL:
+		if (was_impl)
+			macro_open(f, "Ao Mt");
+		else {
+			macro_open(f, "Aq Mt");
+			f->flags |= FMT_IMPL;
 		}
-		if ('\n' != last)
-			putchar('\n');
 		break;
+	case NODE_EMPHASIS:
+	case NODE_FIRSTTERM:
+	case NODE_GLOSSTERM:
+		if ((nc = TAILQ_FIRST(&n->childq)) != NULL &&
+		    pnode_class(nc->node) < CLASS_LINE)
+			macro_open(f, "Em");
+		break;
+	case NODE_ENVAR:
+		macro_open(f, "Ev");
+		break;
+	case NODE_ERRORNAME:
+		macro_open(f, "Er");
+		break;
+	case NODE_FILENAME:
+		macro_open(f, "Pa");
+		break;
+	case NODE_FUNCTION:
+		macro_open(f, "Fn");
+		break;
+	case NODE_FUNCPROTOTYPE:
+		pnode_printfuncprototype(f, n);
+		break;
+	case NODE_FUNCSYNOPSISINFO:
+		macro_open(f, "Fd");
+		break;
+	case NODE_INFORMALEQUATION:
+		macro_line(f, "Bd -ragged -offset indent");
+		/* FALLTHROUGH */
+	case NODE_INLINEEQUATION:
+		macro_line(f, "EQ");
+		break;
+	case NODE_ITEMIZEDLIST:
+		pnode_printlist(f, n);
+		break;
+	case NODE_GROUP:
+		pnode_printgroup(f, n);
+		break;
+	case NODE_KEYSYM:
+		macro_open(f, "Sy");
+		break;
+	case NODE_LINK:
+		pnode_printlink(f, n);
+		break;
+	case NODE_LITERAL:
+		if (n->parent != NULL && n->parent->node == NODE_QUOTE)
+			macro_open(f, "Li");
+		else if (was_impl)
+			macro_open(f, "So Li");
+		else {
+			macro_open(f, "Ql");
+			f->flags |= FMT_IMPL;
+		}
+		break;
+	case NODE_LITERALLAYOUT:
+		macro_close(f);
+		macro_argline(f, "Bd", pnode_getattr(n, ATTRKEY_CLASS) ==
+		    ATTRVAL_MONOSPACED ? "-literal" : "-unfilled");
+		break;
+	case NODE_MARKUP:
+		macro_open(f, "Ic");
+		break;
+	case NODE_MML_MFENCED:
+		pnode_printmathfenced(f, n);
+		break;
+	case NODE_MML_MROW:
+	case NODE_MML_MI:
+	case NODE_MML_MN:
+	case NODE_MML_MO:
+		if (TAILQ_EMPTY(&n->childq))
+			break;
+		fputs(" { ", stdout);
+		break;
+	case NODE_MML_MFRAC:
+	case NODE_MML_MSUB:
+	case NODE_MML_MSUP:
+		pnode_printmath(f, n);
+		break;
+	case NODE_OPTION:
+		if ((nc = TAILQ_FIRST(&n->childq)) != NULL &&
+		    pnode_class(nc->node) < CLASS_LINE)
+			macro_open(f, "Fl");
+		break;
+	case NODE_ORDEREDLIST:
+		pnode_printlist(f, n);
+		break;
+	case NODE_PARA:
+		pnode_printpara(f, n);
+		break;
+	case NODE_PARAMDEF:
+	case NODE_PARAMETER:
+		/* More often, these appear inside NODE_FUNCPROTOTYPE. */
+		macro_open(f, "Fa");
+		macro_addnode(f, n, ARG_SPACE | ARG_SINGLE);
+		pnode_unlinksub(n);
+		break;
+	case NODE_QUOTE:
+		if (was_impl)
+			macro_open(f, "Do");
+		else {
+			macro_open(f, "Dq");
+			f->flags |= FMT_IMPL;
+		}
+		break;
+	case NODE_PROGRAMLISTING:
+	case NODE_SCREEN:
+	case NODE_SYNOPSIS:
+		macro_line(f, "Bd -literal");
+		break;
+	case NODE_SYSTEMITEM:
+		pnode_printsystemitem(f, n);
+		break;
+	case NODE_REFENTRY:
+		pnode_printrefentry(f, n);
+		break;
+	case NODE_REFNAME:
+		/* More often, these appear inside NODE_REFNAMEDIV. */
+		macro_open(f, "Nm");
+		break;
+	case NODE_REFNAMEDIV:
+		pnode_printrefnamediv(f, n);
+		break;
+	case NODE_REFPURPOSE:
+		macro_open(f, "Nd");
+		break;
+	case NODE_REFSYNOPSISDIV:
+		pnode_printrefsynopsisdiv(f, n);
+		break;
+	case NODE_PREFACE:
+	case NODE_SECTION:
+	case NODE_SIMPLESECT:
+	case NODE_APPENDIX:
+	case NODE_LEGALNOTICE:
+	case NODE_NOTE:
+	case NODE_TIP:
+	case NODE_CAUTION:
+	case NODE_WARNING:
+		pnode_printsection(f, n);
+		break;
+	case NODE_REPLACEABLE:
+		macro_open(f, "Ar");
+		break;
+	case NODE_SBR:
+		macro_line(f, "br");
+		break;
+	case NODE_SUBSCRIPT:
+		if (f->linestate == LINE_MACRO)
+			macro_addarg(f, "_", 0);
+		else
+			print_text(f, "_", 0);
+		if ((nc = TAILQ_FIRST(&n->childq)) != NULL)
+			nc->spc = 0;
+		break;
+	case NODE_SUPERSCRIPT:
+		fputs("\\(ha", stdout);
+		if ((nc = TAILQ_FIRST(&n->childq)) != NULL)
+			nc->spc = 0;
+		break;
+	case NODE_TEXT:
+	case NODE_ESCAPE:
+		pnode_printtext(f, n);
+		break;
+	case NODE_TGROUP:
+		pnode_printtgroup(f, n);
+		break;
+	case NODE_TITLE:
+	case NODE_SUBTITLE:
+		pnode_printpara(f, n);
+		macro_nodeline(f, "Sy", n, 0);
+		pnode_unlinksub(n);
+		break;
+	case NODE_TYPE:
+		macro_open(f, "Vt");
+		break;
+	case NODE_VARIABLELIST:
+		pnode_printvariablelist(f, n);
+		break;
+	case NODE_VARNAME:
+		macro_open(f, "Va");
+		break;
 	default:
 		break;
 	}
 
-	TAILQ_FOREACH(pp, &pn->childq, child)
-		pnode_print(p, pp);
+	TAILQ_FOREACH(nc, &n->childq, child)
+		pnode_print(f, nc);
 
-	switch (pn->node) {
-	case (NODE_PROGRAMLISTING):
-		puts(".Ed");
+	switch (n->node) {
+	case NODE_EMAIL:
+		if (was_impl) {
+			f->flags &= ~FMT_NOSPC;
+			macro_open(f, "Ac");
+		} else
+			f->flags &= ~FMT_IMPL;
 		break;
+	case NODE_ESCAPE:
+	case NODE_TERM:
+	case NODE_TEXT:
+		/* Accept more arguments to the previous macro. */
+		return;
+	case NODE_INFORMALEQUATION:
+		macro_line(f, "EN");
+		macro_line(f, "Ed");
+		break;
+	case NODE_INLINEEQUATION:
+		macro_line(f, "EN");
+		break;
+	case NODE_LITERAL:
+		if (n->parent != NULL && n->parent->node == NODE_QUOTE)
+			/* nothing */;
+		else if (was_impl) {
+			f->flags &= ~FMT_NOSPC;
+			macro_open(f, "Sc");
+		} else
+			f->flags &= ~FMT_IMPL;
+		break;
+	case NODE_MEMBER:
+		if ((nn = TAILQ_NEXT(n, child)) != NULL &&
+		    nn->node != NODE_MEMBER)
+			nn = NULL;
+		switch (f->linestate) {
+		case LINE_TEXT:
+			if (nn != NULL)
+				print_text(f, ",", 0);
+			break;
+		case LINE_MACRO:
+			if (nn != NULL)
+				macro_addarg(f, ",", ARG_SPACE);
+			macro_close(f);
+			break;
+		case LINE_NEW:
+			break;
+		}
+		break;
+	case NODE_MML_MROW:
+	case NODE_MML_MI:
+	case NODE_MML_MN:
+	case NODE_MML_MO:
+		if (TAILQ_EMPTY(&n->childq))
+			break;
+		fputs(" } ", stdout);
+		break;
+	case NODE_QUOTE:
+		if (was_impl) {
+			f->flags &= ~FMT_NOSPC;
+			macro_open(f, "Dc");
+		} else
+			f->flags &= ~FMT_IMPL;
+		break;
+	case NODE_PREFACE:
+	case NODE_SECTION:
+	case NODE_APPENDIX:
+	case NODE_LEGALNOTICE:
+	case NODE_NOTE:
+	case NODE_TIP:
+	case NODE_CAUTION:
+	case NODE_WARNING:
+		f->level--;
+		break;
+	case NODE_BLOCKQUOTE:
+	case NODE_LITERALLAYOUT:
+	case NODE_PROGRAMLISTING:
+	case NODE_SCREEN:
+	case NODE_SYNOPSIS:
+		macro_line(f, "Ed");
+		break;
 	default:
 		break;
 	}
+	f->flags &= ~FMT_ARG;
 }
 
-/*
- * Loop around the read buffer until we've drained it of all data.
- * Invoke the parser context with each buffer fill.
- */
-static int
-readfile(XML_Parser xp, int fd, 
-	char *b, size_t bsz, const char *fn)
+void
+ptree_print_mdoc(struct ptree *tree)
 {
-	struct parse	 p;
-	int		 rc;
-	ssize_t		 ssz;
+	struct format	 formatter;
 
-	memset(&p, 0, sizeof(struct parse));
-
-	p.b = malloc(p.bsz = p.mbsz = 1024);
-
-	XML_SetCharacterDataHandler(xp, xml_char);
-	XML_SetElementHandler(xp, xml_elem_start, xml_elem_end);
-	XML_SetUserData(xp, &p);
-
-	while ((ssz = read(fd, b, bsz)) >= 0) {
-		if (0 == (rc = XML_Parse(xp, b, ssz, 0 == ssz)))
-			fprintf(stderr, "%s: %s\n", fn,
-				XML_ErrorString
-				(XML_GetErrorCode(xp)));
-		else if ( ! p.stop && ssz > 0)
-			continue;
-		/* 
-		 * Exit when we've read all or errors have occured
-		 * during the parse sequence.
-		 */
-		pnode_print(&p, p.root);
-		pnode_free(p.root);
-		free(p.b);
-		return(0 != rc && ! p.stop);
-	}
-
-	/* Read error has occured. */
-	perror(fn);
-	pnode_free(p.root);
-	free(p.b);
-	return(0);
-}
-
-int
-main(int argc, char *argv[])
-{
-	XML_Parser	 xp;
-	const char	*fname;
-	char		*buf;
-	int		 fd, rc;
-
-	fname = "-";
-	xp = NULL;
-	buf = NULL;
-	rc = 0;
-
-	if (-1 != getopt(argc, argv, ""))
-		return(EXIT_FAILURE);
-
-	argc -= optind;
-	argv += optind;
-
-	if (argc > 1)
-		return(EXIT_FAILURE);
-	else if (argc > 0)
-		fname = argv[0];
-
-	/* Read from stdin or a file. */
-	fd = 0 == strcmp(fname, "-") ? 
-		STDIN_FILENO : open(fname, O_RDONLY, 0);
-
-	/*
-	 * Open file for reading.
-	 * Allocate a read buffer.
-	 * Create the parser context.
-	 * Dive directly into the parse.
-	 */
-	if (-1 == fd)
-		perror(fname);
-	else if (NULL == (buf = malloc(4096)))
-		perror(NULL);
-	else if (NULL == (xp = XML_ParserCreate(NULL)))
-		perror(NULL);
-	else if ( ! readfile(xp, fd, buf, 4096, fname))
-		rc = 1;
-
-	XML_ParserFree(xp);
-	free(buf);
-	if (STDIN_FILENO != fd)
-		close(fd);
-	return(rc ? EXIT_SUCCESS : EXIT_FAILURE);
+	formatter.level = 0;
+	formatter.linestate = LINE_NEW;
+	pnode_printprologue(&formatter, tree->root);
+	pnode_print(&formatter, tree->root);
+	if (formatter.linestate != LINE_NEW)
+		putchar('\n');
 }