===================================================================
RCS file: /cvs/mandoc/Attic/mdocml.c,v
retrieving revision 1.20
retrieving revision 1.48
diff -u -p -r1.20 -r1.48
--- mandoc/Attic/mdocml.c	2008/12/10 14:42:46	1.20
+++ mandoc/Attic/mdocml.c	2009/01/17 14:04:25	1.48
@@ -1,4 +1,4 @@
-/* $Id: mdocml.c,v 1.20 2008/12/10 14:42:46 kristaps Exp $ */
+/* $Id: mdocml.c,v 1.48 2009/01/17 14:04:25 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -16,100 +16,121 @@
  * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  * PERFORMANCE OF THIS SOFTWARE.
  */
-#include <sys/param.h>
 #include <sys/stat.h>
+#include <sys/param.h>
 
 #include <assert.h>
-#include <err.h>
 #include <fcntl.h>
+#include <err.h>
 #include <getopt.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <unistd.h>
 
-#include "libmdocml.h"
+#include "mdoc.h"
 
-#define	BUFFER_IN_DEF	BUFSIZ	 /* See begin_bufs. */
-#define	BUFFER_OUT_DEF	BUFSIZ	 /* See begin_bufs. */
+#define	xfprintf	(void)fprintf
 
-#ifdef	DEBUG
-#define	CSS		"mdocml.css"
-#else
-#define	CSS		"/usr/local/share/mdocml/mdocml.css"
-#endif
+#define	MD_LINE_SZ	(256)		/* Max input line size. */
 
-static	void		 usage(void);
+/*
+ * Put this into a mdoctrans.h, which has:
+ *
+ * struct mdoc_trans; (opaque)
+ *
+ * struct mdoc_trans *mdoc_trans_alloc(const char *filter);
+ *
+ * mdoc_trans_free(struct mdoc_trans *);
+ *
+ * int mdoc_trans_getopt(struct mdoc_trans *, char *);
+ *
+ * int mdoc_trans_print(struct mdoc_trans *, const struct mdoc_node *);
+ */
 
-static	int		 begin_io(const struct md_args *, 
-				char *, char *);
-static	int		 leave_io(const struct md_buf *, 
-				const struct md_buf *, int);
-static	int		 begin_bufs(const struct md_args *,
-				struct md_buf *, struct md_buf *);
-static int		 leave_bufs(const struct md_buf *, 
-				const struct md_buf *, int);
+typedef	int		(*mdocprint)(const struct mdoc_node *);
 
+
+struct	md_parse {
+	int		  warn;		/* Warning flags. */
+#define	MD_WARN_SYNTAX	 (1 << 0)	/* Show syntax warnings. */
+#define	MD_WARN_COMPAT	 (1 << 1)	/* Show compat warnings. */
+#define	MD_WARN_ALL	 (0x03)		/* Show all warnings. */
+#define	MD_WARN_ERR	 (1 << 2)	/* Make warnings->errors. */
+	int		  dbg;		/* Debug level. */
+	struct mdoc	 *mdoc;		/* Active parser. */
+	char		 *buf;		/* Input buffer. */
+	u_long		  bufsz;	/* Input buffer size. */
+	char		 *name;		/* Input file name. */
+	int		  fd;		/* Input file desc. */
+	mdocprint	  print;	/* Node-print function. */
+};
+
+extern	char	 	 *__progname;
+
+extern	int		  treeprint(const struct mdoc_node *);
+
+static	void		  usage(void);
+
+static	int		  parse_begin(struct md_parse *);
+static	int		  parse_leave(struct md_parse *, int);
+static	int		  io_begin(struct md_parse *);
+static	int		  io_leave(struct md_parse *, int);
+static	int		  buf_begin(struct md_parse *);
+static	int		  buf_leave(struct md_parse *, int);
+
+static	void		  msg_msg(void *, int, int, const char *);
+static	int		  msg_err(void *, int, int, const char *);
+static	int		  msg_warn(void *, int, int, 
+				enum mdoc_warn, const char *);
+
 #ifdef __linux__
