version 1.48, 2009/11/16 08:46:59 |
version 1.50, 2010/01/01 13:17:58 |
Line 659 mdoc_fl_pre(MDOC_ARGS) |
|
Line 659 mdoc_fl_pre(MDOC_ARGS) |
|
{ |
{ |
struct htmlpair tag; |
struct htmlpair tag; |
|
|
|
/* `Cm' has no leading hyphen. */ |
|
|
|
if (MDOC_Cm == n->tok) { |
|
PAIR_CLASS_INIT(&tag, "flag"); |
|
print_otag(h, TAG_SPAN, 1, &tag); |
|
return(1); |
|
} |
|
|
|
/* A zero-length child shouldn't get a dash. */ |
|
|
|
if (n->child) { |
|
assert(MDOC_TEXT == n->child->type); |
|
assert(n->child->string); |
|
if ('\0' == *n->child->string) |
|
return(0); |
|
} |
|
|
PAIR_CLASS_INIT(&tag, "flag"); |
PAIR_CLASS_INIT(&tag, "flag"); |
print_otag(h, TAG_SPAN, 1, &tag); |
print_otag(h, TAG_SPAN, 1, &tag); |
if (MDOC_Fl == n->tok) { |
|
print_text(h, "\\-"); |
print_text(h, "\\-"); |
|
|
|
/* A blank `Fl' should incur a subsequent space. */ |
|
|
|
if (n->child) |
h->flags |= HTML_NOSPACE; |
h->flags |= HTML_NOSPACE; |
} |
|
return(1); |
return(1); |
} |
} |
|
|
Line 1573 mdoc_vt_pre(MDOC_ARGS) |
|
Line 1594 mdoc_vt_pre(MDOC_ARGS) |
|
struct roffsu su; |
struct roffsu su; |
|
|
if (SEC_SYNOPSIS == n->sec) { |
if (SEC_SYNOPSIS == n->sec) { |
if (n->next && MDOC_Vt != n->next->tok) { |
if (n->prev && MDOC_Vt != n->prev->tok) { |
SCALE_VS_INIT(&su, 1); |
SCALE_VS_INIT(&su, 1); |
bufcat_su(h, "margin-bottom", &su); |
bufcat_su(h, "margin-top", &su); |
PAIR_STYLE_INIT(&tag, h); |
PAIR_STYLE_INIT(&tag, h); |
print_otag(h, TAG_DIV, 1, &tag); |
print_otag(h, TAG_DIV, 1, &tag); |
} else |
} else |