version 1.31, 2012/07/10 19:54:11 |
version 1.44, 2012/11/18 19:34:19 |
|
|
#include "mdoc.h" |
#include "mdoc.h" |
#include "main.h" |
#include "main.h" |
|
|
#define DECL_ARGS const struct mdoc_meta *m, \ |
#define DECL_ARGS const struct mdoc_meta *meta, \ |
const struct mdoc_node *n |
const struct mdoc_node *n |
|
|
struct manact { |
struct manact { |
Line 43 static int cond_body(DECL_ARGS); |
|
Line 43 static int cond_body(DECL_ARGS); |
|
static int cond_head(DECL_ARGS); |
static int cond_head(DECL_ARGS); |
static void font_push(char); |
static void font_push(char); |
static void font_pop(void); |
static void font_pop(void); |
|
static void post__t(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 65 static void post_pf(DECL_ARGS); |
|
Line 66 static void post_pf(DECL_ARGS); |
|
static void post_sect(DECL_ARGS); |
static void post_sect(DECL_ARGS); |
static void post_sp(DECL_ARGS); |
static void post_sp(DECL_ARGS); |
static void post_vt(DECL_ARGS); |
static void post_vt(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_bd(DECL_ARGS); |
static int pre_bd(DECL_ARGS); |
Line 90 static int pre_nm(DECL_ARGS); |
|
Line 92 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 int pre_pp(DECL_ARGS); |
static int pre_pp(DECL_ARGS); |
|
static int pre_rs(DECL_ARGS); |
static int pre_sm(DECL_ARGS); |
static int pre_sm(DECL_ARGS); |
static int pre_sp(DECL_ARGS); |
static int pre_sp(DECL_ARGS); |
static int pre_sect(DECL_ARGS); |
static int pre_sect(DECL_ARGS); |
Line 99 static int pre_vt(DECL_ARGS); |
|
Line 102 static int pre_vt(DECL_ARGS); |
|
static int pre_ux(DECL_ARGS); |
static int pre_ux(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 *); |
|
static void print_line(const char *, int); |
|
static void print_block(const char *, int); |
static void print_offs(const char *); |
static void print_offs(const char *); |
static void print_width(const char *, const struct mdoc_node *); |
static void print_width(const char *, |
|
const struct mdoc_node *, size_t); |
static void print_count(int *); |
static void print_count(int *); |
static void print_node(DECL_ARGS); |
static void print_node(DECL_ARGS); |
|
|
Line 152 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 158 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ NULL, pre_em, post_font, NULL, NULL }, /* Va */ |
{ NULL, pre_em, post_font, NULL, NULL }, /* Va */ |
{ NULL, pre_vt, post_vt, NULL, NULL }, /* Vt */ |
{ NULL, pre_vt, post_vt, NULL, NULL }, /* Vt */ |
{ NULL, pre_xr, NULL, NULL, NULL }, /* Xr */ |
{ NULL, pre_xr, NULL, NULL, NULL }, /* Xr */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* _%A */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %A */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%B */ |
{ NULL, pre_em, post_percent, NULL, NULL }, /* %B */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* _%D */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %D */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%I */ |
{ NULL, pre_em, post_percent, NULL, NULL }, /* %I */ |
{ NULL, pre_enc, post_percent, "\\fI", "\\fP" }, /* %J */ |
{ NULL, pre_em, post_percent, NULL, NULL }, /* %J */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%N */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %N */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%O */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %O */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%P */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %P */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%R */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %R */ |
{ NULL, pre_enc, post_percent, "\"", "\"" }, /* %T */ |
{ NULL, pre__t, post__t, NULL, NULL }, /* %T */ |
{ NULL, NULL, NULL, 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_enc, post_enc, "<", ">" }, /* Ao */ |
{ cond_body, pre_enc, post_enc, "<", ">" }, /* Aq */ |
{ cond_body, pre_enc, post_enc, "<", ">" }, /* Aq */ |
Line 196 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 202 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qo */ |
{ cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qo */ |
{ cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qq */ |
{ cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qq */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Re */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Re */ |
{ cond_body, pre_pp, NULL, NULL, NULL }, /* Rs */ |
{ cond_body, pre_rs, NULL, NULL, NULL }, /* Rs */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Sc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Sc */ |
{ cond_body, pre_enc, post_enc, "`", "'" }, /* So */ |
{ cond_body, pre_enc, post_enc, "`", "'" }, /* So */ |
{ cond_body, pre_enc, post_enc, "`", "'" }, /* Sq */ |
{ cond_body, pre_enc, post_enc, "`", "'" }, /* Sq */ |
Line 205 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 211 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ NULL, pre_sy, post_font, NULL, NULL }, /* Sy */ |
{ NULL, pre_sy, post_font, NULL, NULL }, /* Sy */ |
{ NULL, pre_li, post_font, NULL, NULL }, /* Tn */ |
{ NULL, pre_li, post_font, NULL, NULL }, /* Tn */ |
{ NULL, pre_ux, NULL, "UNIX", NULL }, /* Ux */ |
{ NULL, pre_ux, NULL, "UNIX", NULL }, /* Ux */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _Xc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Xc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _Xo */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Xo */ |
{ NULL, pre_fo, post_fo, NULL, NULL }, /* Fo */ |
{ NULL, pre_fo, post_fo, NULL, NULL }, /* Fo */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Fc */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Fc */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Oo */ |
{ cond_body, pre_enc, post_enc, "[", "]" }, /* Oo */ |
Line 224 static const struct manact manacts[MDOC_MAX + 1] = { |
|
Line 230 static const struct manact manacts[MDOC_MAX + 1] = { |
|
{ cond_body, pre_enc, post_enc, "{", "}" }, /* Brq */ |
{ cond_body, pre_enc, post_enc, "{", "}" }, /* Brq */ |
{ 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, NULL, NULL, NULL }, /* _%C */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %C */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Es */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Es */ |
{ NULL, NULL, NULL, NULL, NULL }, /* En */ |
{ NULL, NULL, NULL, NULL, NULL }, /* En */ |
{ NULL, pre_ux, NULL, "DragonFly", NULL }, /* Dx */ |
{ NULL, pre_ux, NULL, "DragonFly", NULL }, /* Dx */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%Q */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %Q */ |
{ NULL, pre_br, NULL, NULL, NULL }, /* br */ |
{ NULL, pre_br, NULL, NULL, NULL }, /* br */ |
{ NULL, pre_sp, post_sp, NULL, NULL }, /* sp */ |
{ NULL, pre_sp, post_sp, NULL, NULL }, /* sp */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _%U */ |
{ NULL, NULL, post_percent, NULL, NULL }, /* %U */ |
{ NULL, NULL, NULL, NULL, NULL }, /* _Ta */ |
{ NULL, NULL, NULL, NULL, NULL }, /* Ta */ |
{ NULL, NULL, NULL, NULL, NULL }, /* ROOT */ |
{ NULL, NULL, NULL, NULL, NULL }, /* ROOT */ |
}; |
}; |
|
|
static int outflags; |
static int outflags; |
#define MMAN_spc (1 << 0) |
#define MMAN_spc (1 << 0) /* blank character before next word */ |
#define MMAN_spc_force (1 << 1) |
#define MMAN_spc_force (1 << 1) /* even before trailing punctuation */ |
#define MMAN_nl (1 << 2) |
#define MMAN_nl (1 << 2) /* break man(7) code line */ |
#define MMAN_br (1 << 3) |
#define MMAN_br (1 << 3) /* break output line */ |
#define MMAN_sp (1 << 4) |
#define MMAN_sp (1 << 4) /* insert a blank output line */ |
#define MMAN_Sm (1 << 5) |
#define MMAN_PP (1 << 5) /* reset indentation etc. */ |
#define MMAN_Bk (1 << 6) |
#define MMAN_Sm (1 << 6) /* horizontal spacing mode */ |
#define MMAN_An_split (1 << 7) |
#define MMAN_Bk (1 << 7) /* word keep mode */ |
#define MMAN_An_nosplit (1 << 8) |
#define MMAN_An_split (1 << 8) /* author mode is "split" */ |
|
#define MMAN_An_nosplit (1 << 9) /* author mode is "nosplit" */ |
|
#define MMAN_PD (1 << 10) /* inter-paragraph spacing disabled */ |
|
|
|
#define BL_STACK_MAX 32 |
|
|
|
static size_t Bl_stack[BL_STACK_MAX]; /* offsets [chars] */ |
|
static int Bl_stack_post[BL_STACK_MAX]; /* add final .RE */ |
|
static int Bl_stack_len; /* number of nested Bl blocks */ |
|
static int TPremain; /* characters before tag is full */ |
|
|
static struct { |
static struct { |
char *head; |
char *head; |
char *tail; |
char *tail; |
Line 263 font_push(char newfont) |
|
Line 278 font_push(char newfont) |
|
fontqueue.size); |
fontqueue.size); |
} |
} |
*fontqueue.tail = newfont; |
*fontqueue.tail = newfont; |
print_word("\\f"); |
print_word(""); |
|
printf("\\f"); |
putchar(newfont); |
putchar(newfont); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
} |
} |
|
|
if (fontqueue.tail > fontqueue.head) |
if (fontqueue.tail > fontqueue.head) |
fontqueue.tail--; |
fontqueue.tail--; |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
print_word("\\f"); |
print_word(""); |
|
printf("\\f"); |
putchar(*fontqueue.tail); |
putchar(*fontqueue.tail); |
} |
} |
|
|
|
|
print_word(const char *s) |
print_word(const char *s) |
{ |
{ |
|
|
if ((MMAN_sp | MMAN_br | MMAN_nl) & outflags) { |
if ((MMAN_PP | MMAN_sp | MMAN_br | MMAN_nl) & outflags) { |
/* |
/* |
* If we need a newline, print it now and start afresh. |
* If we need a newline, print it now and start afresh. |
*/ |
*/ |
if (MMAN_sp & outflags) |
if (MMAN_PP & outflags) { |
|
if (MMAN_sp & outflags) { |
|
if (MMAN_PD & outflags) { |
|
printf("\n.PD"); |
|
outflags &= ~MMAN_PD; |
|
} |
|
} else if ( ! (MMAN_PD & outflags)) { |
|
printf("\n.PD 0"); |
|
outflags |= MMAN_PD; |
|
} |
|
printf("\n.PP\n"); |
|
} else if (MMAN_sp & outflags) |
printf("\n.sp\n"); |
printf("\n.sp\n"); |
else if (MMAN_br & outflags) |
else if (MMAN_br & outflags) |
printf("\n.br\n"); |
printf("\n.br\n"); |
else if (MMAN_nl & outflags) |
else if (MMAN_nl & outflags) |
putchar('\n'); |
putchar('\n'); |
outflags &= ~(MMAN_sp|MMAN_br|MMAN_nl|MMAN_spc); |
outflags &= ~(MMAN_PP|MMAN_sp|MMAN_br|MMAN_nl|MMAN_spc); |
} else if (MMAN_spc & outflags && '\0' != s[0]) |
if (1 == TPremain) |
|
printf(".br\n"); |
|
TPremain = 0; |
|
} else if (MMAN_spc & outflags) { |
/* |
/* |
* If we need a space, only print it if |
* If we need a space, only print it if |
* (1) it is forced by `No' or |
* (1) it is forced by `No' or |
* (2) what follows is not terminating punctuation or |
* (2) what follows is not terminating punctuation or |
* (3) what follows is longer than one character. |
* (3) what follows is longer than one character. |
*/ |
*/ |
if (MMAN_spc_force & outflags || |
if (MMAN_spc_force & outflags || '\0' == s[0] || |
NULL == strchr(".,:;)]?!", s[0]) || '\0' != s[1]) { |
NULL == strchr(".,:;)]?!", s[0]) || '\0' != s[1]) { |
if (MMAN_Bk & outflags) { |
if (MMAN_Bk & outflags) { |
putchar('\\'); |
putchar('\\'); |
putchar('~'); |
putchar('~'); |
} else |
} else |
putchar(' '); |
putchar(' '); |
|
if (TPremain) |
|
TPremain--; |
} |
} |
|
} |
|
|
/* |
/* |
* Reassign needing space if we're not following opening |
* Reassign needing space if we're not following opening |
* punctuation. |
* punctuation. |
*/ |
*/ |
if (MMAN_Sm & outflags && |
if (MMAN_Sm & outflags && ('\0' == s[0] || |
(('(' != s[0] && '[' != s[0]) || '\0' != s[1])) |
(('(' != s[0] && '[' != s[0]) || '\0' != s[1]))) |
outflags |= MMAN_spc; |
outflags |= MMAN_spc; |
else |
else |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
Line 333 print_word(const char *s) |
|
Line 367 print_word(const char *s) |
|
putchar((unsigned char)*s); |
putchar((unsigned char)*s); |
break; |
break; |
} |
} |
|
if (TPremain) |
|
TPremain--; |
} |
} |
} |
} |
|
|
static void |
static void |
|
print_line(const char *s, int newflags) |
|
{ |
|
|
|
outflags &= ~MMAN_br; |
|
outflags |= MMAN_nl; |
|
print_word(s); |
|
outflags |= newflags; |
|
} |
|
|
|
static void |
|
print_block(const char *s, int newflags) |
|
{ |
|
|
|
outflags &= ~MMAN_PP; |
|
if (MMAN_sp & outflags) { |
|
outflags &= ~(MMAN_sp | MMAN_br); |
|
if (MMAN_PD & outflags) { |
|
print_line(".PD", 0); |
|
outflags &= ~MMAN_PD; |
|
} |
|
} else if (! (MMAN_PD & outflags)) { |
|
print_line(".PD 0", 0); |
|
outflags |= MMAN_PD; |
|
} |
|
outflags |= MMAN_nl; |
|
print_word(s); |
|
outflags |= newflags; |
|
} |
|
|
|
static void |
print_offs(const char *v) |
print_offs(const char *v) |
{ |
{ |
char buf[24]; |
char buf[24]; |
struct roffsu su; |
struct roffsu su; |
size_t sz; |
size_t sz; |
|
|
|
/* Convert v into a number (of characters). */ |
if (NULL == v || '\0' == *v || 0 == strcmp(v, "left")) |
if (NULL == v || '\0' == *v || 0 == strcmp(v, "left")) |
sz = 0; |
sz = 0; |
else if (0 == strcmp(v, "indent")) |
else if (0 == strcmp(v, "indent")) |
Line 350 print_offs(const char *v) |
|
Line 417 print_offs(const char *v) |
|
else if (0 == strcmp(v, "indent-two")) |
else if (0 == strcmp(v, "indent-two")) |
sz = 12; |
sz = 12; |
else if (a2roffsu(v, &su, SCALE_MAX)) { |
else if (a2roffsu(v, &su, SCALE_MAX)) { |
print_word(v); |
if (SCALE_EN == su.unit) |
return; |
sz = su.scale; |
|
else { |
|
/* |
|
* XXX |
|
* If we are inside an enclosing list, |
|
* there is no easy way to add the two |
|
* indentations because they are provided |
|
* in terms of different units. |
|
*/ |
|
print_word(v); |
|
return; |
|
} |
} else |
} else |
sz = strlen(v); |
sz = strlen(v); |
|
|
|
/* |
|
* We are inside an enclosing list. |
|
* Add the two indentations. |
|
*/ |
|
if (Bl_stack_len) |
|
sz += Bl_stack[Bl_stack_len - 1]; |
|
|
snprintf(buf, sizeof(buf), "%ldn", sz); |
snprintf(buf, sizeof(buf), "%ldn", sz); |
print_word(buf); |
print_word(buf); |
} |
} |
|
|
void |
void |
print_width(const char *v, const struct mdoc_node *child) |
print_width(const char *v, const struct mdoc_node *child, size_t defsz) |
{ |
{ |
char buf[24]; |
char buf[24]; |
struct roffsu su; |
struct roffsu su; |
size_t sz, chsz; |
size_t sz, chsz; |
|
int numeric, remain; |
|
|
/* XXX Rough estimation, might have multiple parts. */ |
numeric = 1; |
chsz = (NULL != child && MDOC_TEXT == child->type) ? |
remain = 0; |
strlen(child->string) : 0; |
|
|
|
if (a2roffsu(v, &su, SCALE_MAX)) { |
/* Convert v into a number (of characters). */ |
|
if (NULL == v) |
|
sz = defsz; |
|
else if (a2roffsu(v, &su, SCALE_MAX)) { |
if (SCALE_EN == su.unit) |
if (SCALE_EN == su.unit) |
sz = su.scale; |
sz = su.scale; |
else { |
else { |
if (chsz) |
sz = 0; |
print_word(".HP"); |
numeric = 0; |
else |
|
print_word(".TP"); |
|
print_word(v); |
|
return; |
|
} |
} |
} else |
} else |
sz = strlen(v); |
sz = strlen(v); |
|
|
if (chsz > sz) |
/* XXX Rough estimation, might have multiple parts. */ |
print_word(".HP"); |
chsz = (NULL != child && MDOC_TEXT == child->type) ? |
else |
strlen(child->string) : 0; |
print_word(".TP"); |
|
snprintf(buf, sizeof(buf), "%ldn", sz + 2); |
/* |
print_word(buf); |
* If we are inside an enclosing list, |
|
* preserve its indentation. |
|
*/ |
|
if (Bl_stack_len && Bl_stack[Bl_stack_len - 1]) { |
|
print_line(".RS", 0); |
|
snprintf(buf, sizeof(buf), "%ldn", |
|
Bl_stack[Bl_stack_len - 1]); |
|
print_word(buf); |
|
} |
|
|
|
/* |
|
* Save our own indentation, |
|
* such that child lists can use it. |
|
*/ |
|
Bl_stack[Bl_stack_len++] = sz + 2; |
|
|
|
/* Set up the current list. */ |
|
if (defsz && chsz > sz) |
|
print_block(".HP", 0); |
|
else { |
|
print_block(".TP", 0); |
|
remain = sz + 2; |
|
} |
|
if (numeric) { |
|
snprintf(buf, sizeof(buf), "%ldn", sz + 2); |
|
print_word(buf); |
|
} else |
|
print_word(v); |
|
TPremain = remain; |
} |
} |
|
|
void |
void |
Line 417 man_man(void *arg, const struct man *man) |
|
Line 529 man_man(void *arg, const struct man *man) |
|
void |
void |
man_mdoc(void *arg, const struct mdoc *mdoc) |
man_mdoc(void *arg, const struct mdoc *mdoc) |
{ |
{ |
const struct mdoc_meta *m; |
const struct mdoc_meta *meta; |
const struct mdoc_node *n; |
const struct mdoc_node *n; |
|
|
m = mdoc_meta(mdoc); |
meta = mdoc_meta(mdoc); |
n = mdoc_node(mdoc); |
n = mdoc_node(mdoc); |
|
|
printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"", |
printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"", |
m->title, m->msec, m->date, m->os, m->vol); |
meta->title, meta->msec, meta->date, |
|
meta->os, meta->vol); |
|
|
outflags = MMAN_nl | MMAN_Sm; |
outflags = MMAN_nl | MMAN_Sm; |
if (0 == fontqueue.size) { |
if (0 == fontqueue.size) { |
Line 432 man_mdoc(void *arg, const struct mdoc *mdoc) |
|
Line 545 man_mdoc(void *arg, const struct mdoc *mdoc) |
|
fontqueue.head = fontqueue.tail = mandoc_malloc(8); |
fontqueue.head = fontqueue.tail = mandoc_malloc(8); |
*fontqueue.tail = 'R'; |
*fontqueue.tail = 'R'; |
} |
} |
print_node(m, n); |
print_node(meta, n); |
putchar('\n'); |
putchar('\n'); |
} |
} |
|
|
Line 462 print_node(DECL_ARGS) |
|
Line 575 print_node(DECL_ARGS) |
|
*/ |
*/ |
if (MMAN_nl & outflags && ('.' == *n->string || |
if (MMAN_nl & outflags && ('.' == *n->string || |
'\'' == *n->string)) { |
'\'' == *n->string)) { |
print_word("\\&"); |
print_word(""); |
|
printf("\\&"); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
} |
} |
print_word(n->string); |
print_word(n->string); |
Line 472 print_node(DECL_ARGS) |
|
Line 586 print_node(DECL_ARGS) |
|
* node. |
* node. |
*/ |
*/ |
act = manacts + n->tok; |
act = manacts + n->tok; |
cond = NULL == act->cond || (*act->cond)(m, n); |
cond = NULL == act->cond || (*act->cond)(meta, n); |
if (cond && act->pre) |
if (cond && act->pre) |
do_sub = (*act->pre)(m, n); |
do_sub = (*act->pre)(meta, n); |
} |
} |
|
|
/* |
/* |
Line 484 print_node(DECL_ARGS) |
|
Line 598 print_node(DECL_ARGS) |
|
*/ |
*/ |
if (do_sub) |
if (do_sub) |
for (sub = n->child; sub; sub = sub->next) |
for (sub = n->child; sub; sub = sub->next) |
print_node(m, sub); |
print_node(meta, sub); |
|
|
/* |
/* |
* Lastly, conditionally run the post-node handler. |
* Lastly, conditionally run the post-node handler. |
*/ |
*/ |
if (cond && act->post) |
if (cond && act->post) |
(*act->post)(m, n); |
(*act->post)(meta, n); |
} |
} |
|
|
static int |
static int |
Line 539 post_font(DECL_ARGS) |
|
Line 653 post_font(DECL_ARGS) |
|
font_pop(); |
font_pop(); |
} |
} |
|
|
/* |
|
* Used in listings (percent = %A, e.g.). |
|
* FIXME: this is incomplete. |
|
* It doesn't print a nice ", and" for lists. |
|
*/ |
|
static void |
static void |
post_percent(DECL_ARGS) |
post_percent(DECL_ARGS) |
{ |
{ |
|
|
post_enc(m, n); |
if (pre_em == manacts[n->tok].pre) |
if (n->next) |
font_pop(); |
|
if (n->next) { |
print_word(","); |
print_word(","); |
else { |
if (n->prev && n->prev->tok == n->tok && |
|
n->next->tok == n->tok) |
|
print_word("and"); |
|
} else { |
print_word("."); |
print_word("."); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
} |
} |
} |
} |
|
|
|
static int |
|
pre__t(DECL_ARGS) |
|
{ |
|
|
|
if (n->parent && MDOC_Rs == n->parent->tok && |
|
n->parent->norm->Rs.quote_T) { |
|
print_word(""); |
|
putchar('\"'); |
|
outflags &= ~MMAN_spc; |
|
} else |
|
font_push('I'); |
|
return(1); |
|
} |
|
|
|
static void |
|
post__t(DECL_ARGS) |
|
{ |
|
|
|
if (n->parent && MDOC_Rs == n->parent->tok && |
|
n->parent->norm->Rs.quote_T) { |
|
outflags &= ~MMAN_spc; |
|
print_word(""); |
|
putchar('\"'); |
|
} else |
|
font_pop(); |
|
post_percent(meta, n); |
|
} |
|
|
/* |
/* |
* Print before a section header. |
* Print before a section header. |
*/ |
*/ |
Line 566 pre_sect(DECL_ARGS) |
|
Line 707 pre_sect(DECL_ARGS) |
|
|
|
if (MDOC_HEAD != n->type) |
if (MDOC_HEAD != n->type) |
return(1); |
return(1); |
outflags |= MMAN_nl; |
outflags |= MMAN_sp; |
print_word(manacts[n->tok].prefix); |
print_block(manacts[n->tok].prefix, 0); |
print_word("\""); |
print_word(""); |
|
putchar('\"'); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
return(1); |
return(1); |
} |
} |
Line 583 post_sect(DECL_ARGS) |
|
Line 725 post_sect(DECL_ARGS) |
|
if (MDOC_HEAD != n->type) |
if (MDOC_HEAD != n->type) |
return; |
return; |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
print_word("\""); |
print_word(""); |
|
putchar('\"'); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
if (MDOC_Sh == n->tok && SEC_AUTHORS == n->sec) |
if (MDOC_Sh == n->tok && SEC_AUTHORS == n->sec) |
outflags &= ~(MMAN_An_split | MMAN_An_nosplit); |
outflags &= ~(MMAN_An_split | MMAN_An_nosplit); |
|
|
pre_bd(DECL_ARGS) |
pre_bd(DECL_ARGS) |
{ |
{ |
|
|
if (0 == n->norm->Bd.comp) |
outflags &= ~(MMAN_PP | MMAN_sp | MMAN_br); |
outflags |= MMAN_sp; |
|
if (DISP_unfilled == n->norm->Bd.type || |
if (DISP_unfilled == n->norm->Bd.type || |
DISP_literal == n->norm->Bd.type) { |
DISP_literal == n->norm->Bd.type) |
outflags |= MMAN_nl; |
print_line(".nf", 0); |
print_word(".nf"); |
if (0 == n->norm->Bd.comp && NULL != n->parent->prev) |
} |
outflags |= MMAN_sp; |
outflags |= MMAN_nl; |
print_line(".RS", 0); |
print_word(".RS"); |
|
print_offs(n->norm->Bd.offs); |
print_offs(n->norm->Bd.offs); |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
return(1); |
return(1); |
Line 683 pre_bd(DECL_ARGS) |
|
Line 825 pre_bd(DECL_ARGS) |
|
static void |
static void |
post_bd(DECL_ARGS) |
post_bd(DECL_ARGS) |
{ |
{ |
|
char buf[24]; |
|
|
outflags |= MMAN_nl; |
/* Close out this display. */ |
print_word(".RE"); |
print_line(".RE", MMAN_nl); |
if (DISP_unfilled == n->norm->Bd.type || |
if (DISP_unfilled == n->norm->Bd.type || |
DISP_literal == n->norm->Bd.type) { |
DISP_literal == n->norm->Bd.type) |
outflags |= MMAN_nl; |
print_line(".fi", MMAN_nl); |
print_word(".fi"); |
|
|
/* |
|
* If we are inside an enclosing list and the current |
|
* list item is not yet finished, restore the correct |
|
* indentation for what remains of that item. |
|
*/ |
|
if (NULL != n->parent->next && |
|
Bl_stack_len && Bl_stack[Bl_stack_len - 1]) { |
|
print_line(".RS", 0); |
|
snprintf(buf, sizeof(buf), "%ldn", |
|
Bl_stack[Bl_stack_len - 1]); |
|
print_word(buf); |
|
/* Remeber to close out this .RS block later. */ |
|
Bl_stack_post[Bl_stack_len - 1] = 1; |
} |
} |
outflags |= MMAN_nl; |
|
} |
} |
|
|
static int |
static int |
Line 754 post_bk(DECL_ARGS) |
|
Line 909 post_bk(DECL_ARGS) |
|
static int |
static int |
pre_bl(DECL_ARGS) |
pre_bl(DECL_ARGS) |
{ |
{ |
|
size_t icol; |
|
|
if (LIST_enum == n->norm->Bl.type) |
switch (n->norm->Bl.type) { |
|
case (LIST_enum): |
n->norm->Bl.count = 0; |
n->norm->Bl.count = 0; |
|
return(1); |
|
case (LIST_column): |
|
break; |
|
default: |
|
return(1); |
|
} |
|
|
|
print_line(".TS", MMAN_nl); |
|
for (icol = 0; icol < n->norm->Bl.ncols; icol++) |
|
print_word("l"); |
|
print_word("."); |
|
outflags |= MMAN_nl; |
return(1); |
return(1); |
} |
} |
|
|
|
|
post_bl(DECL_ARGS) |
post_bl(DECL_ARGS) |
{ |
{ |
|
|
if (LIST_enum == n->norm->Bl.type) |
switch (n->norm->Bl.type) { |
|
case (LIST_column): |
|
print_line(".TE", 0); |
|
break; |
|
case (LIST_enum): |
n->norm->Bl.count = 0; |
n->norm->Bl.count = 0; |
|
break; |
|
default: |
|
break; |
|
} |
|
outflags |= MMAN_PP | MMAN_nl; |
|
outflags &= ~(MMAN_sp | MMAN_br); |
} |
} |
|
|
static int |
static int |
|
|
pre_dl(DECL_ARGS) |
pre_dl(DECL_ARGS) |
{ |
{ |
|
|
outflags |= MMAN_nl; |
print_line(".RS 6n", MMAN_nl); |
print_word(".RS 6n"); |
|
outflags |= MMAN_nl; |
|
return(1); |
return(1); |
} |
} |
|
|
|
|
post_dl(DECL_ARGS) |
post_dl(DECL_ARGS) |
{ |
{ |
|
|
outflags |= MMAN_nl; |
print_line(".RE", MMAN_nl); |
print_word(".RE"); |
|
outflags |= MMAN_nl; |
|
} |
} |
|
|
static int |
static int |
Line 840 pre_fa(DECL_ARGS) |
|
Line 1015 pre_fa(DECL_ARGS) |
|
|
|
while (NULL != n) { |
while (NULL != n) { |
font_push('I'); |
font_push('I'); |
print_node(m, n); |
print_node(meta, n); |
font_pop(); |
font_pop(); |
if (NULL != (n = n->next)) |
if (NULL != (n = n->next)) |
print_word(","); |
print_word(","); |
Line 904 pre_fn(DECL_ARGS) |
|
Line 1079 pre_fn(DECL_ARGS) |
|
return(0); |
return(0); |
|
|
font_push('B'); |
font_push('B'); |
print_node(m, n); |
print_node(meta, n); |
font_pop(); |
font_pop(); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
print_word("("); |
print_word("("); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
return(pre_fa(m, n->next)); |
|
|
n = n->next; |
|
if (NULL != n) |
|
pre_fa(meta, n); |
|
return(0); |
} |
} |
|
|
static void |
static void |
Line 954 post_fo(DECL_ARGS) |
|
Line 1133 post_fo(DECL_ARGS) |
|
font_pop(); |
font_pop(); |
break; |
break; |
case (MDOC_BODY): |
case (MDOC_BODY): |
post_fn(m, n); |
post_fn(meta, n); |
break; |
break; |
default: |
default: |
break; |
break; |
Line 1010 pre_it(DECL_ARGS) |
|
Line 1189 pre_it(DECL_ARGS) |
|
|
|
switch (n->type) { |
switch (n->type) { |
case (MDOC_HEAD): |
case (MDOC_HEAD): |
outflags |= MMAN_nl; |
outflags |= MMAN_PP | MMAN_nl; |
bln = n->parent->parent; |
bln = n->parent->parent; |
|
if (0 == bln->norm->Bl.comp || |
|
(NULL == n->parent->prev && |
|
NULL == bln->parent->prev)) |
|
outflags |= MMAN_sp; |
|
outflags &= ~MMAN_br; |
switch (bln->norm->Bl.type) { |
switch (bln->norm->Bl.type) { |
case (LIST_item): |
case (LIST_item): |
if (bln->norm->Bl.comp) |
|
outflags |= MMAN_br; |
|
else |
|
outflags |= MMAN_sp; |
|
return(0); |
return(0); |
case (LIST_inset): |
case (LIST_inset): |
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
case (LIST_diag): |
case (LIST_diag): |
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
case (LIST_ohang): |
case (LIST_ohang): |
if (bln->norm->Bl.comp) |
|
outflags |= MMAN_br; |
|
else |
|
outflags |= MMAN_sp; |
|
if (bln->norm->Bl.type == LIST_diag) |
if (bln->norm->Bl.type == LIST_diag) |
print_word(".B \""); |
print_line(".B \"", 0); |
else |
else |
print_word(".R \""); |
print_line(".R \"", 0); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
return(1); |
return(1); |
case (LIST_bullet): |
case (LIST_bullet): |
Line 1039 pre_it(DECL_ARGS) |
|
Line 1215 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); |
print_width(bln->norm->Bl.width, NULL, 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) |
Line 1049 pre_it(DECL_ARGS) |
|
Line 1226 pre_it(DECL_ARGS) |
|
font_pop(); |
font_pop(); |
break; |
break; |
case (LIST_enum): |
case (LIST_enum): |
print_width(bln->norm->Bl.width, NULL); |
print_width(bln->norm->Bl.width, NULL, 0); |
|
TPremain = 0; |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
print_count(&bln->norm->Bl.count); |
print_count(&bln->norm->Bl.count); |
outflags |= MMAN_nl; |
|
break; |
break; |
case (LIST_hang): |
case (LIST_hang): |
print_width(bln->norm->Bl.width, n->child); |
print_width(bln->norm->Bl.width, n->child, 6); |
outflags |= MMAN_nl; |
TPremain = 0; |
break; |
break; |
|
case (LIST_tag): |
|
print_width(bln->norm->Bl.width, n->child, 0); |
|
putchar('\n'); |
|
outflags &= ~MMAN_spc; |
|
return(1); |
default: |
default: |
if (bln->norm->Bl.width) |
return(1); |
print_width(bln->norm->Bl.width, n->child); |
|
break; |
|
} |
} |
outflags |= MMAN_nl; |
outflags |= MMAN_nl; |
default: |
default: |
Line 1075 post_it(DECL_ARGS) |
|
Line 1255 post_it(DECL_ARGS) |
|
{ |
{ |
const struct mdoc_node *bln; |
const struct mdoc_node *bln; |
|
|
if (MDOC_HEAD == n->type) { |
bln = n->parent->parent; |
bln = n->parent->parent; |
|
|
switch (n->type) { |
|
case (MDOC_HEAD): |
switch (bln->norm->Bl.type) { |
switch (bln->norm->Bl.type) { |
case (LIST_diag): |
case (LIST_diag): |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
Line 1088 post_it(DECL_ARGS) |
|
Line 1270 post_it(DECL_ARGS) |
|
default: |
default: |
break; |
break; |
} |
} |
|
break; |
|
case (MDOC_BODY): |
|
switch (bln->norm->Bl.type) { |
|
case (LIST_bullet): |
|
/* FALLTHROUGH */ |
|
case (LIST_dash): |
|
/* FALLTHROUGH */ |
|
case (LIST_hyphen): |
|
/* FALLTHROUGH */ |
|
case (LIST_enum): |
|
/* FALLTHROUGH */ |
|
case (LIST_hang): |
|
/* FALLTHROUGH */ |
|
case (LIST_tag): |
|
assert(Bl_stack_len); |
|
Bl_stack[--Bl_stack_len] = 0; |
|
|
|
/* |
|
* Our indentation had to be restored |
|
* after a child display. |
|
* Close out that indentation block now. |
|
*/ |
|
if (Bl_stack_post[Bl_stack_len]) { |
|
print_line(".RE", MMAN_nl); |
|
Bl_stack_post[Bl_stack_len] = 0; |
|
} |
|
|
|
/* |
|
* We are inside an enclosing list. |
|
* Restore the indentation of that list. |
|
*/ |
|
if (Bl_stack_len && Bl_stack[Bl_stack_len - 1]) |
|
print_line(".RE", MMAN_nl); |
|
break; |
|
case (LIST_column): |
|
if (NULL != n->next) { |
|
putchar('\t'); |
|
outflags &= ~MMAN_spc; |
|
} |
|
break; |
|
default: |
|
break; |
|
} |
|
break; |
|
default: |
|
break; |
} |
} |
} |
} |
|
|
Line 1134 pre_li(DECL_ARGS) |
|
Line 1362 pre_li(DECL_ARGS) |
|
static int |
static int |
pre_nm(DECL_ARGS) |
pre_nm(DECL_ARGS) |
{ |
{ |
|
char *name; |
|
|
if (MDOC_BLOCK == n->type) |
if (MDOC_BLOCK == n->type) |
pre_syn(n); |
pre_syn(n); |
if (MDOC_ELEM != n->type && MDOC_HEAD != n->type) |
if (MDOC_ELEM != n->type && MDOC_HEAD != n->type) |
return(1); |
return(1); |
if (NULL == n->child && NULL == m->name) |
name = n->child ? n->child->string : meta->name; |
|
if (NULL == name) |
return(0); |
return(0); |
|
if (MDOC_HEAD == n->type) { |
|
if (NULL == n->parent->prev) |
|
outflags |= MMAN_sp; |
|
print_block(".HP", 0); |
|
printf(" %ldn", strlen(name) + 1); |
|
outflags |= MMAN_nl; |
|
} |
font_push('B'); |
font_push('B'); |
if (NULL == n->child) |
if (NULL == n->child) |
print_word(m->name); |
print_word(meta->name); |
return(1); |
return(1); |
} |
} |
|
|
|
|
pre_pp(DECL_ARGS) |
pre_pp(DECL_ARGS) |
{ |
{ |
|
|
outflags |= MMAN_nl; |
if (MDOC_It != n->parent->tok) |
if (MDOC_It == n->parent->tok) |
outflags |= MMAN_PP; |
print_word(".sp"); |
outflags |= MMAN_sp | MMAN_nl; |
else |
outflags &= ~MMAN_br; |
print_word(".PP"); |
return(0); |
outflags |= MMAN_nl; |
|
return(MDOC_Rs == n->tok); |
|
} |
} |
|
|
static int |
static int |
|
pre_rs(DECL_ARGS) |
|
{ |
|
|
|
if (SEC_SEE_ALSO == n->sec) { |
|
outflags |= MMAN_PP | MMAN_sp | MMAN_nl; |
|
outflags &= ~MMAN_br; |
|
} |
|
return(1); |
|
} |
|
|
|
static int |
pre_sm(DECL_ARGS) |
pre_sm(DECL_ARGS) |
{ |
{ |
|
|
|
|
pre_sp(DECL_ARGS) |
pre_sp(DECL_ARGS) |
{ |
{ |
|
|
outflags |= MMAN_nl; |
if (MMAN_PP & outflags) { |
print_word(".sp"); |
outflags &= ~MMAN_PP; |
|
print_line(".PP", 0); |
|
} else |
|
print_line(".sp", 0); |
return(1); |
return(1); |
} |
} |
|
|
Line 1263 pre_xr(DECL_ARGS) |
|
Line 1512 pre_xr(DECL_ARGS) |
|
n = n->child; |
n = n->child; |
if (NULL == n) |
if (NULL == n) |
return(0); |
return(0); |
print_node(m, n); |
print_node(meta, n); |
n = n->next; |
n = n->next; |
if (NULL == n) |
if (NULL == n) |
return(0); |
return(0); |
outflags &= ~MMAN_spc; |
outflags &= ~MMAN_spc; |
print_word("("); |
print_word("("); |
print_node(m, n); |
print_node(meta, n); |
print_word(")"); |
print_word(")"); |
return(0); |
return(0); |
} |
} |