mandoc/mdoc_html.c - diff

Return to mdoc_html.c CVS log

Up to [cvsweb.bsd.lv] / mandoc

Diff for /mandoc/mdoc_html.c between version 1.20 and 1.97

version 1.20, 2009/10/03 19:57:53

version 1.97, 2010/07/19 11:06:31

Line 1

/* $Id$ */

* Permission to use, copy, modify, and distribute this software for any

* purpose with or without fee is hereby granted, provided that the above

Line 14

* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include <sys/types.h>

#include <sys/param.h>

#include <sys/queue.h>

#include <assert.h>

#include <ctype.h>

#include <err.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include "mandoc.h"

#include "out.h"

#include "html.h"

#include "mdoc.h"

#include "main.h"

#define INDENT 5

#define HALFINDENT 3

Line 36

Line 40

const struct mdoc_node *n, \

struct html *h

#ifndef MIN

#define MIN(a,b) ((/*CONSTCOND*/(a)<(b))?(a):(b))

#endif

struct htmlmdoc {

int (*pre)(MDOC_ARGS);

void (*post)(MDOC_ARGS);

Line 45 static void print_mdoc(MDOC_ARGS);

Line 53 static void print_mdoc(MDOC_ARGS);

static void print_mdoc_head(MDOC_ARGS);

static void print_mdoc_node(MDOC_ARGS);

static void print_mdoc_nodelist(MDOC_ARGS);

static void synopsis_pre(struct html *,

const struct mdoc_node *);

static int a2width(const char *);

static void a2width(const char *, struct roffsu *);

static int a2offs(const char *);

static void a2offs(const char *, struct roffsu *);

static int a2list(const struct mdoc_node *);

static void mdoc_root_post(MDOC_ARGS);

static int mdoc_root_pre(MDOC_ARGS);

static int mdoc_tbl_pre(MDOC_ARGS, int);

static int mdoc_tbl_block_pre(MDOC_ARGS, int, int, int, int);

static int mdoc_tbl_body_pre(MDOC_ARGS, int, int);

static int mdoc_tbl_head_pre(MDOC_ARGS, int, int);

static void mdoc__x_post(MDOC_ARGS);

static int mdoc__x_pre(MDOC_ARGS);

Line 67 static int mdoc_aq_pre(MDOC_ARGS);

Line 72 static int mdoc_aq_pre(MDOC_ARGS);

static int mdoc_ar_pre(MDOC_ARGS);

static int mdoc_bd_pre(MDOC_ARGS);

static int mdoc_bf_pre(MDOC_ARGS);

static void mdoc_bk_post(MDOC_ARGS);

static int mdoc_bk_pre(MDOC_ARGS);

static void mdoc_bl_post(MDOC_ARGS);

static int mdoc_bl_pre(MDOC_ARGS);

static void mdoc_bq_post(MDOC_ARGS);

Line 93 static void mdoc_fo_post(MDOC_ARGS);

Line 100 static void mdoc_fo_post(MDOC_ARGS);

static int mdoc_fo_pre(MDOC_ARGS);

static int mdoc_ic_pre(MDOC_ARGS);

static int mdoc_in_pre(MDOC_ARGS);

static int mdoc_it_block_pre(MDOC_ARGS, enum mdoc_list,

int, struct roffsu *, struct roffsu *);

static int mdoc_it_head_pre(MDOC_ARGS, enum mdoc_list,

struct roffsu *);

static int mdoc_it_body_pre(MDOC_ARGS, enum mdoc_list,

struct roffsu *);

static int mdoc_it_pre(MDOC_ARGS);

static int mdoc_lb_pre(MDOC_ARGS);

static int mdoc_li_pre(MDOC_ARGS);

Line 124 static int mdoc_vt_pre(MDOC_ARGS);

Line 137 static int mdoc_vt_pre(MDOC_ARGS);

static int mdoc_xr_pre(MDOC_ARGS);

static int mdoc_xx_pre(MDOC_ARGS);

#ifdef __linux__

extern size_t strlcpy(char *, const char *, size_t);

extern size_t strlcat(char *, const char *, size_t);

#endif

static const struct htmlmdoc mdocs[MDOC_MAX] = {

{mdoc_ap_pre, NULL}, /* Ap */

{NULL, NULL}, /* Dd */

Line 196 static const struct htmlmdoc mdocs[MDOC_MAX] = {

Line 204 static const struct htmlmdoc mdocs[MDOC_MAX] = {

{NULL, NULL}, /* Dc */

{mdoc_dq_pre, mdoc_dq_post}, /* Do */

{mdoc_dq_pre, mdoc_dq_post}, /* Dq */

{NULL, NULL}, /* Ec */

{NULL, NULL}, /* Ec */ /* FIXME: no space */

{NULL, NULL}, /* Ef */

{mdoc_em_pre, NULL}, /* Em */

{NULL, NULL}, /* Eo */

Line 230 static const struct htmlmdoc mdocs[MDOC_MAX] = {

Line 238 static const struct htmlmdoc mdocs[MDOC_MAX] = {

{NULL, NULL}, /* Fc */

{mdoc_op_pre, mdoc_op_post}, /* Oo */

{NULL, NULL}, /* Oc */

{NULL, NULL}, /* Bk */

{mdoc_bk_pre, mdoc_bk_post}, /* Bk */

{NULL, NULL}, /* Ek */

{mdoc_bt_pre, NULL}, /* Bt */

{NULL, NULL}, /* Hf */

Line 250 static const struct htmlmdoc mdocs[MDOC_MAX] = {

Line 258 static const struct htmlmdoc mdocs[MDOC_MAX] = {

{mdoc__x_pre, mdoc__x_post}, /* %Q */

{mdoc_sp_pre, NULL}, /* br */

{mdoc_sp_pre, NULL}, /* sp */

{mdoc__x_pre, mdoc__x_post}, /* %U */

{NULL, NULL}, /* Ta */

};

Line 261 html_mdoc(void *arg, const struct mdoc *m)

Line 271 html_mdoc(void *arg, const struct mdoc *m)

h = (struct html *)arg;

print_gen_doctype(h);

print_gen_decls(h);

t = print_otag(h, TAG_HTML, 0, NULL);

print_mdoc(mdoc_meta(m), mdoc_node(m), h);

print_tagq(h, t);

Line 270 html_mdoc(void *arg, const struct mdoc *m)

Line 280 html_mdoc(void *arg, const struct mdoc *m)

}

static int

a2list(const struct mdoc_node *n)

* Calculate the scaling unit passed in a `-width' argument. This uses

* either a native scaling unit (e.g., 1i, 2m) or the string length of

* the value.

static void

a2width(const char *p, struct roffsu *su)

{

int i;

assert(MDOC_BLOCK == n->type && MDOC_Bl == n->tok);

if ( ! a2roffsu(p, su, SCALE_MAX)) {

assert(n->args);

su->unit = SCALE_EM;

su->scale = (int)strlen(p);

for (i = 0; i < (int)n->args->argc; i++)

}

switch (n->args->argv[i].arg) {

case (MDOC_Enum):

/* FALLTHROUGH */

case (MDOC_Dash):

/* FALLTHROUGH */

case (MDOC_Hyphen):

/* FALLTHROUGH */

case (MDOC_Bullet):

/* FALLTHROUGH */

case (MDOC_Tag):

/* FALLTHROUGH */

case (MDOC_Hang):

/* FALLTHROUGH */

case (MDOC_Inset):

/* FALLTHROUGH */

case (MDOC_Diag):

/* FALLTHROUGH */

case (MDOC_Item):

/* FALLTHROUGH */

case (MDOC_Column):

/* FALLTHROUGH */

case (MDOC_Ohang):

return(n->args->argv[i].arg);

default:

break;

}

abort();

/* NOTREACHED */

}

static int

a2width(const char *p)

* See the same function in mdoc_term.c for documentation.

static void

synopsis_pre(struct html *h, const struct mdoc_node *n)

{

int i, len;

struct roffsu su;

struct htmlpair tag;

if (0 == (len = (int)strlen(p)))

if (NULL == n->prev || ! (MDOC_SYNPRETTY & n->flags))

return(0);

return;

for (i = 0; i < len - 1; i++)

if ( ! isdigit((u_char)p[i]))

break;

if (i == len - 1)

SCALE_VS_INIT(&su, 1);

if ('n' == p[len - 1] || 'm' == p[len - 1])

bufcat_su(h, "margin-top", &su);

return(atoi(p) + 2);

PAIR_STYLE_INIT(&tag, h);

return(len + 2);

if (n->prev->tok == n->tok &&

MDOC_Fo != n->tok &&

MDOC_Ft != n->tok &&

MDOC_Fn != n->tok) {

print_otag(h, TAG_DIV, 0, NULL);

return;

}

switch (n->prev->tok) {

case (MDOC_Fd):

/* FALLTHROUGH */

case (MDOC_Fn):

/* FALLTHROUGH */

case (MDOC_Fo):

/* FALLTHROUGH */

case (MDOC_In):

/* FALLTHROUGH */

case (MDOC_Vt):

print_otag(h, TAG_DIV, 1, &tag);

break;

case (MDOC_Ft):

if (MDOC_Fn != n->tok && MDOC_Fo != n->tok) {

print_otag(h, TAG_DIV, 1, &tag);

break;

}

/* FALLTHROUGH */

default:

print_otag(h, TAG_DIV, 0, NULL);

break;

}

static int

a2offs(const char *p)

* Calculate the scaling unit passed in an `-offset' argument. This

* uses either a native scaling unit (e.g., 1i, 2m), one of a set of

* predefined strings (indent, etc.), or the string length of the value.

static void

a2offs(const char *p, struct roffsu *su)

{

int len, i;

if (0 == strcmp(p, "left"))

/* FIXME: "right"? */

return(0);

if (0 == strcmp(p, "indent"))

return(INDENT + 1);

if (0 == strcmp(p, "indent-two"))

return((INDENT + 1) * 2);

if (0 == (len = (int)strlen(p)))

if (0 == strcmp(p, "left"))

return(0);

SCALE_HS_INIT(su, 0);

else if (0 == strcmp(p, "indent"))

for (i = 0; i < len - 1; i++)

SCALE_HS_INIT(su, INDENT);

if ( ! isdigit((u_char)p[i]))

else if (0 == strcmp(p, "indent-two"))

break;

SCALE_HS_INIT(su, INDENT * 2);

else if ( ! a2roffsu(p, su, SCALE_MAX)) {

if (i == len - 1)

su->unit = SCALE_EM;

if ('n' == p[len - 1] || 'm' == p[len - 1])

su->scale = (int)strlen(p);

return(atoi(p));

}

return(len);

}

Line 385 print_mdoc_head(MDOC_ARGS)

Line 397 print_mdoc_head(MDOC_ARGS)

print_gen_head(h);

bufinit(h);

buffmt(h, "%s(%d)", m->title, m->msec);

buffmt(h, "%s(%s)", m->title, m->msec);

if (m->arch) {

bufcat(h, " (");

Line 415 print_mdoc_node(MDOC_ARGS)

Line 427 print_mdoc_node(MDOC_ARGS)

struct tag *t;

child = 1;

t = SLIST_FIRST(&h->tags);

t = h->tags.head;

bufinit(h);

switch (n->type) {

case (MDOC_ROOT):

child = mdoc_root_pre(m, n, h);

break;

case (MDOC_TEXT):

print_text(h, n->string);

break;

return;

default:

if (mdocs[n->tok].pre)

if (mdocs[n->tok].pre && ENDBODY_NOT == n->end)

child = (*mdocs[n->tok].pre)(m, n, h);

break;

}

if (HTML_KEEP & h->flags) {

if (n->prev && n->prev->line != n->line) {

h->flags &= ~HTML_KEEP;

h->flags |= HTML_PREKEEP;

} else if (NULL == n->prev) {

if (n->parent && n->parent->line != n->line) {

h->flags &= ~HTML_KEEP;

h->flags |= HTML_PREKEEP;

}

if (child && n->child)

print_mdoc_nodelist(m, n->child, h);

print_stagq(h, t);

bufinit(h);

switch (n->type) {

case (MDOC_ROOT):

mdoc_root_post(m, n, h);

break;

case (MDOC_TEXT):

break;

default:

if (mdocs[n->tok].post)

if (mdocs[n->tok].post && ENDBODY_NOT == n->end)

(*mdocs[n->tok].post)(m, n, h);

break;

}

Line 457 print_mdoc_node(MDOC_ARGS)

Line 477 print_mdoc_node(MDOC_ARGS)

static void

mdoc_root_post(MDOC_ARGS)

{

struct tm tm;

struct htmlpair tag[3];

struct htmlpair tag[2];

struct tag *t, *tt;

char b[BUFSIZ];

char b[DATESIZ];

(void)localtime_r(&m->date, &tm);

time2a(m->date, b, DATESIZ);

if (0 == strftime(b, BUFSIZ - 1, "%B %e, %Y", &tm))

err(EXIT_FAILURE, "strftime");

* XXX: this should use divs, but in Firefox, divs with nested

* divs for some reason puke when trying to put a border line

* below. So I use tables, instead.

tag[0].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "footer");

tag[0].val = "footer";

bufcat_style(h, "width", "100%");

tag[1].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[1].val = "width: 100%;";

PAIR_SUMMARY_INIT(&tag[2], "footer");

t = print_otag(h, TAG_TABLE, 2, tag);

t = print_otag(h, TAG_TABLE, 3, tag);

tt = print_otag(h, TAG_TR, 0, NULL);

tag[0].key = ATTR_STYLE;

bufinit(h);

tag[0].val = "width: 50%;";

bufcat_style(h, "width", "50%");

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_TD, 1, tag);

print_text(h, b);

print_stagq(h, tt);

tag[0].key = ATTR_STYLE;

bufinit(h);

tag[0].val = "width: 50%; text-align: right;";

bufcat_style(h, "width", "50%");

bufcat_style(h, "text-align", "right");

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_TD, 1, tag);

print_text(h, m->os);

print_tagq(h, t);

Line 492 mdoc_root_post(MDOC_ARGS)

Line 518 mdoc_root_post(MDOC_ARGS)

static int

mdoc_root_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

struct htmlpair tag[3];

struct tag *t, *tt;

char b[BUFSIZ], title[BUFSIZ];

Line 505 mdoc_root_pre(MDOC_ARGS)

Line 531 mdoc_root_pre(MDOC_ARGS)

}

(void)snprintf(title, BUFSIZ - 1,

"%s(%d)", m->title, m->msec);

"%s(%s)", m->title, m->msec);

tag[0].key = ATTR_CLASS;

/* XXX: see note in mdoc_root_post() about divs. */

tag[0].val = "header";

tag[1].key = ATTR_STYLE;

PAIR_CLASS_INIT(&tag[0], "header");

tag[1].val = "width: 100%;";

bufcat_style(h, "width", "100%");

t = print_otag(h, TAG_TABLE, 2, tag);

PAIR_STYLE_INIT(&tag[1], h);

PAIR_SUMMARY_INIT(&tag[2], "header");

t = print_otag(h, TAG_TABLE, 3, tag);

tt = print_otag(h, TAG_TR, 0, NULL);

tag[0].key = ATTR_STYLE;

bufinit(h);

tag[0].val = "width: 10%;";

bufcat_style(h, "width", "10%");

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_TD, 1, tag);

print_text(h, title);

print_stagq(h, tt);

tag[0].key = ATTR_STYLE;

bufinit(h);

tag[0].val = "width: 80%; white-space: nowrap; text-align: center;";

bufcat_style(h, "text-align", "center");

bufcat_style(h, "white-space", "nowrap");

bufcat_style(h, "width", "80%");

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_TD, 1, tag);

print_text(h, b);

print_stagq(h, tt);

tag[0].key = ATTR_STYLE;

bufinit(h);

tag[0].val = "width: 10%; text-align: right;";

bufcat_style(h, "text-align", "right");

bufcat_style(h, "width", "10%");

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_TD, 1, tag);

print_text(h, title);

print_tagq(h, t);

return(1);

}

Line 542 mdoc_sh_pre(MDOC_ARGS)

Line 577 mdoc_sh_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

const struct mdoc_node *nn;

char buf[BUFSIZ];

struct roffsu su;

if (MDOC_HEAD == n->type) {

if (MDOC_BODY == n->type) {

tag[0].key = ATTR_CLASS;

SCALE_HS_INIT(&su, INDENT);

tag[0].val = "sec-head";

bufcat_su(h, "margin-left", &su);

print_otag(h, TAG_DIV, 1, tag);

PAIR_CLASS_INIT(&tag[0], "sec-body");

print_otag(h, TAG_SPAN, 1, tag);

PAIR_STYLE_INIT(&tag[1], h);

print_otag(h, TAG_DIV, 2, tag);

for (nn = n->child; nn; nn = nn->next) {

bufcat(h, nn->string);

if (nn->next)

bufncat(h, " ", 1);

}

tag[0].key = ATTR_NAME;

tag[0].val = h->buf;

print_otag(h, TAG_A, 1, tag);

return(1);

} else if (MDOC_BLOCK == n->type) {

tag[0].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "sec-block");

tag[0].val = "sec-block";

if (n->prev && NULL == n->prev->body->child) {

print_otag(h, TAG_DIV, 1, tag);

return(1);

}

bufcat(h, "margin-top: 1em;");

SCALE_VS_INIT(&su, 1);

bufcat_su(h, "margin-top", &su);

if (NULL == n->next)

bufcat(h, "margin-bottom: 1em;");

bufcat_su(h, "margin-bottom", &su);

tag[1].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[1].val = h->buf;

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

buffmt(h, "margin-left: %dem;", INDENT);

buf[0] = '\0';

for (nn = n->child; nn; nn = nn->next) {

tag[0].key = ATTR_CLASS;

html_idcat(buf, nn->string, BUFSIZ);

tag[0].val = "sec-body";

if (nn->next)

tag[1].key = ATTR_STYLE;

html_idcat(buf, " ", BUFSIZ);

tag[1].val = h->buf;

}

PAIR_CLASS_INIT(&tag[0], "sec-head");

PAIR_ID_INIT(&tag[1], buf);

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

Line 594 mdoc_sh_pre(MDOC_ARGS)

Line 623 mdoc_sh_pre(MDOC_ARGS)

static int

mdoc_ss_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

struct htmlpair tag[3];

int i;

const struct mdoc_node *nn;

char buf[BUFSIZ];

struct roffsu su;

i = 0;

SCALE_VS_INIT(&su, 1);

if (MDOC_BODY == n->type) {

tag[i].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "ssec-body");

tag[i++].val = "ssec-body";

if (n->parent->next && n->child) {

bufcat(h, "margin-bottom: 1em;");

bufcat_su(h, "margin-bottom", &su);

tag[i].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[i++].val = h->buf;

print_otag(h, TAG_DIV, 2, tag);

}

} else

print_otag(h, TAG_DIV, i, tag);

print_otag(h, TAG_DIV, 1, tag);

return(1);

} else if (MDOC_BLOCK == n->type) {

tag[i].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "ssec-block");

