version 1.250, 2017/01/18 19:22:22 |
version 1.257, 2017/01/20 21:37:56 |
Line 48 struct htmlmdoc { |
|
Line 48 struct htmlmdoc { |
|
void (*post)(MDOC_ARGS); |
void (*post)(MDOC_ARGS); |
}; |
}; |
|
|
|
static char *make_id(const struct roff_node *); |
static void print_mdoc_head(MDOC_ARGS); |
static void print_mdoc_head(MDOC_ARGS); |
static void print_mdoc_node(MDOC_ARGS); |
static void print_mdoc_node(MDOC_ARGS); |
static void print_mdoc_nodelist(MDOC_ARGS); |
static void print_mdoc_nodelist(MDOC_ARGS); |
Line 241 static const struct htmlmdoc mdocs[MDOC_MAX] = { |
|
Line 242 static const struct htmlmdoc mdocs[MDOC_MAX] = { |
|
{mdoc_skip_pre, NULL}, /* ll */ |
{mdoc_skip_pre, NULL}, /* ll */ |
}; |
}; |
|
|
static const char * const lists[LIST_MAX] = { |
|
NULL, |
|
"list-bul", |
|
"list-col", |
|
"list-dash", |
|
"list-diag", |
|
"list-enum", |
|
"list-hang", |
|
"list-hyph", |
|
"list-inset", |
|
"list-item", |
|
"list-ohang", |
|
"list-tag" |
|
}; |
|
|
|
|
|
/* |
/* |
* See the same function in mdoc_term.c for documentation. |
* See the same function in mdoc_term.c for documentation. |
*/ |
*/ |
|
|
html_mdoc(void *arg, const struct roff_man *mdoc) |
html_mdoc(void *arg, const struct roff_man *mdoc) |
{ |
{ |
struct html *h; |
struct html *h; |
struct tag *t, *tt; |
struct tag *t; |
|
|
h = (struct html *)arg; |
h = (struct html *)arg; |
|
|
if ( ! (HTML_FRAGMENT & h->oflags)) { |
if ((h->oflags & HTML_FRAGMENT) == 0) { |
print_gen_decls(h); |
print_gen_decls(h); |
t = print_otag(h, TAG_HTML, ""); |
print_otag(h, TAG_HTML, ""); |
tt = print_otag(h, TAG_HEAD, ""); |
t = print_otag(h, TAG_HEAD, ""); |
print_mdoc_head(&mdoc->meta, mdoc->first->child, h); |
print_mdoc_head(&mdoc->meta, mdoc->first->child, h); |
print_tagq(h, tt); |
print_tagq(h, t); |
print_otag(h, TAG_BODY, ""); |
print_otag(h, TAG_BODY, ""); |
print_otag(h, TAG_DIV, "c", "mandoc"); |
} |
} else |
|
t = print_otag(h, TAG_DIV, "c", "mandoc"); |
|
|
|
mdoc_root_pre(&mdoc->meta, mdoc->first->child, h); |
mdoc_root_pre(&mdoc->meta, mdoc->first->child, h); |
|
t = print_otag(h, TAG_DIV, "c", "manual-text"); |
print_mdoc_nodelist(&mdoc->meta, mdoc->first->child, h); |
print_mdoc_nodelist(&mdoc->meta, mdoc->first->child, h); |
mdoc_root_post(&mdoc->meta, mdoc->first->child, h); |
|
print_tagq(h, t); |
print_tagq(h, t); |
|
mdoc_root_post(&mdoc->meta, mdoc->first->child, h); |
|
print_tagq(h, NULL); |
} |
} |
|
|
static void |
static void |
Line 384 print_mdoc_node(MDOC_ARGS) |
|
Line 370 print_mdoc_node(MDOC_ARGS) |
|
h->flags |= HTML_NOSPACE; |
h->flags |= HTML_NOSPACE; |
return; |
return; |
case ROFFT_EQN: |
case ROFFT_EQN: |
if (n->flags & NODE_LINE) |
|
putchar('\n'); |
|
print_eqn(h, n->eqn); |
print_eqn(h, n->eqn); |
break; |
break; |
case ROFFT_TBL: |
case ROFFT_TBL: |
Line 494 mdoc_root_pre(MDOC_ARGS) |
|
Line 478 mdoc_root_pre(MDOC_ARGS) |
|
return 1; |
return 1; |
} |
} |
|
|
char * |
static char * |
make_id(const struct roff_node *n) |
make_id(const struct roff_node *n) |
{ |
{ |
const struct roff_node *nch; |
const struct roff_node *nch; |
Line 523 mdoc_sh_pre(MDOC_ARGS) |
|
Line 507 mdoc_sh_pre(MDOC_ARGS) |
|
|
|
switch (n->type) { |
switch (n->type) { |
case ROFFT_BLOCK: |
case ROFFT_BLOCK: |
print_otag(h, TAG_DIV, "c", "section"); |
|
return 1; |
return 1; |
case ROFFT_BODY: |
case ROFFT_BODY: |
if (n->sec == SEC_AUTHORS) |
if (n->sec == SEC_AUTHORS) |
Line 534 mdoc_sh_pre(MDOC_ARGS) |
|
Line 517 mdoc_sh_pre(MDOC_ARGS) |
|
} |
} |
|
|
if ((id = make_id(n)) != NULL) { |
if ((id = make_id(n)) != NULL) { |
print_otag(h, TAG_H1, "i", id); |
print_otag(h, TAG_H1, "ci", "Sh", id); |
free(id); |
free(id); |
} else |
} else |
print_otag(h, TAG_H1, ""); |
print_otag(h, TAG_H1, "c", "Sh"); |
|
|
return 1; |
return 1; |
} |
} |
Line 547 mdoc_ss_pre(MDOC_ARGS) |
|
Line 530 mdoc_ss_pre(MDOC_ARGS) |
|
{ |
{ |
char *id; |
char *id; |
|
|
if (n->type == ROFFT_BLOCK) { |
if (n->type != ROFFT_HEAD) |
print_otag(h, TAG_DIV, "c", "subsection"); |
|
return 1; |
return 1; |
} else if (n->type == ROFFT_BODY) |
|
return 1; |
|
|
|
if ((id = make_id(n)) != NULL) { |
if ((id = make_id(n)) != NULL) { |
print_otag(h, TAG_H2, "i", id); |
print_otag(h, TAG_H2, "ci", "Ss", id); |
free(id); |
free(id); |
} else |
} else |
print_otag(h, TAG_H2, ""); |
print_otag(h, TAG_H2, "c", "Ss"); |
|
|
return 1; |
return 1; |
} |
} |
Line 641 mdoc_xr_pre(MDOC_ARGS) |
|
Line 621 mdoc_xr_pre(MDOC_ARGS) |
|
return 0; |
return 0; |
|
|
if (h->base_man) |
if (h->base_man) |
print_otag(h, TAG_A, "chM", "link-man", |
print_otag(h, TAG_A, "chM", "Xr", |
n->child->string, n->child->next == NULL ? |
n->child->string, n->child->next == NULL ? |
NULL : n->child->next->string); |
NULL : n->child->next->string); |
else |
else |
print_otag(h, TAG_A, "c", "link-man"); |
print_otag(h, TAG_A, "c", "Xr"); |
|
|
n = n->child; |
n = n->child; |
print_text(h, n->string); |
print_text(h, n->string); |
Line 688 mdoc_xx_pre(MDOC_ARGS) |
|
Line 668 mdoc_xx_pre(MDOC_ARGS) |
|
static int |
static int |
mdoc_it_pre(MDOC_ARGS) |
mdoc_it_pre(MDOC_ARGS) |
{ |
{ |
enum mdoc_list type; |
const struct roff_node *bl; |
const struct roff_node *bl; |
const char *cattr; |
|
enum mdoc_list type; |
|
|
bl = n->parent; |
bl = n->parent; |
while (bl && MDOC_Bl != bl->tok) |
while (bl != NULL && bl->tok != MDOC_Bl) |
bl = bl->parent; |
bl = bl->parent; |
type = bl->norm->Bl.type; |
type = bl->norm->Bl.type; |
|
|
if (n->type == ROFFT_HEAD) { |
switch (type) { |
switch (type) { |
case LIST_bullet: |
case LIST_bullet: |
cattr = "It-bullet"; |
case LIST_dash: |
break; |
case LIST_item: |
case LIST_dash: |
case LIST_hyphen: |
case LIST_hyphen: |
case LIST_enum: |
cattr = "It-dash"; |
|
break; |
|
case LIST_item: |
|
cattr = "It-item"; |
|
break; |
|
case LIST_enum: |
|
cattr = "It-enum"; |
|
break; |
|
case LIST_diag: |
|
cattr = "It-diag"; |
|
break; |
|
case LIST_hang: |
|
cattr = "It-hang"; |
|
break; |
|
case LIST_inset: |
|
cattr = "It-inset"; |
|
break; |
|
case LIST_ohang: |
|
cattr = "It-ohang"; |
|
break; |
|
case LIST_tag: |
|
cattr = "It-tag"; |
|
break; |
|
case LIST_column: |
|
cattr = "It-column"; |
|
break; |
|
default: |
|
break; |
|
} |
|
|
|
switch (type) { |
|
case LIST_bullet: |
|
case LIST_dash: |
|
case LIST_hyphen: |
|
case LIST_item: |
|
case LIST_enum: |
|
switch (n->type) { |
|
case ROFFT_HEAD: |
return 0; |
return 0; |
case LIST_diag: |
case ROFFT_BODY: |
case LIST_hang: |
print_otag(h, TAG_LI, "csvt", cattr, |
case LIST_inset: |
|
case LIST_ohang: |
|
case LIST_tag: |
|
print_otag(h, TAG_DT, "csvt", lists[type], |
|
!bl->norm->Bl.comp); |
!bl->norm->Bl.comp); |
if (LIST_diag != type) |
|
break; |
|
print_otag(h, TAG_B, "c", "diag"); |
|
break; |
break; |
case LIST_column: |
|
break; |
|
default: |
default: |
break; |
break; |
} |
} |
} else if (n->type == ROFFT_BODY) { |
break; |
switch (type) { |
case LIST_diag: |
case LIST_bullet: |
case LIST_hang: |
case LIST_hyphen: |
case LIST_inset: |
case LIST_dash: |
case LIST_ohang: |
case LIST_enum: |
case LIST_tag: |
case LIST_item: |
switch (n->type) { |
print_otag(h, TAG_LI, "csvt", lists[type], |
case ROFFT_HEAD: |
|
print_otag(h, TAG_DT, "csvt", cattr, |
!bl->norm->Bl.comp); |
!bl->norm->Bl.comp); |
|
if (type == LIST_diag) |
|
print_otag(h, TAG_B, "c", cattr); |
break; |
break; |
case LIST_diag: |
case ROFFT_BODY: |
case LIST_hang: |
if (bl->norm->Bl.width == NULL) |
case LIST_inset: |
print_otag(h, TAG_DD, "c", cattr); |
case LIST_ohang: |
else |
case LIST_tag: |
print_otag(h, TAG_DD, "cswl", cattr, |
if (NULL == bl->norm->Bl.width) { |
bl->norm->Bl.width); |
print_otag(h, TAG_DD, "c", lists[type]); |
|
break; |
|
} |
|
print_otag(h, TAG_DD, "cswl", lists[type], |
|
bl->norm->Bl.width); |
|
break; |
break; |
case LIST_column: |
|
print_otag(h, TAG_TD, "csvt", lists[type], |
|
!bl->norm->Bl.comp); |
|
break; |
|
default: |
default: |
break; |
break; |
} |
} |
} else { |
break; |
switch (type) { |
case LIST_column: |
case LIST_column: |
switch (n->type) { |
print_otag(h, TAG_TR, "c", lists[type]); |
case ROFFT_HEAD: |
break; |
break; |
default: |
case ROFFT_BODY: |
|
print_otag(h, TAG_TD, "csvt", cattr, |
|
!bl->norm->Bl.comp); |
break; |
break; |
|
default: |
|
print_otag(h, TAG_TR, "c", cattr); |
} |
} |
|
default: |
|
break; |
} |
} |
|
|
return 1; |
return 1; |
Line 765 mdoc_it_pre(MDOC_ARGS) |
|
Line 774 mdoc_it_pre(MDOC_ARGS) |
|
static int |
static int |
mdoc_bl_pre(MDOC_ARGS) |
mdoc_bl_pre(MDOC_ARGS) |
{ |
{ |
|
const char *cattr; |
int i; |
int i; |
char buf[BUFSIZ]; |
|
enum htmltag elemtype; |
enum htmltag elemtype; |
|
|
if (n->type == ROFFT_BODY) { |
if (n->type == ROFFT_BODY) { |
Line 793 mdoc_bl_pre(MDOC_ARGS) |
|
Line 802 mdoc_bl_pre(MDOC_ARGS) |
|
return 0; |
return 0; |
} |
} |
|
|
assert(lists[n->norm->Bl.type]); |
|
(void)strlcpy(buf, "list ", BUFSIZ); |
|
(void)strlcat(buf, lists[n->norm->Bl.type], BUFSIZ); |
|
|
|
switch (n->norm->Bl.type) { |
switch (n->norm->Bl.type) { |
case LIST_bullet: |
case LIST_bullet: |
|
elemtype = TAG_UL; |
|
cattr = "Bl-bullet"; |
|
break; |
case LIST_dash: |
case LIST_dash: |
case LIST_hyphen: |
case LIST_hyphen: |
|
elemtype = TAG_UL; |
|
cattr = "Bl-dash"; |
|
break; |
case LIST_item: |
case LIST_item: |
elemtype = TAG_UL; |
elemtype = TAG_UL; |
|
cattr = "Bl-item"; |
break; |
break; |
case LIST_enum: |
case LIST_enum: |
elemtype = TAG_OL; |
elemtype = TAG_OL; |
|
cattr = "Bl-enum"; |
break; |
break; |
case LIST_diag: |
case LIST_diag: |
|
elemtype = TAG_DL; |
|
cattr = "Bl-diag"; |
|
break; |
case LIST_hang: |
case LIST_hang: |
|
elemtype = TAG_DL; |
|
cattr = "Bl-hang"; |
|
break; |
case LIST_inset: |
case LIST_inset: |
|
elemtype = TAG_DL; |
|
cattr = "Bl-inset"; |
|
break; |
case LIST_ohang: |
case LIST_ohang: |
|
elemtype = TAG_DL; |
|
cattr = "Bl-ohang"; |
|
break; |
case LIST_tag: |
case LIST_tag: |
elemtype = TAG_DL; |
elemtype = TAG_DL; |
|
cattr = "Bl-tag"; |
break; |
break; |
case LIST_column: |
case LIST_column: |
elemtype = TAG_TABLE; |
elemtype = TAG_TABLE; |
|
cattr = "Bl-column"; |
break; |
break; |
default: |
default: |
abort(); |
abort(); |
} |
} |
|
|
if (n->norm->Bl.offs) |
if (n->norm->Bl.offs) |
print_otag(h, elemtype, "csvtvbwl", buf, 0, 0, |
print_otag(h, elemtype, "csvtvbwl", cattr, 0, 0, |
n->norm->Bl.offs); |
n->norm->Bl.offs); |
else |
else |
print_otag(h, elemtype, "csvtvb", buf, 0, 0); |
print_otag(h, elemtype, "csvtvb", cattr, 0, 0); |
|
|
return 1; |
return 1; |
} |
} |
Line 851 mdoc_d1_pre(MDOC_ARGS) |
|
Line 878 mdoc_d1_pre(MDOC_ARGS) |
|
if (n->type != ROFFT_BLOCK) |
if (n->type != ROFFT_BLOCK) |
return 1; |
return 1; |
|
|
print_otag(h, TAG_BLOCKQUOTE, "svtvb", 0, 0); |
print_otag(h, TAG_DIV, "c", "D1"); |
|
|
/* BLOCKQUOTE needs a block body. */ |
if (n->tok == MDOC_Dl) |
|
print_otag(h, TAG_CODE, "c", "Li"); |
|
|
print_otag(h, TAG_DIV, "c", "display"); |
|
|
|
if (MDOC_Dl == n->tok) |
|
print_otag(h, TAG_CODE, "c", "lit"); |
|
|
|
return 1; |
return 1; |
} |
} |
|
|
Line 868 mdoc_sx_pre(MDOC_ARGS) |
|
Line 891 mdoc_sx_pre(MDOC_ARGS) |
|
{ |
{ |
char *id; |
char *id; |
|
|
print_otag(h, TAG_I, "c", "link-sec"); |
|
if ((id = make_id(n)) != NULL) { |
if ((id = make_id(n)) != NULL) { |
print_otag(h, TAG_A, "chR", "link-sec", id); |
print_otag(h, TAG_A, "chR", "Sx", id); |
free(id); |
free(id); |
} else |
} else |
print_otag(h, TAG_A, "c", "link-sec"); |
print_otag(h, TAG_A, "c", "Sx"); |
|
|
return 1; |
return 1; |
} |
} |
Line 915 mdoc_bd_pre(MDOC_ARGS) |
|
Line 937 mdoc_bd_pre(MDOC_ARGS) |
|
offs = -1; |
offs = -1; |
|
|
if (offs == -1) |
if (offs == -1) |
print_otag(h, TAG_DIV, "cswl", "display", n->norm->Bd.offs); |
print_otag(h, TAG_DIV, "cswl", "Bd", n->norm->Bd.offs); |
else |
else |
print_otag(h, TAG_DIV, "cshl", "display", offs); |
print_otag(h, TAG_DIV, "cshl", "Bd", offs); |
|
|
if (n->norm->Bd.type != DISP_unfilled && |
if (n->norm->Bd.type != DISP_unfilled && |
n->norm->Bd.type != DISP_literal) |
n->norm->Bd.type != DISP_literal) |
return 1; |
return 1; |
|
|
print_otag(h, TAG_PRE, "c", "lit"); |
print_otag(h, TAG_PRE, "c", "Li"); |
|
|
/* This can be recursive: save & set our literal state. */ |
/* This can be recursive: save & set our literal state. */ |
|
|
Line 1420 mdoc_bf_pre(MDOC_ARGS) |
|
Line 1442 mdoc_bf_pre(MDOC_ARGS) |
|
else if (FONT_Sy == n->norm->Bf.font) |
else if (FONT_Sy == n->norm->Bf.font) |
cattr = "symb"; |
cattr = "symb"; |
else if (FONT_Li == n->norm->Bf.font) |
else if (FONT_Li == n->norm->Bf.font) |
cattr = "lit"; |
cattr = "Li"; |
else |
else |
cattr = "none"; |
cattr = "none"; |
|
|
Line 1465 mdoc_rs_pre(MDOC_ARGS) |
|
Line 1487 mdoc_rs_pre(MDOC_ARGS) |
|
if (n->prev && SEC_SEE_ALSO == n->sec) |
if (n->prev && SEC_SEE_ALSO == n->sec) |
print_paragraph(h); |
print_paragraph(h); |
|
|
print_otag(h, TAG_SPAN, "c", "ref"); |
print_otag(h, TAG_SPAN, "c", "Rs"); |
return 1; |
return 1; |
} |
} |
|
|
Line 1479 mdoc_no_pre(MDOC_ARGS) |
|
Line 1501 mdoc_no_pre(MDOC_ARGS) |
|
static int |
static int |
mdoc_li_pre(MDOC_ARGS) |
mdoc_li_pre(MDOC_ARGS) |
{ |
{ |
print_otag(h, TAG_CODE, "c", "lit"); |
print_otag(h, TAG_CODE, "c", "Li"); |
return 1; |
return 1; |
} |
} |
|
|
Line 1510 mdoc__x_pre(MDOC_ARGS) |
|
Line 1532 mdoc__x_pre(MDOC_ARGS) |
|
|
|
switch (n->tok) { |
switch (n->tok) { |
case MDOC__A: |
case MDOC__A: |
cattr = "ref-auth"; |
cattr = "RsA"; |
if (n->prev && MDOC__A == n->prev->tok) |
if (n->prev && MDOC__A == n->prev->tok) |
if (NULL == n->next || MDOC__A != n->next->tok) |
if (NULL == n->next || MDOC__A != n->next->tok) |
print_text(h, "and"); |
print_text(h, "and"); |
break; |
break; |
case MDOC__B: |
case MDOC__B: |
cattr = "ref-book"; |
|
t = TAG_I; |
t = TAG_I; |
|
cattr = "RsB"; |
break; |
break; |
case MDOC__C: |
case MDOC__C: |
cattr = "ref-city"; |
cattr = "RsC"; |
break; |
break; |
case MDOC__D: |
case MDOC__D: |
cattr = "ref-date"; |
cattr = "RsD"; |
break; |
break; |
case MDOC__I: |
case MDOC__I: |
cattr = "ref-issue"; |
|
t = TAG_I; |
t = TAG_I; |
|
cattr = "RsI"; |
break; |
break; |
case MDOC__J: |
case MDOC__J: |
cattr = "ref-jrnl"; |
|
t = TAG_I; |
t = TAG_I; |
|
cattr = "RsJ"; |
break; |
break; |
case MDOC__N: |
case MDOC__N: |
cattr = "ref-num"; |
cattr = "RsN"; |
break; |
break; |
case MDOC__O: |
case MDOC__O: |
cattr = "ref-opt"; |
cattr = "RsO"; |
break; |
break; |
case MDOC__P: |
case MDOC__P: |
cattr = "ref-page"; |
cattr = "RsP"; |
break; |
break; |
case MDOC__Q: |
case MDOC__Q: |
cattr = "ref-corp"; |
cattr = "RsQ"; |
break; |
break; |
case MDOC__R: |
case MDOC__R: |
cattr = "ref-rep"; |
cattr = "RsR"; |
break; |
break; |
case MDOC__T: |
case MDOC__T: |
cattr = "ref-title"; |
cattr = "RsT"; |
break; |
break; |
case MDOC__U: |
case MDOC__U: |
cattr = "link-ref"; |
print_otag(h, TAG_A, "ch", "RsU", n->child->string); |
break; |
return 1; |
case MDOC__V: |
case MDOC__V: |
cattr = "ref-vol"; |
cattr = "RsV"; |
break; |
break; |
default: |
default: |
abort(); |
abort(); |
} |
} |
|
|
if (MDOC__U != n->tok) { |
print_otag(h, t, "c", cattr); |
print_otag(h, t, "c", cattr); |
|
return 1; |
|
} |
|
|
|
print_otag(h, TAG_A, "ch", cattr, n->child->string); |
|
|
|
return 1; |
return 1; |
} |
} |
|
|
Line 1662 mdoc_quote_pre(MDOC_ARGS) |
|
Line 1678 mdoc_quote_pre(MDOC_ARGS) |
|
case MDOC_Ql: |
case MDOC_Ql: |
print_text(h, "\\(oq"); |
print_text(h, "\\(oq"); |
h->flags |= HTML_NOSPACE; |
h->flags |= HTML_NOSPACE; |
print_otag(h, TAG_CODE, "c", "lit"); |
print_otag(h, TAG_CODE, "c", "Li"); |
break; |
break; |
case MDOC_So: |
case MDOC_So: |
case MDOC_Sq: |
case MDOC_Sq: |