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.7 and 1.62

version 1.7, 2009/09/24 11:55:28

version 1.62, 2010/05/13 06:22:11

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 "out.h"

#include "html.h"

#include "mdoc.h"

#include "main.h"

#define INDENT 5

#define HALFINDENT 3

Line 35

Line 38

#define MDOC_ARGS const struct mdoc_meta *m, \

const struct mdoc_node *n, \

struct html *h

#define MAN_ARGS const struct man_meta *m, \

const struct man_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 49 static void print_mdoc_head(MDOC_ARGS);

Line 53 static void print_mdoc_head(MDOC_ARGS);

static void print_mdoc_node(MDOC_ARGS);

static void print_mdoc_nodelist(MDOC_ARGS);

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);

static int mdoc_ad_pre(MDOC_ARGS);

static int mdoc_an_pre(MDOC_ARGS);

static int mdoc_ap_pre(MDOC_ARGS);

Line 94 static void mdoc_fo_post(MDOC_ARGS);

Line 97 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, int, int,

struct roffsu *, struct roffsu *);

static int mdoc_it_head_pre(MDOC_ARGS, int,

struct roffsu *);

static int mdoc_it_body_pre(MDOC_ARGS, int);

static int mdoc_it_pre(MDOC_ARGS);

static int mdoc_lb_pre(MDOC_ARGS);

static int mdoc_li_pre(MDOC_ARGS);

Line 125 static int mdoc_vt_pre(MDOC_ARGS);

Line 133 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 172 static const struct htmlmdoc mdocs[MDOC_MAX] = {

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

{mdoc_va_pre, NULL}, /* Va */

{mdoc_vt_pre, NULL}, /* Vt */

{mdoc_xr_pre, NULL}, /* Xr */

{NULL, NULL}, /* %A */

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

{NULL, NULL}, /* %B */

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

{NULL, NULL}, /* %D */

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

{NULL, NULL}, /* %I */

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

{NULL, NULL}, /* %J */

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

{NULL, NULL}, /* %N */

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

{NULL, NULL}, /* %O */

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

{NULL, NULL}, /* %P */

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

{NULL, NULL}, /* %R */

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

{NULL, NULL}, /* %T */

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

{NULL, NULL}, /* %V */

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

{NULL, NULL}, /* Ac */

{mdoc_aq_pre, mdoc_aq_post}, /* Ao */

{mdoc_aq_pre, mdoc_aq_post}, /* Aq */

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

Line 200 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 244 static const struct htmlmdoc mdocs[MDOC_MAX] = {

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

{mdoc_brq_pre, mdoc_brq_post}, /* Brq */

{mdoc_brq_pre, mdoc_brq_post}, /* Bro */

{NULL, NULL}, /* Brc */

{NULL, NULL}, /* %C */

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

{NULL, NULL}, /* Es */ /* TODO */

{NULL, NULL}, /* En */ /* TODO */

{mdoc_xx_pre, NULL}, /* Dx */

{NULL, NULL}, /* %Q */

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

{mdoc_sp_pre, NULL}, /* br */

{mdoc_sp_pre, NULL}, /* sp */

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

};

static char buf[BUFSIZ]; /* XXX */

#define bufcat(x) (void)strlcat(buf, (x), BUFSIZ)

#define bufinit() buf[0] = 0

#define buffmt(...) (void)snprintf(buf, BUFSIZ - 1, __VA_ARGS__)

void

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

{

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

Line 266 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 276 html_mdoc(void *arg, const struct mdoc *m)

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

}

* Return the list type for `Bl', e.g., `Bl -column' returns

* MDOC_Column. This can ONLY be run for lists; it will abort() if no

* list type is found.

static int

a2list(const struct mdoc_node *n)

{

int i;

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

assert(n->args);

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

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

case (MDOC_Enum):

Line 317 a2list(const struct mdoc_node *n)

Line 319 a2list(const struct mdoc_node *n)

}

static int

a2width(const char *p)

* 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, len;

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

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

return(0);

su->unit = SCALE_EM;

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

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

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

}