tag[i++].val = "ssec-block";

if (n->prev) {

bufcat(h, "margin-top: 1em;");

bufcat_su(h, "margin-top", &su);

tag[i].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[i++].val = h->buf;

print_otag(h, TAG_DIV, 2, tag);

}

} else

print_otag(h, TAG_DIV, i, tag);

print_otag(h, TAG_DIV, 1, tag);

return(1);

}

buffmt(h, "margin-left: -%dem;", INDENT - HALFINDENT);

/* TODO: see note in mdoc_sh_pre() about duplicates. */

tag[0].key = ATTR_CLASS;

buf[0] = '\0';

tag[0].val = "ssec-head";

tag[1].key = ATTR_STYLE;

tag[1].val = h->buf;

print_otag(h, TAG_DIV, 2, tag);

print_otag(h, TAG_SPAN, 1, tag);

bufinit(h);

for (nn = n->child; nn; nn = nn->next) {

bufcat(h, nn->string);

html_idcat(buf, nn->string, BUFSIZ);

if (nn->next)

bufcat(h, " ");

html_idcat(buf, " ", BUFSIZ);

}

tag[0].key = ATTR_NAME;

tag[0].val = h->buf;

print_otag(h, TAG_A, 1, tag);

SCALE_HS_INIT(&su, INDENT - HALFINDENT);

