version 1.1, 2008/11/30 21:41:35 |
version 1.13, 2008/12/04 11:25:29 |
|
|
* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR |
* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR |
* PERFORMANCE OF THIS SOFTWARE. |
* PERFORMANCE OF THIS SOFTWARE. |
*/ |
*/ |
#include <sys/param.h> |
|
|
|
#include <assert.h> |
|
#include <ctype.h> |
|
#include <err.h> |
|
#include <stdio.h> |
|
#include <stdlib.h> |
#include <stdlib.h> |
#include <string.h> |
#include <string.h> |
|
|
#include "libmdocml.h" |
#include "libmdocml.h" |
#include "private.h" |
#include "private.h" |
|
#include "ml.h" |
|
|
#define INDENT 4 |
|
#define COLUMNS 60 |
|
|
|
#ifdef __linux__ /* FIXME */ |
static ssize_t xml_endtag(struct md_mbuf *, |
#define strlcat strncat |
const struct md_args *, |
#endif |
enum md_ns, int); |
|
static ssize_t xml_begintag(struct md_mbuf *, |
|
const struct md_args *, |
|
enum md_ns, int, |
|
const int *, const char **); |
|
static int xml_begin(struct md_mbuf *, |
|
const struct md_args *, |
|
const struct tm *, |
|
const char *, const char *, |
|
const char *, const char *); |
|
static int xml_end(struct md_mbuf *, |
|
const struct md_args *); |
|
|
enum md_tok { |
|
MD_BLKIN, |
|
MD_BLKOUT, |
|
MD_IN, |
|
MD_OUT, |
|
MD_TEXT |
|
}; |
|
|
|
struct md_xml { |
/* ARGSUSED */ |
const struct md_args *args; |
static int |
const struct md_rbuf *rbuf; |
xml_begin(struct md_mbuf *mbuf, const struct md_args *args, |
|
const struct tm *tm, const char *os, |
struct md_mbuf *mbuf; |
const char *title, const char *section, |
struct rofftree *tree; |
const char *vol) |
size_t indent; |
|
size_t pos; |
|
enum md_tok last; |
|
int flags; |
|
#define MD_LITERAL (1 << 0) /* FIXME */ |
|
}; |
|
|
|
static void roffmsg(void *arg, enum roffmsg, |
|
const char *, const char *, char *); |
|
static int roffhead(void *); |
|
static int rofftail(void *); |
|
static int roffin(void *, int, int *, char **); |
|
static int roffdata(void *, int, char *); |
|
static int roffout(void *, int); |
|
static int roffblkin(void *, int, int *, char **); |
|
static int roffblkout(void *, int); |
|
static int roffspecial(void *, int); |
|
|
|
static int mbuf_newline(struct md_xml *); |
|
static int mbuf_indent(struct md_xml *); |
|
static int mbuf_data(struct md_xml *, int, char *); |
|
static int mbuf_putstring(struct md_xml *, |
|
const char *); |
|
static int mbuf_nputstring(struct md_xml *, |
|
const char *, size_t); |
|
|
|
|
|
static int |
|
mbuf_putstring(struct md_xml *p, const char *buf) |
|
{ |
{ |
|
size_t res; |
|
|
return(mbuf_nputstring(p, buf, strlen(buf))); |
if ( ! ml_puts(mbuf, "<?xml version=\"1.0\" " |
} |
"encoding=\"UTF-8\"?>\n", &res)) |
|
return(0); |
|
if ( ! ml_puts(mbuf, "<mdoc xmlns:block=\"block\" " |
|
"xmlns:special=\"special\" " |
|
"xmlns:inline=\"inline\">", &res)) |
|
return(0); |
|
|
|
|
static int |
|
mbuf_nputstring(struct md_xml *p, const char *buf, size_t sz) |
|
{ |
|
|
|
p->pos += sz; |
|
return(md_buf_puts(p->mbuf, buf, sz)); |
|
} |
|
|
|
|
|
static int |
|
mbuf_indent(struct md_xml *p) |
|
{ |
|
size_t i; |
|
|
|
assert(p->pos == 0); |
|
|
|
/* LINTED */ |
|
for (i = 0; i < MIN(p->indent, INDENT); i++) |
|
if ( ! md_buf_putstring(p->mbuf, " ")) |
|
return(0); |
|
|
|
p->pos += i * INDENT; |
|
return(1); |
return(1); |
} |
} |
|
|
|
|
static int |
/* ARGSUSED */ |
mbuf_newline(struct md_xml *p) |
static int |
|
xml_end(struct md_mbuf *mbuf, const struct md_args *args) |
{ |
{ |
|
size_t res; |
|
|
if ( ! md_buf_putchar(p->mbuf, '\n')) |
res = 0; |
|
if ( ! ml_puts(mbuf, "</mdoc>", &res)) |
return(0); |
return(0); |
|
|
p->pos = 0; |
|
return(1); |
return(1); |
} |
} |
|
|
|
|
static int |
/* ARGSUSED */ |
mbuf_data(struct md_xml *p, int space, char *buf) |
static ssize_t |
|
xml_begintag(struct md_mbuf *mbuf, const struct md_args *args, |
|
enum md_ns ns, int tok, |
|
const int *argc, const char **argv) |
{ |
{ |
size_t sz; |
size_t res; |
char *bufp; |
|
|
|
assert(p->mbuf); |
res = 0; |
assert(0 != p->indent); |
|
|
|
if (MD_LITERAL & p->flags) |
switch (ns) { |
return(mbuf_putstring(p, buf)); |
case (MD_NS_BLOCK): |
|
if ( ! ml_nputs(mbuf, "block:", 6, &res)) |
|
return(-1); |
|
break; |
|
case (MD_NS_BODY): |
|
if ( ! ml_nputs(mbuf, "body:", 5, &res)) |
|
return(-1); |
|
break; |
|
case (MD_NS_HEAD): |
|
if ( ! ml_nputs(mbuf, "head:", 5, &res)) |
|
return(-1); |
|
break; |
|
case (MD_NS_INLINE): |
|
if ( ! ml_nputs(mbuf, "inline:", 7, &res)) |
|
return(-1); |
|
break; |
|
default: |
|
break; |
|
} |
|
|
while (*buf) { |
if ( ! ml_puts(mbuf, toknames[tok], &res)) |
while (*buf && isspace(*buf)) |
return(-1); |
buf++; |
|
|
|
if (0 == *buf) |
return((ssize_t)res); |
break; |
} |
|
|
bufp = buf; |
|
while (*buf && ! isspace(*buf)) |
|
buf++; |
|
|
|
if (0 != *buf) |
/* ARGSUSED */ |
*buf++ = 0; |
static ssize_t |
|
xml_endtag(struct md_mbuf *mbuf, const struct md_args *args, |
|
enum md_ns ns, int tok) |
|
{ |
|
size_t res; |
|
|
sz = strlen(bufp); |
res = 0; |
|
|
if (0 == p->pos) { |
switch (ns) { |
if ( ! mbuf_indent(p)) |
case (MD_NS_BLOCK): |
return(0); |
if ( ! ml_nputs(mbuf, "block:", 6, &res)) |
if ( ! mbuf_nputstring(p, bufp, sz)) |
return(-1); |
return(0); |
break; |
if (p->indent * INDENT + sz >= COLUMNS) { |
case (MD_NS_INLINE): |
if ( ! mbuf_newline(p)) |
if ( ! ml_nputs(mbuf, "inline:", 7, &res)) |
return(0); |
return(-1); |
continue; |
break; |
} |
case (MD_NS_BODY): |
continue; |
if ( ! ml_nputs(mbuf, "body:", 5, &res)) |
} |
return(-1); |
|
break; |
if (space && sz + p->pos >= COLUMNS) { |
case (MD_NS_HEAD): |
if ( ! mbuf_newline(p)) |
if ( ! ml_nputs(mbuf, "head:", 5, &res)) |
return(0); |
return(-1); |
if ( ! mbuf_indent(p)) |
break; |
return(0); |
default: |
} else if (space) { |
break; |
if ( ! mbuf_nputstring(p, " ", 1)) |
|
return(0); |
|
} |
|
|
|
if ( ! mbuf_nputstring(p, bufp, sz)) |
|
return(0); |
|
|
|
if ( ! space && p->pos >= COLUMNS) |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
} |
} |
|
|
return(1); |
if ( ! ml_puts(mbuf, toknames[tok], &res)) |
|
return(-1); |
|
|
|
return((ssize_t)res); |
} |
} |
|
|
|
|
int |
int |
md_line_xml(void *arg, char *buf) |
md_line_xml(void *data, char *buf) |
{ |
{ |
struct md_xml *p; |
|
|
|
p = (struct md_xml *)arg; |
return(mlg_line((struct md_mlg *)data, buf)); |
return(roff_engine(p->tree, buf)); |
|
} |
} |
|
|
|
|
int |
int |
md_exit_xml(void *data, int flush) |
md_exit_xml(void *data, int flush) |
{ |
{ |
int c; |
|
struct md_xml *p; |
|
|
|
p = (struct md_xml *)data; |
return(mlg_exit((struct md_mlg *)data, flush)); |
c = roff_free(p->tree, flush); |
|
free(p); |
|
|
|
return(c); |
|
} |
} |
|
|
|
|
|
|
md_init_xml(const struct md_args *args, |
md_init_xml(const struct md_args *args, |
struct md_mbuf *mbuf, const struct md_rbuf *rbuf) |
struct md_mbuf *mbuf, const struct md_rbuf *rbuf) |
{ |
{ |
struct roffcb cb; |
|
struct md_xml *p; |
|
|
|
cb.roffhead = roffhead; |
return(mlg_alloc(args, rbuf, mbuf, xml_begintag, |
cb.rofftail = rofftail; |
xml_endtag, xml_begin, xml_end)); |
cb.roffin = roffin; |
|
cb.roffout = roffout; |
|
cb.roffblkin = roffblkin; |
|
cb.roffblkout = roffblkout; |
|
cb.roffspecial = roffspecial; |
|
cb.roffmsg = roffmsg; |
|
cb.roffdata = roffdata; |
|
|
|
if (NULL == (p = calloc(1, sizeof(struct md_xml)))) |
|
err(1, "malloc"); |
|
|
|
p->args = args; |
|
p->mbuf = mbuf; |
|
p->rbuf = rbuf; |
|
|
|
assert(mbuf); |
|
|
|
if (NULL == (p->tree = roff_alloc(&cb, p))) { |
|
free(p); |
|
return(NULL); |
|
} |
|
|
|
return(p); |
|
} |
} |
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
roffhead(void *arg) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
if ( ! mbuf_putstring(p, "<?xml version=\"1.0\" " |
|
"encoding=\"UTF-8\"?>\n")) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "<block:mdoc>", 12)) |
|
return(0); |
|
|
|
p->indent++; |
|
p->last = MD_BLKIN; |
|
return(mbuf_newline(p)); |
|
} |
|
|
|
|
|
static int |
|
rofftail(void *arg) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
if (0 != p->pos && ! mbuf_newline(p)) |
|
return(0); |
|
|
|
if ( ! mbuf_nputstring(p, "</block:mdoc>", 13)) |
|
return(0); |
|
|
|
p->last = MD_BLKOUT; |
|
return(mbuf_newline(p)); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
roffspecial(void *arg, int tok) |
|
{ |
|
|
|
/* FIXME */ |
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
roffblkin(void *arg, int tok, int *argc, char **argv) |
|
{ |
|
struct md_xml *p; |
|
int i; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
if (0 != p->pos) { |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
if ( ! mbuf_indent(p)) |
|
return(0); |
|
} else if ( ! mbuf_indent(p)) |
|
return(0); |
|
|
|
if ( ! mbuf_nputstring(p, "<", 1)) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "block:", 6)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, toknames[tok])) |
|
return(0); |
|
|
|
for (i = 0; ROFF_ARGMAX != argc[i]; i++) { |
|
if ( ! mbuf_nputstring(p, " ", 1)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, tokargnames[argc[i]])) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "=\"", 2)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, argv[i] ? argv[i] : "true")) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "\"", 1)) |
|
return(0); |
|
} |
|
|
|
if ( ! mbuf_nputstring(p, ">", 1)) |
|
return(0); |
|
|
|
p->last = MD_BLKIN; |
|
p->indent++; |
|
return(mbuf_newline(p)); |
|
} |
|
|
|
|
|
static int |
|
roffblkout(void *arg, int tok) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
p->indent--; |
|
|
|
if (0 != p->pos) { |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
if ( ! mbuf_indent(p)) |
|
return(0); |
|
} else if ( ! mbuf_indent(p)) |
|
return(0); |
|
|
|
if ( ! mbuf_nputstring(p, "</", 2)) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "block:", 6)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, toknames[tok])) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, ">", 1)) |
|
return(0); |
|
|
|
p->last = MD_BLKOUT; |
|
return(mbuf_newline(p)); |
|
} |
|
|
|
|
|
static int |
|
roffin(void *arg, int tok, int *argc, char **argv) |
|
{ |
|
struct md_xml *p; |
|
int i; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
/* |
|
* FIXME: put all of this in a buffer, then check the buffer |
|
* length versus the column width for nicer output. This is a |
|
* bit hacky. |
|
*/ |
|
|
|
if (p->pos + 11 > COLUMNS) |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
|
|
if (0 != p->pos) { |
|
switch (p->last) { |
|
case (MD_TEXT): |
|
/* FALLTHROUGH */ |
|
case (MD_OUT): |
|
if ( ! mbuf_nputstring(p, " ", 1)) |
|
return(0); |
|
break; |
|
default: |
|
break; |
|
} |
|
} else if ( ! mbuf_indent(p)) |
|
return(0); |
|
|
|
p->last = MD_IN; |
|
|
|
if ( ! mbuf_nputstring(p, "<", 1)) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "inline:", 7)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, toknames[tok])) |
|
return(0); |
|
|
|
for (i = 0; ROFF_ARGMAX != argc[i]; i++) { |
|
if ( ! mbuf_nputstring(p, " ", 1)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, tokargnames[argc[i]])) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "=\"", 2)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, argv[i] ? argv[i] : "true")) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "\"", 1)) |
|
return(0); |
|
} |
|
return(mbuf_nputstring(p, ">", 1)); |
|
} |
|
|
|
|
|
static int |
|
roffout(void *arg, int tok) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
if (0 == p->pos && ! mbuf_indent(p)) |
|
return(0); |
|
|
|
p->last = MD_OUT; |
|
|
|
if ( ! mbuf_nputstring(p, "</", 2)) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, "inline:", 7)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, toknames[tok])) |
|
return(0); |
|
return(mbuf_nputstring(p, ">", 1)); |
|
} |
|
|
|
|
|
static void |
|
roffmsg(void *arg, enum roffmsg lvl, |
|
const char *buf, const char *pos, char *msg) |
|
{ |
|
char *level; |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
switch (lvl) { |
|
case (ROFF_WARN): |
|
if ( ! (MD_WARN_ALL & p->args->warnings)) |
|
return; |
|
level = "warning"; |
|
break; |
|
case (ROFF_ERROR): |
|
level = "error"; |
|
break; |
|
default: |
|
abort(); |
|
} |
|
|
|
if (pos) |
|
(void)fprintf(stderr, "%s:%zu: %s: %s (column %zu)\n", |
|
p->rbuf->name, p->rbuf->line, level, |
|
msg, pos - buf); |
|
else |
|
(void)fprintf(stderr, "%s: %s: %s\n", |
|
p->rbuf->name, level, msg); |
|
|
|
} |
|
|
|
|
|
static int |
|
roffdata(void *arg, int space, char *buf) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
if ( ! mbuf_data(p, space, buf)) |
|
return(0); |
|
|
|
p->last = MD_TEXT; |
|
return(1); |
|
} |
|