Support for nested lists added.

4 files changed, 70 insertions, 99 deletions

diff --git a/mdocterm.1 b/mdocterm.1
index fbc798f1..db9fccef 100644
--- a/mdocterm.1
+++ b/mdocterm.1
@@ -1,4 +1,4 @@
-.\" $Id: mdocterm.1,v 1.3 2009/02/23 13:05:06 kristaps Exp $
+.\" $Id: mdocterm.1,v 1.4 2009/02/25 13:30:53 kristaps Exp $
 .\"
 .\" Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
 .\"
@@ -16,7 +16,7 @@
 .\" TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 .\" PERFORMANCE OF THIS SOFTWARE.
 .\"
-.Dd $Mdocdate: February 23 2009 $
+.Dd $Mdocdate: February 25 2009 $
 .Dt mdocmterm 1
 .Os
 .\" SECTION
@@ -117,4 +117,5 @@ utility was written by
 .Sh CAVEATS
 See
 .Xr mdoc 3
-for a list of bugs, caveats, and incomplete macros.
+for a list of bugs, caveats, and incomplete macros regarding the
+document parse.
diff --git a/mdocterm.c b/mdocterm.c
index a8a06c12..b79904cc 100644
--- a/mdocterm.c
+++ b/mdocterm.c
@@ -1,4 +1,4 @@
-	/* $Id: mdocterm.c,v 1.10 2009/02/25 12:27:37 kristaps Exp $ */
+/* $Id: mdocterm.c,v 1.11 2009/02/25 13:30:53 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -200,7 +200,7 @@ flushln(struct termp *p)
 	 */
 
 	if (p->flags & TERMP_NOBREAK) {
-		for ( ; vis <= maxvis; vis++)
+		for ( ; vis < maxvis; vis++)
 			putchar(' ');
 	} else
 		putchar('\n');
@@ -221,6 +221,7 @@ newln(struct termp *p)
 	if (0 == p->col) 
 		return;
 	flushln(p);
+	p->flags &= ~TERMP_NOLPAD;
 }
 
 