break;

if (i == len - 1)

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

return(atoi(p) + 2);

return(len + 2);

}

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 388 print_mdoc(MDOC_ARGS)

Line 384 print_mdoc(MDOC_ARGS)

static void

print_mdoc_head(MDOC_ARGS)

{

char b[BUFSIZ];

print_gen_head(h);

bufinit(h);

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

(void)snprintf(b, BUFSIZ - 1,

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

if (m->arch) {

(void)strlcat(b, " (", BUFSIZ);

bufcat(h, " (");

(void)strlcat(b, m->arch, BUFSIZ);

bufcat(h, m->arch);

(void)strlcat(b, ")", BUFSIZ);

bufcat(h, ")");

}

print_otag(h, TAG_TITLE, 0, NULL);

print_text(h, b);

print_text(h, h->buf);

}

Line 423 print_mdoc_node(MDOC_ARGS)

Line 417 print_mdoc_node(MDOC_ARGS)

struct tag *t;

child = 1;

t = SLIST_FIRST(&h->tags);

t = h->tags.head;

bufinit();

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)

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

Line 445 print_mdoc_node(MDOC_ARGS)

Line 438 print_mdoc_node(MDOC_ARGS)

print_stagq(h, t);

bufinit();

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)

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

Line 465 print_mdoc_node(MDOC_ARGS)

Line 455 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 500 mdoc_root_post(MDOC_ARGS)

Line 496 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 515 mdoc_root_pre(MDOC_ARGS)

Line 511 mdoc_root_pre(MDOC_ARGS)

(void)snprintf(title, BUFSIZ - 1,

"%s(%d)", 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: 33%;";

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: 33%; 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: 33%; 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 550 mdoc_sh_pre(MDOC_ARGS)

Line 555 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(nn->string);

if (nn->next)

bufcat(" ");

}

tag[0].key = ATTR_NAME;

tag[0].val = 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("margin-top: 1em;");

SCALE_VS_INIT(&su, 1);

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

if (NULL == n->next)

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

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

tag[1].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[1].val = buf;

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

buffmt("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 = buf;

}

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

PAIR_ID_INIT(&tag[1], buf);

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

Line 602 mdoc_sh_pre(MDOC_ARGS)

Line 601 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("margin-bottom: 1em;");

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

tag[i].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[i++].val = 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("margin-top: 1em;");

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

tag[i].key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag[1], h);

tag[i++].val = 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("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 = buf;

print_otag(h, TAG_DIV, 2, tag);

print_otag(h, TAG_SPAN, 1, tag);

bufinit();

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

bufcat(nn->string);

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

if (nn->next)

bufcat(" ");

html_idcat(buf, " ", BUFSIZ);

}

tag[0].key = ATTR_NAME;

tag[0].val = 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 660 mdoc_fl_pre(MDOC_ARGS)

Line 656 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 681 mdoc_nd_pre(MDOC_ARGS)

Line 684 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 699 mdoc_op_pre(MDOC_ARGS)

Line 702 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 726 mdoc_nm_pre(MDOC_ARGS)

Line 729 mdoc_nm_pre(MDOC_ARGS)

{

struct htmlpair tag;

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

if (SEC_SYNOPSIS == n->sec &&

if (SEC_SYNOPSIS == n->sec) {

n->prev && MDOC_LINE & n->flags) {

tag.key = ATTR_STYLE;

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

tag.val = "clear: both;";

PAIR_STYLE_INIT(&tag, h);

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

}

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "name");

tag.val = "name";

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

if (NULL == n->child)

print_text(h, m->name);

Line 749 static int

Line 750 static int

mdoc_xr_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

const char *name, *sec;

const struct mdoc_node *nn;

nn = n->child;

if (NULL == n->child)

name = nn && nn->string ? nn->string : "";

return(0);

nn = nn ? nn->next : NULL;

sec = nn && nn->string ? nn->string : "";

buffmt("%s%s%s.html", name, name && sec ? "." : "", sec);

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

tag[0].key = ATTR_CLASS;

if (h->base_man) {

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

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

tag[1].key = ATTR_HREF;

n->child->next ?

tag[1].val = buf;

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

print_otag(h, TAG_A, 2, tag);

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

print_otag(h, TAG_A, 2, tag);

} else

print_otag(h, TAG_A, 1, tag);

nn = n->child;

print_text(h, nn->string);

if (NULL == (nn = nn->next))

return(0);

Line 776 mdoc_xr_pre(MDOC_ARGS)

Line 778 mdoc_xr_pre(MDOC_ARGS)

print_text(h, nn->string);

h->flags |= HTML_NOSPACE;

print_text(h, ")");

return(0);

}

