version 1.113, 2017/05/05 15:17:32 |
version 1.127, 2018/08/17 20:33:37 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2011-2017 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2011-2018 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 |
|
|
typedef int (*int_fp)(DECL_ARGS); |
typedef int (*int_fp)(DECL_ARGS); |
typedef void (*void_fp)(DECL_ARGS); |
typedef void (*void_fp)(DECL_ARGS); |
|
|
struct manact { |
struct mdoc_man_act { |
int_fp cond; /* DON'T run actions */ |
int_fp cond; /* DON'T run actions */ |
int_fp pre; /* pre-node action */ |
int_fp pre; /* pre-node action */ |
void_fp post; /* post-node action */ |
void_fp post; /* post-node action */ |
Line 101 static int pre_in(DECL_ARGS); |
|
Line 101 static int pre_in(DECL_ARGS); |
|
static int pre_it(DECL_ARGS); |
static int pre_it(DECL_ARGS); |
static int pre_lk(DECL_ARGS); |
static int pre_lk(DECL_ARGS); |
static int pre_li(DECL_ARGS); |
static int pre_li(DECL_ARGS); |
static void pre_ll(DECL_ARGS); |
|
static int pre_nm(DECL_ARGS); |
static int pre_nm(DECL_ARGS); |
static int pre_no(DECL_ARGS); |
static int pre_no(DECL_ARGS); |
static int pre_ns(DECL_ARGS); |
static int pre_ns(DECL_ARGS); |
|
static void pre_onearg(DECL_ARGS); |
static int pre_pp(DECL_ARGS); |
static int pre_pp(DECL_ARGS); |
static int pre_rs(DECL_ARGS); |
static int pre_rs(DECL_ARGS); |
static int pre_sm(DECL_ARGS); |
static int pre_sm(DECL_ARGS); |
Line 112 static void pre_sp(DECL_ARGS); |
|
Line 112 static void pre_sp(DECL_ARGS); |
|
static int pre_sect(DECL_ARGS); |
static int pre_sect(DECL_ARGS); |
static int pre_sy(DECL_ARGS); |
static int pre_sy(DECL_ARGS); |
static void pre_syn(const struct roff_node *); |
static void pre_syn(const struct roff_node *); |
|
static void pre_ta(DECL_ARGS); |
static int pre_vt(DECL_ARGS); |
static int pre_vt(DECL_ARGS); |
static int pre_xr(DECL_ARGS); |
static int pre_xr(DECL_ARGS); |
static void print_word(const char *); |
static void print_word(const char *); |
Line 123 static void print_width(const struct mdoc_bl *, |
|
Line 124 static void print_width(const struct mdoc_bl *, |
|
static void print_count(int *); |
static void print_count(int *); |
static void print_node(DECL_ARGS); |
static void print_node(DECL_ARGS); |
|
|
static const void_fp roff_manacts[ROFF_MAX] = { |
static const void_fp roff_man_acts[ROFF_MAX] = { |
pre_br, |
pre_br, /* br */ |
pre_ft, |
pre_onearg, /* ce */ |
pre_ll, |
pre_ft, /* ft */ |
pre_sp, |
pre_onearg, /* ll */ |
|
pre_onearg, /* mc */ |
|
pre_onearg, /* po */ |
|
pre_onearg, /* rj */ |
|
pre_sp, /* sp */ |
|
pre_ta, /* ta */ |
|
pre_onearg, /* ti */ |
}; |
}; |
|
|
static const struct manact __manacts[MDOC_MAX - MDOC_Dd] = { |
static const struct mdoc_man_act mdoc_man_acts[MDOC_MAX - MDOC_Dd] = { |
{ NULL, NULL, NULL, NULL, NULL }, /* Dd */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Dd */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Dt */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Dt */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Os */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Os */ |
Line 191 static const struct manact __manacts[MDOC_MAX - MDOC_D |
|
Line 198 static const struct manact __manacts[MDOC_MAX - MDOC_D |
|
{ NULL, pre_bf, post_bf, NULL, NULL }, /* Bf */ |
{ NULL, pre_bf, post_bf, NULL, NULL }, /* Bf */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Bo */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Bo */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Bsx */ |
{ NULL, pre_bk, post_bk, NULL, NULL }, /* Bsx */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Bx */ |
{ NULL, pre_bk, post_bk, NULL, NULL }, /* Bx */ |
{ NULL, pre_skip, 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 */ |
{ cond_body, pre_eo, post_eo, NULL, NULL }, /* Eo */ |
{ cond_body, pre_eo, post_eo, NULL, NULL }, /* Eo */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Fx */ |
{ NULL, pre_bk, post_bk, NULL, 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 */ |
{ NULL, pre_ns, NULL, NULL, NULL }, /* Ns */ |
{ NULL, pre_ns, NULL, NULL, NULL }, /* Ns */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Nx */ |
{ NULL, pre_bk, post_bk, NULL, NULL }, /* Nx */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ox */ |
{ NULL, pre_bk, post_bk, NULL, NULL }, /* Ox */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Pc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Pc */ |
{ NULL, NULL, post_pf, NULL, NULL }, /* Pf */ |
{ NULL, NULL, post_pf, NULL, NULL }, /* Pf */ |
{ cond_body, pre_enc, post_enc, "(", ")" }, /* Po */ |
{ cond_body, pre_enc, post_enc, "(", ")" }, /* Po */ |
Line 247 static const struct manact __manacts[MDOC_MAX - MDOC_D |
|
Line 254 static const struct manact __manacts[MDOC_MAX - MDOC_D |
|
{ NULL, NULL, post_percent, NULL, NULL }, /* %C */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %C */ |
{ NULL, pre_skip, 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, NULL, NULL, NULL, NULL }, /* Dx */ |
{ NULL, pre_bk, post_bk, NULL, NULL }, /* Dx */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %Q */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %Q */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %U */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %U */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ta */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ta */ |
}; |
}; |
static const struct manact *const manacts = __manacts - MDOC_Dd; |
static const struct mdoc_man_act *mdoc_man_act(enum roff_tok); |
|
|
static int outflags; |
static int outflags; |
#define MMAN_spc (1 << 0) /* blank character before next word */ |
#define MMAN_spc (1 << 0) /* blank character before next word */ |
|
|
} fontqueue; |
} fontqueue; |
|
|
|
|
|
static const struct mdoc_man_act * |
|
mdoc_man_act(enum roff_tok tok) |
|
{ |
|
assert(tok >= MDOC_Dd && tok <= MDOC_MAX); |
|
return mdoc_man_acts + (tok - MDOC_Dd); |
|
} |
|
|
static int |
static int |
man_strlen(const char *cp) |
man_strlen(const char *cp) |
{ |
{ |
|
|
print_line(const char *s, int newflags) |
print_line(const char *s, int newflags) |
{ |
{ |
|
|
outflags &= ~MMAN_br; |
|
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
print_word(s); |
print_word(s); |
outflags |= newflags; |
outflags |= newflags; |
Line 472 print_offs(const char *v, int keywords) |
|
Line 485 print_offs(const char *v, int keywords) |
|
{ |
{ |
char buf[24]; |
char buf[24]; |
struct roffsu su; |
struct roffsu su; |
|
const char *end; |
int sz; |
int sz; |
|
|
print_line(".RS", MMAN_Bk_susp); |
print_line(".RS", MMAN_Bk_susp); |
Line 483 print_offs(const char *v, int keywords) |
|
Line 497 print_offs(const char *v, int keywords) |
|
sz = 6; |
sz = 6; |
else if (keywords && !strcmp(v, "indent-two")) |
else if (keywords && !strcmp(v, "indent-two")) |
sz = 12; |
sz = 12; |
else if (a2roffsu(v, &su, SCALE_EN) > 1) { |
else { |
if (SCALE_EN == su.unit) |
end = a2roffsu(v, &su, SCALE_EN); |
|
if (end == NULL || *end != '\0') |
|
sz = man_strlen(v); |
|
else if (SCALE_EN == su.unit) |
sz = su.scale; |
sz = su.scale; |
else { |
else { |
/* |
/* |
Line 498 print_offs(const char *v, int keywords) |
|
Line 515 print_offs(const char *v, int keywords) |
|
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
return; |
return; |
} |
} |
} else |
} |
sz = man_strlen(v); |
|
|
|
/* |
/* |
* We are inside an enclosing list. |
* We are inside an enclosing list. |
Line 521 print_width(const struct mdoc_bl *bl, const struct rof |
|
Line 537 print_width(const struct mdoc_bl *bl, const struct rof |
|
{ |
{ |
char buf[24]; |
char buf[24]; |
struct roffsu su; |
struct roffsu su; |
|
const char *end; |
int numeric, remain, sz, chsz; |
int numeric, remain, sz, chsz; |
|
|
numeric = 1; |
numeric = 1; |
Line 529 print_width(const struct mdoc_bl *bl, const struct rof |
|
Line 546 print_width(const struct mdoc_bl *bl, const struct rof |
|
/* Convert the width into a number (of characters). */ |
/* Convert the width into a number (of characters). */ |
if (bl->width == NULL) |
if (bl->width == NULL) |
sz = (bl->type == LIST_hang) ? 6 : 0; |
sz = (bl->type == LIST_hang) ? 6 : 0; |
else if (a2roffsu(bl->width, &su, SCALE_MAX) > 1) { |
else { |
if (SCALE_EN == su.unit) |
end = a2roffsu(bl->width, &su, SCALE_MAX); |
|
if (end == NULL || *end != '\0') |
|
sz = man_strlen(bl->width); |
|
else if (SCALE_EN == su.unit) |
sz = su.scale; |
sz = su.scale; |
else { |
else { |
sz = 0; |
sz = 0; |
numeric = 0; |
numeric = 0; |
} |
} |
} else |
} |
sz = man_strlen(bl->width); |
|
|
|
/* XXX Rough estimation, might have multiple parts. */ |
/* XXX Rough estimation, might have multiple parts. */ |
if (bl->type == LIST_enum) |
if (bl->type == LIST_enum) |
Line 598 man_mdoc(void *arg, const struct roff_man *mdoc) |
|
Line 617 man_mdoc(void *arg, const struct roff_man *mdoc) |
|
{ |
{ |
struct roff_node *n; |
struct roff_node *n; |
|
|
|
printf(".\\\" Automatically generated from an mdoc input file." |
|
" Do not edit.\n"); |
|
for (n = mdoc->first->child; n != NULL; n = n->next) { |
|
if (n->type != ROFFT_COMMENT) |
|
break; |
|
printf(".\\\"%s\n", n->string); |
|
} |
|
|
printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"\n", |
printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"\n", |
mdoc->meta.title, |
mdoc->meta.title, |
(mdoc->meta.msec == NULL ? "" : mdoc->meta.msec), |
(mdoc->meta.msec == NULL ? "" : mdoc->meta.msec), |
Line 612 man_mdoc(void *arg, const struct roff_man *mdoc) |
|
Line 639 man_mdoc(void *arg, const struct roff_man *mdoc) |
|
fontqueue.head = fontqueue.tail = mandoc_malloc(8); |
fontqueue.head = fontqueue.tail = mandoc_malloc(8); |
*fontqueue.tail = 'R'; |
*fontqueue.tail = 'R'; |
} |
} |
for (n = mdoc->first->child; n != NULL; n = n->next) |
for (; n != NULL; n = n->next) |
print_node(&mdoc->meta, n); |
print_node(&mdoc->meta, n); |
putchar('\n'); |
putchar('\n'); |
} |
} |
Line 620 man_mdoc(void *arg, const struct roff_man *mdoc) |
|
Line 647 man_mdoc(void *arg, const struct roff_man *mdoc) |
|
static void |
static void |
print_node(DECL_ARGS) |
print_node(DECL_ARGS) |
{ |
{ |
const struct manact *act; |
const struct mdoc_man_act *act; |
struct roff_node *sub; |
struct roff_node *sub; |
int cond, do_sub; |
int cond, do_sub; |
|
|
if (n->flags & NODE_NOPRT) |
if (n->flags & NODE_NOPRT) |
return; |
return; |
Line 660 print_node(DECL_ARGS) |
|
Line 687 print_node(DECL_ARGS) |
|
else if (outflags & MMAN_Sm) |
else if (outflags & MMAN_Sm) |
outflags |= MMAN_spc; |
outflags |= MMAN_spc; |
} else if (n->tok < ROFF_MAX) { |
} else if (n->tok < ROFF_MAX) { |
(*roff_manacts[n->tok])(meta, n); |
(*roff_man_acts[n->tok])(meta, n); |
return; |
return; |
} else { |
} else { |
assert(n->tok >= MDOC_Dd && n->tok < MDOC_MAX); |
|
/* |
/* |
* 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 = mdoc_man_act(n->tok); |
cond = act->cond == NULL || (*act->cond)(meta, n); |
cond = act->cond == NULL || (*act->cond)(meta, n); |
if (cond && act->pre != NULL && |
if (cond && act->pre != NULL && |
(n->end == ENDBODY_NOT || n->child != NULL)) |
(n->end == ENDBODY_NOT || n->child != NULL)) |
Line 716 pre_enc(DECL_ARGS) |
|
Line 742 pre_enc(DECL_ARGS) |
|
{ |
{ |
const char *prefix; |
const char *prefix; |
|
|
prefix = manacts[n->tok].prefix; |
prefix = mdoc_man_act(n->tok)->prefix; |
if (NULL == prefix) |
if (NULL == prefix) |
return 1; |
return 1; |
print_word(prefix); |
print_word(prefix); |
Line 729 post_enc(DECL_ARGS) |
|
Line 755 post_enc(DECL_ARGS) |
|
{ |
{ |
const char *suffix; |
const char *suffix; |
|
|
suffix = manacts[n->tok].suffix; |
suffix = mdoc_man_act(n->tok)->suffix; |
if (NULL == suffix) |
if (NULL == suffix) |
return; |
return; |
outflags &= ~(MMAN_spc | MMAN_nl); |
outflags &= ~(MMAN_spc | MMAN_nl); |
|
|
post_percent(DECL_ARGS) |
post_percent(DECL_ARGS) |
{ |
{ |
|
|
if (pre_em == manacts[n->tok].pre) |
if (mdoc_man_act(n->tok)->pre == pre_em) |
font_pop(); |
font_pop(); |
if (n->next) { |
if (n->next) { |
print_word(","); |
print_word(","); |
Line 800 pre_sect(DECL_ARGS) |
|
Line 826 pre_sect(DECL_ARGS) |
|
|
|
if (n->type == ROFFT_HEAD) { |
if (n->type == ROFFT_HEAD) { |
outflags |= MMAN_sp; |
outflags |= MMAN_sp; |
print_block(manacts[n->tok].prefix, 0); |
print_block(mdoc_man_act(n->tok)->prefix, 0); |
print_word(""); |
print_word(""); |
putchar('\"'); |
putchar('\"'); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
Line 980 post_bf(DECL_ARGS) |
|
Line 1006 post_bf(DECL_ARGS) |
|
static int |
static int |
pre_bk(DECL_ARGS) |
pre_bk(DECL_ARGS) |
{ |
{ |
|
|
switch (n->type) { |
switch (n->type) { |
case ROFFT_BLOCK: |
case ROFFT_BLOCK: |
return 1; |
return 1; |
case ROFFT_BODY: |
case ROFFT_BODY: |
|
case ROFFT_ELEM: |
outflags |= MMAN_Bk; |
outflags |= MMAN_Bk; |
return 1; |
return 1; |
default: |
default: |
Line 995 pre_bk(DECL_ARGS) |
|
Line 1021 pre_bk(DECL_ARGS) |
|
static void |
static void |
post_bk(DECL_ARGS) |
post_bk(DECL_ARGS) |
{ |
{ |
|
switch (n->type) { |
if (n->type == ROFFT_BODY) |
case ROFFT_ELEM: |
|
while ((n = n->parent) != NULL) |
|
if (n->tok == MDOC_Bk) |
|
return; |
|
/* FALLTHROUGH */ |
|
case ROFFT_BODY: |
outflags &= ~MMAN_Bk; |
outflags &= ~MMAN_Bk; |
|
break; |
|
default: |
|
break; |
|
} |
} |
} |
|
|
static int |
static int |
Line 1387 pre_it(DECL_ARGS) |
|
Line 1422 pre_it(DECL_ARGS) |
|
if (bln->norm->Bl.type == LIST_diag) |
if (bln->norm->Bl.type == LIST_diag) |
print_line(".B \"", 0); |
print_line(".B \"", 0); |
else |
else |
print_line(".R \"", 0); |
print_line(".BR \\& \"", 0); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
return 1; |
return 1; |
case LIST_bullet: |
case LIST_bullet: |
Line 1525 post_lb(DECL_ARGS) |
|
Line 1560 post_lb(DECL_ARGS) |
|
static int |
static int |
pre_lk(DECL_ARGS) |
pre_lk(DECL_ARGS) |
{ |
{ |
const struct roff_node *link, *descr; |
const struct roff_node *link, *descr, *punct; |
int display; |
|
|
|
if ((link = n->child) == NULL) |
if ((link = n->child) == NULL) |
return 0; |
return 0; |
|
|
|
/* Find beginning of trailing punctuation. */ |
|
punct = n->last; |
|
while (punct != link && punct->flags & NODE_DELIMC) |
|
punct = punct->prev; |
|
punct = punct->next; |
|
|
/* Link text. */ |
/* Link text. */ |
if ((descr = link->next) != NULL && !(descr->flags & NODE_DELIMC)) { |
if ((descr = link->next) != NULL && descr != punct) { |
font_push('I'); |
font_push('I'); |
while (descr != NULL && !(descr->flags & NODE_DELIMC)) { |
while (descr != punct) { |
print_word(descr->string); |
print_word(descr->string); |
descr = descr->next; |
descr = descr->next; |
} |
} |
Line 1543 pre_lk(DECL_ARGS) |
|
Line 1583 pre_lk(DECL_ARGS) |
|
} |
} |
|
|
/* Link target. */ |
/* Link target. */ |
display = man_strlen(link->string) >= 26; |
|
if (display) { |
|
print_line(".RS", MMAN_Bk_susp); |
|
print_word("6n"); |
|
outflags |= MMAN_nl; |
|
} |
|
font_push('B'); |
font_push('B'); |
print_word(link->string); |
print_word(link->string); |
font_pop(); |
font_pop(); |
|
|
/* Trailing punctuation. */ |
/* Trailing punctuation. */ |
while (descr != NULL) { |
while (punct != NULL) { |
print_word(descr->string); |
print_word(punct->string); |
descr = descr->next; |
punct = punct->next; |
} |
} |
if (display) |
|
print_line(".RE", MMAN_nl); |
|
return 0; |
return 0; |
} |
} |
|
|
static void |
static void |
pre_ll(DECL_ARGS) |
pre_onearg(DECL_ARGS) |
{ |
{ |
print_line(".ll", 0); |
outflags |= MMAN_nl; |
|
print_word("."); |
|
outflags &= ~MMAN_spc; |
|
print_word(roff_name[n->tok]); |
if (n->child != NULL) |
if (n->child != NULL) |
print_word(n->child->string); |
print_word(n->child->string); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
|
if (n->tok == ROFF_ce) |
|
for (n = n->child->next; n != NULL; n = n->next) |
|
print_node(meta, n); |
} |
} |
|
|
static int |
static int |
Line 1713 pre_sy(DECL_ARGS) |
|
Line 1751 pre_sy(DECL_ARGS) |
|
|
|
font_push('B'); |
font_push('B'); |
return 1; |
return 1; |
|
} |
|
|
|
static void |
|
pre_ta(DECL_ARGS) |
|
{ |
|
print_line(".ta", 0); |
|
for (n = n->child; n != NULL; n = n->next) |
|
print_word(n->string); |
|
outflags |= MMAN_nl; |
} |
} |
|
|
static int |
static int |