===================================================================
RCS file: /cvs/mandoc/mdoc.c,v
retrieving revision 1.48
retrieving revision 1.51
diff -u -p -r1.48 -r1.51
--- mandoc/mdoc.c	2009/02/23 12:45:19	1.48
+++ mandoc/mdoc.c	2009/03/05 13:12:12	1.51
@@ -1,4 +1,4 @@
-/* $Id: mdoc.c,v 1.48 2009/02/23 12:45:19 kristaps Exp $ */
+/* $Id: mdoc.c,v 1.51 2009/03/05 13:12:12 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -180,6 +180,12 @@ mdoc_endparse(struct mdoc *mdoc)
 }
 
 
+/*
+ * Main line-parsing routine.  If the line is a macro-line (started with
+ * a '.' control character), then pass along to the parser, which parses
+ * subsequent macros until the end of line.  If normal text, simply
+ * append the entire line to the chain.
+ */
 int
 mdoc_parseln(struct mdoc *mdoc, int line, char *buf)
 {
@@ -192,20 +198,30 @@ mdoc_parseln(struct mdoc *mdoc, int line, char *buf)
 	mdoc->linetok = 0;
 
 	if ('.' != *buf) {
+		/*
+		 * Free-form text.  Not allowed in the prologue.
+		 */
 		if (SEC_PROLOGUE == mdoc->lastnamed)
-			return(mdoc_perr(mdoc, line, 0, "text disallowed in document prologue"));
+			return(mdoc_perr(mdoc, line, 0, 
+					"no text in prologue"));
+
 		if ( ! mdoc_word_alloc(mdoc, line, 0, buf))
 			return(0);
 		mdoc->next = MDOC_NEXT_SIBLING;
 		return(1);
 	}
 
+	/*
+	 * Control-character detected.  Begin the parsing sequence.
+	 */
+
 	if (buf[1] && '\\' == buf[1])
 		if (buf[2] && '\"' == buf[2])
 			return(1);
 
 	i = 1;
-	while (buf[i] && ! isspace((int)buf[i]) && i < (int)sizeof(tmp))
+	while (buf[i] && ! isspace((u_char)buf[i]) && 
+			i < (int)sizeof(tmp))
 		i++;
 
 	if (i == (int)sizeof(tmp)) {
@@ -226,13 +242,14 @@ mdoc_parseln(struct mdoc *mdoc, int line, char *buf)
 		return(mdoc_perr(mdoc, line, 1, "unknown macro"));
 	}
 
-	while (buf[i] && isspace((int)buf[i]))
+	while (buf[i] && isspace((u_char)buf[i]))
 		i++;
 
 	if ( ! mdoc_macro(mdoc, c, line, 1, &i, buf)) {
 		mdoc->flags |= MDOC_HALT;
 		return(0);
 	}
+
 	return(1);
 }