===================================================================
RCS file: /cvs/mandoc/Attic/mlg.c,v
retrieving revision 1.6
retrieving revision 1.12
diff -u -p -r1.6 -r1.12
--- mandoc/Attic/mlg.c	2008/12/04 16:34:59	1.6
+++ mandoc/Attic/mlg.c	2008/12/05 22:34:30	1.12
@@ -1,4 +1,4 @@
-/* $Id: mlg.c,v 1.6 2008/12/04 16:34:59 kristaps Exp $ */
+/* $Id: mlg.c,v 1.12 2008/12/05 22:34:30 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -51,13 +51,11 @@ struct	md_mlg {
 	size_t		  pos;
 	enum md_tok	  last;
 	void		 *arg;
-	ml_begintag	  begintag;
-	ml_endtag	  endtag;
-	ml_begin	  begin;
-	ml_end		  end;
+	struct ml_cbs	  cbs;
 	int		  flags;
 #define	ML_OVERRIDE_ONE	 (1 << 0)
 #define	ML_OVERRIDE_ALL	 (1 << 1)
+	void		 *data;
 };
 
 
@@ -70,12 +68,11 @@ static	int		 mlg_rofftail(void *);
 static	int		 mlg_roffin(void *, int, int *, char **);
 static	int		 mlg_roffdata(void *, int, 
 				const char *, char *);
-static	int		 mlg_rofftoken(void *, int, int);
 static	int		 mlg_roffout(void *, int);
 static	int		 mlg_roffblkin(void *, int, int *, char **);
 static	int		 mlg_roffblkout(void *, int);
-static	int		 mlg_roffspecial(void *, int, int *, 
-				char **, char **);
+static	int		 mlg_roffspecial(void *, int, 
+				const char *, char **);
 static	int		 mlg_roffblkheadin(void *, int, 
 				int *, char **);
 static	int		 mlg_roffblkheadout(void *, int);
@@ -83,9 +80,6 @@ static	int		 mlg_roffblkbodyin(void *, int, 
 				int *, char **);
 static	int		 mlg_roffblkbodyout(void *, int);
 
-static	int		 mlg_beginblk(struct md_mlg *, enum md_ns, int, 
-				int *, char **);
-static	int		 mlg_endblk(struct md_mlg *, enum md_ns, int);
 static	int		 mlg_begintag(struct md_mlg *, enum md_ns, 
 				int, int *, char **);
 static	int		 mlg_endtag(struct md_mlg *, enum md_ns, int);
@@ -108,59 +102,47 @@ extern	size_t		 strlcpy(char *, const char *, size_t);
 
 
 static int
-mlg_beginblk(struct md_mlg *p, enum md_ns ns, int tok, 
+mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
 		int *argc, char **argv)
 {
-	if (0 != p->pos) {
-		if ( ! mlg_newline(p))
-			return(0);
-		if ( ! mlg_indent(p))
-			return(0);
-	} else if ( ! mlg_indent(p))
-		return(0);
+	ssize_t		 res;
 
-	p->indent++;
-	mlg_mode(p, MD_BLK_IN);
+	assert(MD_NS_DEFAULT != ns);
 
-	if ( ! mlg_begintag(p, ns, tok, argc, argv))
-		return(0);
-	return(mlg_newline(p));
-}
-
-
-static int
-mlg_endblk(struct md_mlg *p, enum md_ns ns, int tok)
-{
-
-	p->indent--;
-
-	if (0 != p->pos) {
-		if ( ! mlg_newline(p))
+	switch (ns) {
+	case (MD_NS_INLINE):
+		if ( ! (ML_OVERRIDE_ONE & p->flags) && 
+				! (ML_OVERRIDE_ALL & p->flags) && 
+				p->pos + 11 >= COLUMNS)
+			if ( ! mlg_newline(p))
+				return(0);
+		if (0 != p->pos && (MD_TEXT == p->last || 
+					MD_INLINE_OUT == p->last)
+				&& ! (ML_OVERRIDE_ONE & p->flags)
+				&& ! (ML_OVERRIDE_ALL & p->flags))
+			if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
+				return(0);
+		if (0 == p->pos && ! mlg_indent(p))
 			return(0);
-		if ( ! mlg_indent(p))
+		mlg_mode(p, MD_INLINE_IN);
+		break;
+	default:
+		if (0 != p->pos) {
+			if ( ! mlg_newline(p))
+				return(0);
+			if ( ! mlg_indent(p))
+				return(0);
+		} else if ( ! mlg_indent(p))
 			return(0);
-	} else if ( ! mlg_indent(p))
-		return(0);
+		p->indent++;
+		mlg_mode(p, MD_BLK_IN);
+		break;
+	}
 
-	mlg_mode(p, MD_BLK_OUT);
-	if ( ! mlg_endtag(p, ns, tok))
-		return(0);
-	return(mlg_newline(p));
-}
-
-
-static int
-mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
-		int *argc, char **argv)
-{
-	ssize_t		 res;
-
-	/* TODO: extra rules for block/inline. */
-
 	if ( ! ml_nputs(p->mbuf, "<", 1, &p->pos))
 		return(0);
 