Line 797 mdoc_ar_pre(MDOC_ARGS)

Line 798 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 817 mdoc_xx_pre(MDOC_ARGS)

Line 816 mdoc_xx_pre(MDOC_ARGS)

pp = "BSDI BSD/OS";

break;

case (MDOC_Dx):

pp = "DragonFlyBSD";

pp = "DragonFly";

break;

case (MDOC_Fx):

pp = "FreeBSD";

Line 835 mdoc_xx_pre(MDOC_ARGS)

Line 834 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 851 mdoc_bx_pre(MDOC_ARGS)

Line 848 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 869 mdoc_bx_pre(MDOC_ARGS)

Line 864 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, int 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):

assert(nn->args);

/* FALLTHROUGH */

case (MDOC_Item):

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

/* FALLTHROUGH */

case (MDOC_Ohang):

if (MDOC_Column == type) {

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

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

break;

SCALE_HS_INIT(width, 0);

default:

/* Also disallow non-compact. */

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

comp = 1;

break;

}

if (MDOC_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");

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

if (offs->scale > 0)

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

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

else if (NULL == n->prev)

if (width->scale > 0)

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

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

PAIR_STYLE_INIT(&tag, h);

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

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

if (MDOC_BLOCK != nn->type)

continue;

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

comp = 1;

if (nn->prev)

break;

}

tag.key = ATTR_STYLE;

if ( ! comp) {

tag.val = 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 902 mdoc_tbl_block_pre(MDOC_ARGS, int t, int w, int o, int

Line 919 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, int type)

{

struct htmlpair tag;

struct roffsu su;

print_otag(h, TAG_DIV, 0, NULL);

switch (type) {

case (MDOC_Item):

/* FALLTHROUGH */

case (MDOC_Ohang):

/* FALLTHROUGH */

case (MDOC_Column):

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, int type, struct roffsu *width)

{

struct htmlpair tag;

struct ord *ord;

char nbuf[BUFSIZ];

switch (t) {

switch (type) {

case (MDOC_Item):

/* FALLTHROUGH */

return(0);

case (MDOC_Ohang):

print_otag(h, TAG_DIV, 0, NULL);

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

break;

return(1);

case (MDOC_Column):

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

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

bufcat("clear: none;");

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

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

bufcat("float: left;");

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

tag.key = ATTR_STYLE;

PAIR_STYLE_INIT(&tag, h);

tag.val = buf;

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

break;

default:

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

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

w, w ? w - 1 : 0);

SCALE_INVERT(width);

bufcat("clear: left;");

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

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

bufcat("float: left;");

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

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

tag.key = ATTR_STYLE;

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

tag.val = 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):

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "diag");

tag.val = "diag";

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

break;

case (MDOC_Enum):

ord = SLIST_FIRST(&h->ords);

ord = h->ords.head;

assert(ord);

nbuf[BUFSIZ - 1] = 0;

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

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

Line 1014 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, type, wp, comp;

const struct mdoc_node *bl, *nn;

struct roffsu width, offs;

* 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;

/* FIXME: fmt_vspace() equivalent. */

type = a2list(bl);

assert(bl->args);

/* Set default width and offset. */

w = o = c = 0;

SCALE_HS_INIT(&offs, 0);

wp = -1;

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

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

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):

/* FALLTHROUGH */

Line 1022 mdoc_tbl_pre(MDOC_ARGS, int type)

Line 1044 mdoc_tbl_pre(MDOC_ARGS, int type)

case (MDOC_Hyphen):

/* FALLTHROUGH */

case (MDOC_Bullet):

if (w < 4)

SCALE_HS_INIT(&width, 2);

w = 4;

break;

default:

SCALE_HS_INIT(&width, INDENT);

break;

}

