version 1.8, 2008/12/02 13:20:24 |
version 1.10, 2008/12/03 14:39:59 |
|
|
* 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 MAXINDENT 8 |
|
#define COLUMNS 72 |
|
|
|
enum md_ns { |
static ssize_t xml_endtag(struct md_mbuf *, |
MD_NS_BLOCK, |
const struct md_args *, |
MD_NS_INLINE, |
enum md_ns, int); |
MD_NS_DEFAULT |
static ssize_t xml_begintag(struct md_mbuf *, |
}; |
const struct md_args *, |
|
enum md_ns, int, |
|
const int *, const char **); |
|
|
enum md_tok { |
static ssize_t |
MD_BLKIN, /* Controls spacing. */ |
xml_begintag(struct md_mbuf *mbuf, const struct md_args *args, |
MD_BLKOUT, |
enum md_ns ns, int tok, |
MD_IN, |
const int *argc, const char **argv) |
MD_OUT, |
|
MD_TEXT |
|
}; |
|
|
|
struct md_xml { |
|
const struct md_args *args; |
|
const struct md_rbuf *rbuf; |
|
|
|
struct md_mbuf *mbuf; |
|
struct rofftree *tree; |
|
size_t indent; |
|
size_t pos; |
|
enum md_tok last; |
|
int flags; |
|
#define MD_LITERAL (1 << 0) /* TODO */ |
|
#define MD_OVERRIDE_ONE (1 << 1) |
|
#define MD_OVERRIDE_ALL (1 << 2) |
|
}; |
|
|
|
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, int *, char **, char **); |
|
|
|
static void mbuf_mode(struct md_xml *, enum md_ns); |
|
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_puts(struct md_xml *, const char *); |
|
static int mbuf_nputs(struct md_xml *, |
|
const char *, size_t); |
|
static int mbuf_begintag(struct md_xml *, const char *, |
|
enum md_ns, int *, char **); |
|
static int mbuf_endtag(struct md_xml *, |
|
const char *, enum md_ns); |
|
|
|
|
|
static void |
|
mbuf_mode(struct md_xml *p, enum md_ns ns) |
|
{ |
{ |
p->flags &= ~MD_OVERRIDE_ONE; |
size_t res; |
p->last = ns; |
|
} |
|
|
|
|
res = 0; |
|
|
static int |
|
mbuf_begintag(struct md_xml *p, const char *name, enum md_ns ns, |
|
int *argc, char **argv) |
|
{ |
|
int i; |
|
|
|
if ( ! mbuf_nputs(p, "<", 1)) |
|
return(0); |
|
|
|
switch (ns) { |
switch (ns) { |
case (MD_NS_BLOCK): |
case (MD_NS_BLOCK): |
if ( ! mbuf_nputs(p, "block:", 6)) |
if ( ! ml_nputs(mbuf, "block:", 6, &res)) |
return(0); |
return(-1); |
break; |
break; |
case (MD_NS_INLINE): |
case (MD_NS_INLINE): |
if ( ! mbuf_nputs(p, "inline:", 7)) |
if ( ! ml_nputs(mbuf, "inline:", 7, &res)) |
return(0); |
return(-1); |
break; |
break; |
default: |
default: |
break; |
if ( ! ml_nputs(mbuf, "mbuf", 4, &res)) |
|
return(-1); |
|
return((ssize_t)res); |
} |
} |
|
|
if ( ! mbuf_puts(p, name)) |
if ( ! ml_nputs(mbuf, toknames[tok], |
return(0); |
strlen(toknames[tok]), &res)) |
|
return(-1); |
|
|
for (i = 0; ROFF_ARGMAX != argc[i]; i++) { |
return((ssize_t)res); |
if ( ! mbuf_nputs(p, " ", 1)) |
|
return(0); |
|
if ( ! mbuf_puts(p, tokargnames[argc[i]])) |
|
return(0); |
|
if ( ! mbuf_nputs(p, "=\"", 2)) |
|
return(0); |
|
if ( ! mbuf_putstring(p, argv[i] ? argv[i] : "true")) |
|
return(0); |
|
if ( ! mbuf_nputs(p, "\"", 1)) |
|
return(0); |
|
} |
|
return(mbuf_nputs(p, ">", 1)); |
|
} |
} |
|
|
|
|
static int |
static ssize_t |
mbuf_endtag(struct md_xml *p, const char *tag, enum md_ns ns) |
xml_endtag(struct md_mbuf *mbuf, const struct md_args *args, |
|
enum md_ns ns, int tok) |
{ |
{ |
if ( ! mbuf_nputs(p, "</", 2)) |
size_t res; |
return(0); |
|
|
|
|
res = 0; |
|
|
switch (ns) { |
switch (ns) { |
case (MD_NS_BLOCK): |
case (MD_NS_BLOCK): |
if ( ! mbuf_nputs(p, "block:", 6)) |
if ( ! ml_nputs(mbuf, "block:", 6, &res)) |
return(0); |
return(-1); |
break; |
break; |
case (MD_NS_INLINE): |
case (MD_NS_INLINE): |
if ( ! mbuf_nputs(p, "inline:", 7)) |
if ( ! ml_nputs(mbuf, "inline:", 7, &res)) |
return(0); |
return(-1); |
break; |
break; |
default: |
default: |
break; |
if ( ! ml_nputs(mbuf, "mbuf", 4, &res)) |
|
return(-1); |
|
return((ssize_t)res); |
} |
} |
|
|
if ( ! mbuf_puts(p, tag)) |
if ( ! ml_nputs(mbuf, toknames[tok], |
return(0); |
strlen(toknames[tok]), &res)) |
return(mbuf_nputs(p, ">", 1)); |
return(-1); |
} |
|
|
|
|
return((ssize_t)res); |
static int |
|
mbuf_putstring(struct md_xml *p, const char *buf) |
|
{ |
|
|
|
return(mbuf_nputstring(p, buf, strlen(buf))); |
|
} |
} |
|
|
|
|
static int |
|
mbuf_nputstring(struct md_xml *p, const char *buf, size_t sz) |
|
{ |
|
int i; |
|
|
|
for (i = 0; i < (int)sz; i++) { |
|
switch (buf[i]) { |
|
case ('&'): |
|
if ( ! md_buf_puts(p->mbuf, "&", 5)) |
|
return(0); |
|
p->pos += 5; |
|
break; |
|
case ('"'): |
|
if ( ! md_buf_puts(p->mbuf, """, 6)) |
|
return(0); |
|
p->pos += 6; |
|
break; |
|
case ('<'): |
|
if ( ! md_buf_puts(p->mbuf, "<", 4)) |
|
return(0); |
|
p->pos += 4; |
|
break; |
|
case ('>'): |
|
if ( ! md_buf_puts(p->mbuf, ">", 4)) |
|
return(0); |
|
p->pos += 4; |
|
break; |
|
default: |
|
if ( ! md_buf_putchar(p->mbuf, buf[i])) |
|
return(0); |
|
p->pos++; |
|
break; |
|
} |
|
} |
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
mbuf_nputs(struct md_xml *p, const char *buf, size_t sz) |
|
{ |
|
|
|
p->pos += sz; |
|
return(md_buf_puts(p->mbuf, buf, sz)); |
|
} |
|
|
|
|
|
static int |
|
mbuf_puts(struct md_xml *p, const char *buf) |
|
{ |
|
|
|
return(mbuf_nputs(p, buf, strlen(buf))); |
|
} |
|
|
|
|
|
static int |
|
mbuf_indent(struct md_xml *p) |
|
{ |
|
size_t i; |
|
|
|
assert(p->pos == 0); |
|
|
|
/* LINTED */ |
|
for (i = 0; i < MIN(p->indent, MAXINDENT); i++) |
|
if ( ! md_buf_putstring(p->mbuf, " ")) |
|
return(0); |
|
|
|
p->pos += i * 4; |
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
mbuf_newline(struct md_xml *p) |
|
{ |
|
|
|
if ( ! md_buf_putchar(p->mbuf, '\n')) |
|
return(0); |
|
|
|
p->pos = 0; |
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
mbuf_data(struct md_xml *p, int space, char *buf) |
|
{ |
|
size_t sz; |
|
char *bufp; |
|
|
|
assert(p->mbuf); |
|
assert(0 != p->indent); |
|
|
|
if (MD_OVERRIDE_ONE & p->flags || MD_OVERRIDE_ALL & p->flags) |
|
space = 0; |
|
|
|
if (MD_LITERAL & p->flags) |
|
return(mbuf_putstring(p, buf)); |
|
|
|
while (*buf) { |
|
while (*buf && isspace(*buf)) |
|
buf++; |
|
|
|
if (0 == *buf) |
|
break; |
|
|
|
bufp = buf; |
|
while (*buf && ! isspace(*buf)) |
|
buf++; |
|
|
|
if (0 != *buf) |
|
*buf++ = 0; |
|
|
|
sz = strlen(bufp); |
|
|
|
if (0 == p->pos) { |
|
if ( ! mbuf_indent(p)) |
|
return(0); |
|
if ( ! mbuf_nputstring(p, bufp, sz)) |
|
return(0); |
|
if (p->indent * MAXINDENT + sz >= COLUMNS) |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
if ( ! (MD_OVERRIDE_ALL & p->flags)) |
|
space = 1; |
|
continue; |
|
} |
|
|
|
if (space && sz + p->pos >= COLUMNS) { |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
if ( ! mbuf_indent(p)) |
|
return(0); |
|
} else if (space) { |
|
if ( ! mbuf_nputs(p, " ", 1)) |
|
return(0); |
|
} |
|
|
|
if ( ! mbuf_nputstring(p, bufp, sz)) |
|
return(0); |
|
|
|
if ( ! (MD_OVERRIDE_ALL & p->flags)) |
|
space = 1; |
|
} |
|
|
|
return(1); |
|
} |
|
|
|
|
|
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, xml_endtag)); |
cb.rofftail = rofftail; |
|
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_puts(p, "<?xml version=\"1.0\" " |
|
"encoding=\"UTF-8\"?>\n")) |
|
return(0); |
|
if ( ! mbuf_puts(p, "<mdoc xmlns:block=\"block\" " |
|
"xmlns:special=\"special\" " |
|
"xmlns:inline=\"inline\">")) |
|
return(0); |
|
|
|
p->indent++; |
|
mbuf_mode(p, 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); |
|
|
|
mbuf_mode(p, MD_BLKOUT); |
|
if ( ! mbuf_endtag(p, "mdoc", MD_NS_DEFAULT)) |
|
return(0); |
|
return(mbuf_newline(p)); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
roffspecial(void *arg, int tok, int *argc, char **argv, char **more) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
/* FIXME: this is completely ad hoc. */ |
|
|
|
switch (tok) { |
|
case (ROFF_Ns): |
|
p->flags |= MD_OVERRIDE_ONE; |
|
break; |
|
case (ROFF_Sm): |
|
assert(*more); |
|
if (0 == strcmp(*more, "on")) |
|
p->flags |= MD_OVERRIDE_ALL; |
|
else |
|
p->flags &= ~MD_OVERRIDE_ALL; |
|
break; |
|
default: |
|
break; |
|
} |
|
|
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
roffblkin(void *arg, int tok, int *argc, char **argv) |
|
{ |
|
struct md_xml *p; |
|
|
|
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); |
|
|
|
/* FIXME: xml won't like standards args (e.g., p1003.1-90). */ |
|
|
|
p->indent++; |
|
mbuf_mode(p, MD_BLKIN); |
|
|
|
if ( ! mbuf_begintag(p, toknames[tok], MD_NS_BLOCK, |
|
argc, argv)) |
|
return(0); |
|
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); |
|
|
|
mbuf_mode(p, MD_BLKOUT); |
|
if ( ! mbuf_endtag(p, toknames[tok], MD_NS_BLOCK)) |
|
return(0); |
|
return(mbuf_newline(p)); |
|
} |
|
|
|
|
|
static int |
|
roffin(void *arg, int tok, int *argc, char **argv) |
|
{ |
|
struct md_xml *p; |
|
|
|
assert(arg); |
|
p = (struct md_xml *)arg; |
|
|
|
if ( ! (MD_OVERRIDE_ONE & p->flags) && |
|
! (MD_OVERRIDE_ALL & p->flags) && |
|
p->pos + 11 > COLUMNS) |
|
if ( ! mbuf_newline(p)) |
|
return(0); |
|
|
|
if (0 != p->pos && (MD_TEXT == p->last || MD_OUT == p->last) |
|
&& ! (MD_OVERRIDE_ONE & p->flags) |
|
&& ! (MD_OVERRIDE_ALL & p->flags)) |
|
if ( ! mbuf_nputs(p, " ", 1)) |
|
return(0); |
|
|
|
if (0 == p->pos && ! mbuf_indent(p)) |
|
return(0); |
|
|
|
mbuf_mode(p, MD_IN); |
|
return(mbuf_begintag(p, toknames[tok], |
|
MD_NS_INLINE, argc, argv)); |
|
} |
|
|
|
|
|
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); |
|
|
|
mbuf_mode(p, MD_OUT); |
|
return(mbuf_endtag(p, toknames[tok], MD_NS_INLINE)); |
|
} |
|
|
|
|
|
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); |
|
|
|
mbuf_mode(p, MD_TEXT); |
|
return(1); |
|
} |
} |
|
|