su.scale = -su.scale;

bufcat_su(h, "margin-left", &su);

PAIR_CLASS_INIT(&tag[0], "ssec-head");

PAIR_STYLE_INIT(&tag[1], h);

PAIR_ID_INIT(&tag[2], buf);

print_otag(h, TAG_DIV, 3, tag);

return(1);

}

Line 652 mdoc_fl_pre(MDOC_ARGS)

Line 678 mdoc_fl_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "flag");

tag.val = "flag";

print_otag(h, TAG_SPAN, 1, &tag);

if (MDOC_Fl == n->tok) {

print_text(h, "\\-");

/* `Cm' has no leading hyphen. */

if (MDOC_Cm == n->tok)

return(1);

print_text(h, "\\-");

if (n->child)

h->flags |= HTML_NOSPACE;

}

else if (n->next && n->next->line == n->line)

h->flags |= HTML_NOSPACE;

return(1);

}

Line 673 mdoc_nd_pre(MDOC_ARGS)

Line 706 mdoc_nd_pre(MDOC_ARGS)

if (MDOC_BODY != n->type)

return(1);

/* XXX - this can contain block elements! */

/* XXX: this tag in theory can contain block elements. */

print_text(h, "\\(em");

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "desc-body");

tag.val = "desc-body";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 691 mdoc_op_pre(MDOC_ARGS)

Line 724 mdoc_op_pre(MDOC_ARGS)

if (MDOC_BODY != n->type)

return(1);

/* XXX - this can contain block elements! */

/* XXX: this tag in theory can contain block elements. */

print_text(h, "\\(lB");

h->flags |= HTML_NOSPACE;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "opt");

tag.val = "opt";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 716 mdoc_op_post(MDOC_ARGS)

Line 749 mdoc_op_post(MDOC_ARGS)

static int

mdoc_nm_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct roffsu su;

const char *cp;

if ( ! (HTML_NEWLINE & h->flags))