-	res = (*p->begintag)(p->mbuf, p->args, ns, tok,
+	res = (*p->cbs.ml_begintag)(p->mbuf, p->data, p->args, ns, tok,
 			argc, (const char **)argv);
 	if (-1 == res)
 		return(0);
@@ -168,9 +150,19 @@ mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
 	assert(res >= 0);
 	p->pos += (size_t)res;
 
-	/* TODO: extra rules for block/inline. */
+	if ( ! ml_nputs(p->mbuf, ">", 1, &p->pos))
+		return(0);
 
-	return(ml_nputs(p->mbuf, ">", 1, &p->pos));
+	switch (ns) {
+	case (MD_NS_INLINE):
+		break;
+	default:
+		if ( ! mlg_newline(p))
+			return(0);
+		break;
+	}
+
+	return(1);
 }
 
 
@@ -179,21 +171,46 @@ mlg_endtag(struct md_mlg *p, enum md_ns ns, int tok)
 {
 	ssize_t		 res;
 
-	/* TODO: extra rules for block/inline. */
+	assert(MD_NS_DEFAULT != ns);
 
+	switch (ns) {
+	case (MD_NS_INLINE):
+		break;
+	default:
+		p->indent--;
+		if (0 != p->pos) {
+			if ( ! mlg_newline(p))
+				return(0);
+			if ( ! mlg_indent(p))
+				return(0);
+		} else if ( ! mlg_indent(p))
+			return(0);
+		break;
+	}
+
 	if ( ! ml_nputs(p->mbuf, "</", 2, &p->pos))
 		return(0);
 
-	res = (*p->endtag)(p->mbuf, p->args, ns, tok);
+	res = (*p->cbs.ml_endtag)(p->mbuf, p->data, p->args, ns, tok);
 	if (-1 == res)
 		return(0);
 
 	assert(res >= 0);
 	p->pos += (size_t)res;
 
-	/* TODO: extra rules for block/inline. */
+	if ( ! ml_nputs(p->mbuf, ">", 1, &p->pos))
+		return(0);
+	
+	switch (ns) {
+	case (MD_NS_INLINE):
+		mlg_mode(p, MD_INLINE_OUT);
+		break;
+	default:
+		mlg_mode(p, MD_BLK_OUT);
+		break;
+	}
 
-	return(ml_nputs(p->mbuf, ">", 1, &p->pos));
+	return(1);
 }
 
 