@@ -416,7 +417,7 @@ body(struct termp *p, const struct mdoc_meta *meta,
 
 	dochild = 1;
 	pair.type = 0;
-	pair.offset = 0;
+	pair.offset = pair.rmargin = 0;
 	pair.flag = 0;
 
 	if (MDOC_TEXT != node->type) {
diff --git a/term.c b/term.c
index c69210d6..78aa6cb0 100644
--- a/term.c
+++ b/term.c
@@ -1,4 +1,4 @@
-/* $Id: term.c,v 1.19 2009/02/25 12:27:37 kristaps Exp $ */
+/* $Id: term.c,v 1.20 2009/02/25 13:30:53 kristaps Exp $ */
 /*
  * Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -343,31 +343,27 @@ termp_dq_post(DECL_ARGS)
 
 
 /* ARGSUSED */
-static void
-termp_it_post(DECL_ARGS)
+static int
+termp_it_pre(DECL_ARGS)
 {
 	const struct mdoc_node *n, *it;
 	const struct mdoc_block *bl;
 	int		 i;
 	size_t		 width, offset;
 
-	/*
-	 * This (and termp_it_pre()) are the most complicated functions
-	 * here.  They must account for a considerable number of
-	 * switches that completely change the output behaviour, like
-	 * -tag versus -column.  Yech.
-	 */
-
 	switch (node->type) {
 	case (MDOC_BODY):
 		/* FALLTHROUGH */
 	case (MDOC_HEAD):
+		it = node->parent;
+		break;
+	case (MDOC_BLOCK):
+		it = node;
 		break;
 	default:
-		return;
+		return(1);
 	}
 
-	it = node->parent;
 	assert(MDOC_BLOCK == it->type);
 	assert(MDOC_It == it->tok);
 
@@ -377,66 +373,67 @@ termp_it_post(DECL_ARGS)
 	n = n->parent;
 	bl = &n->data.block;
 
-	/* If `-tag', adjust our margins accordingly. */
+	/* If `-compact', don't assert vertical space. */
 
-	if (arg_hasattr(MDOC_Tag, bl->argc, bl->argv)) {
-		flushln(p);
+	if (MDOC_BLOCK == node->type) {
+		if (arg_hasattr(MDOC_Compact, bl->argc, bl->argv))
+			newln(p);
+		else
+			vspace(p);
+		return(1);
+	}
 
-		/* FIXME: this should auto-size. */
-		i = arg_getattr(MDOC_Width, bl->argc, bl->argv);
-		width = i >= 0 ? arg_width(&bl->argv[i]) : 10;
+	pair->offset = p->offset;
+	pair->rmargin = p->rmargin;
 
-		/* FIXME: nesting!  Should happen at block. */
-		i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
-		offset = i >= 0 ? arg_width(&bl->argv[i]) : 0;
+	/* FIXME: auto-size. */
+	i = arg_getattr(MDOC_Width, bl->argc, bl->argv);
+	width = i >= 0 ? arg_width(&bl->argv[i]) : 10;
+
+	i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
+	offset = i >= 0 ? arg_offset(&bl->argv[i]) : 0;
+
+	assert(MDOC_HEAD == node->type || 
+			MDOC_BODY == node->type);
+
+	if (arg_hasattr(MDOC_Tag, bl->argc, bl->argv)) {
+		p->flags |= TERMP_NOSPACE;
 
 		if (MDOC_HEAD == node->type) {
-			p->rmargin = p->maxrmargin;
-			p->offset -= offset;
-			p->flags &= ~TERMP_NOBREAK;
+			p->flags |= TERMP_NOBREAK;
+			p->offset += offset;
+			p->rmargin = p->offset + width;
 		} else {
-			p->offset -= width;
-			p->flags &= ~TERMP_NOLPAD;
+			p->flags |= TERMP_NOLPAD;
+			p->offset += width;
 		}
-	}
-
-	if (arg_hasattr(MDOC_Ohang, bl->argc, bl->argv)) {
-		i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
-		offset = i >= 0 ? arg_offset(&bl->argv[i]) : 0;
 
-		flushln(p);
-		p->offset -= offset;
-		return;
+	} else if (arg_hasattr(MDOC_Ohang, bl->argc, bl->argv)) {
+		p->flags |= TERMP_NOSPACE;
+		p->offset += offset;
 	}
+
+	return(1);
 }
 
 
 /* ARGSUSED */
-static int
-termp_it_pre(DECL_ARGS)
+static void
+termp_it_post(DECL_ARGS)
 {
 	const struct mdoc_node *n, *it;
 	const struct mdoc_block *bl;
-	int		 i;
-	size_t		 width, offset;
-
-	/*
-	 * Also see termp_it_post() for general comments.
-	 */
 
 	switch (node->type) {
 	case (MDOC_BODY):
 		/* FALLTHROUGH */
 	case (MDOC_HEAD):
-		it = node->parent;
-		break;
-	case (MDOC_BLOCK):
-		it = node;
 		break;
 	default:
-		return(1);
+		return;
 	}
 
+	it = node->parent;
 	assert(MDOC_BLOCK == it->type);
 	assert(MDOC_It == it->tok);
 
@@ -446,56 +443,24 @@ termp_it_pre(DECL_ARGS)
 	n = n->parent;
 	bl = &n->data.block;
 
-	/* If `-compact', don't assert vertical space. */
-
-	if (MDOC_BLOCK == node->type) {
-		if (arg_hasattr(MDOC_Compact, bl->argc, bl->argv))
-			newln(p);
-		else
-			vspace(p);
-		return(1);
-	}
-
-	assert(MDOC_HEAD == node->type 
-			|| MDOC_BODY == node->type);
-
-	/* FIXME: see termp_it_post(). */
-
 	/* If `-tag', adjust our margins accordingly. */
 
 	if (arg_hasattr(MDOC_Tag, bl->argc, bl->argv)) {
-		p->flags |= TERMP_NOSPACE;
-
-		i = arg_getattr(MDOC_Width, bl->argc, bl->argv);
-		width = i >= 0 ? arg_width(&bl->argv[i]) : 10;
-
-		i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
-		offset = i >= 0 ? arg_offset(&bl->argv[i]) : 0;
+		flushln(p);
 
 		if (MDOC_HEAD == node->type) {
-			p->flags |= TERMP_NOBREAK;
-			p->offset += offset;
-			p->rmargin = p->offset + width;
+			p->rmargin = pair->rmargin;
+			p->offset = pair->offset;
+			p->flags &= ~TERMP_NOBREAK;
 		} else {
-			p->flags |= TERMP_NOSPACE;
-			p->flags |= TERMP_NOLPAD;
-			p->offset += width;
+			p->offset = pair->offset;
+			p->flags &= ~TERMP_NOLPAD;
 		}
-		return(1);
-	}
 
-	/* If `-ohang', adjust left-margin. */
-
-	if (arg_hasattr(MDOC_Ohang, bl->argc, bl->argv)) {
-		i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
-		offset = i >= 0 ? arg_offset(&bl->argv[i]) : 0;
-
-		p->flags |= TERMP_NOSPACE;
-		p->offset += offset;
-		return(1);
+	} else if (arg_hasattr(MDOC_Ohang, bl->argc, bl->argv)) {
+		flushln(p);
+		p->offset = pair->offset;
 	}
-
-	return(1);
 }
 
 
@@ -982,14 +947,15 @@ termp_bd_pre(DECL_ARGS)
 		return(1);
 
 	assert(MDOC_BLOCK == node->parent->type);
+	pair->offset = p->offset;
 
 	bl = &node->parent->data.block;
 
+
 	i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
 	if (-1 != i) {
 		assert(1 == bl->argv[i].sz);
-		pair->offset = arg_offset(&bl->argv[i]);
-		p->offset += pair->offset;
+		p->offset += arg_offset(&bl->argv[i]);
 	}
 
 	if ( ! arg_hasattr(MDOC_Literal, bl->argc, bl->argv))
@@ -1017,8 +983,10 @@ static void
 termp_bd_post(DECL_ARGS)
 {
 
-	if (MDOC_BODY == node->type)
-		p->offset -= pair->offset;
+	if (MDOC_BODY != node->type) 
+		return;
+	newln(p);
+	p->offset = pair->offset;
 }
 
 
diff --git a/term.h b/term.h
index 2bc6e9c2..0b5e0d9c 100644
--- a/term.h
+++ b/term.h
@@ -1,4 +1,4 @@
-/* $Id: term.h,v 1.7 2009/02/25 12:27:37 kristaps Exp $ */
+/* $Id: term.h,v 1.8 2009/02/25 13:30:53 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -45,6 +45,7 @@ struct	termpair {
 #define	TERMPAIR_FLAG	 (1 << 0)
 	int	  	  flag;
 	size_t	  	  offset;
+	size_t	  	  rmargin;
 };
 
 #define	TERMPAIR_SETFLAG(p, fl) \