/* Get width, offset, and compact arguments. */

for (wp = -1, comp = i = 0; i < (int)bl->args->argc; i++)

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

case (MDOC_Column):

wp = i; /* Save for later. */

break;

case (MDOC_Width):

a2width(bl->args->argv[i].value[0], &width);

break;

case (MDOC_Offset):

a2offs(bl->args->argv[i].value[0], &offs);

break;

case (MDOC_Compact):

comp = 1;

break;

default:

break;

}

/* Override width in some cases. */

switch (type) {

case (MDOC_Ohang):

/* FALLTHROUGH */

case (MDOC_Item):

/* FALLTHROUGH */

case (MDOC_Inset):

/* FALLTHROUGH */

case (MDOC_Diag):

w = 1;

SCALE_HS_INIT(&width, 0);

break;

default:

if (0 == w)

if (0 == width.scale)

w = 10;

SCALE_HS_INIT(&width, INDENT);

break;

}

switch (n->type) {

/* Flip to body/block processing. */

case (MDOC_BLOCK):

break;

if (MDOC_BODY == n->type)

case (MDOC_HEAD):

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

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

if (MDOC_BLOCK == n->type)

case (MDOC_BODY):

return(mdoc_it_block_pre(m, n, h, type, comp,

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

&offs, &width));

default:

abort();

/* Override column widths. */

/* NOTREACHED */

if (MDOC_Column == type) {

nn = n->parent->child;

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

/* Counter... */ ;

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

a2width(bl->args->argv[wp].value[i], &width);

}

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

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

}

Line 1058 mdoc_bl_pre(MDOC_ARGS)

Line 1117 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))

return(1);

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 1085 mdoc_bl_post(MDOC_ARGS)

Line 1148 mdoc_bl_post(MDOC_ARGS)

if (MDOC_Enum != a2list(n))

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 1114 mdoc_ex_pre(MDOC_ARGS)

Line 1163 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 1224 mdoc_em_pre(MDOC_ARGS)

Line 1271 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 1236 mdoc_em_pre(MDOC_ARGS)

Line 1281 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("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 = buf;

PAIR_STYLE_INIT(&tag[1], h);

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

Line 1259 mdoc_sx_pre(MDOC_ARGS)

Line 1304 mdoc_sx_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

const struct mdoc_node *nn;

char buf[BUFSIZ];

bufcat("#");

strlcpy(buf, "#", BUFSIZ);

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

bufcat(nn->string);

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

if (nn->next)

bufcat(" ");

html_idcat(buf, " ", BUFSIZ);

}

tag[0].key = ATTR_HREF;

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

tag[0].val = 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 1307 static int

Line 1351 static int

mdoc_bd_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

int t, c, o, i;

int type, comp, i;

const struct mdoc_node *bl;

const struct mdoc_node *bl, *nn;

struct roffsu su;

/* FIXME: fmt_vspace() shit. */

if (MDOC_BLOCK == n->type)

bl = n;

else if (MDOC_HEAD == n->type)

Line 1319 mdoc_bd_pre(MDOC_ARGS)

Line 1362 mdoc_bd_pre(MDOC_ARGS)

else

bl = n->parent;

t = o = c = 0;

SCALE_VS_INIT(&su, 0);

type = comp = 0;

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

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

case (MDOC_Offset):

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

a2offs(bl->args->argv[i].value[0], &su);

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

break;

case (MDOC_Compact):

c = 1;

comp = 1;

break;

case (MDOC_Centred):

/* FALLTHROUGH */

case (MDOC_Ragged):

/* FALLTHROUGH */

case (MDOC_Filled):

Line 1337 mdoc_bd_pre(MDOC_ARGS)

Line 1382 mdoc_bd_pre(MDOC_ARGS)