if (SEC_SYNOPSIS == n->sec) {

* Accomodate for `Nm' being both an element (which may have

tag.key = ATTR_STYLE;

* NULL children AND no m->name) and a block.

tag.val = "clear: both;";

print_otag(h, TAG_BR, 1, &tag);

cp = NULL;

if (MDOC_ELEM == n->type) {

if (NULL == n->child && NULL == m->name)

return(1);

synopsis_pre(h, n);

PAIR_CLASS_INIT(&tag, "name");

print_otag(h, TAG_SPAN, 1, &tag);

if (NULL == n->child)

print_text(h, m->name);

} else if (MDOC_BLOCK == n->type) {

synopsis_pre(h, n);

bufcat_style(h, "clear", "both");

if (n->head->child || m->name) {

if (n->head->child && MDOC_TEXT ==

n->head->child->type)

cp = n->head->child->string;

if (NULL == cp || '\0' == *cp)

cp = m->name;

SCALE_HS_INIT(&su, (double)strlen(cp));

bufcat_su(h, "padding-left", &su);

}

tag.key = ATTR_CLASS;

PAIR_STYLE_INIT(&tag, h);

tag.val = "name";

print_otag(h, TAG_DIV, 1, &tag);

} else if (MDOC_HEAD == n->type) {

if (NULL == n->child && NULL == m->name)

return(1);

print_otag(h, TAG_SPAN, 1, &tag);

if (n->child && MDOC_TEXT == n->child->type)

if (NULL == n->child)

cp = n->child->string;

print_text(h, m->name);

if (NULL == cp || '\0' == *cp)

cp = m->name;

SCALE_HS_INIT(&su, (double)strlen(cp));

bufcat_style(h, "float", "left");

bufcat_su(h, "min-width", &su);

SCALE_INVERT(&su);

bufcat_su(h, "margin-left", &su);

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

if (NULL == n->child)

print_text(h, m->name);

} else if (MDOC_BODY == n->type) {

SCALE_HS_INIT(&su, 2);

bufcat_su(h, "margin-left", &su);

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

}

return(1);

}

Line 742 mdoc_xr_pre(MDOC_ARGS)

Line 823 mdoc_xr_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

const struct mdoc_node *nn;

int i;

i = 0;

if (NULL == n->child)

tag[i].key = ATTR_CLASS;

return(0);

tag[i++].val = "link-man";

PAIR_CLASS_INIT(&tag[0], "link-man");

if (h->base_man) {

buffmt_man(h, n->child->string, n->child->next ?

buffmt_man(h, n->child->string,

n->child->next ?

n->child->next->string : NULL);

tag[i].key = ATTR_HREF;

PAIR_HREF_INIT(&tag[1], h->buf);

tag[i++].val = h->buf;

print_otag(h, TAG_A, 2, tag);

}

} else

print_otag(h, TAG_A, 1, tag);

print_otag(h, TAG_A, i, tag);

nn = n->child;

print_text(h, nn->string);

Line 769 mdoc_xr_pre(MDOC_ARGS)

Line 850 mdoc_xr_pre(MDOC_ARGS)

print_text(h, nn->string);

h->flags |= HTML_NOSPACE;

print_text(h, ")");

return(0);

}

Line 790 mdoc_ar_pre(MDOC_ARGS)

Line 870 mdoc_ar_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "arg");

tag.val = "arg";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 810 mdoc_xx_pre(MDOC_ARGS)

Line 888 mdoc_xx_pre(MDOC_ARGS)

pp = "BSDI BSD/OS";

break;

case (MDOC_Dx):

pp = "DragonFlyBSD";

pp = "DragonFly";

break;

case (MDOC_Fx):

pp = "FreeBSD";

Line 828 mdoc_xx_pre(MDOC_ARGS)

Line 906 mdoc_xx_pre(MDOC_ARGS)

return(1);

}

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "unix");

tag.val = "unix";

print_otag(h, TAG_SPAN, 1, &tag);

print_text(h, pp);

return(1);

Line 844 mdoc_bx_pre(MDOC_ARGS)

Line 920 mdoc_bx_pre(MDOC_ARGS)

const struct mdoc_node *nn;

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "unix");

tag.val = "unix";

print_otag(h, TAG_SPAN, 1, &tag);

for (nn = n->child; nn; nn = nn->next)

Line 862 mdoc_bx_pre(MDOC_ARGS)

Line 936 mdoc_bx_pre(MDOC_ARGS)

/* ARGSUSED */

static int

mdoc_tbl_block_pre(MDOC_ARGS, int t, int w, int o, int c)

mdoc_it_block_pre(MDOC_ARGS, enum mdoc_list type, int comp,

struct roffsu *offs, struct roffsu *width)

{

struct htmlpair tag;

const struct mdoc_node *nn;

struct roffsu su;

switch (t) {

nn = n->parent->parent;

case (MDOC_Column):

/* FALLTHROUGH */

/* XXX: see notes in mdoc_it_pre(). */

case (MDOC_Item):

/* FALLTHROUGH */

if (LIST_column == type) {

case (MDOC_Ohang):

/* Don't width-pad on the left. */

buffmt(h, "margin-left: %dem; clear: both;", o);

SCALE_HS_INIT(width, 0);

break;

/* Also disallow non-compact. */

default:

comp = 1;

buffmt(h, "margin-left: %dem; clear: both;", w + o);

break;

}

if (LIST_diag == type)

/* Mandate non-compact with empty prior. */

if (n->prev && NULL == n->prev->body->child)

comp = 1;

if ( ! c && MDOC_Column != t) {

bufcat_style(h, "clear", "both");

for (nn = n; nn; nn = nn->parent) {

if (offs->scale > 0)

if (MDOC_BLOCK != nn->type)

bufcat_su(h, "margin-left", offs);

continue;

if (width->scale > 0)

switch (nn->tok) {

bufcat_su(h, "padding-left", width);

case (MDOC_Ss):

/* FALLTHROUGH */

PAIR_STYLE_INIT(&tag, h);

case (MDOC_Sh):

c = 1;

/* Mandate compact following `Ss' and `Sh' starts. */

break;

default:

for (nn = n; nn && ! comp; nn = nn->parent) {

break;

if (MDOC_BLOCK != nn->type)

}

continue;

if (nn->prev)

if (MDOC_Ss == nn->tok || MDOC_Sh == nn->tok)

break;

comp = 1;

}

if (nn->prev)

if (MDOC_Diag == t && n->prev)

break;

if (NULL == n->prev->body->child)

c = 1;

if ( ! c)

bufcat(h, "padding-top: 1em;");

}

tag.key = ATTR_STYLE;

if ( ! comp) {

tag.val = h->buf;

SCALE_VS_INIT(&su, 1);

bufcat_su(h, "padding-top", &su);

}

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

return(1);

}

