Transition to splitting xml/ml.

1 files changed, 184 insertions, 0 deletions

diff --git a/ml.c b/ml.c
new file mode 100644
index 00000000..8b52f6a5
--- /dev/null
+++ b/ml.c
@@ -0,0 +1,184 @@
+/* $Id: ml.c,v 1.1 2008/12/02 18:26:57 kristaps Exp $ */
+/*
+ * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the
+ * above copyright notice and this permission notice appear in all
+ * copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+ * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
+ * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
+ * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
+ * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
+ * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+ * PERFORMANCE OF THIS SOFTWARE.
+ */
+#include <stdlib.h>
+#include <string.h>
+
+#include "libmdocml.h"
+#include "private.h"
+
+
+#define	MAXINDENT	 8
+
+static ssize_t		 ml_puts(struct md_mbuf *, const char *);
+static ssize_t		 ml_putchar(struct md_mbuf *, char);
+static ssize_t		 ml_putstring(struct md_mbuf *, const char *);
+
+
+static ssize_t
+ml_puts(struct md_mbuf *p, const char *buf)
+{
+
+	return(ml_nputs(p, buf, strlen(buf)));
+}
+
+
+static ssize_t
+ml_putchar(struct md_mbuf *p, char buf)
+{
+
+	return(ml_nputs(p, &buf, 1));
+}
+
+
+static ssize_t
+ml_putstring(struct md_mbuf *p, const char *buf)
+{
+	
+	return(ml_nputstring(p, buf, strlen(buf)));
+}
+
+
+ssize_t
+ml_begintag(struct md_mbuf *p, const char *name, 
+		int *argc, char **argv)
+{
+	int		 i;
+	ssize_t		 res, sz;
+
+	res = 0;
+
+	if (-1 == (sz = ml_nputs(p, "<", 1)))
+		return(-1);
+	res += sz;
+
+	if (-1 == (sz = ml_puts(p, name)))
+		return(-1);
+	res += sz;
+
+	for (i = 0; ROFF_ARGMAX != argc[i]; i++) {
+		if (-1 == (sz = ml_nputs(p, " ", 1)))
+			return(-1);
+		res += sz;
+
+		if (-1 == (sz = ml_puts(p, tokargnames[argc[i]])))
+			return(-1);
+		res += sz;
+
+		if (-1 == (sz = ml_nputs(p, "=\"", 2)))
+			return(-1);
+		res += sz;
+
+		if (-1 == (sz = ml_putstring(p, argv[i] ? 
+						argv[i] : "true")))
+			return(-1);
+		res += sz;
+
+		if (-1 == (sz = ml_nputs(p, "\"", 1)))
+			return(-1);
+		res += sz;
+	}
+	
+	if (-1 == (sz = ml_nputs(p, ">", 1)))
+		return(-1);
+
+	return(res + sz);
+}
+
+
+ssize_t
+ml_endtag(struct md_mbuf *p, const char *tag)
+{
+	ssize_t		 res, sz;
+
+	res = 0;
+
+	if (-1 == (sz = ml_nputs(p, "</", 2)))
+		return(-1);
+	res += sz;
+
+	if (-1 == (sz = ml_puts(p, tag)))
+		return(-1);
+	res += sz;
+
+	if (-1 == (sz = ml_nputs(p, ">", 1)))
+		return(-1);
+
+	return(res + sz);
+}
+
+
+ssize_t
+ml_nputstring(struct md_mbuf *p, const char *buf, size_t bufsz)
+{
+	int		 i;
+	ssize_t		 res, sz;
+
+	res = 0;
+
+	for (i = 0; i < (int)bufsz; i++) {
+		switch (buf[i]) {
+		case ('&'):
+			if (-1 == (sz = ml_nputs(p, "&amp;", 5)))
+				return(-1);
+			break;
+		case ('"'):
+			if (-1 == (sz = ml_nputs(p, "&quot;", 6)))
+				return(-1);
+			break;
+		case ('<'):
+			if (-1 == (sz = ml_nputs(p, "&lt;", 4)))
+				return(-1);
+			break;
+		case ('>'):
+			if (-1 == (sz = ml_nputs(p, "&gt;", 4)))
+				return(-1);
+			break;
+		default:
+			if (-1 == (sz = ml_putchar(p, buf[i])))
+				return(-1);
+			break;
+		}
+		res += sz;
+	}
+	return(res);
+}
+
+
+ssize_t
+ml_nputs(struct md_mbuf *p, const char *buf, size_t sz)
+{
+
+	return(0 == md_buf_puts(p, buf, sz) ? -1 : (ssize_t)sz);
+}
+
+
+ssize_t
+ml_indent(struct md_mbuf *p, int indent)
+{
+	size_t		 i;
+	ssize_t		 res, sz;
+
+	res = sz  0;
+
+	/* LINTED */
+	for (i = 0; i < MIN(indent, MAXINDENT); i++, res += sz)
+		if (-1 == (sz = ml_nputs(p, "    ", 4)))
+			return(-1);
+	return(res);
+}