case (MDOC_Unfilled):

/* FALLTHROUGH */

case (MDOC_Literal):

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

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

break;

default:

break;

}

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

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

if (MDOC_BLOCK == n->type) {

if (o)

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

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

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

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

if (MDOC_BLOCK != nn->type)

tag[0].key = ATTR_STYLE;

continue;

tag[0].val = buf;

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

comp = 1;

if (nn->prev)

break;

}

if (comp) {

print_otag(h, TAG_DIV, 0, 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);

}

switch (t) {

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

case (MDOC_Unfilled):

case (MDOC_Literal):

break;

default:

return(1);

}

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

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

tag[0].key = ATTR_STYLE;

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

tag[0].val = buf;

PAIR_STYLE_INIT(&tag[1], h);

tag[1].key = ATTR_CLASS;

tag[1].val = "lit";

print_otag(h, TAG_DIV, 2, tag);

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

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

h->flags |= HTML_NOSPACE;

print_mdoc_node(m, n, h);

print_mdoc_node(m, nn, h);

if (n->next)

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 1384 mdoc_pa_pre(MDOC_ARGS)

Line 1441 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 1398 mdoc_ad_pre(MDOC_ARGS)

Line 1453 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 1411 mdoc_an_pre(MDOC_ARGS)

Line 1465 mdoc_an_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

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

tag.val = "author";

PAIR_CLASS_INIT(&tag, "author");

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

return(1);

}

Line 1424 mdoc_cd_pre(MDOC_ARGS)

Line 1479 mdoc_cd_pre(MDOC_ARGS)

{

struct htmlpair tag;

tag.key = ATTR_CLASS;

print_otag(h, TAG_DIV, 0, NULL);

tag.val = "config";

PAIR_CLASS_INIT(&tag, "config");

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

return(1);

}

Line 1437 mdoc_dv_pre(MDOC_ARGS)

Line 1492 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 1450 mdoc_ev_pre(MDOC_ARGS)

Line 1504 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 1463 mdoc_er_pre(MDOC_ARGS)

Line 1516 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 1478 mdoc_fa_pre(MDOC_ARGS)

Line 1530 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 1505 mdoc_fa_pre(MDOC_ARGS)

Line 1555 mdoc_fa_pre(MDOC_ARGS)

static int

mdoc_fd_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct roffsu su;

if (SEC_SYNOPSIS == n->sec) {

if (SEC_SYNOPSIS == n->sec && MDOC_LINE & n->flags) {

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

tag.key = ATTR_STYLE;

SCALE_VS_INIT(&su, 1);

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

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

PAIR_STYLE_INIT(&tag, h);

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 1527 mdoc_fd_pre(MDOC_ARGS)

Line 1578 mdoc_fd_pre(MDOC_ARGS)

static int

mdoc_vt_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct roffsu su;

if (SEC_SYNOPSIS == n->sec) {

if (SEC_SYNOPSIS == n->sec && MDOC_BLOCK == n->type) {

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

tag.key = ATTR_STYLE;

SCALE_VS_INIT(&su, 1);

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

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

PAIR_STYLE_INIT(&tag, h);

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

} else

print_otag(h, TAG_DIV, 0, NULL);

}

return(1);

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

return(0);

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "type");

tag.val = "type";

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

return(1);

}

Line 1549 mdoc_vt_pre(MDOC_ARGS)

Line 1604 mdoc_vt_pre(MDOC_ARGS)

static int

mdoc_ft_pre(MDOC_ARGS)