Line 912 mdoc_tbl_block_pre(MDOC_ARGS, int t, int w, int o, int

Line 990 mdoc_tbl_block_pre(MDOC_ARGS, int t, int w, int o, int

/* ARGSUSED */

static int

mdoc_tbl_body_pre(MDOC_ARGS, int t, int w)

mdoc_it_body_pre(MDOC_ARGS, enum mdoc_list type, struct roffsu *width)

{

struct htmlpair tag;

struct roffsu su;

print_otag(h, TAG_DIV, 0, NULL);

switch (type) {

case (LIST_item):

/* FALLTHROUGH */

case (LIST_ohang):

/* FALLTHROUGH */

case (LIST_column):

bufcat_su(h, "min-width", width);

bufcat_style(h, "clear", "none");

if (n->next)

bufcat_style(h, "float", "left");

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

break;

default:

* XXX: this tricks CSS into aligning the bodies with

* the right-padding in the head.

SCALE_HS_INIT(&su, 2);

bufcat_su(h, "margin-left", &su);

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

break;

}

return(1);

}

/* ARGSUSED */

static int

mdoc_tbl_head_pre(MDOC_ARGS, int t, int w)

mdoc_it_head_pre(MDOC_ARGS, enum mdoc_list type, struct roffsu *width)

{

struct htmlpair tag;

struct ord *ord;

char nbuf[BUFSIZ];

switch (t) {

switch (type) {

case (MDOC_Item):

case (LIST_item):

/* FALLTHROUGH */

return(0);

case (MDOC_Ohang):

case (LIST_ohang):

print_otag(h, TAG_DIV, 0, NULL);

print_otag(h, TAG_DIV, 0, &tag);

return(1);

case (LIST_column):

break;

case (MDOC_Column):

buffmt(h, "min-width: %dem;", w);

bufcat(h, "clear: none;");

if (n->next && MDOC_HEAD == n->next->type)

bufcat(h, "float: left;");

tag.key = ATTR_STYLE;

tag.val = h->buf;

print_otag(h, TAG_DIV, 1, &tag);

break;

default:

buffmt(h, "margin-left: -%dem; min-width: %dem;",

bufcat_su(h, "min-width", width);

w, w ? w - 1 : 0);

SCALE_INVERT(width);

bufcat(h, "clear: left;");

bufcat_su(h, "margin-left", width);

if (n->next && n->next->child)

bufcat(h, "float: left;");

bufcat_style(h, "float", "left");

bufcat(h, "padding-right: 1em;");

tag.key = ATTR_STYLE;

/* XXX: buffer if we run into body. */

tag.val = h->buf;

SCALE_HS_INIT(width, 1);

bufcat_su(h, "margin-right", width);

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

break;

}

switch (t) {

switch (type) {

case (MDOC_Diag):

case (LIST_diag):

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "diag");

tag.val = "diag";

print_otag(h, TAG_SPAN, 1, &tag);

break;

case (MDOC_Enum):

case (LIST_enum):

ord = SLIST_FIRST(&h->ords);

ord = h->ords.head;

assert(ord);

nbuf[BUFSIZ - 1] = 0;

(void)snprintf(nbuf, BUFSIZ - 1, "%d.", ord->pos++);

print_text(h, nbuf);

return(0);

case (MDOC_Dash):

case (LIST_dash):

print_text(h, "\\(en");

return(0);

case (MDOC_Hyphen):

case (LIST_hyphen):

print_text(h, "\\(hy");

return(0);

case (MDOC_Bullet):

case (LIST_bullet):

print_text(h, "\\(bu");

return(0);

default:

Line 987 mdoc_tbl_head_pre(MDOC_ARGS, int t, int w)

Line 1085 mdoc_tbl_head_pre(MDOC_ARGS, int t, int w)

static int

mdoc_tbl_pre(MDOC_ARGS, int type)

mdoc_it_pre(MDOC_ARGS)

{

int i, w, o, c, wp;

int i, comp;

const struct mdoc_node *bl, *nn;

struct roffsu width, offs;

enum mdoc_list type;

* XXX: be very careful in changing anything, here. Lists in

* mandoc have many peculiarities; furthermore, they don't

* translate well into HTML and require a bit of mangling.

bl = n->parent->parent;

if (MDOC_BLOCK != n->type)

bl = bl->parent;

assert(bl->args);

SCALE_HS_INIT(&offs, 0);

w = o = c = 0;

assert(bl->data.Bl);

wp = -1;

type = bl->data.Bl->type;

comp = bl->data.Bl->comp;

for (i = 0; i < (int)bl->args->argc; i++)

if (bl->data.Bl->offs)

if (MDOC_Width == bl->args->argv[i].arg) {

a2offs(bl->data.Bl->offs, &offs);

assert(bl->args->argv[i].sz);

wp = i;

w = a2width(bl->args->argv[i].value[0]);

} else if (MDOC_Offset == bl->args->argv[i].arg) {

assert(bl->args->argv[i].sz);

o = a2offs(bl->args->argv[i].value[0]);

} else if (MDOC_Compact == bl->args->argv[i].arg)

c = 1;

if (MDOC_HEAD == n->type && MDOC_Column == type) {

nn = n->parent->child;

assert(nn && MDOC_HEAD == nn->type);

for (i = 0; nn && nn != n; nn = nn->next, i++)

/* Counter... */ ;

assert(nn);

if (wp >= 0 && i < (int)bl->args[wp].argv->sz)

w = a2width(bl->args->argv[wp].value[i]);

}

switch (type) {

case (MDOC_Enum):

case (LIST_enum):

/* FALLTHROUGH */

case (MDOC_Dash):

case (LIST_dash):

/* FALLTHROUGH */

case (MDOC_Hyphen):

case (LIST_hyphen):

/* FALLTHROUGH */

case (MDOC_Bullet):

case (LIST_bullet):

if (w < 4)

SCALE_HS_INIT(&width, 2);

w = 4;

break;

case (MDOC_Inset):

/* FALLTHROUGH */

case (MDOC_Diag):

w = 1;

break;

default:

if (0 == w)

SCALE_HS_INIT(&width, INDENT);

w = 10;

break;

}

switch (n->type) {

if (bl->data.Bl->width)

case (MDOC_BLOCK):

a2width(bl->data.Bl->width, &width);

/* Override width in some cases. */

switch (type) {

case (LIST_ohang):

/* FALLTHROUGH */

case (LIST_item):

/* FALLTHROUGH */

case (LIST_inset):

/* FALLTHROUGH */

case (LIST_diag):

SCALE_HS_INIT(&width, 0);

break;

case (MDOC_HEAD):

return(mdoc_tbl_head_pre(m, n, h, type, w));

case (MDOC_BODY):

return(mdoc_tbl_body_pre(m, n, h, type, w));

default:

abort();

if (0 == width.scale)

/* NOTREACHED */

SCALE_HS_INIT(&width, INDENT);

break;

}

return(mdoc_tbl_block_pre(m, n, h, type, w, o, c));

if (LIST_column == type && MDOC_BODY == n->type) {

nn = n->parent->child;

for (i = 0; nn && nn != n; nn = nn->next)

if (MDOC_BODY == nn->type)

i++;

if (i < (int)bl->data.Bl->ncols)

a2width(bl->data.Bl->cols[i], &width);

}

if (MDOC_HEAD == n->type)

return(mdoc_it_head_pre(m, n, h, type, &width));

else if (MDOC_BODY == n->type)

return(mdoc_it_body_pre(m, n, h, type, &width));

return(mdoc_it_block_pre(m, n, h, type, comp, &offs, &width));

}

Line 1066 mdoc_bl_pre(MDOC_ARGS)

Line 1171 mdoc_bl_pre(MDOC_ARGS)

{

struct ord *ord;

if (MDOC_HEAD == n->type)

return(0);

if (MDOC_BLOCK != n->type)

return(1);

if (MDOC_Enum != a2list(n))

assert(n->data.Bl);

if (LIST_enum != n->data.Bl->type)

return(1);

/* Allocate an -enum on the stack of indices. */

ord = malloc(sizeof(struct ord));

if (NULL == ord)

if (NULL == ord) {

err(EXIT_FAILURE, "malloc");

perror(NULL);

exit(EXIT_FAILURE);

}

ord->cookie = n;

ord->pos = 1;

SLIST_INSERT_HEAD(&h->ords, ord, entry);

ord->next = h->ords.head;

h->ords.head = ord;

return(1);

}

Line 1092 mdoc_bl_post(MDOC_ARGS)

Line 1200 mdoc_bl_post(MDOC_ARGS)

if (MDOC_BLOCK != n->type)

return;

if (MDOC_Enum != a2list(n))

if (LIST_enum != n->data.Bl->type)

return;

ord = SLIST_FIRST(&h->ords);

ord = h->ords.head;

assert(ord);

SLIST_REMOVE_HEAD(&h->ords, entry);

h->ords.head = ord->next;

free(ord);

}

static int

mdoc_it_pre(MDOC_ARGS)

{

int type;

if (MDOC_BLOCK == n->type)

type = a2list(n->parent->parent);

else

type = a2list(n->parent->parent->parent);

return(mdoc_tbl_pre(m, n, h, type));

}

/* ARGSUSED */

static int

mdoc_ex_pre(MDOC_ARGS)

Line 1124 mdoc_ex_pre(MDOC_ARGS)

Line 1218 mdoc_ex_pre(MDOC_ARGS)

struct tag *t;

struct htmlpair tag;

print_text(h, "The");

PAIR_CLASS_INIT(&tag, "utility");

tag.key = ATTR_CLASS;

print_text(h, "The");

tag.val = "utility";

for (nn = n->child; nn; nn = nn->next) {

t = print_otag(h, TAG_SPAN, 1, &tag);

print_text(h, nn->string);

Line 1144 mdoc_ex_pre(MDOC_ARGS)

Line 1236 mdoc_ex_pre(MDOC_ARGS)

h->flags &= ~HTML_NOSPACE;

}

if (n->child->next)

if (n->child && n->child->next)

print_text(h, "utilities exit");

else

print_text(h, "utility exits");

Line 1234 mdoc_em_pre(MDOC_ARGS)

Line 1326 mdoc_em_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "emph");

tag.val = "emph";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1246 mdoc_em_pre(MDOC_ARGS)

Line 1336 mdoc_em_pre(MDOC_ARGS)

static int

mdoc_d1_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

struct roffsu su;

if (MDOC_BLOCK != n->type)

return(1);

buffmt(h, "margin-left: %dem;", INDENT);

/* FIXME: D1 shouldn't be literal. */

tag[0].key = ATTR_CLASS;

SCALE_VS_INIT(&su, INDENT - 2);

tag[0].val = "lit";

bufcat_su(h, "margin-left", &su);

tag[1].key = ATTR_STYLE;

PAIR_CLASS_INIT(&tag[0], "lit");

tag[1].val = h->buf;

PAIR_STYLE_INIT(&tag[1], h);

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

Line 1269 mdoc_sx_pre(MDOC_ARGS)

Line 1359 mdoc_sx_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

const struct mdoc_node *nn;

char buf[BUFSIZ];

bufcat(h, "#");

strlcpy(buf, "#", BUFSIZ);

for (nn = n->child; nn; nn = nn->next) {

bufcat(h, nn->string);

html_idcat(buf, nn->string, BUFSIZ);

if (nn->next)

bufcat(h, " ");

html_idcat(buf, " ", BUFSIZ);

}

tag[0].key = ATTR_HREF;

PAIR_CLASS_INIT(&tag[0], "link-sec");

tag[0].val = h->buf;

PAIR_HREF_INIT(&tag[1], buf);

tag[1].key = ATTR_CLASS;

tag[1].val = "link-sec";

print_otag(h, TAG_A, 2, tag);

return(1);

Line 1317 static int

Line 1406 static int

mdoc_bd_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

int t, c, o, i;

int comp;

const struct mdoc_node *bl, *nn;

const struct mdoc_node *nn;

struct roffsu su;

if (MDOC_BLOCK == n->type)

if (MDOC_HEAD == n->type)

bl = n;

else if (MDOC_HEAD == n->type)

return(0);

else

bl = n->parent;

t = o = c = 0;

SCALE_VS_INIT(&su, 0);

for (i = 0; i < (int)bl->args->argc; i++)

assert(n->data.Bd);

switch (bl->args->argv[i].arg) {

if (n->data.Bd->offs)

case (MDOC_Offset):

a2offs(n->data.Bd->offs, &su);

assert(bl->args->argv[i].sz);

o = a2offs(bl->args->argv[i].value[0]);

break;

case (MDOC_Compact):

c = 1;

break;

case (MDOC_Ragged):

/* FALLTHROUGH */

case (MDOC_Filled):

/* FALLTHROUGH */

case (MDOC_Unfilled):

/* FALLTHROUGH */

case (MDOC_Literal):

t = bl->args->argv[i].arg;

break;

}

comp = n->data.Bd->comp;

/* FIXME: -centered, etc. formatting. */

/* FIXME: does not respect -offset ??? */

if (MDOC_BLOCK == n->type) {

if (o)

bufcat_su(h, "margin-left", &su);

buffmt(h, "margin-left: %dem;", o);

for (nn = n; nn && ! comp; nn = nn->parent) {

if ( ! c) {

if (MDOC_BLOCK != nn->type)

for (nn = n; nn; nn = nn->parent) {

continue;

if (MDOC_BLOCK != nn->type)

if (MDOC_Ss == nn->tok || MDOC_Sh == nn->tok)

continue;

comp = 1;

switch (nn->tok) {

if (nn->prev)

case (MDOC_Ss):

break;

/* FALLTHROUGH */

case (MDOC_Sh):

c = 1;

break;

default:

break;

}

if (nn->prev)

break;

}

if ( ! c)

bufcat(h, "margin-top: 1em;");

}

tag[0].key = ATTR_STYLE;

if (comp) {

tag[0].val = h->buf;

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_DIV, 1, tag);

return(1);

}

SCALE_VS_INIT(&su, 1);

bufcat_su(h, "margin-top", &su);

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_DIV, 1, tag);

return(1);

}

if (MDOC_Unfilled != t && MDOC_Literal != t)

if (DISP_unfilled != n->data.Bd->type &&

DISP_literal != n->data.Bd->type)

return(1);

bufcat(h, "white-space: pre;");

PAIR_CLASS_INIT(&tag[0], "lit");

tag[0].key = ATTR_STYLE;

bufcat_style(h, "white-space", "pre");

tag[0].val = h->buf;

PAIR_STYLE_INIT(&tag[1], h);

tag[1].key = ATTR_CLASS;

tag[1].val = "lit";

print_otag(h, TAG_DIV, 2, tag);

for (nn = n->child; nn; nn = nn->next) {

h->flags |= HTML_NOSPACE;

print_mdoc_node(m, nn, h);

if (NULL == nn->next)

continue;

if (nn->prev && nn->prev->line < nn->line)

print_text(h, "\n");

else if (NULL == nn->prev)

print_text(h, "\n");

}

return(0);

Line 1406 mdoc_pa_pre(MDOC_ARGS)

Line 1476 mdoc_pa_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "file");

tag.val = "file";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1420 mdoc_ad_pre(MDOC_ARGS)

Line 1488 mdoc_ad_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "addr");

tag.val = "addr";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1435 mdoc_an_pre(MDOC_ARGS)

Line 1502 mdoc_an_pre(MDOC_ARGS)

/* TODO: -split and -nosplit (see termp_an_pre()). */

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "author");

