version 1.105, 2010/01/01 14:27:59 |
version 1.114, 2010/04/06 07:27:42 |
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
*/ |
*/ |
|
#ifdef HAVE_CONFIG_H |
|
#include "config.h" |
|
#endif |
|
|
#include <sys/types.h> |
#include <sys/types.h> |
|
|
#include <assert.h> |
#include <assert.h> |
|
|
|
|
struct termpair { |
struct termpair { |
struct termpair *ppair; |
struct termpair *ppair; |
int flag; |
|
int count; |
int count; |
}; |
}; |
|
|
Line 64 static void print_mdoc_head(DECL_ARGS); |
|
Line 67 static void print_mdoc_head(DECL_ARGS); |
|
static void print_mdoc_nodelist(DECL_ARGS); |
static void print_mdoc_nodelist(DECL_ARGS); |
static void print_foot(DECL_ARGS); |
static void print_foot(DECL_ARGS); |
|
|
#ifdef __linux__ |
|
extern size_t strlcpy(char *, const char *, size_t); |
|
extern size_t strlcat(char *, const char *, size_t); |
|
#endif |
|
|
|
static void termp____post(DECL_ARGS); |
static void termp____post(DECL_ARGS); |
static void termp_an_post(DECL_ARGS); |
static void termp_an_post(DECL_ARGS); |
static void termp_aq_post(DECL_ARGS); |
static void termp_aq_post(DECL_ARGS); |
Line 134 static int termp_sq_pre(DECL_ARGS); |
|
Line 132 static int termp_sq_pre(DECL_ARGS); |
|
static int termp_ss_pre(DECL_ARGS); |
static int termp_ss_pre(DECL_ARGS); |
static int termp_under_pre(DECL_ARGS); |
static int termp_under_pre(DECL_ARGS); |
static int termp_ud_pre(DECL_ARGS); |
static int termp_ud_pre(DECL_ARGS); |
|
static int termp_vt_pre(DECL_ARGS); |
static int termp_xr_pre(DECL_ARGS); |
static int termp_xr_pre(DECL_ARGS); |
static int termp_xx_pre(DECL_ARGS); |
static int termp_xx_pre(DECL_ARGS); |
|
|
Line 177 static const struct termact termacts[MDOC_MAX] = { |
|
Line 176 static const struct termact termacts[MDOC_MAX] = { |
|
{ termp_rv_pre, NULL }, /* Rv */ |
{ termp_rv_pre, NULL }, /* Rv */ |
{ NULL, NULL }, /* St */ |
{ NULL, NULL }, /* St */ |
{ termp_under_pre, NULL }, /* Va */ |
{ termp_under_pre, NULL }, /* Va */ |
{ termp_under_pre, termp_vt_post }, /* Vt */ |
{ termp_vt_pre, termp_vt_post }, /* Vt */ |
{ termp_xr_pre, NULL }, /* Xr */ |
{ termp_xr_pre, NULL }, /* Xr */ |
{ NULL, termp____post }, /* %A */ |
{ NULL, termp____post }, /* %A */ |
{ termp_under_pre, termp____post }, /* %B */ |
{ termp_under_pre, termp____post }, /* %B */ |
Line 204 static const struct termact termacts[MDOC_MAX] = { |
|
Line 203 static const struct termact termacts[MDOC_MAX] = { |
|
{ NULL, NULL }, /* Dc */ |
{ NULL, NULL }, /* Dc */ |
{ termp_dq_pre, termp_dq_post }, /* Do */ |
{ termp_dq_pre, termp_dq_post }, /* Do */ |
{ termp_dq_pre, termp_dq_post }, /* Dq */ |
{ termp_dq_pre, termp_dq_post }, /* Dq */ |
{ NULL, NULL }, /* Ec */ |
{ NULL, NULL }, /* Ec */ /* FIXME: no space */ |
{ NULL, NULL }, /* Ef */ |
{ NULL, NULL }, /* Ef */ |
{ termp_under_pre, NULL }, /* Em */ |
{ termp_under_pre, NULL }, /* Em */ |
{ NULL, NULL }, /* Eo */ |
{ NULL, NULL }, /* Eo */ |
Line 271 terminal_mdoc(void *arg, const struct mdoc *mdoc) |
|
Line 270 terminal_mdoc(void *arg, const struct mdoc *mdoc) |
|
|
|
p = (struct termp *)arg; |
p = (struct termp *)arg; |
|
|
|
p->overstep = 0; |
|
p->maxrmargin = 78; |
|
|
if (NULL == p->symtab) |
if (NULL == p->symtab) |
switch (p->enc) { |
switch (p->enc) { |
case (TERMENC_ASCII): |
case (TERMENC_ASCII): |
Line 471 a2width(const struct mdoc_argv *arg, int pos) |
|
Line 473 a2width(const struct mdoc_argv *arg, int pos) |
|
if ( ! a2roffsu(arg->value[pos], &su, SCALE_MAX)) |
if ( ! a2roffsu(arg->value[pos], &su, SCALE_MAX)) |
SCALE_HS_INIT(&su, strlen(arg->value[pos])); |
SCALE_HS_INIT(&su, strlen(arg->value[pos])); |
|
|
/* XXX: pachemu? */ |
return(term_hspan(&su)); |
return(term_hspan(&su) + 2); |
|
} |
} |
|
|
|
|
Line 537 a2offs(const struct mdoc_argv *arg) |
|
Line 538 a2offs(const struct mdoc_argv *arg) |
|
} |
} |
|
|
|
|
|
/* |
|
* Return 1 if an argument has a particular argument value or 0 if it |
|
* does not. See arg_getattr(). |
|
*/ |
static int |
static int |
arg_hasattr(int arg, const struct mdoc_node *n) |
arg_hasattr(int arg, const struct mdoc_node *n) |
{ |
{ |
Line 545 arg_hasattr(int arg, const struct mdoc_node *n) |
|
Line 550 arg_hasattr(int arg, const struct mdoc_node *n) |
|
} |
} |
|
|
|
|
|
/* |
|
* Get the index of an argument in a node's argument list or -1 if it |
|
* does not exist. See arg_getattrs(). |
|
*/ |
static int |
static int |
arg_getattr(int v, const struct mdoc_node *n) |
arg_getattr(int v, const struct mdoc_node *n) |
{ |
{ |
Line 554 arg_getattr(int v, const struct mdoc_node *n) |
|
Line 563 arg_getattr(int v, const struct mdoc_node *n) |
|
} |
} |
|
|
|
|
|
/* |
|
* Walk through the argument list for a node and fill an array "vals" |
|
* with the positions of the argument structures listed in "keys". |
|
* Return the number of elements that were written into "vals", which |
|
* can be zero. |
|
*/ |
static int |
static int |
arg_getattrs(const int *keys, int *vals, |
arg_getattrs(const int *keys, int *vals, |
size_t sz, const struct mdoc_node *n) |
size_t sz, const struct mdoc_node *n) |
Line 573 arg_getattrs(const int *keys, int *vals, |
|
Line 588 arg_getattrs(const int *keys, int *vals, |
|
} |
} |
|
|
|
|
|
/* |
|
* Determine how much space to print out before block elements of `It' |
|
* (and thus `Bl') and `Bd'. And then go ahead and print that space, |
|
* too. |
|
*/ |
static void |
static void |
print_bvspace(struct termp *p, |
print_bvspace(struct termp *p, |
const struct mdoc_node *bl, |
const struct mdoc_node *bl, |
Line 660 termp_it_pre(DECL_ARGS) |
|
Line 680 termp_it_pre(DECL_ARGS) |
|
|
|
bl = n->parent->parent->parent; |
bl = n->parent->parent->parent; |
|
|
/* Save parent attributes. */ |
/* Get list width, offset, and list type from argument list. */ |
|
|
pair->flag = p->flags; |
|
|
|
/* Get list width and offset. */ |
|
|
|
keys[0] = MDOC_Width; |
keys[0] = MDOC_Width; |
keys[1] = MDOC_Offset; |
keys[1] = MDOC_Offset; |
keys[2] = MDOC_Column; |
keys[2] = MDOC_Column; |
|
|
vals[0] = vals[1] = vals[2] = -1; |
vals[0] = vals[1] = vals[2] = -1; |
|
|
width = offset = 0; |
arg_getattrs(keys, vals, 3, bl); |
|
|
(void)arg_getattrs(keys, vals, 3, bl); |
|
|
|
type = arg_listtype(bl); |
type = arg_listtype(bl); |
assert(-1 != type); |
assert(-1 != type); |
|
|
|
/* |
|
* First calculate width and offset. This is pretty easy unless |
|
* we're a -column list, in which case all prior columns must |
|
* be accounted for. |
|
*/ |
|
|
|
width = offset = 0; |
|
|
if (vals[1] >= 0) |
if (vals[1] >= 0) |
offset = a2offs(&bl->args->argv[vals[1]]); |
offset = a2offs(&bl->args->argv[vals[1]]); |
|
|
/* Calculate real width and offset. */ |
|
|
|
switch (type) { |
switch (type) { |
case (MDOC_Column): |
case (MDOC_Column): |
if (MDOC_BODY == n->type) |
if (MDOC_BODY == n->type) |
break; |
break; |
|
|
/* |
/* |
* Imitate groff's column handling. |
* Imitate groff's column handling: |
* For each earlier column, add its width. |
* - For each earlier column, add its width. |
* For less than 5 columns, add two more blanks per column. |
* - For less than 5 columns, add four more blanks per |
* For exactly 5 columns, add only one more blank per column. |
* column. |
* For more than 5 columns, add no blanks per column. |
* - For exactly 5 columns, add three more blank per |
|
* column. |
|
* - For more than 5 columns, add only one column. |
*/ |
*/ |
ncols = bl->args->argv[vals[2]].sz; |
ncols = bl->args->argv[vals[2]].sz; |
/* LINTED */ |
/* LINTED */ |
dcol = ncols < 5 ? 2 : ncols == 5 ? 1 : 0; |
dcol = ncols < 5 ? 4 : ncols == 5 ? 3 : 1; |
for (i=0, nn=n->prev; nn && i < (int)ncols; nn=nn->prev, i++) |
|
offset += a2width(&bl->args->argv[vals[2]], i) + dcol; |
|
|
|
/* |
for (i = 0, nn = n->prev; |
* FIXME: newer groff only wants one space between |
nn && i < (int)ncols; |
* columns > 5; however, a2width will have min. two |
nn = nn->prev, i++) |
* spaces. For now, let this slide. |
offset += dcol + a2width |
*/ |
(&bl->args->argv[vals[2]], i); |
|
|
|
|
/* |
/* |
* Use the declared column widths, |
* When exceeding the declared number of columns, leave |
* extended as explained in the preceding paragraph. |
* the remaining widths at 0. This will later be |
|
* adjusted to the default width of 10, or, for the last |
|
* column, stretched to the right margin. |
*/ |
*/ |
if (i < (int)ncols) |
if (i >= (int)ncols) |
width = a2width(&bl->args->argv[vals[2]], i) + dcol; |
break; |
|
|
/* |
/* |
* When exceeding the declared number of columns, |
* Use the declared column widths, extended as explained |
* leave the remaining widths at 0. |
* in the preceding paragraph. |
* This will later be adjusted to the default width of 10, |
|
* or, for the last column, stretched to the right margin. |
|
*/ |
*/ |
|
width = a2width(&bl->args->argv[vals[2]], i) + dcol; |
break; |
break; |
default: |
default: |
if (vals[0] >= 0) |
if (vals[0] < 0) |
width = a2width(&bl->args->argv[vals[0]], 0); |
break; |
|
|
|
/* |
|
* Note: buffer the width by 2, which is groff's magic |
|
* number for buffering single arguments. See the above |
|
* handling for column for how this changes. |
|
*/ |
|
width = a2width(&bl->args->argv[vals[0]], 0) + 2; |
break; |
break; |
} |
} |
|
|
Line 793 termp_it_pre(DECL_ARGS) |
|
Line 821 termp_it_pre(DECL_ARGS) |
|
} |
} |
|
|
/* |
/* |
* Pad and break control. This is the tricker part. Lists with |
* Pad and break control. This is the tricky part. These flags |
* set right-margins for the head get TERMP_NOBREAK because, if |
* are documented in term_flushln() in term.c. Note that we're |
* they overrun the margin, they wrap to the new margin. |
* going to unset all of these flags in termp_it_post() when we |
* Correspondingly, the body for these types don't left-pad, as |
* exit. |
* the head will pad out to to the right. |
|
*/ |
*/ |
|
|
switch (type) { |
switch (type) { |
Line 938 termp_it_pre(DECL_ARGS) |
|
Line 965 termp_it_pre(DECL_ARGS) |
|
break; |
break; |
case (MDOC_Enum): |
case (MDOC_Enum): |
(pair->ppair->ppair->count)++; |
(pair->ppair->ppair->count)++; |
(void)snprintf(buf, sizeof(buf), "%d.", |
snprintf(buf, sizeof(buf), "%d.", |
pair->ppair->ppair->count); |
pair->ppair->ppair->count); |
term_word(p, buf); |
term_word(p, buf); |
break; |
break; |
Line 981 termp_it_post(DECL_ARGS) |
|
Line 1008 termp_it_post(DECL_ARGS) |
|
{ |
{ |
int type; |
int type; |
|
|
if (MDOC_BODY != n->type && MDOC_HEAD != n->type) |
if (MDOC_BLOCK == n->type) |
return; |
return; |
|
|
type = arg_listtype(n->parent->parent->parent); |
type = arg_listtype(n->parent->parent->parent); |
Line 1005 termp_it_post(DECL_ARGS) |
|
Line 1032 termp_it_post(DECL_ARGS) |
|
break; |
break; |
} |
} |
|
|
p->flags = pair->flag; |
/* |
|
* Now that our output is flushed, we can reset our tags. Since |
|
* only `It' sets these flags, we're free to assume that nobody |
|
* has munged them in the meanwhile. |
|
*/ |
|
|
|
p->flags &= ~TERMP_DANGLE; |
|
p->flags &= ~TERMP_NOBREAK; |
|
p->flags &= ~TERMP_TWOSPACE; |
|
p->flags &= ~TERMP_NOLPAD; |
|
p->flags &= ~TERMP_HANG; |
} |
} |
|
|
|
|
Line 1033 termp_fl_pre(DECL_ARGS) |
|
Line 1070 termp_fl_pre(DECL_ARGS) |
|
term_fontpush(p, TERMFONT_BOLD); |
term_fontpush(p, TERMFONT_BOLD); |
term_word(p, "\\-"); |
term_word(p, "\\-"); |
|
|
/* A blank `Fl' should incur a subsequent space. */ |
|
|
|
if (n->child) |
if (n->child) |
p->flags |= TERMP_NOSPACE; |
p->flags |= TERMP_NOSPACE; |
|
else if (n->next && n->next->line == n->line) |
|
p->flags |= TERMP_NOSPACE; |
|
|
return(1); |
return(1); |
} |
} |
Line 1240 termp_xr_pre(DECL_ARGS) |
|
Line 1277 termp_xr_pre(DECL_ARGS) |
|
{ |
{ |
const struct mdoc_node *nn; |
const struct mdoc_node *nn; |
|
|
assert(n->child && MDOC_TEXT == n->child->type); |
if (NULL == n->child) |
|
return(0); |
|
|
|
assert(MDOC_TEXT == n->child->type); |
nn = n->child; |
nn = n->child; |
|
|
term_word(p, nn->string); |
term_word(p, nn->string); |
Line 1257 termp_xr_pre(DECL_ARGS) |
|
Line 1297 termp_xr_pre(DECL_ARGS) |
|
} |
} |
|
|
|
|
|
static int |
|
termp_vt_pre(DECL_ARGS) |
|
{ |
|
|
|
if (MDOC_ELEM == n->type) |
|
return(termp_under_pre(p, pair, m, n)); |
|
else if (MDOC_HEAD == n->type) |
|
return(0); |
|
else if (MDOC_BLOCK == n->type) |
|
return(1); |
|
|
|
return(termp_under_pre(p, pair, m, n)); |
|
} |
|
|
|
|
/* ARGSUSED */ |
/* ARGSUSED */ |
static void |
static void |
termp_vt_post(DECL_ARGS) |
termp_vt_post(DECL_ARGS) |
{ |
{ |
|
|
if (n->sec != SEC_SYNOPSIS) |
if (MDOC_BLOCK != n->type) |
return; |
return; |
if (n->next && MDOC_Vt == n->next->tok) |
if (n->next && MDOC_Vt == n->next->tok) |
term_newln(p); |
term_newln(p); |
Line 1986 termp_sm_pre(DECL_ARGS) |
|
Line 2041 termp_sm_pre(DECL_ARGS) |
|
{ |
{ |
|
|
assert(n->child && MDOC_TEXT == n->child->type); |
assert(n->child && MDOC_TEXT == n->child->type); |
if (0 == strcmp("on", n->child->string)) { |
if (0 == strcmp("on", n->child->string)) |
p->flags &= ~TERMP_NONOSPACE; |
p->flags &= ~TERMP_NONOSPACE; |
p->flags &= ~TERMP_NOSPACE; |
else |
} else |
|
p->flags |= TERMP_NONOSPACE; |
p->flags |= TERMP_NONOSPACE; |
|
|
return(0); |
return(0); |