@@ -202,7 +219,8 @@ mlg_indent(struct md_mlg *p)
 {
 	size_t		 count;
 
-	count = p->indent > MAXINDENT ? (size_t)MAXINDENT : p->indent;
+	count = p->indent > MAXINDENT ? 
+		(size_t)MAXINDENT : p->indent;
 	count *= INDENT;
 
 	assert(0 == p->pos);
@@ -213,12 +231,9 @@ mlg_indent(struct md_mlg *p)
 static int
 mlg_newline(struct md_mlg *p)
 {
-	size_t		 dummy;
 
-	if ( ! ml_nputs(p->mbuf, "\n", 1, &dummy))
-		return(0);
 	p->pos = 0;
-	return(1);
+	return(ml_nputs(p->mbuf, "\n", 1, NULL));
 }
 
 
@@ -235,7 +250,6 @@ static int
 mlg_data(struct md_mlg *p, int space, const char *start, char *buf)
 {
 	size_t		 sz;
-	char		*bufp;
 	int		 c;
 
 	assert(p->mbuf);
@@ -245,72 +259,51 @@ mlg_data(struct md_mlg *p, int space, const char *star
 			ML_OVERRIDE_ALL & p->flags)
 		space = 0;
 
-	while (*buf) {
-		while (*buf && isspace(*buf))
-			buf++;
+	sz = strlen(buf);
 
-		if (0 == *buf)
-			break;
+	if (0 == p->pos) {
+		if ( ! mlg_indent(p))
+			return(0);
 
-		bufp = buf;
-		while (*buf && ! isspace(*buf))
-			buf++;
+		c = ml_nputstring(p->mbuf, buf, sz, &p->pos);
 
-		if (0 != *buf)
-			*buf++ = 0;
-
-		sz = strlen(bufp);
-
-		if (0 == p->pos) {
-			if ( ! mlg_indent(p))
-				return(0);
-
-			c = ml_nputstring(p->mbuf, bufp, sz, &p->pos);
-			if (0 == c) {
-				mlg_err(p, start, bufp, "invalid "
-						"character sequence");
-				return(0);
-			} else if (c > 1) {
-				mlg_warn(p, start, bufp, "bogus "
-						"character sequence");
-				return(0);
-			} else if (-1 == c)
-				return(0);
-
-			if (p->indent * INDENT + sz >= COLUMNS)
-				if ( ! mlg_newline(p))
-					return(0);
-			if ( ! (ML_OVERRIDE_ALL & p->flags))
-				space = 1;
-			continue;
-		}
-
-		if (space && sz + p->pos >= COLUMNS) {
-			if ( ! mlg_newline(p))
-				return(0);
-			if ( ! mlg_indent(p))
-				return(0);
-		} else if (space) {
-			if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
-				return(0);
-		}
-
-		c = ml_nputstring(p->mbuf, bufp, sz, &p->pos);
 		if (0 == c) {
-			mlg_err(p, start, bufp, "invalid "
-					"character sequence");
+			mlg_err(p, start, buf, "bad char sequence");
 			return(0);
 		} else if (c > 1) {
-			mlg_warn(p, start, bufp, "bogus "
-					"character sequence");
+			mlg_warn(p, start, buf, "bogus char sequence");
 			return(0);
 		} else if (-1 == c)
 			return(0);
 
-		if ( ! (ML_OVERRIDE_ALL & p->flags))
-			space = 1;
+		if (p->indent * INDENT + sz >= COLUMNS)
+			if ( ! mlg_newline(p))
+				return(0);
+
+		return(1);
 	}
 
+	if (space && sz + p->pos >= COLUMNS) {
+		if ( ! mlg_newline(p))
+			return(0);
+		if ( ! mlg_indent(p))
+			return(0);
+	} else if (space) {
+		if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
+			return(0);
+	}
+
+	c = ml_nputstring(p->mbuf, buf, sz, &p->pos);
+
+	if (0 == c) {
+		mlg_err(p, start, buf, "bad char sequence");
+		return(0);
+	} else if (c > 1) {
+		mlg_warn(p, start, buf, "bogus char sequence");
+		return(0);
+	} else if (-1 == c)
+		return(0);
+
 	return(1);
 }
 
@@ -330,6 +323,9 @@ mlg_exit(struct md_mlg *p, int flush)
 
 	c = roff_free(p->tree, flush);
 	free(p);
+
+	(*p->cbs.ml_free)(p->data);
+
 	return(c);
 }
 
@@ -338,8 +334,7 @@ struct md_mlg *
 mlg_alloc(const struct md_args *args, 
 		const struct md_rbuf *rbuf,
 		struct md_mbuf *mbuf, 
-		ml_begintag begintag, ml_endtag endtag,
-		ml_begin begin, ml_end end)
+		const struct ml_cbs *cbs)
 {
 	struct roffcb	 cb;
 	struct md_mlg	*p;
@@ -357,7 +352,6 @@ mlg_alloc(const struct md_args *args, 
 	cb.roffspecial = mlg_roffspecial;
 	cb.roffmsg = mlg_roffmsg;
 	cb.roffdata = mlg_roffdata;
-	cb.rofftoken = mlg_rofftoken;
 
 	if (NULL == (p = calloc(1, sizeof(struct md_mlg))))
 		err(1, "calloc");
@@ -365,17 +359,17 @@ mlg_alloc(const struct md_args *args, 
 	p->args = args;
 	p->mbuf = mbuf;
 	p->rbuf = rbuf;
-	p->begintag = begintag;
-	p->endtag = endtag;
-	p->begin = begin;
-	p->end = end;
 
-	if (NULL == (p->tree = roff_alloc(&cb, p))) {
+	(void)memcpy(&p->cbs, cbs, sizeof(struct ml_cbs));
+
+	if (NULL == (p->tree = roff_alloc(&cb, p))) 
 		free(p);
-		return(NULL);
-	}
+	else if ( ! (*p->cbs.ml_alloc)(&p->data))
+		free(p);
+	else
+		return(p);
 
-	return(p);
+	return(NULL);
 }
 
 
@@ -389,7 +383,8 @@ mlg_roffhead(void *arg, const struct tm *tm, const cha
 	p = (struct md_mlg *)arg;
 
 	mlg_mode(p, MD_BLK_IN);
-	if ( ! (*p->begin)(p->mbuf, p->args, tm, os, title, sec, vol))
+
+	if ( ! (*p->cbs.ml_begin)(p->mbuf, p->args, tm, os, title, sec, vol))
 		return(0);
 
 	p->indent++;
@@ -405,20 +400,21 @@ mlg_rofftail(void *arg)
 	assert(arg);
 	p = (struct md_mlg *)arg;
 
-	if (0 != p->pos && ! mlg_newline(p))
+	if (0 != p->pos)
+		if ( ! mlg_newline(p))
+			return(0);
+
+	if ( ! (*p->cbs.ml_end)(p->mbuf, p->args))
 		return(0);
 
 	mlg_mode(p, MD_BLK_OUT);
-	if ( ! (*p->end)(p->mbuf, p->args))
-		return(0);
 
 	return(mlg_newline(p));
 }
 
 
-/* ARGSUSED */
 static int
-mlg_roffspecial(void *arg, int tok, int *argc, char **argv, char **more)
+mlg_roffspecial(void *arg, int tok, const char *start, char **more)
 {
 	struct md_mlg	*p;
 
@@ -426,6 +422,43 @@ mlg_roffspecial(void *arg, int tok, int *argc, char **
 	p = (struct md_mlg *)arg;
 
 	switch (tok) {
+	case (ROFF_Xr):
+		if ( ! *more) {
+			mlg_err(p, start, start, "missing argument");
+			return(0);
+		}
+		if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, NULL))
+			return(0);
+		if ( ! ml_puts(p->mbuf, *more++, &p->pos))
+			return(0);
+		if (*more) {
+			if ( ! ml_nputs(p->mbuf, "(", 1, &p->pos))
+				return(0);
+			if ( ! ml_puts(p->mbuf, *more++, &p->pos))
+				return(0);
+			if ( ! ml_nputs(p->mbuf, ")", 1, &p->pos))
+				return(0);
+		}
+		if (*more) {
+			mlg_err(p, start, start, "too many arguments");
+			return(0);
+		}
+		if ( ! mlg_endtag(p, MD_NS_INLINE, tok))
+			return(0);
+		break;
+	case (ROFF_Fn):
+		abort(); /* TODO */
+		break;
+	case (ROFF_Nm):
+		assert(*more);
+		if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, NULL))
+			return(0);
+		if ( ! ml_puts(p->mbuf, *more++, &p->pos))
+			return(0);
+		assert(NULL == *more);
+		if ( ! mlg_endtag(p, MD_NS_INLINE, tok))
+			return(0);
+		break;
 	case (ROFF_Ns):
 		p->flags |= ML_OVERRIDE_ONE;
 		break;
@@ -448,7 +481,7 @@ static int
 mlg_roffblkin(void *arg, int tok, int *argc, char **argv)
 {
 
-	return(mlg_beginblk((struct md_mlg *)arg, 
+	return(mlg_begintag((struct md_mlg *)arg, 
 				MD_NS_BLOCK, tok, argc, argv));
 }
 
@@ -457,7 +490,7 @@ static int
 mlg_roffblkout(void *arg, int tok)
 {
 
-	return(mlg_endblk((struct md_mlg *)arg, MD_NS_BLOCK, tok));
+	return(mlg_endtag((struct md_mlg *)arg, MD_NS_BLOCK, tok));
 }
 
 
@@ -465,7 +498,7 @@ static int
 mlg_roffblkbodyin(void *arg, int tok, int *argc, char **argv)
 {
 
-	return(mlg_beginblk((struct md_mlg *)arg, 
+	return(mlg_begintag((struct md_mlg *)arg, 
 				MD_NS_BODY, tok, argc, argv));
 }
 
@@ -474,7 +507,7 @@ static int
 mlg_roffblkbodyout(void *arg, int tok)
 {
 
-	return(mlg_endblk((struct md_mlg *)arg, MD_NS_BODY, tok));
+	return(mlg_endtag((struct md_mlg *)arg, MD_NS_BODY, tok));
 }
 
 
@@ -482,7 +515,7 @@ static int
 mlg_roffblkheadin(void *arg, int tok, int *argc, char **argv)
 {
 
-	return(mlg_beginblk((struct md_mlg *)arg, 
+	return(mlg_begintag((struct md_mlg *)arg, 
 				MD_NS_HEAD, tok, argc, argv));
 }
 
@@ -491,54 +524,24 @@ static int
 mlg_roffblkheadout(void *arg, int tok)
 {
 
-	return(mlg_endblk((struct md_mlg *)arg, MD_NS_HEAD, tok));
+	return(mlg_endtag((struct md_mlg *)arg, MD_NS_HEAD, tok));
 }
 
 
 static int
 mlg_roffin(void *arg, int tok, int *argc, char **argv)
 {
-	struct md_mlg	*p;
 
-	assert(arg);
-	p = (struct md_mlg *)arg;
-
-	/* FIXME: this part. */
-
-	if ( ! (ML_OVERRIDE_ONE & p->flags) && 
-			! (ML_OVERRIDE_ALL & p->flags) && 
-			p->pos + 11 > COLUMNS) 
-		if ( ! mlg_newline(p))
-			return(0);
-
-	if (0 != p->pos && (MD_TEXT == p->last || 
-				MD_INLINE_OUT == p->last)
-			&& ! (ML_OVERRIDE_ONE & p->flags)
-			&& ! (ML_OVERRIDE_ALL & p->flags))
-		if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
-			return(0);
-
-	if (0 == p->pos && ! mlg_indent(p))
-		return(0);
-
-	mlg_mode(p, MD_INLINE_IN);
-	return(mlg_begintag(p, MD_NS_INLINE, tok, argc, argv));
+	return(mlg_begintag((struct md_mlg *)arg, 
+				MD_NS_INLINE, tok, argc, argv));
 }
 
 
 static int
 mlg_roffout(void *arg, int tok)
 {
-	struct md_mlg	*p;
 
-	assert(arg);
-	p = (struct md_mlg *)arg;
-
-	if (0 == p->pos && ! mlg_indent(p))
-		return(0);
-
-	mlg_mode(p, MD_INLINE_OUT);
-	return(mlg_endtag(p, MD_NS_INLINE, tok));
+	return(mlg_endtag((struct md_mlg *)arg, MD_NS_INLINE, tok));
 }
 
 
@@ -552,142 +555,6 @@ mlg_roffmsg(void *arg, enum roffmsg lvl, 
 
 
 static int
-mlg_rofftoken(void *arg, int space, int value)
-{
-	struct md_mlg	*p;
-	const char	*seq;
-	size_t		 sz, res;
-
-	assert(arg);
-	p = (struct md_mlg *)arg;
-
-	switch (value) {
-	case (ROFFTok_Sp_A):
-		seq = "\\a";
-		sz = 2;
-		break;
-	case (ROFFTok_Sp_B):
-		seq = "\\b";
-		sz = 2;
-		break;
-	case (ROFFTok_Sp_F):
-		seq = "\\f";
-		sz = 2;
-		break;
-	case (ROFFTok_Sp_N):
-		seq = "\\n";
-		sz = 2;
-		break;
-	case (ROFFTok_Sp_R):
-		seq = "\\r";
-		sz = 2;
-		break;
-	case (ROFFTok_Sp_T):
-		seq = "\\t";
-		sz = 2;
-		break;
-	case (ROFFTok_Sp_V):
-		seq = "\\v";
-		sz = 2;
-		break;
-	case (ROFFTok_Space):
-		seq = "&nbsp;";
-		sz = 6;
-		break;
-	case (ROFFTok_Hyphen):
-		seq = "&#8208;";
-		sz = 7;
-		break;
-	case (ROFFTok_Em):
-		seq = "&#8212;";
-		sz = 7;
-		break;
-	case (ROFFTok_En):
-		seq = "&#8211;";
-		sz = 7;
-		break;
-	case (ROFFTok_Ge):
-		seq = "&#8805;";
-		sz = 7;
-		break;
-	case (ROFFTok_Le):
-		seq = "&#8804;";
-		sz = 7;
-		break;
-	case (ROFFTok_Rquote):
-		seq = "&#8221;";
-		sz = 7;
-		break;
-	case (ROFFTok_Lquote):
-		seq = "&#8220;";
-		sz = 7;
-		break;
-	case (ROFFTok_Uparrow):
-		seq = "&#8593;";
-		sz = 7;
-		break;
-	case (ROFFTok_Acute):
-		seq = "&#180;";
-		sz = 6;
-		break;
-	case (ROFFTok_Grave):
-		seq = "&#96;";
-		sz = 5;
-		break;
-	case (ROFFTok_Pi):
-		seq = "&#960;";
-		sz = 6;
-		break;
-	case (ROFFTok_Ne):
-		seq = "&#8800;";
-		sz = 7;
-		break;
-	case (ROFFTok_Lt):
-		seq = "&lt;";
-		sz = 4;
-		break;
-	case (ROFFTok_Gt):
-		seq = "&gt;";
-		sz = 4;
-		break;
-	case (ROFFTok_Plusmin):
-		seq = "&#177;";
-		sz = 6;
-		break;
-	case (ROFFTok_Infty):
-		seq = "&#8734;";
-		sz = 7;
-		break;
-	case (ROFFTok_Bar):
-		seq = "&#124;";
-		sz = 6;
-		break;
-	case (ROFFTok_Nan):
-		seq = "Nan";
-		sz = 3;
-		break;
-	case (ROFFTok_Quote):
-		seq = "&quot;";
-		sz = 6;
-		break;
-	default:
-		/* TODO: print error. */
-		return(0);
-	}
-
-	if (space && ! ml_nputs(p->mbuf, " ", 1, &res))
-		return(0);
-	p->pos += res;
-
-	if ( ! ml_nputs(p->mbuf, seq, sz, &res))
-		return(0);
-	p->pos += res;
-
-	return(1);
-}
-
-
-static int
 mlg_roffdata(void *arg, int space, const char *start, char *buf)
 {
 	struct md_mlg	*p;
@@ -699,6 +566,7 @@ mlg_roffdata(void *arg, int space, const char *start, 
 		return(0);
 
 	mlg_mode(p, MD_TEXT);
+
 	return(1);
 }