tag.val = "author";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1448 mdoc_cd_pre(MDOC_ARGS)

Line 1514 mdoc_cd_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

synopsis_pre(h, n);

tag.val = "config";

PAIR_CLASS_INIT(&tag, "config");

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1461 mdoc_dv_pre(MDOC_ARGS)

Line 1527 mdoc_dv_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "define");

tag.val = "define";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1474 mdoc_ev_pre(MDOC_ARGS)

Line 1539 mdoc_ev_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "env");

tag.val = "env";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1487 mdoc_er_pre(MDOC_ARGS)

Line 1551 mdoc_er_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "errno");

tag.val = "errno";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1502 mdoc_fa_pre(MDOC_ARGS)

Line 1565 mdoc_fa_pre(MDOC_ARGS)

struct htmlpair tag;

struct tag *t;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "farg");

tag.val = "farg";

if (n->parent->tok != MDOC_Fo) {

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

Line 1529 mdoc_fa_pre(MDOC_ARGS)

Line 1590 mdoc_fa_pre(MDOC_ARGS)

static int

mdoc_fd_pre(MDOC_ARGS)

{

struct htmlpair tag;

if (SEC_SYNOPSIS == n->sec) {

synopsis_pre(h, n);

if (n->next && MDOC_Fd != n->next->tok) {

tag.key = ATTR_STYLE;

tag.val = "margin-bottom: 1em;";

print_otag(h, TAG_DIV, 1, &tag);

} else

print_otag(h, TAG_DIV, 0, NULL);

}

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "macro");

tag.val = "macro";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1551 mdoc_fd_pre(MDOC_ARGS)

Line 1604 mdoc_fd_pre(MDOC_ARGS)

static int

mdoc_vt_pre(MDOC_ARGS)

{

struct htmlpair tag;

if (SEC_SYNOPSIS == n->sec) {

if (MDOC_BLOCK == n->type) {

if (n->next && MDOC_Vt != n->next->tok) {

synopsis_pre(h, n);

tag.key = ATTR_STYLE;

return(1);

tag.val = "margin-bottom: 1em;";

} else if (MDOC_ELEM == n->type) {

print_otag(h, TAG_DIV, 1, &tag);

synopsis_pre(h, n);

} else

} else if (MDOC_HEAD == n->type)

print_otag(h, TAG_DIV, 0, NULL);

return(0);

}

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "type");

tag.val = "type";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1573 mdoc_vt_pre(MDOC_ARGS)

Line 1624 mdoc_vt_pre(MDOC_ARGS)

static int

mdoc_ft_pre(MDOC_ARGS)

{

struct htmlpair tag;

if (SEC_SYNOPSIS == n->sec) {

synopsis_pre(h, n);

if (n->prev && MDOC_Fo == n->prev->tok) {

PAIR_CLASS_INIT(&tag, "ftype");

tag.key = ATTR_STYLE;

tag.val = "margin-top: 1em;";

print_otag(h, TAG_DIV, 1, &tag);

} else

print_otag(h, TAG_DIV, 0, NULL);

}

tag.key = ATTR_CLASS;

tag.val = "ftype";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1602 mdoc_fn_pre(MDOC_ARGS)

Line 1644 mdoc_fn_pre(MDOC_ARGS)

const char *sp, *ep;

int sz, i;

if (SEC_SYNOPSIS == n->sec) {

synopsis_pre(h, n);

bufcat(h, "margin-left: 6em;");

bufcat(h, "text-indent: -6em;");

if (n->next)

bufcat(h, "margin-bottom: 1em;");

tag[0].key = ATTR_STYLE;

tag[0].val = h->buf;

print_otag(h, TAG_DIV, 1, tag);

}

/* Split apart into type and name. */

assert(n->child->string);

sp = n->child->string;

if ((ep = strchr(sp, ' '))) {

ep = strchr(sp, ' ');

tag[0].key = ATTR_CLASS;

if (NULL != ep) {

tag[0].val = "ftype";

PAIR_CLASS_INIT(&tag[0], "ftype");

t = print_otag(h, TAG_SPAN, 1, tag);

while (ep) {

Line 1633 mdoc_fn_pre(MDOC_ARGS)

Line 1666 mdoc_fn_pre(MDOC_ARGS)

print_tagq(h, t);

}

tag[0].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "fname");

tag[0].val = "fname";

* FIXME: only refer to IDs that we know exist.

#if 0

if (MDOC_SYNPRETTY & n->flags) {

nbuf[0] = '\0';

html_idcat(nbuf, sp, BUFSIZ);

PAIR_ID_INIT(&tag[1], nbuf);

} else {

strlcpy(nbuf, "#", BUFSIZ);

html_idcat(nbuf, sp, BUFSIZ);

PAIR_HREF_INIT(&tag[1], nbuf);

}

#endif

t = print_otag(h, TAG_SPAN, 1, tag);

if (sp) {

(void)strlcpy(nbuf, sp, BUFSIZ);

strlcpy(nbuf, sp, BUFSIZ);

print_text(h, nbuf);

}

Line 1647 mdoc_fn_pre(MDOC_ARGS)

Line 1696 mdoc_fn_pre(MDOC_ARGS)

h->flags |= HTML_NOSPACE;

print_text(h, "(");

bufinit(h);

PAIR_CLASS_INIT(&tag[0], "farg");

bufcat_style(h, "white-space", "nowrap");

PAIR_STYLE_INIT(&tag[1], h);

for (nn = n->child->next; nn; nn = nn->next) {

i = 0;

i = 1;

tag[i].key = ATTR_CLASS;

if (MDOC_SYNPRETTY & n->flags)

tag[i++].val = "farg";

i = 2;

if (SEC_SYNOPSIS == n->sec) {

tag[i].key = ATTR_STYLE;

tag[i++].val = "white-space: nowrap;";

}

t = print_otag(h, TAG_SPAN, i, tag);

print_text(h, nn->string);

print_tagq(h, t);

Line 1664 mdoc_fn_pre(MDOC_ARGS)

Line 1713 mdoc_fn_pre(MDOC_ARGS)

}

print_text(h, ")");

if (MDOC_SYNPRETTY & n->flags)

if (SEC_SYNOPSIS == n->sec)

print_text(h, ";");

return(0);

Line 1676 mdoc_fn_pre(MDOC_ARGS)

Line 1724 mdoc_fn_pre(MDOC_ARGS)

static int

mdoc_sp_pre(MDOC_ARGS)

{

int len;

struct htmlpair tag;

struct roffsu su;

switch (n->tok) {

case (MDOC_sp):

/* FIXME: can this have a scaling indicator? */

len = n->child ? atoi(n->child->string) : 1;

break;

case (MDOC_br):

len = 0;

break;

default:

assert(n->parent);

if ((NULL == n->next || NULL == n->prev) &&

(MDOC_Ss == n->parent->tok ||

MDOC_Sh == n->parent->tok))

return(0);

len = 1;

break;

}

buffmt(h, "height: %dem", len);

SCALE_VS_INIT(&su, len);

tag.key = ATTR_STYLE;

bufcat_su(h, "height", &su);

tag.val = h->buf;

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

return(1);

/* So the div isn't empty: */

print_text(h, "\\~");

return(0);

}

Line 1734 mdoc_lk_pre(MDOC_ARGS)

Line 1792 mdoc_lk_pre(MDOC_ARGS)

nn = n->child;

tag[0].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "link-ext");

tag[0].val = "link-ext";

PAIR_HREF_INIT(&tag[1], nn->string);

tag[1].key = ATTR_HREF;

tag[1].val = nn->string;

print_otag(h, TAG_A, 2, tag);

if (NULL == nn->next)

return(1);

for (nn = nn->next; nn; nn = nn->next)

Line 1759 mdoc_mt_pre(MDOC_ARGS)

Line 1814 mdoc_mt_pre(MDOC_ARGS)

struct tag *t;

const struct mdoc_node *nn;

tag[0].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "link-mail");

tag[0].val = "link-mail";

for (nn = n->child; nn; nn = nn->next) {

bufinit(h);

bufcat(h, "mailto:");

bufcat(h, nn->string);

PAIR_HREF_INIT(&tag[1], h->buf);

tag[1].key = ATTR_HREF;

tag[1].val = h->buf;

t = print_otag(h, TAG_A, 2, tag);

print_text(h, nn->string);

print_tagq(h, t);

Line 1783 mdoc_mt_pre(MDOC_ARGS)

Line 1834 mdoc_mt_pre(MDOC_ARGS)

static int

mdoc_fo_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct tag *t;

if (MDOC_BODY == n->type) {

h->flags |= HTML_NOSPACE;

print_text(h, "(");

h->flags |= HTML_NOSPACE;

return(1);

} else if (MDOC_BLOCK == n->type)

} else if (MDOC_BLOCK == n->type) {

synopsis_pre(h, n);

return(1);

}

tag.key = ATTR_CLASS;

/* XXX: we drop non-initial arguments as per groff. */

tag.val = "fname";

print_otag(h, TAG_SPAN, 1, &tag);

assert(n->child);

return(1);

assert(n->child->string);

PAIR_CLASS_INIT(&tag, "fname");

t = print_otag(h, TAG_SPAN, 1, &tag);

print_text(h, n->child->string);

print_tagq(h, t);

return(0);

}

