=================================================================== RCS file: /cvs/mandoc/man_term.c,v retrieving revision 1.38 retrieving revision 1.51 diff -u -p -r1.38 -r1.51 --- mandoc/man_term.c 2009/10/18 11:52:18 1.38 +++ mandoc/man_term.c 2009/11/10 12:03:30 1.51 @@ -1,4 +1,4 @@ -/* $Id: man_term.c,v 1.38 2009/10/18 11:52:18 kristaps Exp $ */ +/* $Id: man_term.c,v 1.51 2009/11/10 12:03:30 kristaps Exp $ */ /* * Copyright (c) 2008, 2009 Kristaps Dzonsons * @@ -18,20 +18,21 @@ #include #include -#include #include #include #include +#include "out.h" #include "man.h" #include "term.h" #include "chars.h" #include "main.h" -#include "out.h" #define INDENT 7 #define HALFINDENT 3 +/* FIXME: have PD set the default vspace width. */ + struct mtermp { int fl; #define MANT_LITERAL (1 << 0) @@ -62,12 +63,28 @@ struct termact { void (*post)(DECL_ARGS); }; +#ifdef __linux__ +extern size_t strlcpy(char *, const char *, size_t); +extern size_t strlcat(char *, const char *, size_t); +#endif + +static int a2width(const struct man_node *); +static int a2height(const struct man_node *); + +static void print_man_head(struct termp *, + const struct man_meta *); +static void print_man_body(DECL_ARGS); +static void print_man_node(DECL_ARGS); +static void print_man_foot(struct termp *, + const struct man_meta *); +static void print_bvspace(struct termp *, + const struct man_node *); + static int pre_B(DECL_ARGS); static int pre_BI(DECL_ARGS); static int pre_HP(DECL_ARGS); static int pre_I(DECL_ARGS); static int pre_IP(DECL_ARGS); -static int pre_IR(DECL_ARGS); static int pre_PP(DECL_ARGS); static int pre_RB(DECL_ARGS); static int pre_RI(DECL_ARGS); @@ -112,7 +129,7 @@ static const struct termact termacts[MAN_MAX] = { { NULL, NULL }, /* R */ { pre_B, post_B }, /* B */ { pre_I, post_I }, /* I */ - { pre_IR, NULL }, /* IR */ + { pre_RI, NULL }, /* IR */ { pre_RI, NULL }, /* RI */ { NULL, NULL }, /* na */ { pre_I, post_i }, /* i */ @@ -124,25 +141,11 @@ static const struct termact termacts[MAN_MAX] = { { pre_RS, post_RS }, /* RS */ { pre_ign, NULL }, /* DT */ { pre_ign, NULL }, /* UC */ + { pre_ign, NULL }, /* PD */ }; -#ifdef __linux__ -extern size_t strlcpy(char *, const char *, size_t); -extern size_t strlcat(char *, const char *, size_t); -#endif -static void print_head(struct termp *, - const struct man_meta *); -static void print_body(DECL_ARGS); -static void print_node(DECL_ARGS); -static void print_foot(struct termp *, - const struct man_meta *); -static void fmt_block_vspace(struct termp *, - const struct man_node *); -static int a2width(const char *); -static int a2height(const char *); - void terminal_man(void *arg, const struct man *man) { @@ -166,7 +169,7 @@ terminal_man(void *arg, const struct man *man) n = man_node(man); m = man_meta(man); - print_head(p, m); + print_man_head(p, m); p->flags |= TERMP_NOSPACE; mt.fl = 0; @@ -174,105 +177,53 @@ terminal_man(void *arg, const struct man *man) mt.offset = INDENT; if (n->child) - print_body(p, &mt, n->child, m); - print_foot(p, m); + print_man_body(p, &mt, n->child, m); + print_man_foot(p, m); } -static void -fmt_block_vspace(struct termp *p, const struct man_node *n) +static int +a2height(const struct man_node *n) { - term_newln(p); + struct roffsu su; - if (NULL == n->prev) - return; + assert(MAN_TEXT == n->type); + assert(n->string); + if ( ! a2roffsu(n->string, &su, SCALE_VS)) + SCALE_VS_INIT(&su, strlen(n->string)); - if (MAN_SS == n->prev->tok) - return; - if (MAN_SH == n->prev->tok) - return; - - term_vspace(p); + return((int)term_vspan(&su)); } static int -a2height(const char *p) +a2width(const struct man_node *n) { struct roffsu su; - double r; - if ( ! a2roffsu(p, &su)) - return(1); + assert(MAN_TEXT == n->type); + assert(n->string); + if ( ! a2roffsu(n->string, &su, SCALE_BU)) + return(-1); - switch (su.unit) { - case (SCALE_CM): - r = su.scale * 2; - break; - case (SCALE_IN): - r = su.scale * 6; - break; - case (SCALE_PC): - r = su.scale; - break; - case (SCALE_PT): - r = su.scale / 8; - break; - case (SCALE_MM): - r = su.scale / 1000; - break; - case (SCALE_VS): - r = su.scale; - break; - default: - r = su.scale - 1; - break; - } - - if (r < 0.0) - r = 0.0; - return(/* LINTED */(int) - r); + return((int)term_hspan(&su)); } -static int -a2width(const char *p) +static void +print_bvspace(struct termp *p, const struct man_node *n) { - struct roffsu su; - double r; + term_newln(p); - if ( ! a2roffsu(p, &su)) - return(-1); + if (NULL == n->prev) + return; - switch (su.unit) { - case (SCALE_CM): - r = 4 * su.scale; - break; - case (SCALE_IN): - r = 10 * su.scale; - break; - case (SCALE_PC): - r = 2 * su.scale; - break; - case (SCALE_PT): - r = (su.scale / 10) + 1; - break; - case (SCALE_MM): - r = su.scale / 1000; - break; - case (SCALE_VS): - r = su.scale * 2 - 1; - break; - default: - r = su.scale + 1; - break; - } + if (MAN_SS == n->prev->tok) + return; + if (MAN_SH == n->prev->tok) + return; - if (r < 0.0) - r = 0.0; - return((int)/* LINTED */ - r); + term_vspace(p); } @@ -347,26 +298,6 @@ pre_nf(DECL_ARGS) /* ARGSUSED */ static int -pre_IR(DECL_ARGS) -{ - const struct man_node *nn; - int i; - - for (i = 0, nn = n->child; nn; nn = nn->next, i++) { - if ( ! (i % 2)) - p->under++; - if (i > 0) - p->flags |= TERMP_NOSPACE; - print_node(p, mt, nn, m); - if ( ! (i % 2)) - p->under--; - } - return(0); -} - - -/* ARGSUSED */ -static int pre_RB(DECL_ARGS) { const struct man_node *nn; @@ -381,7 +312,7 @@ pre_RB(DECL_ARGS) if (i > 0) p->flags |= TERMP_NOSPACE; - print_node(p, mt, nn, m); + print_man_node(p, mt, nn, m); if (i % 2 && MAN_RB == n->tok) p->bold--; @@ -400,13 +331,19 @@ pre_RI(DECL_ARGS) int i; for (i = 0, nn = n->child; nn; nn = nn->next, i++) { - if ( ! (i % 2)) + if (i % 2 && MAN_RI == n->tok) p->under++; + else if ( ! (i % 2) && MAN_RI != n->tok) + p->under++; + if (i > 0) p->flags |= TERMP_NOSPACE; - print_node(p, mt, nn, m); - if ( ! (i % 2)) + print_man_node(p, mt, nn, m); + + if (i % 2 && MAN_RI == n->tok) p->under--; + else if ( ! (i % 2) && MAN_RI != n->tok) + p->under--; } return(0); } @@ -431,7 +368,7 @@ pre_BI(DECL_ARGS) if (i) p->flags |= TERMP_NOSPACE; - print_node(p, mt, nn, m); + print_man_node(p, mt, nn, m); if (i % 2 && MAN_BI == n->tok) p->under--; @@ -471,14 +408,8 @@ pre_sp(DECL_ARGS) { int i, len; - if (NULL == n->child) { - term_vspace(p); - return(0); - } + len = n->child ? a2height(n->child) : 1; - assert(MAN_TEXT == n->child->type); - len = a2height(n->child->string); - if (0 == len) term_newln(p); for (i = 0; i < len; i++) @@ -508,7 +439,7 @@ pre_HP(DECL_ARGS) switch (n->type) { case (MAN_BLOCK): - fmt_block_vspace(p, n); + print_bvspace(p, n); return(1); case (MAN_BODY): p->flags |= TERMP_NOBREAK; @@ -523,11 +454,9 @@ pre_HP(DECL_ARGS) /* Calculate offset. */ - if (NULL != (nn = n->parent->head->child)) { - assert(MAN_TEXT == nn->type); - if ((ival = a2width(nn->string)) >= 0) + if (NULL != (nn = n->parent->head->child)) + if ((ival = a2width(nn)) >= 0) len = (size_t)ival; - } if (0 == len) len = 1; @@ -572,7 +501,7 @@ pre_PP(DECL_ARGS) switch (n->type) { case (MAN_BLOCK): mt->lmargin = INDENT; - fmt_block_vspace(p, n); + print_bvspace(p, n); break; default: p->offset = mt->offset; @@ -601,7 +530,7 @@ pre_IP(DECL_ARGS) p->flags |= TERMP_TWOSPACE; break; case (MAN_BLOCK): - fmt_block_vspace(p, n); + print_bvspace(p, n); /* FALLTHROUGH */ default: return(1); @@ -616,8 +545,7 @@ pre_IP(DECL_ARGS) if (NULL != (nn = nn->next)) { for ( ; nn->next; nn = nn->next) /* Do nothing. */ ; - assert(MAN_TEXT == nn->type); - if ((ival = a2width(nn->string)) >= 0) + if ((ival = a2width(nn)) >= 0) len = (size_t)ival; } @@ -637,7 +565,7 @@ pre_IP(DECL_ARGS) /* Don't print the length value. */ for (nn = n->child; nn->next; nn = nn->next) - print_node(p, mt, nn, m); + print_man_node(p, mt, nn, m); return(0); case (MAN_BODY): p->offset = mt->offset + len; @@ -691,7 +619,7 @@ pre_TP(DECL_ARGS) p->flags |= TERMP_NOSPACE; break; case (MAN_BLOCK): - fmt_block_vspace(p, n); + print_bvspace(p, n); /* FALLTHROUGH */ default: return(1); @@ -703,11 +631,9 @@ pre_TP(DECL_ARGS) /* Calculate offset. */ if (NULL != (nn = n->parent->head->child)) - if (NULL != nn->next) { - assert(MAN_TEXT == nn->type); - if ((ival = a2width(nn->string)) >= 0) + if (NULL != nn->next) + if ((ival = a2width(nn)) >= 0) len = (size_t)ival; - } switch (n->type) { case (MAN_HEAD): @@ -721,7 +647,7 @@ pre_TP(DECL_ARGS) /* Don't print same-line elements. */ for (nn = n->child; nn; nn = nn->next) if (nn->line > n->line) - print_node(p, mt, nn, m); + print_man_node(p, mt, nn, m); if (ival >= 0) mt->lmargin = (size_t)ival; @@ -884,8 +810,7 @@ pre_RS(DECL_ARGS) return(1); } - assert(MAN_TEXT == nn->type); - if ((ival = a2width(nn->string)) < 0) + if ((ival = a2width(nn)) < 0) return(1); mt->offset = INDENT + (size_t)ival; @@ -913,7 +838,7 @@ post_RS(DECL_ARGS) static void -print_node(DECL_ARGS) +print_man_node(DECL_ARGS) { int c, sz; @@ -949,35 +874,37 @@ print_node(DECL_ARGS) } if (c && n->child) - print_body(p, mt, n->child, m); + print_man_body(p, mt, n->child, m); - if (MAN_TEXT != n->type) + if (MAN_TEXT != n->type) { if (termacts[n->tok].post) (*termacts[n->tok].post)(p, mt, n, m); + + /* Reset metafont upon exit from macro. */ + p->metafont = 0; + } } static void -print_body(DECL_ARGS) +print_man_body(DECL_ARGS) { - print_node(p, mt, n, m); + print_man_node(p, mt, n, m); if ( ! n->next) return; - print_body(p, mt, n->next, m); + print_man_body(p, mt, n->next, m); } static void -print_foot(struct termp *p, const struct man_meta *meta) +print_man_foot(struct termp *p, const struct man_meta *meta) { - struct tm *tm; - char buf[BUFSIZ]; + char buf[DATESIZ]; - tm = localtime(&meta->date); + p->metafont = 0; - if (0 == strftime(buf, p->rmargin, "%B %d, %Y", tm)) - (void)strlcpy(buf, "(invalid date)", BUFSIZ); + time2a(meta->date, buf, DATESIZ); term_vspace(p); @@ -1002,26 +929,19 @@ print_foot(struct termp *p, const struct man_meta *met static void -print_head(struct termp *p, const struct man_meta *meta) +print_man_head(struct termp *p, const struct man_meta *m) { - char *buf, *title; + char buf[BUFSIZ], title[BUFSIZ]; p->rmargin = p->maxrmargin; p->offset = 0; + buf[0] = title[0] = '\0'; - if (NULL == (buf = malloc(p->rmargin))) - err(EXIT_FAILURE, "malloc"); - if (NULL == (title = malloc(p->rmargin))) - err(EXIT_FAILURE, "malloc"); + if (m->vol) + strlcpy(buf, m->vol, BUFSIZ); - if (meta->vol) - (void)strlcpy(buf, meta->vol, p->rmargin); - else - *buf = 0; + snprintf(title, BUFSIZ, "%s(%d)", m->title, m->msec); - (void)snprintf(title, p->rmargin, "%s(%d)", - meta->title, meta->msec); - p->offset = 0; p->rmargin = (p->maxrmargin - strlen(buf) + 1) / 2; p->flags |= TERMP_NOBREAK | TERMP_NOSPACE; @@ -1047,8 +967,4 @@ print_head(struct termp *p, const struct man_meta *met p->rmargin = p->maxrmargin; p->offset = 0; p->flags &= ~TERMP_NOSPACE; - - free(title); - free(buf); } -