{

struct htmlpair tag;

if (SEC_SYNOPSIS == n->sec) {

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

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

print_otag(h, TAG_DIV, 0, NULL);

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;

PAIR_CLASS_INIT(&tag, "ftype");

tag.val = "ftype";

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

return(1);

}

Line 1572 static int

Line 1620 static int

mdoc_fn_pre(MDOC_ARGS)

{

struct tag *t;

struct htmlpair tag;

struct htmlpair tag[2];

const struct mdoc_node *nn;

char nbuf[BUFSIZ];

const char *sp, *ep;

int sz;

int sz, i;

struct roffsu su;

if (SEC_SYNOPSIS == n->sec) {

if (SEC_SYNOPSIS == n->sec && MDOC_LINE & n->flags) {

SCALE_HS_INIT(&su, INDENT);

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

su.scale = -su.scale;

bufcat_su(h, "text-indent", &su);

if (n->next) {

tag.key = ATTR_STYLE;

SCALE_VS_INIT(&su, 1);

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

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

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

}

} else

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_DIV, 0, NULL);

print_otag(h, TAG_DIV, 1, tag);

}

/* Split apart into type and name. */

tag.key = ATTR_CLASS;

tag.val = "ftype";

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

assert(n->child->string);

sp = n->child->string;

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

sz = MIN(ep - sp, BUFSIZ - 1);

ep = strchr(sp, ' ');

(void)memcpy(nbuf, sp, sz);

if (NULL != ep) {

nbuf[sz] = '\0';

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

print_text(h, nbuf);

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

sp = ++ep;

while (ep) {

sz = MIN((int)(ep - sp), BUFSIZ - 1);

(void)memcpy(nbuf, sp, (size_t)sz);

nbuf[sz] = '\0';

print_text(h, nbuf);

sp = ++ep;

ep = strchr(sp, ' ');

}

print_tagq(h, t);

}

print_tagq(h, t);

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

tag.key = ATTR_CLASS;

tag.val = "fname";

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

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

#if 0

if (SEC_SYNOPSIS == n->sec) {

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 1619 mdoc_fn_pre(MDOC_ARGS)

Line 1690 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) {

tag.key = ATTR_CLASS;

i = 1;

tag.val = "farg";

if (SEC_SYNOPSIS == n->sec)

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

i = 2;

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

print_text(h, nn->string);

print_tagq(h, t);

if (nn->next)

Line 1630 mdoc_fn_pre(MDOC_ARGS)

Line 1707 mdoc_fn_pre(MDOC_ARGS)

}

print_text(h, ")");

if (SEC_SYNOPSIS == n->sec)

print_text(h, ";");

Line 1642 mdoc_fn_pre(MDOC_ARGS)

Line 1718 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):

Line 1657 mdoc_sp_pre(MDOC_ARGS)

Line 1735 mdoc_sp_pre(MDOC_ARGS)

break;

}

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

SCALE_VS_INIT(&su, len);

tag.key = ATTR_STYLE;

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

tag.val = 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 1700 mdoc_lk_pre(MDOC_ARGS)

Line 1781 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 1725 mdoc_mt_pre(MDOC_ARGS)

Line 1803 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();

bufinit(h);

bufcat("mailto:");

bufcat(h, "mailto:");

bufcat(nn->string);

bufcat(h, nn->string);

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

tag[1].key = ATTR_HREF;

tag[1].val = buf;

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

print_text(h, nn->string);

print_tagq(h, t);

Line 1750 static int

Line 1824 static int

mdoc_fo_pre(MDOC_ARGS)

{

struct htmlpair tag;

struct roffsu su;

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 && n->next) {

SCALE_VS_INIT(&su, 1);

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

PAIR_STYLE_INIT(&tag, h);

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

return(1);

}

tag.key = ATTR_CLASS;

PAIR_CLASS_INIT(&tag, "fname");

tag.val = "fname";

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

return(1);

}

Line 1784 static int

Line 1863 static int

mdoc_in_pre(MDOC_ARGS)

{

const struct mdoc_node *nn;

struct htmlpair tag;

struct tag *t;

struct htmlpair tag[2];

int i;

struct roffsu su;

if (SEC_SYNOPSIS == n->sec) {

if (SEC_SYNOPSIS == n->sec && MDOC_LINE & n->flags) {

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

tag.key = ATTR_STYLE;

SCALE_VS_INIT(&su, 1);

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

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

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

PAIR_STYLE_INIT(&tag[0], h);

print_otag(h, TAG_DIV, 1, tag);

} else

print_otag(h, TAG_DIV, 0, NULL);

}

tag.key = ATTR_CLASS;

/* FIXME: there's a buffer bug in here somewhere. */

tag.val = "includes";

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

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

print_otag(h, TAG_SPAN, 1, tag);

if (SEC_SYNOPSIS == n->sec)

print_text(h, "#include");

Line 1808 mdoc_in_pre(MDOC_ARGS)

Line 1891 mdoc_in_pre(MDOC_ARGS)

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

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

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

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

i = 1;

bufinit(h);

if (h->base_includes) {

buffmt_includes(h, nn->string);

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

i++;

}

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

print_mdoc_node(m, nn, h);

print_tagq(h, t);

}