-extern	int		 getsubopt(char **, char *const *, char **);
+extern	int		  getsubopt(char **, char *const *, char **);
 #endif
 
 int
 main(int argc, char *argv[])
 {
 	int		 c;
-	char		*out, *in, *opts, *v;
-	struct md_args	 args;
+	struct md_parse	 parser;
+	char		*opts, *v, *filter;
 #define ALL     	 0
-#define ERROR     	 1
-	char		*toks[] = { "all", "error", NULL };
+#define COMPAT     	 1
+#define SYNTAX     	 2
+#define ERROR     	 3
+	char		*toks[] = { "all", "compat", "syntax", 
+				    "error", NULL };
 
 	extern char	*optarg;
 	extern int	 optind;
 
-	out = in = NULL;
+	filter = NULL;
 
-	(void)memset(&args, 0, sizeof(struct md_args));
+	(void)memset(&parser, 0, sizeof(struct md_parse));
 
-	args.type = MD_NOOP;
-
-	while (-1 != (c = getopt(argc, argv, "c:ef:o:vW:")))
+	while (-1 != (c = getopt(argc, argv, "f:vW:")))
 		switch (c) {
-		case ('c'):
-			if (args.type != MD_HTML)
-				errx(1, "-c only valid for -fhtml");
-			args.params.html.css = optarg;
-			break;
-		case ('e'):
-			if (args.type != MD_HTML)
-				errx(1, "-e only valid for -fhtml");
-			args.params.html.flags |= HTML_CSS_EMBED;
-			break;
 		case ('f'):
-			if (0 == strcmp(optarg, "html"))
-				args.type = MD_HTML;
-			else if (0 == strcmp(optarg, "xml"))
-				args.type = MD_XML;
-			else if (0 == strcmp(optarg, "noop"))
-				args.type = MD_NOOP;
-			else
-				errx(1, "invalid filter type");
+			filter = optarg;
 			break;
-		case ('o'):
-			out = optarg;
-			break;
 		case ('v'):
-			args.verbosity++;
+			parser.dbg++;
 			break;
 		case ('W'):
 			opts = optarg;
 			while (*opts) 
 				switch (getsubopt(&opts, toks, &v)) {
 				case (ALL):
-					args.warnings |= MD_WARN_ALL;
+					parser.warn |= MD_WARN_ALL;
 					break;
+				case (COMPAT):
+					parser.warn |= MD_WARN_COMPAT;
+					break;
+				case (SYNTAX):
+					parser.warn |= MD_WARN_SYNTAX;
+					break;
 				case (ERROR):
-					args.warnings |= MD_WARN_ERROR;
+					parser.warn |= MD_WARN_ERR;
 					break;
 				default:
 					usage();
@@ -121,158 +142,216 @@ main(int argc, char *argv[])
 			return(1);
 		}
 
-	if (MD_HTML == args.type)
-		if (NULL == args.params.html.css) 
-			args.params.html.css = CSS;
-
 	argv += optind;
 	argc -= optind;
 
+	parser.name = "-";
 	if (1 == argc)
-		in = *argv++;
+		parser.name = *argv++;
 
-	return(begin_io(&args, out ? out : "-", in ? in : "-"));
+	if (filter) {
+		if (0 == strcmp(filter, "tree"))
+			parser.print = treeprint;
+	}
+
+	if ( ! io_begin(&parser))
+		return(EXIT_FAILURE);
+
+	return(EXIT_SUCCESS);
 }
 
 
-/* 
- * Close out file descriptors opened in begin_io.  If the descriptor
- * refers to stdin/stdout, then do nothing.
- */
 static int
-leave_io(const struct md_buf *out, 
-		const struct md_buf *in, int c)
+io_leave(struct md_parse *p, int code)
 {
-	assert(out);
-	assert(in);
 
-	if (-1 != in->fd && -1 == close(in->fd)) {
-		assert(in->name);
-		warn("%s", in->name);
-		c = 1;
+	if (-1 == p->fd || STDIN_FILENO == p->fd)
+		return(code);
+
+	if (-1 == close(p->fd)) {
+		warn("%s", p->name);
+		code = 0;
 	}
-	if (-1 != out->fd && STDOUT_FILENO != out->fd &&
-			-1 == close(out->fd)) {
-		assert(out->name);
-		warn("%s", out->name);
-		c = 1;
+	return(code);
+}
+
+
+static int
+io_begin(struct md_parse *p)
+{
+
+	p->fd = STDIN_FILENO;
+	if (0 != strncmp(p->name, "-", 1))
+		if (-1 == (p->fd = open(p->name, O_RDONLY, 0))) {
+			warn("%s", p->name);
+			return(io_leave(p, 0));
+		}
+
+	return(io_leave(p, buf_begin(p)));
+}
+
+
+static int
+buf_leave(struct md_parse *p, int code)
+{
+
+	if (p->buf)
+		free(p->buf);
+	return(code);
+}
+
+
+static int
+buf_begin(struct md_parse *p)
+{
+	struct stat	 st;
+
+	if (-1 == fstat(p->fd, &st)) {
+		warn("%s", p->name);
+		return(1);
+	} 
+
+	p->bufsz = MAX(st.st_blksize, BUFSIZ);
+
+	if (NULL == (p->buf = malloc(p->bufsz))) {
+		warn("malloc");
+		return(buf_leave(p, 0));
 	}
-	if (1 == c && STDOUT_FILENO != out->fd)
-		if (-1 == unlink(out->name))
-			warn("%s", out->name);
 
-	return(c);
+	return(buf_leave(p, parse_begin(p)));
 }
 
 
-/*
- * Open file descriptors or assign stdin/stdout, if dictated by the "-"
- * token instead of a filename.
- */
 static int
-begin_io(const struct md_args *args, char *out, char *in)
+parse_leave(struct md_parse *p, int code)
 {
-	struct md_buf	 fi;
-	struct md_buf	 fo;
+	const struct mdoc_node *n;
 
-#define	FI_FL	O_RDONLY
-#define	FO_FL	O_WRONLY|O_CREAT|O_TRUNC
+	if (NULL == p->mdoc)
+		return(code);
 
-	assert(args);
-	assert(out);
-	assert(in);
+	if ( ! mdoc_endparse(p->mdoc))
+		code = 0;
+	if (p->print && (n = mdoc_result(p->mdoc)))
+		(*p->print)(n);
 
-	bzero(&fi, sizeof(struct md_buf));
-	bzero(&fo, sizeof(struct md_buf));
+	mdoc_free(p->mdoc);
 
-	fi.fd = STDIN_FILENO;
-	fo.fd = STDOUT_FILENO;
+	return(code);
+}
 
-	fi.name = in;
-	fo.name = out;
 
-	if (0 != strncmp(fi.name, "-", 1))
-		if (-1 == (fi.fd = open(fi.name, FI_FL, 0))) {
-			warn("%s", fi.name);
-			return(leave_io(&fo, &fi, 1));
-		}
+static int
+parse_begin(struct md_parse *p)
+{
+	ssize_t		 sz, i;
+	size_t		 pos;
+	char		 line[MD_LINE_SZ];
+	struct mdoc_cb	 cb;
+	int		 lnn;
 
-	if (0 != strncmp(fo.name, "-", 1)) 
-		if (-1 == (fo.fd = open(fo.name, FO_FL, 0644))) {
-			warn("%s", fo.name);
-			return(leave_io(&fo, &fi, 1));
+	cb.mdoc_err = msg_err;
+	cb.mdoc_warn = msg_warn;
+	cb.mdoc_msg = msg_msg;
+
+	if (NULL == (p->mdoc = mdoc_alloc(p, &cb)))
+		return(parse_leave(p, 0));
+
+	for (lnn = 1, pos = 0; ; ) {
+		if (-1 == (sz = read(p->fd, p->buf, p->bufsz))) {
+			warn("%s", p->name);
+			return(parse_leave(p, 0));
+		} else if (0 == sz) 
+			break;
+
+		for (i = 0; i < sz; i++) {
+			if ('\n' != p->buf[i]) {
+				if (pos < sizeof(line)) {
+					line[(int)pos++] = p->buf[(int)i];
+					continue;
+				}
+				warnx("%s: line %d too long", 
+						p->name, lnn);
+				return(parse_leave(p, 0));
+			}
+	
+			line[(int)pos] = 0;
+			if ( ! mdoc_parseln(p->mdoc, lnn, line))
+				return(parse_leave(p, 0));
+
+			lnn++;
+			pos = 0;
 		}
+	}
 
-	return(leave_io(&fo, &fi, begin_bufs(args, &fo, &fi)));
+	return(parse_leave(p, 1));
 }
 
 
-/*
- * Free buffers allocated in begin_bufs.
- */
 static int
-leave_bufs(const struct md_buf *out, 
-		const struct md_buf *in, int c)
+msg_err(void *arg, int line, int col, const char *msg)
 {
-	assert(out);
-	assert(in);
-	if (out->buf)
-		free(out->buf);
-	if (in->buf)
-		free(in->buf);
-	return(c);
+	struct md_parse	 *p;
+
+	p = (struct md_parse *)arg;
+
+	xfprintf(stderr, "%s:%d: error: %s (column %d)\n", 
+			p->name, line, msg, col);
+	return(0);
 }
 
 
-/*
- * Allocate buffers to the maximum of either the input file's blocksize
- * or BUFFER_IN_DEF/BUFFER_OUT_DEF, which should be around BUFSIZE.
- */
+static void
+msg_msg(void *arg, int line, int col, const char *msg)
+{
+	struct md_parse	 *p;
+
+	p = (struct md_parse *)arg;
+
+	if (0 == p->dbg)
+		return;
+
+	xfprintf(stderr, "%s:%d: debug: %s (column %d)\n", 
+			p->name, line, msg, col);
+}
+
+
 static int
-begin_bufs(const struct md_args *args, 
-		struct md_buf *out, struct md_buf *in)
+msg_warn(void *arg, int line, int col, 
+		enum mdoc_warn type, const char *msg)
 {
-	struct stat	 stin, stout;
-	int		 c;
+	struct md_parse	 *p;
 
-	assert(args);
-	assert(in);
-	assert(out);
+	p = (struct md_parse *)arg;
 
-	if (-1 == fstat(in->fd, &stin)) {
-		warn("%s", in->name);
+	switch (type) {
+	case (WARN_COMPAT):
+		if (p->warn & MD_WARN_COMPAT)
+			break;
 		return(1);
-	} else if (STDIN_FILENO != in->fd && 0 == stin.st_size) {
-		warnx("%s: empty file", in->name);
+	case (WARN_SYNTAX):
+		if (p->warn & MD_WARN_SYNTAX)
+			break;
 		return(1);
-	} else if (-1 == fstat(out->fd, &stout)) {
-		warn("%s", out->name);
-		return(1);
 	}
 
-	in->bufsz = MAX(stin.st_blksize, BUFFER_IN_DEF);
-	out->bufsz = MAX(stout.st_blksize, BUFFER_OUT_DEF);
+	xfprintf(stderr, "%s:%d: warning: %s (column %d)\n", 
+			p->name, line, msg, col);
 
-	if (NULL == (in->buf = malloc(in->bufsz))) {
-		warn("malloc");
-		return(leave_bufs(out, in, 1));
-	} else if (NULL == (out->buf = malloc(out->bufsz))) {
-		warn("malloc");
-		return(leave_bufs(out, in, 1));
-	}
+	if ( ! (p->warn & MD_WARN_ERR))
+		return(1);
 
-	c = md_run(args, out, in);
-	return(leave_bufs(out, in, -1 == c ? 1 : 0));
+	xfprintf(stderr, "%s: considering warnings as errors\n", 
+			__progname);
+	return(0);
 }
 
 
 static void
 usage(void)
 {
-	extern char	*__progname;
 
-	(void)fprintf(stderr, "usage: %s [-v] [-Wwarn...]  "
-			"[-f filter] [-o outfile] [infile]\n", 
-			__progname);
+	xfprintf(stderr, "usage: %s [-v] [-Wwarn...] [-ffilter] "
+			"[infile]\n", __progname);
 }