Line 1804 mdoc_fo_pre(MDOC_ARGS)

Line 1864 mdoc_fo_pre(MDOC_ARGS)

static void

mdoc_fo_post(MDOC_ARGS)

{

if (MDOC_BODY != n->type)

return;

h->flags |= HTML_NOSPACE;

Line 1818 static int

Line 1879 static int

mdoc_in_pre(MDOC_ARGS)

{

const struct mdoc_node *nn;

struct htmlpair tag[2];

struct tag *t;

struct htmlpair tag[2];

int i;

if (SEC_SYNOPSIS == n->sec) {

synopsis_pre(h, n);

if (n->next && MDOC_In != n->next->tok) {

tag[0].key = ATTR_STYLE;

tag[0].val = "margin-bottom: 1em;";

print_otag(h, TAG_DIV, 1, tag);

} else

print_otag(h, TAG_DIV, 0, NULL);

}

tag[0].key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag[0], "includes");

tag[0].val = "includes";

print_otag(h, TAG_SPAN, 1, tag);

if (SEC_SYNOPSIS == n->sec)

if (MDOC_SYNPRETTY & n->flags && MDOC_LINE & n->flags)

print_text(h, "#include");

print_text(h, "<");

h->flags |= HTML_NOSPACE;

/* XXX -- see warning in termp_in_post(). */

for (nn = n->child; nn; nn = nn->next) {

assert(MDOC_TEXT == nn->type);

PAIR_CLASS_INIT(&tag[0], "link-includes");

i = 0;

i = 1;

tag[i].key = ATTR_CLASS;

bufinit(h);

tag[i++].val = "link-includes";

if (h->base_includes) {

buffmt_includes(h, nn->string);

tag[i].key = ATTR_HREF;

PAIR_HREF_INIT(&tag[i], h->buf);

tag[i++].val = h->buf;

i++;

}

t = print_otag(h, TAG_A, i, tag);

print_mdoc_node(m, nn, h);

Line 1872 mdoc_ic_pre(MDOC_ARGS)

Line 1921 mdoc_ic_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "cmd");

tag.val = "cmd";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1889 mdoc_rv_pre(MDOC_ARGS)

Line 1936 mdoc_rv_pre(MDOC_ARGS)

struct tag *t;

print_otag(h, TAG_DIV, 0, NULL);

print_text(h, "The");

for (nn = n->child; nn; nn = nn->next) {

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "fname");

tag.val = "fname";

t = print_otag(h, TAG_SPAN, 1, &tag);

print_text(h, nn->string);

print_tagq(h, t);

Line 1908 mdoc_rv_pre(MDOC_ARGS)

Line 1953 mdoc_rv_pre(MDOC_ARGS)

print_text(h, "()");

}

