version 1.70, 2014/08/21 12:57:17 |
version 1.83, 2015/01/28 17:32:07 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2011, 2012, 2013, 2014 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2011-2015 Ingo Schwarze <schwarze@openbsd.org> |
* |
* |
* Permission to use, copy, modify, and distribute this software for any |
* Permission to use, copy, modify, and distribute this software for any |
* purpose with or without fee is hereby granted, provided that the above |
* purpose with or without fee is hereby granted, provided that the above |
Line 46 static void font_push(char); |
|
Line 46 static void font_push(char); |
|
static void font_pop(void); |
static void font_pop(void); |
static void mid_it(void); |
static void mid_it(void); |
static void post__t(DECL_ARGS); |
static void post__t(DECL_ARGS); |
|
static void post_aq(DECL_ARGS); |
static void post_bd(DECL_ARGS); |
static void post_bd(DECL_ARGS); |
static void post_bf(DECL_ARGS); |
static void post_bf(DECL_ARGS); |
static void post_bk(DECL_ARGS); |
static void post_bk(DECL_ARGS); |
Line 72 static void post_vt(DECL_ARGS); |
|
Line 73 static void post_vt(DECL_ARGS); |
|
static int pre__t(DECL_ARGS); |
static int pre__t(DECL_ARGS); |
static int pre_an(DECL_ARGS); |
static int pre_an(DECL_ARGS); |
static int pre_ap(DECL_ARGS); |
static int pre_ap(DECL_ARGS); |
|
static int pre_aq(DECL_ARGS); |
static int pre_bd(DECL_ARGS); |
static int pre_bd(DECL_ARGS); |
static int pre_bf(DECL_ARGS); |
static int pre_bf(DECL_ARGS); |
static int pre_bk(DECL_ARGS); |
static int pre_bk(DECL_ARGS); |
Line 82 static int pre_dl(DECL_ARGS); |
|
Line 84 static int pre_dl(DECL_ARGS); |
|
static int pre_en(DECL_ARGS); |
static int pre_en(DECL_ARGS); |
static int pre_enc(DECL_ARGS); |
static int pre_enc(DECL_ARGS); |
static int pre_em(DECL_ARGS); |
static int pre_em(DECL_ARGS); |
static int pre_es(DECL_ARGS); |
static int pre_skip(DECL_ARGS); |
|
static int pre_eo(DECL_ARGS); |
static int pre_ex(DECL_ARGS); |
static int pre_ex(DECL_ARGS); |
static int pre_fa(DECL_ARGS); |
static int pre_fa(DECL_ARGS); |
static int pre_fd(DECL_ARGS); |
static int pre_fd(DECL_ARGS); |
Line 112 static int pre_xr(DECL_ARGS); |
|
Line 115 static int pre_xr(DECL_ARGS); |
|
static void print_word(const char *); |
static void print_word(const char *); |
static void print_line(const char *, int); |
static void print_line(const char *, int); |
static void print_block(const char *, int); |
static void print_block(const char *, int); |
static void print_offs(const char *); |
static void print_offs(const char *, int); |
static void print_width(const char *, |
static void print_width(const struct mdoc_bl *, |
const struct mdoc_node *, size_t); |
const struct mdoc_node *); |
static void print_count(int *); |
static void print_count(int *); |
static void print_node(DECL_ARGS); |
static void print_node(DECL_ARGS); |
|
|
Line 172 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 175 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ NULL, pre__t, post__t, NULL, NULL }, /* %T */ |
{ NULL, pre__t, post__t, NULL, NULL }, /* %T */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %V */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %V */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ac */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ac */ |
{ cond_body, pre_enc, post_enc, "<", ">" }, /* Ao */ |
{ cond_body, pre_aq, post_aq, NULL, NULL }, /* Ao */ |
{ cond_body, pre_enc, post_enc, "<", ">" }, /* Aq */ |
{ cond_body, pre_aq, post_aq, NULL, NULL }, /* Aq */ |
{ NULL, NULL, NULL, NULL, NULL }, /* At */ |
{ NULL, NULL, NULL, NULL, NULL }, /* At */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Bc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Bc */ |
{ NULL, pre_bf, post_bf, NULL, NULL }, /* Bf */ |
{ NULL, pre_bf, post_bf, NULL, NULL }, /* Bf */ |
Line 181 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 184 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */ |
{ NULL, pre_ux, NULL, "BSD/OS", NULL }, /* Bsx */ |
{ NULL, pre_ux, NULL, "BSD/OS", NULL }, /* Bsx */ |
{ NULL, pre_bx, NULL, NULL, NULL }, /* Bx */ |
{ NULL, pre_bx, NULL, NULL, NULL }, /* Bx */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Db */ |
{ NULL, pre_skip, NULL, NULL, NULL }, /* Db */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Dc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Dc */ |
{ cond_body, pre_enc, post_enc, "\\(lq", "\\(rq" }, /* Do */ |
{ cond_body, pre_enc, post_enc, "\\(lq", "\\(rq" }, /* Do */ |
{ cond_body, pre_enc, post_enc, "\\(lq", "\\(rq" }, /* Dq */ |
{ cond_body, pre_enc, post_enc, "\\(lq", "\\(rq" }, /* Dq */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ec */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ec */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ef */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ef */ |
{ NULL, pre_em, post_font, NULL, NULL }, /* Em */ |
{ NULL, pre_em, post_font, NULL, NULL }, /* Em */ |
{ NULL, NULL, post_eo, NULL, NULL }, /* Eo */ |
{ cond_body, pre_eo, post_eo, NULL, NULL }, /* Eo */ |
{ NULL, pre_ux, NULL, "FreeBSD", NULL }, /* Fx */ |
{ NULL, pre_ux, NULL, "FreeBSD", NULL }, /* Fx */ |
{ NULL, pre_sy, post_font, NULL, NULL }, /* Ms */ |
{ NULL, pre_sy, post_font, NULL, NULL }, /* Ms */ |
{ NULL, pre_no, NULL, NULL, NULL }, /* No */ |
{ NULL, pre_no, NULL, NULL, NULL }, /* No */ |
Line 233 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 236 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ cond_body, pre_enc, post_enc, "{", "}" }, /* Bro */ |
{ cond_body, pre_enc, post_enc, "{", "}" }, /* Bro */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Brc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Brc */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %C */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %C */ |
{ NULL, pre_es, NULL, NULL, NULL }, /* Es */ |
{ NULL, pre_skip, NULL, NULL, NULL }, /* Es */ |
{ cond_body, pre_en, post_en, NULL, NULL }, /* En */ |
{ cond_body, pre_en, post_en, NULL, NULL }, /* En */ |
{ NULL, pre_ux, NULL, "DragonFly", NULL }, /* Dx */ |
{ NULL, pre_ux, NULL, "DragonFly", NULL }, /* Dx */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %Q */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %Q */ |
Line 262 static int outflags; |
|
Line 265 static int outflags; |
|
|
|
#define BL_STACK_MAX 32 |
#define BL_STACK_MAX 32 |
|
|
static size_t Bl_stack[BL_STACK_MAX]; /* offsets [chars] */ |
static int Bl_stack[BL_STACK_MAX]; /* offsets [chars] */ |
static int Bl_stack_post[BL_STACK_MAX]; /* add final .RE */ |
static int Bl_stack_post[BL_STACK_MAX]; /* add final .RE */ |
static int Bl_stack_len; /* number of nested Bl blocks */ |
static int Bl_stack_len; /* number of nested Bl blocks */ |
static int TPremain; /* characters before tag is full */ |
static int TPremain; /* characters before tag is full */ |
Line 416 print_block(const char *s, int newflags) |
|
Line 419 print_block(const char *s, int newflags) |
|
} |
} |
|
|
static void |
static void |
print_offs(const char *v) |
print_offs(const char *v, int keywords) |
{ |
{ |
char buf[24]; |
char buf[24]; |
struct roffsu su; |
struct roffsu su; |
size_t sz; |
int sz; |
|
|
print_line(".RS", MMAN_Bk_susp); |
print_line(".RS", MMAN_Bk_susp); |
|
|
/* Convert v into a number (of characters). */ |
/* Convert v into a number (of characters). */ |
if (NULL == v || '\0' == *v || 0 == strcmp(v, "left")) |
if (NULL == v || '\0' == *v || (keywords && !strcmp(v, "left"))) |
sz = 0; |
sz = 0; |
else if (0 == strcmp(v, "indent")) |
else if (keywords && !strcmp(v, "indent")) |
sz = 6; |
sz = 6; |
else if (0 == strcmp(v, "indent-two")) |
else if (keywords && !strcmp(v, "indent-two")) |
sz = 12; |
sz = 12; |
else if (a2roffsu(v, &su, SCALE_MAX)) { |
else if (a2roffsu(v, &su, SCALE_EN) > 1) { |
if (SCALE_EN == su.unit) |
if (SCALE_EN == su.unit) |
sz = su.scale; |
sz = su.scale; |
else { |
else { |
Line 456 print_offs(const char *v) |
|
Line 459 print_offs(const char *v) |
|
if (Bl_stack_len) |
if (Bl_stack_len) |
sz += Bl_stack[Bl_stack_len - 1]; |
sz += Bl_stack[Bl_stack_len - 1]; |
|
|
(void)snprintf(buf, sizeof(buf), "%zun", sz); |
(void)snprintf(buf, sizeof(buf), "%dn", sz); |
print_word(buf); |
print_word(buf); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
} |
} |
Line 465 print_offs(const char *v) |
|
Line 468 print_offs(const char *v) |
|
* Set up the indentation for a list item; used from pre_it(). |
* Set up the indentation for a list item; used from pre_it(). |
*/ |
*/ |
static void |
static void |
print_width(const char *v, const struct mdoc_node *child, size_t defsz) |
print_width(const struct mdoc_bl *bl, const struct mdoc_node *child) |
{ |
{ |
char buf[24]; |
char buf[24]; |
struct roffsu su; |
struct roffsu su; |
size_t sz, chsz; |
int numeric, remain, sz, chsz; |
int numeric, remain; |
|
|
|
numeric = 1; |
numeric = 1; |
remain = 0; |
remain = 0; |
|
|
/* Convert v into a number (of characters). */ |
/* Convert the width into a number (of characters). */ |
if (NULL == v) |
if (bl->width == NULL) |
sz = defsz; |
sz = (bl->type == LIST_hang) ? 6 : 0; |
else if (a2roffsu(v, &su, SCALE_MAX)) { |
else if (a2roffsu(bl->width, &su, SCALE_MAX) > 1) { |
if (SCALE_EN == su.unit) |
if (SCALE_EN == su.unit) |
sz = su.scale; |
sz = su.scale; |
else { |
else { |
Line 486 print_width(const char *v, const struct mdoc_node *chi |
|
Line 488 print_width(const char *v, const struct mdoc_node *chi |
|
numeric = 0; |
numeric = 0; |
} |
} |
} else |
} else |
sz = strlen(v); |
sz = strlen(bl->width); |
|
|
/* XXX Rough estimation, might have multiple parts. */ |
/* XXX Rough estimation, might have multiple parts. */ |
chsz = (NULL != child && MDOC_TEXT == child->type) ? |
if (bl->type == LIST_enum) |
strlen(child->string) : 0; |
chsz = (bl->count > 8) + 1; |
|
else if (child != NULL && child->type == MDOC_TEXT) |
|
chsz = strlen(child->string); |
|
else |
|
chsz = 0; |
|
|
/* Maybe we are inside an enclosing list? */ |
/* Maybe we are inside an enclosing list? */ |
mid_it(); |
mid_it(); |
Line 502 print_width(const char *v, const struct mdoc_node *chi |
|
Line 508 print_width(const char *v, const struct mdoc_node *chi |
|
Bl_stack[Bl_stack_len++] = sz + 2; |
Bl_stack[Bl_stack_len++] = sz + 2; |
|
|
/* Set up the current list. */ |
/* Set up the current list. */ |
if (defsz && chsz > sz) |
if (chsz > sz && bl->type != LIST_tag) |
print_block(".HP", 0); |
print_block(".HP", 0); |
else { |
else { |
print_block(".TP", 0); |
print_block(".TP", 0); |
remain = sz + 2; |
remain = sz + 2; |
} |
} |
if (numeric) { |
if (numeric) { |
(void)snprintf(buf, sizeof(buf), "%zun", sz + 2); |
(void)snprintf(buf, sizeof(buf), "%dn", sz + 2); |
print_word(buf); |
print_word(buf); |
} else |
} else |
print_word(v); |
print_word(bl->width); |
TPremain = remain; |
TPremain = remain; |
} |
} |
|
|
Line 521 print_count(int *count) |
|
Line 527 print_count(int *count) |
|
{ |
{ |
char buf[24]; |
char buf[24]; |
|
|
(void)snprintf(buf, sizeof(buf), "%d.", ++*count); |
(void)snprintf(buf, sizeof(buf), "%d.\\&", ++*count); |
print_word(buf); |
print_word(buf); |
} |
} |
|
|
Line 594 print_node(DECL_ARGS) |
|
Line 600 print_node(DECL_ARGS) |
|
printf("\\&"); |
printf("\\&"); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
} |
} |
|
if (outflags & MMAN_Sm && ! (n->flags & MDOC_DELIMC)) |
|
outflags |= MMAN_spc_force; |
print_word(n->string); |
print_word(n->string); |
|
if (outflags & MMAN_Sm && ! (n->flags & MDOC_DELIMO)) |
|
outflags |= MMAN_spc; |
} else { |
} else { |
/* |
/* |
* Conditionally run the pre-node action handler for a |
* Conditionally run the pre-node action handler for a |
* node. |
* node. |
*/ |
*/ |
act = manacts + n->tok; |
act = manacts + n->tok; |
cond = NULL == act->cond || (*act->cond)(meta, n); |
cond = act->cond == NULL || (*act->cond)(meta, n); |
if (cond && act->pre && ENDBODY_NOT == n->end) |
if (cond && act->pre && (n->end == ENDBODY_NOT || n->nchild)) |
do_sub = (*act->pre)(meta, n); |
do_sub = (*act->pre)(meta, n); |
} |
} |
|
|
Line 866 pre_ap(DECL_ARGS) |
|
Line 876 pre_ap(DECL_ARGS) |
|
} |
} |
|
|
static int |
static int |
|
pre_aq(DECL_ARGS) |
|
{ |
|
|
|
print_word(n->nchild == 1 && |
|
n->child->tok == MDOC_Mt ? "<" : "\\(la"); |
|
outflags &= ~MMAN_spc; |
|
return(1); |
|
} |
|
|
|
static void |
|
post_aq(DECL_ARGS) |
|
{ |
|
|
|
outflags &= ~(MMAN_spc | MMAN_nl); |
|
print_word(n->nchild == 1 && |
|
n->child->tok == MDOC_Mt ? ">" : "\\(ra"); |
|
} |
|
|
|
static int |
pre_bd(DECL_ARGS) |
pre_bd(DECL_ARGS) |
{ |
{ |
|
|
Line 876 pre_bd(DECL_ARGS) |
|
Line 905 pre_bd(DECL_ARGS) |
|
print_line(".nf", 0); |
print_line(".nf", 0); |
if (0 == n->norm->Bd.comp && NULL != n->parent->prev) |
if (0 == n->norm->Bd.comp && NULL != n->parent->prev) |
outflags |= MMAN_sp; |
outflags |= MMAN_sp; |
print_offs(n->norm->Bd.offs); |
print_offs(n->norm->Bd.offs, 1); |
return(1); |
return(1); |
} |
} |
|
|
Line 963 pre_bl(DECL_ARGS) |
|
Line 992 pre_bl(DECL_ARGS) |
|
* just nest and do not add up their indentation. |
* just nest and do not add up their indentation. |
*/ |
*/ |
if (n->norm->Bl.offs) { |
if (n->norm->Bl.offs) { |
print_offs(n->norm->Bl.offs); |
print_offs(n->norm->Bl.offs, 0); |
Bl_stack[Bl_stack_len++] = 0; |
Bl_stack[Bl_stack_len++] = 0; |
} |
} |
|
|
Line 977 pre_bl(DECL_ARGS) |
|
Line 1006 pre_bl(DECL_ARGS) |
|
return(1); |
return(1); |
} |
} |
|
|
print_line(".TS", MMAN_nl); |
if (n->nchild) { |
for (icol = 0; icol < n->norm->Bl.ncols; icol++) |
print_line(".TS", MMAN_nl); |
print_word("l"); |
for (icol = 0; icol < n->norm->Bl.ncols; icol++) |
print_word("."); |
print_word("l"); |
|
print_word("."); |
|
} |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
return(1); |
return(1); |
} |
} |
Line 991 post_bl(DECL_ARGS) |
|
Line 1022 post_bl(DECL_ARGS) |
|
|
|
switch (n->norm->Bl.type) { |
switch (n->norm->Bl.type) { |
case LIST_column: |
case LIST_column: |
print_line(".TE", 0); |
if (n->nchild) |
|
print_line(".TE", 0); |
break; |
break; |
case LIST_enum: |
case LIST_enum: |
n->norm->Bl.count = 0; |
n->norm->Bl.count = 0; |
|
|
pre_dl(DECL_ARGS) |
pre_dl(DECL_ARGS) |
{ |
{ |
|
|
print_offs("6n"); |
print_offs("6n", 0); |
return(1); |
return(1); |
} |
} |
|
|
Line 1098 post_en(DECL_ARGS) |
|
Line 1130 post_en(DECL_ARGS) |
|
return; |
return; |
} |
} |
|
|
static void |
static int |
post_eo(DECL_ARGS) |
pre_eo(DECL_ARGS) |
{ |
{ |
|
|
if (MDOC_HEAD == n->type || MDOC_BODY == n->type) |
outflags &= ~(MMAN_spc | MMAN_nl); |
outflags &= ~MMAN_spc; |
return(1); |
} |
} |
|
|
static int |
static void |
pre_es(DECL_ARGS) |
post_eo(DECL_ARGS) |
{ |
{ |
|
|
return(0); |
if (n->end != ENDBODY_SPACE) |
|
outflags &= ~MMAN_spc; |
} |
} |
|
|
static int |
static int |
Line 1335 pre_it(DECL_ARGS) |
|
Line 1368 pre_it(DECL_ARGS) |
|
case LIST_dash: |
case LIST_dash: |
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
case LIST_hyphen: |
case LIST_hyphen: |
print_width(bln->norm->Bl.width, NULL, 0); |
print_width(&bln->norm->Bl, NULL); |
TPremain = 0; |
TPremain = 0; |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
font_push('B'); |
font_push('B'); |
if (LIST_bullet == bln->norm->Bl.type) |
if (LIST_bullet == bln->norm->Bl.type) |
print_word("o"); |
print_word("\\(bu"); |
else |
else |
print_word("-"); |
print_word("-"); |
font_pop(); |
font_pop(); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
return(0); |
return(0); |
case LIST_enum: |
case LIST_enum: |
print_width(bln->norm->Bl.width, NULL, 0); |
print_width(&bln->norm->Bl, NULL); |
TPremain = 0; |
TPremain = 0; |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
print_count(&bln->norm->Bl.count); |
print_count(&bln->norm->Bl.count); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
return(0); |
return(0); |
case LIST_hang: |
case LIST_hang: |
print_width(bln->norm->Bl.width, n->child, 6); |
print_width(&bln->norm->Bl, n->child); |
TPremain = 0; |
TPremain = 0; |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
return(1); |
return(1); |
case LIST_tag: |
case LIST_tag: |
print_width(bln->norm->Bl.width, n->child, 0); |
print_width(&bln->norm->Bl, n->child); |
putchar('\n'); |
putchar('\n'); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
return(1); |
return(1); |
|
|
|
|
/* Restore the indentation of the enclosing list. */ |
/* Restore the indentation of the enclosing list. */ |
print_line(".RS", MMAN_Bk_susp); |
print_line(".RS", MMAN_Bk_susp); |
(void)snprintf(buf, sizeof(buf), "%zun", |
(void)snprintf(buf, sizeof(buf), "%dn", |
Bl_stack[Bl_stack_len - 1]); |
Bl_stack[Bl_stack_len - 1]); |
print_word(buf); |
print_word(buf); |
|
|
|
|
post_pf(DECL_ARGS) |
post_pf(DECL_ARGS) |
{ |
{ |
|
|
outflags &= ~MMAN_spc; |
if ( ! (n->next == NULL || n->next->flags & MDOC_LINE)) |
|
outflags &= ~MMAN_spc; |
} |
} |
|
|
static int |
static int |
Line 1649 pre_rv(DECL_ARGS) |
|
Line 1683 pre_rv(DECL_ARGS) |
|
|
|
print_word("is set to indicate the error."); |
print_word("is set to indicate the error."); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
|
return(0); |
|
} |
|
|
|
static int |
|
pre_skip(DECL_ARGS) |
|
{ |
|
|
return(0); |
return(0); |
} |
} |
|
|