h->flags |= HTML_NOSPACE;

print_text(h, ">");

Line 1824 mdoc_ic_pre(MDOC_ARGS)

Line 1918 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 1841 mdoc_rv_pre(MDOC_ARGS)

Line 1933 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 1868 mdoc_rv_pre(MDOC_ARGS)

Line 1958 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 1884 mdoc_va_pre(MDOC_ARGS)

Line 1973 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 1932 mdoc_ap_pre(MDOC_ARGS)

Line 2020 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)

return(1);

tag[0].key = ATTR_CLASS;

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

tag[0].val = NULL;

if (n->head->child) {

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

tag[0].val = "emph";

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

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

tag[0].val = "symb";

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

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

tag[0].val = "lit";

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

} else {

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";

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

break;

case (MDOC_Literal):

tag[0].val = "lit";

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

break;

case (MDOC_Emphasis):

tag[0].val = "emph";

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

break;

default:

break;

Line 1970 mdoc_bf_pre(MDOC_ARGS)

Line 2058 mdoc_bf_pre(MDOC_ARGS)

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

assert(tag[0].val);

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

tag[1].key = ATTR_STYLE;

SCALE_HS_INIT(&su, 1);

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

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

PAIR_STYLE_INIT(&tag[1], h);

print_otag(h, TAG_DIV, 2, tag);

return(1);

}

Line 1984 mdoc_ms_pre(MDOC_ARGS)

Line 2073 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 2015 mdoc_pf_post(MDOC_ARGS)

Line 2103 mdoc_pf_post(MDOC_ARGS)

static int

mdoc_rs_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

struct htmlpair tag;

int i;

struct roffsu su;

if (MDOC_BLOCK != n->type)

return(1);

tag[i = 0].key = ATTR_CLASS;

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

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

SCALE_VS_INIT(&su, 1);

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

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

PAIR_STYLE_INIT(&tag, h);

tag[i].key = ATTR_STYLE;

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

tag[i++].val = "margin-top: 1em;";

} else if (SEC_SYNOPSIS != n->sec) {

tag[i].key = ATTR_STYLE;

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

}

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

PAIR_CLASS_INIT(&tag, "ref");

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

print_otag(h, TAG_DIV, i, tag);

return(1);

}

Line 2046 mdoc_li_pre(MDOC_ARGS)

Line 2129 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 2060 mdoc_sy_pre(MDOC_ARGS)

Line 2141 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 2094 mdoc_lb_pre(MDOC_ARGS)

Line 2173 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);

}

/* ARGSUSED */

static int

mdoc__x_pre(MDOC_ARGS)

{

struct htmlpair tag[2];

switch (n->tok) {

case(MDOC__A):

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

break;

case(MDOC__B):

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

break;

case(MDOC__C):

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

break;

case(MDOC__D):

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

break;

case(MDOC__I):

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

break;

case(MDOC__J):

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

break;

case(MDOC__N):

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

break;

case(MDOC__O):

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

break;

case(MDOC__P):

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

break;

case(MDOC__Q):

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

break;

case(MDOC__R):

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

break;

case(MDOC__T):

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

break;

case(MDOC__U):

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

break;

case(MDOC__V):

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

break;

default:

abort();

/* NOTREACHED */

}

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);

}

/* ARGSUSED */

static void

mdoc__x_post(MDOC_ARGS)

{

/* TODO: %U */

h->flags |= HTML_NOSPACE;

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

}

CVSweb