if (n->child->next)

if (n->child && n->child->next)

print_text(h, "functions return");

else

print_text(h, "function returns");

Line 1916 mdoc_rv_pre(MDOC_ARGS)

Line 1961 mdoc_rv_pre(MDOC_ARGS)

print_text(h, "the value 0 if successful; otherwise the value "

"-1 is returned and the global variable");

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "var");

tag.val = "var";

t = print_otag(h, TAG_SPAN, 1, &tag);

print_text(h, "errno");

print_tagq(h, t);

Line 1932 mdoc_va_pre(MDOC_ARGS)

Line 1976 mdoc_va_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "var");

tag.val = "var";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 1980 mdoc_ap_pre(MDOC_ARGS)

Line 2023 mdoc_ap_pre(MDOC_ARGS)

static int

mdoc_bf_pre(MDOC_ARGS)

{

int i;

struct htmlpair tag[2];

struct roffsu su;

if (MDOC_HEAD == n->type)

return(0);

else if (MDOC_BLOCK != n->type)

else if (MDOC_BODY != n->type)

return(1);

tag[0].key = ATTR_CLASS;

assert(n->data.Bf);

tag[0].val = NULL;

if (n->head->child) {

if (FONT_Em == n->data.Bf->font)

if ( ! strcmp("Em", n->head->child->string))

PAIR_CLASS_INIT(&tag[0], "emph");

tag[0].val = "emph";

else if (FONT_Sy == n->data.Bf->font)

else if ( ! strcmp("Sy", n->head->child->string))

PAIR_CLASS_INIT(&tag[0], "symb");

tag[0].val = "symb";

else if (FONT_Li == n->data.Bf->font)

else if ( ! strcmp("Li", n->head->child->string))

PAIR_CLASS_INIT(&tag[0], "lit");

tag[0].val = "lit";

else

} else {

PAIR_CLASS_INIT(&tag[0], "none");

assert(n->args);

for (i = 0; i < (int)n->args->argc; i++)

switch (n->args->argv[i].arg) {

case (MDOC_Symbolic):

tag[0].val = "symb";

break;

case (MDOC_Literal):

tag[0].val = "lit";

break;

case (MDOC_Emphasis):

tag[0].val = "emph";

break;

default:

break;

}

/* FIXME: div's have spaces stripped--we want them. */

* We want this to be inline-formatted, but needs to be div to

assert(tag[0].val);

* accept block children.

tag[1].key = ATTR_STYLE;

tag[1].val = "display: inline; margin-right: 1em;";

bufcat_style(h, "display", "inline");

SCALE_HS_INIT(&su, 1);

/* Needs a left-margin for spacing. */

bufcat_su(h, "margin-left", &su);

PAIR_STYLE_INIT(&tag[1], h);

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

Line 2032 mdoc_ms_pre(MDOC_ARGS)

Line 2062 mdoc_ms_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "symb");

tag.val = "symb";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 2063 mdoc_pf_post(MDOC_ARGS)

Line 2092 mdoc_pf_post(MDOC_ARGS)

static int

mdoc_rs_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct roffsu su;

if (MDOC_BLOCK != n->type)

return(1);

if (n->prev && SEC_SEE_ALSO == n->sec) {

tag.key = ATTR_STYLE;

SCALE_VS_INIT(&su, 1);

tag.val = "margin-top: 1em;";

bufcat_su(h, "margin-top", &su);

PAIR_STYLE_INIT(&tag, h);

print_otag(h, TAG_DIV, 1, &tag);

}

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "ref");

tag.val = "ref";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 2088 mdoc_li_pre(MDOC_ARGS)

Line 2118 mdoc_li_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "lit");

tag.val = "lit";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 2102 mdoc_sy_pre(MDOC_ARGS)

Line 2130 mdoc_sy_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "symb");

tag.val = "symb";

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 2136 mdoc_lb_pre(MDOC_ARGS)

Line 2162 mdoc_lb_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

if (SEC_LIBRARY == n->sec && MDOC_LINE & n->flags)

tag.val = "lib";

if (SEC_SYNOPSIS == n->sec)

print_otag(h, TAG_DIV, 0, NULL);

PAIR_CLASS_INIT(&tag, "lib");

print_otag(h, TAG_SPAN, 1, &tag);

return(1);

}

Line 2151 mdoc_lb_pre(MDOC_ARGS)

Line 2174 mdoc_lb_pre(MDOC_ARGS)

static int

mdoc__x_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct htmlpair tag[2];

tag.key = ATTR_CLASS;

switch (n->tok) {

case(MDOC__A):

tag.val = "ref-auth";

PAIR_CLASS_INIT(&tag[0], "ref-auth");

break;

case(MDOC__B):

tag.val = "ref-book";

PAIR_CLASS_INIT(&tag[0], "ref-book");

break;

case(MDOC__C):

tag.val = "ref-city";

PAIR_CLASS_INIT(&tag[0], "ref-city");

break;

case(MDOC__D):

tag.val = "ref-date";

PAIR_CLASS_INIT(&tag[0], "ref-date");

break;

case(MDOC__I):

tag.val = "ref-issue";

PAIR_CLASS_INIT(&tag[0], "ref-issue");

break;

case(MDOC__J):

tag.val = "ref-jrnl";

PAIR_CLASS_INIT(&tag[0], "ref-jrnl");

break;

case(MDOC__N):

tag.val = "ref-num";

PAIR_CLASS_INIT(&tag[0], "ref-num");

break;

case(MDOC__O):

tag.val = "ref-opt";

PAIR_CLASS_INIT(&tag[0], "ref-opt");

break;

case(MDOC__P):

tag.val = "ref-page";

PAIR_CLASS_INIT(&tag[0], "ref-page");

break;

case(MDOC__Q):

tag.val = "ref-corp";

PAIR_CLASS_INIT(&tag[0], "ref-corp");

break;

case(MDOC__R):

tag.val = "ref-rep";

PAIR_CLASS_INIT(&tag[0], "ref-rep");

break;

case(MDOC__T):

print_text(h, "\\(lq");

PAIR_CLASS_INIT(&tag[0], "ref-title");

h->flags |= HTML_NOSPACE;

tag.val = "ref-title";

break;

case(MDOC__U):

PAIR_CLASS_INIT(&tag[0], "link-ref");

break;

case(MDOC__V):

tag.val = "ref-vol";

PAIR_CLASS_INIT(&tag[0], "ref-vol");

break;

default:

abort();

/* NOTREACHED */

}

print_otag(h, TAG_SPAN, 1, &tag);

if (MDOC__U != n->tok) {

print_otag(h, TAG_SPAN, 1, tag);

return(1);

}

PAIR_HREF_INIT(&tag[1], n->child->string);

print_otag(h, TAG_A, 2, tag);

return(1);

}

Line 2212 static void

Line 2240 static void

mdoc__x_post(MDOC_ARGS)

{

/* TODO: %U */

h->flags |= HTML_NOSPACE;

switch (n->tok) {

print_text(h, n->next ? "," : ".");

case (MDOC__T):

}

print_text(h, "\\(rq");

h->flags |= HTML_NOSPACE;

/* ARGSUSED */

static int

mdoc_bk_pre(MDOC_ARGS)

{

switch (n->type) {

case (MDOC_BLOCK):

break;

default:

case (MDOC_HEAD):

return(0);

case (MDOC_BODY):

h->flags |= HTML_PREKEEP;

break;

default:

abort();

/* NOTREACHED */

}

print_text(h, n->next ? "," : ".");

return(1);

}

/* ARGSUSED */

static void

mdoc_bk_post(MDOC_ARGS)

{

if (MDOC_BODY == n->type)

h->flags &= ~(HTML_KEEP | HTML_PREKEEP);

}

CVSweb