=================================================================== RCS file: /cvs/mandoc/Attic/libmdocml.c,v retrieving revision 1.2 retrieving revision 1.21 diff -u -p -r1.2 -r1.21 --- mandoc/Attic/libmdocml.c 2008/11/22 18:34:06 1.2 +++ mandoc/Attic/libmdocml.c 2008/12/10 14:42:46 1.21 @@ -1,4 +1,4 @@ -/* $Id: libmdocml.c,v 1.2 2008/11/22 18:34:06 kristaps Exp $ */ +/* $Id: libmdocml.c,v 1.21 2008/12/10 14:42:46 kristaps Exp $ */ /* * Copyright (c) 2008 Kristaps Dzonsons * @@ -17,6 +17,7 @@ * PERFORMANCE OF THIS SOFTWARE. */ #include +#include #include #include #include @@ -24,24 +25,18 @@ #include #include -#include "libmdocml.h" +#include "private.h" -#define BUFFER_LINE BUFSIZ +static int md_run_enter(const struct md_args *, + struct md_mbuf *, struct md_rbuf *, void *); +static int md_run_leave(const struct md_args *, struct md_mbuf *, + struct md_rbuf *, int, void *); -typedef int (*md_line) (struct md_mbuf *, const struct md_rbuf *, - const char *, size_t); +static ssize_t md_buf_fill(struct md_rbuf *); +static int md_buf_flush(struct md_mbuf *); -static int md_line_dummy(struct md_mbuf *, - const struct md_rbuf *, - const char *, size_t); -static ssize_t md_buf_fill(struct md_rbuf *); -static int md_buf_flush(struct md_mbuf *); -static int md_buf_putchar(struct md_mbuf *, char); -static int md_buf_puts(struct md_mbuf *, - const char *, size_t); - -ssize_t +static ssize_t md_buf_fill(struct md_rbuf *in) { ssize_t ssz; @@ -58,8 +53,7 @@ md_buf_fill(struct md_rbuf *in) } -int -md_buf_flush(struct md_mbuf *buf) +static int md_buf_flush(struct md_mbuf *buf) { ssize_t sz; @@ -88,11 +82,22 @@ md_buf_flush(struct md_mbuf *buf) int md_buf_putchar(struct md_mbuf *buf, char c) { + + assert(buf); return(md_buf_puts(buf, &c, 1)); } int +md_buf_putstring(struct md_mbuf *buf, const char *p) +{ + + assert(buf); + return(md_buf_puts(buf, p, strlen(p))); +} + + +int md_buf_puts(struct md_mbuf *buf, const char *p, size_t sz) { size_t ssz; @@ -121,73 +126,136 @@ md_buf_puts(struct md_mbuf *buf, const char *p, size_t } -int -md_run(enum md_type type, struct md_mbuf *out, struct md_rbuf *in) +static int +md_run_leave(const struct md_args *args, struct md_mbuf *mbuf, + struct md_rbuf *rbuf, int c, void *data) { + md_exit fp; + + assert(args); + assert(mbuf); + assert(rbuf); + + /* Run exiters. */ + switch (args->type) { + case (MD_HTML): + fp = md_exit_html; + break; + case (MD_XML): + fp = md_exit_xml; + break; + default: + fp = md_exit_noop; + break; + } + + if ( ! (*fp)(data, -1 == c ? 0 : 1)) + c = -1; + + /* Make final flush of buffer. */ + if (-1 != c && ! md_buf_flush(mbuf)) + return(-1); + + return(c); +} + + +static int +md_run_enter(const struct md_args *args, struct md_mbuf *mbuf, + struct md_rbuf *rbuf, void *p) +{ ssize_t sz, i; - char line[BUFFER_LINE]; size_t pos; - md_line func; + char line[MD_LINE]; + md_line fp; - assert(in); - assert(out); + assert(args); + assert(mbuf); + assert(rbuf); - out->pos = 0; - in->line = 1; + /* Function ptrs to line-parsers. */ + switch (args->type) { + case (MD_HTML): + fp = md_line_html; + break; + case (MD_XML): + fp = md_line_xml; + break; + default: + fp = md_line_noop; + break; + } - assert(MD_DUMMY == type); - func = md_line_dummy; + pos = 0; - /* LINTED */ - for (pos = 0; ; ) { - if (-1 == (sz = md_buf_fill(in))) - return(1); - else if (0 == sz) - break; +again: + if (-1 == (sz = md_buf_fill(rbuf))) { + return(md_run_leave(args, mbuf, rbuf, -1, p)); + } else if (0 == sz && 0 != pos) { + warnx("%s: no newline at end of file", rbuf->name); + return(md_run_leave(args, mbuf, rbuf, -1, p)); + } else if (0 == sz) + return(md_run_leave(args, mbuf, rbuf, 0, p)); - for (i = 0; i < sz; i++) { - if ('\n' == in->buf[i]) { - if ((*func)(out, in, line, pos)) - return(1); - in->line++; - pos = 0; - continue; - } - - if (pos < BUFFER_LINE) { + for (i = 0; i < sz; i++) { + if ('\n' != rbuf->buf[i]) { + if (pos < MD_LINE) { /* LINTED */ - line[pos++] = in->buf[i]; + rbuf->linebuf[pos++] = rbuf->buf[i]; continue; } - warnx("%s: line %zu too long", - in->name, in->line); - return(1); + rbuf->name, rbuf->line); + return(md_run_leave(args, mbuf, rbuf, -1, p)); } + + rbuf->linebuf[(int)pos] = 0; + (void)memcpy(line, rbuf->linebuf, sizeof(line)); + if ( ! (*fp)(p, line)) + return(md_run_leave(args, mbuf, rbuf, -1, p)); + rbuf->line++; + pos = 0; } - if (0 != pos && (*func)(out, in, line, pos)) - return(1); - - return(md_buf_flush(out) ? 0 : 1); + goto again; + /* NOTREACHED */ } -static int -md_line_dummy(struct md_mbuf *out, const struct md_rbuf *in, - const char *buf, size_t sz) +int +md_run(const struct md_args *args, + const struct md_buf *out, const struct md_buf *in) { + md_init fp; + struct md_mbuf mbuf; + struct md_rbuf rbuf; + void *data; - assert(buf); - assert(out); + assert(args); assert(in); + assert(out); - if ( ! md_buf_puts(out, buf, sz)) - return(1); - if ( ! md_buf_putchar(out, '\n')) - return(1); + (void)memcpy(&mbuf, out, sizeof(struct md_buf)); + (void)memcpy(&rbuf, in, sizeof(struct md_buf)); - return(0); -} + mbuf.pos = 0; + rbuf.line = 1; + /* Run initialisers. */ + switch (args->type) { + case (MD_HTML): + fp = md_init_html; + break; + case (MD_XML): + fp = md_init_xml; + break; + default: + fp = md_init_noop; + break; + } + data = (*fp)(args, &mbuf, &rbuf); + + /* Go into mainline. */ + return(md_run_enter(args, &mbuf, &rbuf, data)); +}