version 1.1, 2009/02/20 11:04:23 |
version 1.3, 2009/02/21 14:56:58 |
|
|
* PERFORMANCE OF THIS SOFTWARE. |
* PERFORMANCE OF THIS SOFTWARE. |
*/ |
*/ |
#include <assert.h> |
#include <assert.h> |
|
#include <ctype.h> |
#include <curses.h> |
#include <curses.h> |
#include <err.h> |
#include <err.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
|
#include <term.h> |
#include <term.h> |
#include <unistd.h> |
#include <unistd.h> |
|
|
#include "mdoc.h" |
#include "private.h" |
|
|
|
enum termesc { |
|
ESC_CLEAR, |
|
ESC_BOLD, |
|
ESC_UNDERLINE |
|
}; |
|
|
static int termprint_r(size_t, size_t, |
struct termp { |
|
size_t rmargin; |
|
size_t maxrmargin; |
|
size_t maxcols; |
|
size_t offset; |
|
size_t col; |
|
int flags; |
|
#define TERMP_BOLD (1 << 0) /* Embolden words. */ |
|
#define TERMP_UNDERLINE (1 << 1) /* Underline words. */ |
|
#define TERMP_NOSPACE (1 << 2) /* No space before words. */ |
|
#define TERMP_NOLPAD (1 << 3) /* No left-padding. */ |
|
#define TERMP_NOBREAK (1 << 4) /* No break after line */ |
|
char *buf; |
|
}; |
|
|
|
struct termact { |
|
int (*pre)(struct termp *, |
|
const struct mdoc_meta *, |
const struct mdoc_node *); |
const struct mdoc_node *); |
static void termprint_head(size_t, |
int (*post)(struct termp *, |
|
const struct mdoc_meta *, |
|
const struct mdoc_node *); |
|
}; |
|
|
|
static void termprint_r(struct termp *, |
|
const struct mdoc_meta *, |
|
const struct mdoc_node *); |
|
static void termprint_header(struct termp *, |
const struct mdoc_meta *); |
const struct mdoc_meta *); |
static void termprint_tail(size_t, |
static void termprint_footer(struct termp *, |
const struct mdoc_meta *); |
const struct mdoc_meta *); |
|
|
static char *arch2a(enum mdoc_arch); |
static int arg_hasattr(int, size_t, |
static char *vol2a(enum mdoc_vol); |
const struct mdoc_arg *); |
static char *msec2a(enum mdoc_msec); |
static int arg_getattr(int, size_t, |
|
const struct mdoc_arg *); |
|
|
static size_t ttitle2a(char *, enum mdoc_vol, enum mdoc_msec, |
static void newln(struct termp *); |
enum mdoc_arch, size_t); |
static void vspace(struct termp *); |
|
static void pword(struct termp *, const char *, size_t); |
|
static void word(struct termp *, const char *); |
|
|
|
#define decl_prepost(name, suffix) \ |
|
static int name##_##suffix(struct termp *, \ |
|
const struct mdoc_meta *, \ |
|
const struct mdoc_node *) |
|
|
static char * |
#define decl_pre(name) decl_prepost(name, pre) |
arch2a(enum mdoc_arch arch) |
#define decl_post(name) decl_prepost(name, post) |
|
|
|
decl_pre(termp_fl); |
|
decl_pre(termp_it); |
|
decl_pre(termp_nd); |
|
decl_pre(termp_ns); |
|
decl_pre(termp_op); |
|
decl_pre(termp_pp); |
|
decl_pre(termp_sh); |
|
|
|
decl_post(termp_bl); |
|
decl_post(termp_it); |
|
decl_post(termp_op); |
|
decl_post(termp_sh); |
|
|
|
decl_pre(termp_bold); |
|
decl_pre(termp_under); |
|
|
|
decl_post(termp_bold); |
|
decl_post(termp_under); |
|
|
|
const struct termact termacts[MDOC_MAX] = { |
|
{ NULL, NULL }, /* \" */ |
|
{ NULL, NULL }, /* Dd */ |
|
{ NULL, NULL }, /* Dt */ |
|
{ NULL, NULL }, /* Os */ |
|
{ termp_sh_pre, termp_sh_post }, /* Sh */ |
|
{ NULL, NULL }, /* Ss */ |
|
{ termp_pp_pre, NULL }, /* Pp */ |
|
{ NULL, NULL }, /* D1 */ |
|
{ NULL, NULL }, /* Dl */ |
|
{ NULL, NULL }, /* Bd */ |
|
{ NULL, NULL }, /* Ed */ |
|
{ NULL, termp_bl_post }, /* Bl */ |
|
{ NULL, NULL }, /* El */ |
|
{ termp_it_pre, termp_it_post }, /* It */ |
|
{ NULL, NULL }, /* Ad */ |
|
{ NULL, NULL }, /* An */ |
|
{ termp_under_pre, termp_under_post }, /* Ar */ |
|
{ NULL, NULL }, /* Cd */ |
|
{ NULL, NULL }, /* Cm */ |
|
{ NULL, NULL }, /* Dv */ |
|
{ NULL, NULL }, /* Er */ |
|
{ NULL, NULL }, /* Ev */ |
|
{ NULL, NULL }, /* Ex */ |
|
{ NULL, NULL }, /* Fa */ |
|
{ NULL, NULL }, /* Fd */ |
|
{ termp_fl_pre, termp_bold_post }, /* Fl */ |
|
{ NULL, NULL }, /* Fn */ |
|
{ NULL, NULL }, /* Ft */ |
|
{ NULL, NULL }, /* Ic */ |
|
{ NULL, NULL }, /* In */ |
|
{ NULL, NULL }, /* Li */ |
|
{ termp_nd_pre, NULL }, /* Nd */ |
|
{ termp_bold_pre, termp_bold_post }, /* Nm */ |
|
{ termp_op_pre, termp_op_post }, /* Op */ |
|
{ NULL, NULL }, /* Ot */ |
|
{ NULL, NULL }, /* Pa */ |
|
{ NULL, NULL }, /* Rv */ |
|
{ NULL, NULL }, /* St */ |
|
{ NULL, NULL }, /* Va */ |
|
{ NULL, NULL }, /* Vt */ |
|
{ NULL, NULL }, /* Xr */ |
|
{ NULL, NULL }, /* %A */ |
|
{ NULL, NULL }, /* %B */ |
|
{ NULL, NULL }, /* %D */ |
|
{ NULL, NULL }, /* %I */ |
|
{ NULL, NULL }, /* %J */ |
|
{ NULL, NULL }, /* %N */ |
|
{ NULL, NULL }, /* %O */ |
|
{ NULL, NULL }, /* %P */ |
|
{ NULL, NULL }, /* %R */ |
|
{ NULL, NULL }, /* %T */ |
|
{ NULL, NULL }, /* %V */ |
|
{ NULL, NULL }, /* Ac */ |
|
{ NULL, NULL }, /* Ao */ |
|
{ NULL, NULL }, /* Aq */ |
|
{ NULL, NULL }, /* At */ |
|
{ NULL, NULL }, /* Bc */ |
|
{ NULL, NULL }, /* Bf */ |
|
{ NULL, NULL }, /* Bo */ |
|
{ NULL, NULL }, /* Bq */ |
|
{ NULL, NULL }, /* Bsx */ |
|
{ NULL, NULL }, /* Bx */ |
|
{ NULL, NULL }, /* Db */ |
|
{ NULL, NULL }, /* Dc */ |
|
{ NULL, NULL }, /* Do */ |
|
{ NULL, NULL }, /* Dq */ |
|
{ NULL, NULL }, /* Ec */ |
|
{ NULL, NULL }, /* Ef */ |
|
{ NULL, NULL }, /* Em */ |
|
{ NULL, NULL }, /* Eo */ |
|
{ NULL, NULL }, /* Fx */ |
|
{ NULL, NULL }, /* Ms */ |
|
{ NULL, NULL }, /* No */ |
|
{ termp_ns_pre, NULL }, /* Ns */ |
|
{ NULL, NULL }, /* Nx */ |
|
{ NULL, NULL }, /* Ox */ |
|
{ NULL, NULL }, /* Pc */ |
|
{ NULL, NULL }, /* Pf */ |
|
{ NULL, NULL }, /* Po */ |
|
{ NULL, NULL }, /* Pq */ |
|
{ NULL, NULL }, /* Qc */ |
|
{ NULL, NULL }, /* Ql */ |
|
{ NULL, NULL }, /* Qo */ |
|
{ NULL, NULL }, /* Qq */ |
|
{ NULL, NULL }, /* Re */ |
|
{ NULL, NULL }, /* Rs */ |
|
{ NULL, NULL }, /* Sc */ |
|
{ NULL, NULL }, /* So */ |
|
{ NULL, NULL }, /* Sq */ |
|
{ NULL, NULL }, /* Sm */ |
|
{ NULL, NULL }, /* Sx */ |
|
{ NULL, NULL }, /* Sy */ |
|
{ NULL, NULL }, /* Tn */ |
|
{ NULL, NULL }, /* Ux */ |
|
{ NULL, NULL }, /* Xc */ |
|
{ NULL, NULL }, /* Xo */ |
|
{ NULL, NULL }, /* Fo */ |
|
{ NULL, NULL }, /* Fc */ |
|
{ NULL, NULL }, /* Oo */ |
|
{ NULL, NULL }, /* Oc */ |
|
{ NULL, NULL }, /* Bk */ |
|
{ NULL, NULL }, /* Ek */ |
|
{ NULL, NULL }, /* Bt */ |
|
{ NULL, NULL }, /* Hf */ |
|
{ NULL, NULL }, /* Fr */ |
|
{ NULL, NULL }, /* Ud */ |
|
}; |
|
|
|
|
|
static int |
|
arg_hasattr(int arg, size_t argc, const struct mdoc_arg *argv) |
{ |
{ |
|
|
switch (arch) { |
return(-1 != arg_getattr(arg, argc, argv)); |
case (ARCH_alpha): |
} |
return("Alpha"); |
|
case (ARCH_amd64): |
|
return("AMD64"); |
static int |
case (ARCH_amiga): |
arg_getattr(int arg, size_t argc, const struct mdoc_arg *argv) |
return("Amiga"); |
{ |
case (ARCH_arc): |
int i; |
return("ARC"); |
|
case (ARCH_arm): |
for (i = 0; i < (int)argc; i++) |
return("ARM"); |
if (argv[i].arg == arg) |
case (ARCH_armish): |
return(i); |
return("ARMISH"); |
return(-1); |
case (ARCH_aviion): |
} |
return("AViion"); |
|
case (ARCH_hp300): |
|
return("HP300"); |
static void |
case (ARCH_hppa): |
flushln(struct termp *p) |
return("HPPA"); |
{ |
case (ARCH_hppa64): |
size_t i, j, vsz, vis, maxvis; |
return("HPPA64"); |
|
case (ARCH_i386): |
/* |
return("i386"); |
* First, establish the maximum columns of "visible" content. |
case (ARCH_landisk): |
* This is usually the difference between the right-margin and |
return("LANDISK"); |
* an indentation, but can be, for tagged lists or columns, a |
case (ARCH_luna88k): |
* small set of values. |
return("Luna88k"); |
*/ |
case (ARCH_mac68k): |
|
return("Mac68k"); |
assert(p->offset < p->rmargin); |
case (ARCH_macppc): |
maxvis = p->rmargin - p->offset; |
return("MacPPC"); |
vis = 0; |
case (ARCH_mvme68k): |
|
return("MVME68k"); |
/* |
case (ARCH_mvme88k): |
* If in the standard case (left-justified), then begin with our |
return("MVME88k"); |
* indentation, otherwise (columns, etc.) just start spitting |
case (ARCH_mvmeppc): |
* out text. |
return("MVMEPPC"); |
*/ |
case (ARCH_pmax): |
|
return("PMAX"); |
if ( ! (p->flags & TERMP_NOLPAD)) |
case (ARCH_sgi): |
/* LINTED */ |
return("SGI"); |
for (j = 0; j < p->offset; j++) |
case (ARCH_socppc): |
putchar(' '); |
return("SOCPPC"); |
|
case (ARCH_sparc): |
for (i = 0; i < p->col; i++) { |
return("SPARC"); |
/* |
case (ARCH_sparc64): |
* Count up visible word characters. Control sequences |
return("SPARC64"); |
* (starting with the CSI) aren't counted. |
case (ARCH_sun3): |
*/ |
return("Sun3"); |
assert( ! isspace(p->buf[i])); |
case (ARCH_vax): |
|
return("VAX"); |
/* LINTED */ |
case (ARCH_zaurus): |
for (j = i, vsz = 0; j < p->col; j++) { |
return("Zaurus"); |
if (isspace(p->buf[j])) |
default: |
break; |
break; |
else if (27 == p->buf[j]) { |
|
assert(j + 4 <= p->col); |
|
j += 3; |
|
} else |
|
vsz++; |
|
} |
|
assert(vsz > 0); |
|
|
|
/* |
|
* If a word is too long and we're within a line, put it |
|
* on the next line. Puke if we're being asked to write |
|
* something that will exceed the right margin (i.e., |
|
* from a fresh line or when we're not allowed to break |
|
* the line with TERMP_NOBREAK). |
|
*/ |
|
|
|
if (vis && vis + vsz >= maxvis) { |
|
/* FIXME */ |
|
if (p->flags & TERMP_NOBREAK) |
|
errx(1, "word breaks right margin"); |
|
putchar('\n'); |
|
for (j = 0; j < p->offset; j++) |
|
putchar(' '); |
|
vis = 0; |
|
} else if (vis + vsz >= maxvis) { |
|
/* FIXME */ |
|
errx(1, "word breaks right margin"); |
|
} |
|
|
|
/* |
|
* Write out the word and a trailing space. Omit the |
|
* space if we're the last word in the line. |
|
*/ |
|
|
|
for ( ; i < p->col; i++) { |
|
if (isspace(p->buf[i])) |
|
break; |
|
putchar(p->buf[i]); |
|
} |
|
vis += vsz; |
|
if (i < p->col) { |
|
putchar(' '); |
|
vis++; |
|
} |
} |
} |
|
|
return(NULL); |
/* |
|
* If we're not to right-marginalise it (newline), then instead |
|
* pad to the right margin and stay off. |
|
*/ |
|
|
|
if (p->flags & TERMP_NOBREAK) { |
|
for ( ; vis <= maxvis; vis++) |
|
putchar(' '); |
|
} else |
|
putchar('\n'); |
|
|
|
p->col = 0; |
} |
} |
|
|
|
|
static char * |
static void |
vol2a(enum mdoc_vol vol) |
newln(struct termp *p) |
{ |
{ |
|
|
switch (vol) { |
/* |
case (VOL_AMD): |
* A newline only breaks an existing line; it won't assert |
return("OpenBSD Ancestral Manual Documents"); |
* vertical space. |
case (VOL_IND): |
*/ |
return("OpenBSD Manual Master Index"); |
p->flags |= TERMP_NOSPACE; |
case (VOL_KM): |
if (0 == p->col) |
return("OpenBSD Kernel Manual"); |
return; |
case (VOL_LOCAL): |
flushln(p); |
return("OpenBSD Local Manual"); |
} |
case (VOL_PRM): |
|
return("OpenBSD Programmer's Manual"); |
|
case (VOL_PS1): |
static void |
return("OpenBSD Programmer's Supplementary Documents"); |
vspace(struct termp *p) |
case (VOL_SMM): |
{ |
return("OpenBSD System Manager's Manual"); |
|
case (VOL_URM): |
/* |
return("OpenBSD Reference Manual"); |
* Asserts a vertical space (a full, empty line-break between |
case (VOL_USD): |
* lines). |
return("OpenBSD User's Supplementary Documents"); |
*/ |
|
newln(p); |
|
putchar('\n'); |
|
} |
|
|
|
|
|
static void |
|
chara(struct termp *p, char c) |
|
{ |
|
|
|
/* TODO: dynamically expand the buffer. */ |
|
if (p->col + 1 >= p->maxcols) |
|
errx(1, "line overrun"); |
|
p->buf[(p->col)++] = c; |
|
} |
|
|
|
|
|
static void |
|
escape(struct termp *p, enum termesc esc) |
|
{ |
|
|
|
if (p->col + 4 >= p->maxcols) |
|
errx(1, "line overrun"); |
|
|
|
p->buf[(p->col)++] = 27; |
|
p->buf[(p->col)++] = '['; |
|
switch (esc) { |
|
case (ESC_CLEAR): |
|
p->buf[(p->col)++] = '0'; |
|
break; |
|
case (ESC_BOLD): |
|
p->buf[(p->col)++] = '1'; |
|
break; |
|
case (ESC_UNDERLINE): |
|
p->buf[(p->col)++] = '4'; |
|
break; |
default: |
default: |
|
abort(); |
|
/* NOTREACHED */ |
|
} |
|
p->buf[(p->col)++] = 'm'; |
|
} |
|
|
|
|
|
static void |
|
pword(struct termp *p, const char *word, size_t len) |
|
{ |
|
size_t i; |
|
|
|
assert(len > 0); |
|
|
|
if ( ! (p->flags & TERMP_NOSPACE)) |
|
chara(p, ' '); |
|
|
|
p->flags &= ~TERMP_NOSPACE; |
|
|
|
if (p->flags & TERMP_BOLD) |
|
escape(p, ESC_BOLD); |
|
if (p->flags & TERMP_UNDERLINE) |
|
escape(p, ESC_UNDERLINE); |
|
|
|
/* TODO: escape patterns. */ |
|
|
|
for (i = 0; i < len; i++) |
|
chara(p, word[i]); |
|
|
|
if (p->flags & TERMP_BOLD || |
|
p->flags & TERMP_UNDERLINE) |
|
escape(p, ESC_CLEAR); |
|
} |
|
|
|
|
|
static void |
|
word(struct termp *p, const char *word) |
|
{ |
|
size_t i, j, len; |
|
|
|
if (mdoc_isdelim(word)) |
|
p->flags |= TERMP_NOSPACE; |
|
|
|
len = strlen(word); |
|
assert(len > 0); |
|
|
|
/* LINTED */ |
|
for (j = i = 0; i < len; i++) { |
|
if ( ! isspace(word[i])) { |
|
j++; |
|
continue; |
|
} |
|
if (0 == j) |
|
continue; |
|
assert(i >= j); |
|
pword(p, &word[i - j], j); |
|
j = 0; |
|
} |
|
if (j > 0) { |
|
assert(i >= j); |
|
pword(p, &word[i - j], j); |
|
} |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_it_post(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
const struct mdoc_node *n, *it; |
|
const struct mdoc_block *bl; |
|
int i; |
|
size_t width; |
|
|
|
switch (node->type) { |
|
case (MDOC_BODY): |
|
/* FALLTHROUGH */ |
|
case (MDOC_HEAD): |
break; |
break; |
|
default: |
|
return(1); |
} |
} |
|
|
return(NULL); |
it = node->parent; |
|
assert(MDOC_BLOCK == it->type); |
|
assert(MDOC_It == it->tok); |
|
|
|
n = it->parent; |
|
assert(MDOC_BODY == n->type); |
|
assert(MDOC_Bl == n->tok); |
|
n = n->parent; |
|
bl = &n->data.block; |
|
|
|
/* If `-tag', adjust our margins accordingly. */ |
|
|
|
if (arg_hasattr(MDOC_Tag, bl->argc, bl->argv)) { |
|
i = arg_getattr(MDOC_Width, bl->argc, bl->argv); |
|
assert(i >= 0); |
|
assert(1 == bl->argv[i].sz); |
|
width = strlen(*bl->argv[i].value); /* XXX */ |
|
|
|
if (MDOC_HEAD == node->type) { |
|
flushln(p); |
|
/* FIXME: nested lists. */ |
|
p->rmargin = p->maxrmargin; |
|
p->flags &= ~TERMP_NOBREAK; |
|
} else { |
|
flushln(p); |
|
p->offset -= width + 1; |
|
p->flags &= ~TERMP_NOLPAD; |
|
} |
|
} |
|
|
|
return(1); |
} |
} |
|
|
|
|
static char * |
/* ARGSUSED */ |
msec2a(enum mdoc_msec msec) |
static int |
|
termp_it_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
{ |
{ |
|
const struct mdoc_node *n, *it; |
|
const struct mdoc_block *bl; |
|
int i; |
|
size_t width; |
|
|
switch (msec) { |
switch (node->type) { |
case(MSEC_1): |
case (MDOC_BODY): |
return("1"); |
|
case(MSEC_2): |
|
return("2"); |
|
case(MSEC_3): |
|
return("3"); |
|
case(MSEC_3f): |
|
return("3f"); |
|
case(MSEC_3p): |
|
return("3p"); |
|
case(MSEC_4): |
|
return("4"); |
|
case(MSEC_5): |
|
return("5"); |
|
case(MSEC_6): |
|
return("6"); |
|
case(MSEC_7): |
|
return("7"); |
|
case(MSEC_8): |
|
return("8"); |
|
case(MSEC_9): |
|
return("9"); |
|
case(MSEC_X11): |
|
return("X11"); |
|
case(MSEC_X11R6): |
|
return("X11R6"); |
|
case(MSEC_local): |
|
return("local"); |
|
case(MSEC_n): |
|
return("n"); |
|
case(MSEC_unass): |
|
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
case(MSEC_draft): |
case (MDOC_HEAD): |
return("draft"); |
it = node->parent; |
case(MSEC_paper): |
break; |
return("paper"); |
case (MDOC_BLOCK): |
|
it = node; |
|
break; |
default: |
default: |
|
return(1); |
|
} |
|
|
|
assert(MDOC_BLOCK == it->type); |
|
assert(MDOC_It == it->tok); |
|
|
|
n = it->parent; |
|
assert(MDOC_BODY == n->type); |
|
assert(MDOC_Bl == n->tok); |
|
n = n->parent; |
|
bl = &n->data.block; |
|
|
|
/* If `-compact', don't assert vertical space. */ |
|
|
|
if (MDOC_BLOCK == node->type) { |
|
if (arg_hasattr(MDOC_Compact, bl->argc, bl->argv)) |
|
newln(p); |
|
else |
|
vspace(p); |
|
return(1); |
|
} |
|
|
|
assert(MDOC_HEAD == node->type |
|
|| MDOC_BODY == node->type); |
|
|
|
/* If `-tag', adjust our margins accordingly. */ |
|
|
|
if (arg_hasattr(MDOC_Tag, bl->argc, bl->argv)) { |
|
i = arg_getattr(MDOC_Width, bl->argc, bl->argv); |
|
assert(i >= 0); /* XXX */ |
|
assert(1 == bl->argv[i].sz); |
|
width = strlen(*bl->argv[i].value); /* XXX */ |
|
|
|
/* FIXME: nested lists. */ |
|
|
|
if (MDOC_HEAD == node->type) { |
|
p->flags |= TERMP_NOBREAK; |
|
p->flags |= TERMP_NOSPACE; |
|
p->rmargin = p->offset + width; |
|
} else { |
|
p->flags |= TERMP_NOSPACE; |
|
p->flags |= TERMP_NOLPAD; |
|
p->offset += width + 1; |
|
} |
|
} |
|
|
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_bold_post(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
p->flags &= ~TERMP_BOLD; |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_under_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
p->flags |= TERMP_UNDERLINE; |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_bold_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
p->flags |= TERMP_BOLD; |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_ns_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
p->flags |= TERMP_NOSPACE; |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_pp_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
vspace(p); |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_under_post(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
p->flags &= ~TERMP_UNDERLINE; |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_nd_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
word(p, "-"); |
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_bl_post(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
switch (node->type) { |
|
case (MDOC_BLOCK): |
|
newln(p); |
break; |
break; |
|
default: |
|
break; |
} |
} |
return(NULL); |
return(1); |
} |
} |
|
|
|
|
static size_t |
/* ARGSUSED */ |
ttitle2a(char *dst, enum mdoc_vol vol, enum mdoc_msec msec, |
static int |
enum mdoc_arch arch, size_t sz) |
termp_op_post(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
{ |
{ |
char *p; |
|
size_t ssz; |
|
|
|
if (NULL == (p = vol2a(vol))) |
switch (node->type) { |
switch (msec) { |
case (MDOC_BODY): |
case (MSEC_1): |
p->flags |= TERMP_NOSPACE; |
/* FALLTHROUGH */ |
word(p, "\\(rB"); |
case (MSEC_6): |
break; |
/* FALLTHROUGH */ |
default: |
case (MSEC_7): |
break; |
p = vol2a(VOL_URM); |
} |
break; |
return(1); |
case (MSEC_8): |
} |
p = vol2a(VOL_SMM); |
|
break; |
|
case (MSEC_2): |
|
/* FALLTHROUGH */ |
|
case (MSEC_3): |
|
/* FALLTHROUGH */ |
|
case (MSEC_4): |
|
/* FALLTHROUGH */ |
|
case (MSEC_5): |
|
p = vol2a(VOL_PRM); |
|
break; |
|
case (MSEC_9): |
|
p = vol2a(VOL_KM); |
|
break; |
|
default: |
|
/* FIXME: capitalise. */ |
|
if (NULL == (p = msec2a(msec))) |
|
p = msec2a(MSEC_local); |
|
break; |
|
} |
|
assert(p); |
|
|
|
if ((ssz = strlcpy(dst, p, sz)) >= sz) |
|
return(ssz); |
|
|
|
if ((p = arch2a(arch))) { |
/* ARGSUSED */ |
if ((ssz = strlcat(dst, " (", sz)) >= sz) |
static int |
return(ssz); |
termp_sh_post(struct termp *p, const struct mdoc_meta *meta, |
if ((ssz = strlcat(dst, p, sz)) >= sz) |
const struct mdoc_node *node) |
return(ssz); |
{ |
if ((ssz = strlcat(dst, ")", sz)) >= sz) |
|
return(ssz); |
switch (node->type) { |
|
case (MDOC_HEAD): |
|
p->flags &= ~TERMP_BOLD; |
|
newln(p); |
|
break; |
|
case (MDOC_BODY): |
|
newln(p); |
|
p->offset -= 4; |
|
break; |
|
default: |
|
break; |
} |
} |
|
return(1); |
|
} |
|
|
return(ssz); |
|
|
/* ARGSUSED */ |
|
static int |
|
termp_sh_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
switch (node->type) { |
|
case (MDOC_HEAD): |
|
vspace(p); |
|
p->flags |= TERMP_BOLD; |
|
break; |
|
case (MDOC_BODY): |
|
p->offset += 4; |
|
break; |
|
default: |
|
break; |
|
} |
|
return(1); |
} |
} |
|
|
|
|
|
/* ARGSUSED */ |
static int |
static int |
termprint_r(size_t cols, size_t indent, const struct mdoc_node *node) |
termp_op_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
{ |
{ |
|
|
|
switch (node->type) { |
|
case (MDOC_BODY): |
|
word(p, "\\(lB"); |
|
p->flags |= TERMP_NOSPACE; |
|
break; |
|
default: |
|
break; |
|
} |
return(1); |
return(1); |
} |
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
|
termp_fl_pre(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
|
{ |
|
|
|
p->flags |= TERMP_BOLD; |
|
word(p, "-"); |
|
p->flags |= TERMP_NOSPACE; |
|
return(1); |
|
} |
|
|
|
|
static void |
static void |
termprint_tail(size_t cols, const struct mdoc_meta *meta) |
termprint_r(struct termp *p, const struct mdoc_meta *meta, |
|
const struct mdoc_node *node) |
{ |
{ |
|
|
|
/* Pre-processing ----------------- */ |
|
|
|
if (MDOC_TEXT != node->type) { |
|
if (termacts[node->tok].pre) |
|
if ( ! (*termacts[node->tok].pre)(p, meta, node)) |
|
return; |
|
} else /* MDOC_TEXT == node->type */ |
|
word(p, node->data.text.string); |
|
|
|
/* Children ---------------------- */ |
|
|
|
if (NULL == node->child) { |
|
/* No-child processing. */ |
|
switch (node->type) { |
|
case (MDOC_ELEM): |
|
switch (node->tok) { |
|
case (MDOC_Nm): |
|
word(p, "progname"); /* TODO */ |
|
break; |
|
case (MDOC_Ar): |
|
word(p, "..."); |
|
break; |
|
default: |
|
break; |
|
} |
|
break; |
|
default: |
|
break; |
|
} |
|
} else |
|
termprint_r(p, meta, node->child); |
|
|
|
/* Post-processing --------------- */ |
|
|
|
if (MDOC_TEXT != node->type) { |
|
if (termacts[node->tok].post) |
|
if ( ! (*termacts[node->tok].post)(p, meta, node)) |
|
return; |
|
} |
|
|
|
/* Siblings ---------------------- */ |
|
|
|
if (node->next) |
|
termprint_r(p, meta, node->next); |
|
} |
|
|
|
|
|
static void |
|
termprint_footer(struct termp *p, const struct mdoc_meta *meta) |
|
{ |
struct tm *tm; |
struct tm *tm; |
char *buf, *os; |
char *buf, *os; |
size_t sz, osz, ssz, i; |
size_t sz, osz, ssz, i; |
|
|
if (NULL == (buf = malloc(cols))) |
if (NULL == (buf = malloc(p->rmargin))) |
err(1, "malloc"); |
err(1, "malloc"); |
if (NULL == (os = malloc(cols))) |
if (NULL == (os = malloc(p->rmargin))) |
err(1, "malloc"); |
err(1, "malloc"); |
|
|
tm = localtime(&meta->date); |
tm = localtime(&meta->date); |
if (NULL == strftime(buf, cols, "%B %d, %Y", tm)) |
if (NULL == strftime(buf, p->rmargin, "%B %d, %Y", tm)) |
err(1, "strftime"); |
err(1, "strftime"); |
|
|
osz = strlcpy(os, meta->os, cols); |
osz = strlcpy(os, meta->os, p->rmargin); |
|
|
sz = strlen(buf); |
sz = strlen(buf); |
ssz = sz + osz + 1; |
ssz = sz + osz + 1; |
|
|
if (ssz > cols) { |
if (ssz > p->rmargin) { |
ssz -= cols; |
ssz -= p->rmargin; |
assert(ssz <= osz); |
assert(ssz <= osz); |
os[osz - ssz] = 0; |
os[osz - ssz] = 0; |
ssz = 1; |
ssz = 1; |
} else |
} else |
ssz = cols - ssz + 1; |
ssz = p->rmargin - ssz + 1; |
|
|
|
printf("\n"); |
printf("%s", os); |
printf("%s", os); |
for (i = 0; i < ssz; i++) |
for (i = 0; i < ssz; i++) |
printf(" "); |
printf(" "); |
|
|
printf("%s\n", buf); |
printf("%s\n", buf); |
|
fflush(stdout); |
|
|
free(buf); |
free(buf); |
free(os); |
free(os); |
Line 291 termprint_tail(size_t cols, const struct mdoc_meta *me |
|
Line 860 termprint_tail(size_t cols, const struct mdoc_meta *me |
|
|
|
|
|
static void |
static void |
termprint_head(size_t cols, const struct mdoc_meta *meta) |
termprint_header(struct termp *p, const struct mdoc_meta *meta) |
{ |
{ |
char *msec, *buf, *title; |
char *msec, *buf, *title, *pp; |
size_t ssz, tsz, ttsz, i; |
size_t ssz, tsz, ttsz, i;; |
|
|
if (NULL == (buf = malloc(cols))) |
if (NULL == (buf = malloc(p->rmargin))) |
err(1, "malloc"); |
err(1, "malloc"); |
if (NULL == (title = malloc(cols))) |
if (NULL == (title = malloc(p->rmargin))) |
err(1, "malloc"); |
err(1, "malloc"); |
|
|
/* Format the manual page header. */ |
if (NULL == (pp = mdoc_vol2a(meta->vol))) |
|
switch (meta->msec) { |
|
case (MSEC_1): |
|
/* FALLTHROUGH */ |
|
case (MSEC_6): |
|
/* FALLTHROUGH */ |
|
case (MSEC_7): |
|
pp = mdoc_vol2a(VOL_URM); |
|
break; |
|
case (MSEC_8): |
|
pp = mdoc_vol2a(VOL_SMM); |
|
break; |
|
case (MSEC_2): |
|
/* FALLTHROUGH */ |
|
case (MSEC_3): |
|
/* FALLTHROUGH */ |
|
case (MSEC_4): |
|
/* FALLTHROUGH */ |
|
case (MSEC_5): |
|
pp = mdoc_vol2a(VOL_PRM); |
|
break; |
|
case (MSEC_9): |
|
pp = mdoc_vol2a(VOL_KM); |
|
break; |
|
default: |
|
/* FIXME: capitalise. */ |
|
if (NULL == (pp = mdoc_msec2a(meta->msec))) |
|
pp = mdoc_msec2a(MSEC_local); |
|
break; |
|
} |
|
assert(pp); |
|
|
tsz = ttitle2a(buf, meta->vol, meta->msec, meta->arch, cols); |
tsz = strlcpy(buf, pp, p->rmargin); |
ttsz = strlcpy(title, meta->title, cols); |
assert(tsz < p->rmargin); |
|
|
if (NULL == (msec = msec2a(meta->msec))) |
if ((pp = mdoc_arch2a(meta->arch))) { |
|
tsz = strlcat(buf, " (", p->rmargin); |
|
assert(tsz < p->rmargin); |
|
tsz = strlcat(buf, pp, p->rmargin); |
|
assert(tsz < p->rmargin); |
|
tsz = strlcat(buf, ")", p->rmargin); |
|
assert(tsz < p->rmargin); |
|
} |
|
|
|
ttsz = strlcpy(title, meta->title, p->rmargin); |
|
|
|
if (NULL == (msec = mdoc_msec2a(meta->msec))) |
msec = ""; |
msec = ""; |
|
|
ssz = (2 * (ttsz + 2 + strlen(msec))) + tsz + 2; |
ssz = (2 * (ttsz + 2 + strlen(msec))) + tsz + 2; |
|
|
if (ssz > cols) { |
if (ssz > p->rmargin) { |
if ((ssz -= cols) % 2) |
if ((ssz -= p->rmargin) % 2) |
ssz++; |
ssz++; |
ssz /= 2; |
ssz /= 2; |
|
|
Line 320 termprint_head(size_t cols, const struct mdoc_meta *me |
|
Line 930 termprint_head(size_t cols, const struct mdoc_meta *me |
|
title[ttsz - ssz] = 0; |
title[ttsz - ssz] = 0; |
ssz = 1; |
ssz = 1; |
} else |
} else |
ssz = ((cols - ssz) / 2) + 1; |
ssz = ((p->rmargin - ssz) / 2) + 1; |
|
|
printf("%s(%s)", title, msec); |
printf("%s(%s)", title, msec); |
|
|
Line 332 termprint_head(size_t cols, const struct mdoc_meta *me |
|
Line 942 termprint_head(size_t cols, const struct mdoc_meta *me |
|
for (i = 0; i < ssz; i++) |
for (i = 0; i < ssz; i++) |
printf(" "); |
printf(" "); |
|
|
printf("%s(%s)\n\n", title, msec); |
printf("%s(%s)\n", title, msec); |
|
fflush(stdout); |
|
|
free(title); |
free(title); |
free(buf); |
free(buf); |
|
|
termprint(const struct mdoc_node *node, |
termprint(const struct mdoc_node *node, |
const struct mdoc_meta *meta) |
const struct mdoc_meta *meta) |
{ |
{ |
size_t cols; |
struct termp p; |
|
|
if (ERR == setupterm(NULL, STDOUT_FILENO, NULL)) |
if (ERR == setupterm(NULL, STDOUT_FILENO, NULL)) |
return(0); |
return(0); |
|
|
cols = columns < 60 ? 60 : (size_t)columns; |
p.maxrmargin = columns < 60 ? 60 : (size_t)columns; |
|
p.rmargin = p.maxrmargin; |
|
p.maxcols = 1024; |
|
p.offset = p.col = 0; |
|
p.flags = TERMP_NOSPACE; |
|
|
termprint_head(cols, meta); |
if (NULL == (p.buf = malloc(p.maxcols))) |
if ( ! termprint_r(cols, 0, node)) |
err(1, "malloc"); |
return(0); |
|
termprint_tail(cols, meta); |
termprint_header(&p, meta); |
|
termprint_r(&p, meta, node); |
|
termprint_footer(&p, meta); |
|
|
|
free(p.buf); |
|
|
return(1); |
return(1); |
} |
} |
|
|