]> git.cameronkatri.com Git - mandoc.git/blobdiff - mdoc_man.c
Naive implementation of the roff(7) .po (page offset) request.
[mandoc.git] / mdoc_man.c
index b3d98f540090481ac243de0220596612e689ea10..cf552ce902bbae42347a6ff07103a3f20dc3be1b 100644 (file)
@@ -1,6 +1,6 @@
-/*     $Id: mdoc_man.c,v 1.94 2015/10/06 18:32:19 schwarze Exp $ */
+/*     $Id: mdoc_man.c,v 1.122 2017/06/14 22:51:25 schwarze Exp $ */
 /*
- * Copyright (c) 2011-2015 Ingo Schwarze <schwarze@openbsd.org>
+ * Copyright (c) 2011-2017 Ingo Schwarze <schwarze@openbsd.org>
  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above
@@ -20,6 +20,7 @@
 
 #include <assert.h>
 #include <stdio.h>
+#include <stdlib.h>
 #include <string.h>
 
 #include "mandoc_aux.h"
 
 #define        DECL_ARGS const struct roff_meta *meta, struct roff_node *n
 
+typedef        int     (*int_fp)(DECL_ARGS);
+typedef        void    (*void_fp)(DECL_ARGS);
+
 struct manact {
-       int             (*cond)(DECL_ARGS); /* DON'T run actions */
-       int             (*pre)(DECL_ARGS); /* pre-node action */
-       void            (*post)(DECL_ARGS); /* post-node action */
+       int_fp            cond; /* DON'T run actions */
+       int_fp            pre; /* pre-node action */
+       void_fp           post; /* post-node action */
        const char       *prefix; /* pre-node string constant */
        const char       *suffix; /* post-node string constant */
 };
@@ -44,6 +48,7 @@ static        int       cond_body(DECL_ARGS);
 static int       cond_head(DECL_ARGS);
 static  void     font_push(char);
 static void      font_pop(void);
+static int       man_strlen(const char *);
 static void      mid_it(void);
 static void      post__t(DECL_ARGS);
 static void      post_aq(DECL_ARGS);
@@ -68,7 +73,6 @@ static        void      post_nm(DECL_ARGS);
 static void      post_percent(DECL_ARGS);
 static void      post_pf(DECL_ARGS);
 static void      post_sect(DECL_ARGS);
-static void      post_sp(DECL_ARGS);
 static void      post_vt(DECL_ARGS);
 static int       pre__t(DECL_ARGS);
 static int       pre_an(DECL_ARGS);
@@ -78,8 +82,7 @@ static        int       pre_bd(DECL_ARGS);
 static int       pre_bf(DECL_ARGS);
 static int       pre_bk(DECL_ARGS);
 static int       pre_bl(DECL_ARGS);
-static int       pre_br(DECL_ARGS);
-static int       pre_bx(DECL_ARGS);
+static void      pre_br(DECL_ARGS);
 static int       pre_dl(DECL_ARGS);
 static int       pre_en(DECL_ARGS);
 static int       pre_enc(DECL_ARGS);
@@ -92,25 +95,25 @@ static      int       pre_fd(DECL_ARGS);
 static int       pre_fl(DECL_ARGS);
 static int       pre_fn(DECL_ARGS);
 static int       pre_fo(DECL_ARGS);
-static int       pre_ft(DECL_ARGS);
+static void      pre_ft(DECL_ARGS);
+static int       pre_Ft(DECL_ARGS);
 static int       pre_in(DECL_ARGS);
 static int       pre_it(DECL_ARGS);
 static int       pre_lk(DECL_ARGS);
 static int       pre_li(DECL_ARGS);
-static int       pre_ll(DECL_ARGS);
 static int       pre_nm(DECL_ARGS);
 static int       pre_no(DECL_ARGS);
 static int       pre_ns(DECL_ARGS);
+static void      pre_onearg(DECL_ARGS);
 static int       pre_pp(DECL_ARGS);
 static int       pre_rs(DECL_ARGS);
-static int       pre_rv(DECL_ARGS);
 static int       pre_sm(DECL_ARGS);
-static int       pre_sp(DECL_ARGS);
+static void      pre_sp(DECL_ARGS);
 static int       pre_sect(DECL_ARGS);
 static int       pre_sy(DECL_ARGS);
 static void      pre_syn(const struct roff_node *);
+static void      pre_ta(DECL_ARGS);
 static int       pre_vt(DECL_ARGS);
-static int       pre_ux(DECL_ARGS);
 static int       pre_xr(DECL_ARGS);
 static void      print_word(const char *);
 static void      print_line(const char *, int);
@@ -121,8 +124,20 @@ static     void      print_width(const struct mdoc_bl *,
 static void      print_count(int *);
 static void      print_node(DECL_ARGS);
 
-static const struct manact manacts[MDOC_MAX + 1] = {
-       { NULL, pre_ap, NULL, NULL, NULL }, /* Ap */
+static const void_fp roff_manacts[ROFF_MAX] = {
+       pre_br,         /* br */
+       pre_onearg,     /* ce */
+       pre_ft,         /* ft */
+       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] = {
        { NULL, NULL, NULL, NULL, NULL }, /* Dd */
        { NULL, NULL, NULL, NULL, NULL }, /* Dt */
        { NULL, NULL, NULL, NULL, NULL }, /* Os */
@@ -138,6 +153,7 @@ static      const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, pre_it, post_it, NULL, NULL }, /* It */
        { NULL, pre_em, post_font, NULL, NULL }, /* Ad */
        { NULL, pre_an, NULL, NULL, NULL }, /* An */
+       { NULL, pre_ap, NULL, NULL, NULL }, /* Ap */
        { NULL, pre_em, post_font, NULL, NULL }, /* Ar */
        { NULL, pre_sy, post_font, NULL, NULL }, /* Cd */
        { NULL, pre_sy, post_font, NULL, NULL }, /* Cm */
@@ -149,16 +165,16 @@ static    const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, pre_fd, post_fd, NULL, NULL }, /* Fd */
        { NULL, pre_fl, post_fl, NULL, NULL }, /* Fl */
        { NULL, pre_fn, post_fn, NULL, NULL }, /* Fn */
-       { NULL, pre_ft, post_font, NULL, NULL }, /* Ft */
+       { NULL, pre_Ft, post_font, NULL, NULL }, /* Ft */
        { NULL, pre_sy, post_font, NULL, NULL }, /* Ic */
        { NULL, pre_in, post_in, NULL, NULL }, /* In */
        { NULL, pre_li, post_font, NULL, NULL }, /* Li */
        { cond_head, pre_enc, NULL, "\\- ", NULL }, /* Nd */
        { NULL, pre_nm, post_nm, NULL, NULL }, /* Nm */
        { cond_body, pre_enc, post_enc, "[", "]" }, /* Op */
-       { NULL, pre_ft, post_font, NULL, NULL }, /* Ot */
+       { NULL, pre_Ft, post_font, NULL, NULL }, /* Ot */
        { NULL, pre_em, post_font, NULL, NULL }, /* Pa */
-       { NULL, pre_rv, NULL, NULL, NULL }, /* Rv */
+       { NULL, pre_ex, NULL, NULL, NULL }, /* Rv */
        { NULL, NULL, NULL, NULL, NULL }, /* St */
        { NULL, pre_em, post_font, NULL, NULL }, /* Va */
        { NULL, pre_vt, post_vt, NULL, NULL }, /* Vt */
@@ -182,8 +198,8 @@ static      const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, pre_bf, post_bf, NULL, NULL }, /* Bf */
        { cond_body, pre_enc, post_enc, "[", "]" }, /* Bo */
        { cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */
-       { NULL, pre_ux, NULL, "BSD/OS", NULL }, /* Bsx */
-       { NULL, pre_bx, NULL, NULL, NULL }, /* Bx */
+       { NULL, pre_bk, post_bk, NULL, NULL }, /* Bsx */
+       { NULL, pre_bk, post_bk, NULL, NULL }, /* Bx */
        { NULL, pre_skip, NULL, NULL, NULL }, /* Db */
        { NULL, NULL, NULL, NULL, NULL }, /* Dc */
        { cond_body, pre_enc, post_enc, "\\(Lq", "\\(Rq" }, /* Do */
@@ -192,12 +208,12 @@ static    const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, NULL, NULL, NULL, NULL }, /* Ef */
        { NULL, pre_em, post_font, NULL, NULL }, /* Em */
        { cond_body, pre_eo, post_eo, NULL, NULL }, /* Eo */
-       { NULL, pre_ux, NULL, "FreeBSD", NULL }, /* Fx */
+       { NULL, pre_bk, post_bk, NULL, NULL }, /* Fx */
        { NULL, pre_sy, post_font, NULL, NULL }, /* Ms */
        { NULL, pre_no, NULL, NULL, NULL }, /* No */
        { NULL, pre_ns, NULL, NULL, NULL }, /* Ns */
-       { NULL, pre_ux, NULL, "NetBSD", NULL }, /* Nx */
-       { NULL, pre_ux, NULL, "OpenBSD", NULL }, /* Ox */
+       { NULL, pre_bk, post_bk, NULL, NULL }, /* Nx */
+       { NULL, pre_bk, post_bk, NULL, NULL }, /* Ox */
        { NULL, NULL, NULL, NULL, NULL }, /* Pc */
        { NULL, NULL, post_pf, NULL, NULL }, /* Pf */
        { cond_body, pre_enc, post_enc, "(", ")" }, /* Po */
@@ -215,7 +231,7 @@ static      const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, pre_em, post_font, NULL, NULL }, /* Sx */
        { NULL, pre_sy, post_font, NULL, NULL }, /* Sy */
        { NULL, pre_li, post_font, NULL, NULL }, /* Tn */
-       { NULL, pre_ux, NULL, "UNIX", NULL }, /* Ux */
+       { NULL, NULL, NULL, NULL, NULL }, /* Ux */
        { NULL, NULL, NULL, NULL, NULL }, /* Xc */
        { NULL, NULL, NULL, NULL, NULL }, /* Xo */
        { NULL, pre_fo, post_fo, NULL, NULL }, /* Fo */
@@ -224,10 +240,10 @@ static    const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, NULL, NULL, NULL, NULL }, /* Oc */
        { NULL, pre_bk, post_bk, NULL, NULL }, /* Bk */
        { NULL, NULL, NULL, NULL, NULL }, /* Ek */
-       { NULL, pre_ux, NULL, "is currently in beta test.", NULL }, /* Bt */
+       { NULL, NULL, NULL, NULL, NULL }, /* Bt */
        { NULL, NULL, NULL, NULL, NULL }, /* Hf */
        { NULL, pre_em, post_font, NULL, NULL }, /* Fr */
-       { NULL, pre_ux, NULL, "currently under development.", NULL }, /* Ud */
+       { NULL, NULL, NULL, NULL, NULL }, /* Ud */
        { NULL, NULL, post_lb, NULL, NULL }, /* Lb */
        { NULL, pre_pp, NULL, NULL, NULL }, /* Lp */
        { NULL, pre_lk, NULL, NULL, NULL }, /* Lk */
@@ -238,15 +254,12 @@ static    const struct manact manacts[MDOC_MAX + 1] = {
        { NULL, NULL, post_percent, NULL, NULL }, /* %C */
        { NULL, pre_skip, NULL, NULL, NULL }, /* Es */
        { cond_body, pre_en, post_en, NULL, NULL }, /* En */
-       { NULL, pre_ux, NULL, "DragonFly", NULL }, /* Dx */
+       { NULL, pre_bk, post_bk, NULL, NULL }, /* Dx */
        { NULL, NULL, post_percent, NULL, NULL }, /* %Q */
-       { NULL, pre_br, NULL, NULL, NULL }, /* br */
-       { NULL, pre_sp, post_sp, NULL, NULL }, /* sp */
        { NULL, NULL, post_percent, NULL, NULL }, /* %U */
        { NULL, NULL, NULL, NULL, NULL }, /* Ta */
-       { NULL, pre_ll, post_sp, NULL, NULL }, /* ll */
-       { NULL, NULL, NULL, NULL, NULL }, /* ROOT */
 };
+static const struct manact *const manacts = __manacts - MDOC_Dd;
 
 static int             outflags;
 #define        MMAN_spc        (1 << 0)  /* blank character before next word */
@@ -277,6 +290,49 @@ static     struct {
 }      fontqueue;
 
 
+static int
+man_strlen(const char *cp)
+{
+       size_t   rsz;
+       int      skip, sz;
+
+       sz = 0;
+       skip = 0;
+       for (;;) {
+               rsz = strcspn(cp, "\\");
+               if (rsz) {
+                       cp += rsz;
+                       if (skip) {
+                               skip = 0;
+                               rsz--;
+                       }
+                       sz += rsz;
+               }
+               if ('\0' == *cp)
+                       break;
+               cp++;
+               switch (mandoc_escape(&cp, NULL, NULL)) {
+               case ESCAPE_ERROR:
+                       return sz;
+               case ESCAPE_UNICODE:
+               case ESCAPE_NUMBERED:
+               case ESCAPE_SPECIAL:
+               case ESCAPE_OVERSTRIKE:
+                       if (skip)
+                               skip = 0;
+                       else
+                               sz++;
+                       break;
+               case ESCAPE_SKIPCHAR:
+                       skip = 1;
+                       break;
+               default:
+                       break;
+               }
+       }
+       return sz;
+}
+
 static void
 font_push(char newfont)
 {
@@ -394,7 +450,6 @@ static void
 print_line(const char *s, int newflags)
 {
 
-       outflags &= ~MMAN_br;
        outflags |= MMAN_nl;
        print_word(s);
        outflags |= newflags;
@@ -423,6 +478,7 @@ print_offs(const char *v, int keywords)
 {
        char              buf[24];
        struct roffsu     su;
+       const char       *end;
        int               sz;
 
        print_line(".RS", MMAN_Bk_susp);
@@ -434,8 +490,11 @@ print_offs(const char *v, int keywords)
                sz = 6;
        else if (keywords && !strcmp(v, "indent-two"))
                sz = 12;
-       else if (a2roffsu(v, &su, SCALE_EN) > 1) {
-               if (SCALE_EN == su.unit)
+       else {
+               end = a2roffsu(v, &su, SCALE_EN);
+               if (end == NULL || *end != '\0')
+                       sz = man_strlen(v);
+               else if (SCALE_EN == su.unit)
                        sz = su.scale;
                else {
                        /*
@@ -449,8 +508,7 @@ print_offs(const char *v, int keywords)
                        outflags |= MMAN_nl;
                        return;
                }
-       } else
-               sz = strlen(v);
+       }
 
        /*
         * We are inside an enclosing list.
@@ -472,6 +530,7 @@ print_width(const struct mdoc_bl *bl, const struct roff_node *child)
 {
        char              buf[24];
        struct roffsu     su;
+       const char       *end;
        int               numeric, remain, sz, chsz;
 
        numeric = 1;
@@ -480,21 +539,23 @@ print_width(const struct mdoc_bl *bl, const struct roff_node *child)
        /* Convert the width into a number (of characters). */
        if (bl->width == NULL)
                sz = (bl->type == LIST_hang) ? 6 : 0;
-       else if (a2roffsu(bl->width, &su, SCALE_MAX) > 1) {
-               if (SCALE_EN == su.unit)
+       else {
+               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;
                else {
                        sz = 0;
                        numeric = 0;
                }
-       } else
-               sz = strlen(bl->width);
+       }
 
        /* XXX Rough estimation, might have multiple parts. */
        if (bl->type == LIST_enum)
                chsz = (bl->count > 8) + 1;
        else if (child != NULL && child->type == ROFFT_TEXT)
-               chsz = strlen(child->string);
+               chsz = man_strlen(child->string);
        else
                chsz = 0;
 
@@ -575,17 +636,20 @@ print_node(DECL_ARGS)
        struct roff_node        *sub;
        int                      cond, do_sub;
 
+       if (n->flags & NODE_NOPRT)
+               return;
+
        /*
         * Break the line if we were parsed subsequent the current node.
         * This makes the page structure be more consistent.
         */
-       if (MMAN_spc & outflags && MDOC_LINE & n->flags)
+       if (MMAN_spc & outflags && NODE_LINE & n->flags)
                outflags |= MMAN_nl;
 
        act = NULL;
        cond = 0;
        do_sub = 1;
-       n->flags &= ~MDOC_ENDED;
+       n->flags &= ~NODE_ENDED;
 
        if (n->type == ROFFT_TEXT) {
                /*
@@ -598,19 +662,28 @@ print_node(DECL_ARGS)
                        printf("\\&");
                        outflags &= ~MMAN_spc;
                }
-               if (outflags & MMAN_Sm && ! (n->flags & MDOC_DELIMC))
+               if (n->flags & NODE_DELIMC)
+                       outflags &= ~(MMAN_spc | MMAN_spc_force);
+               else if (outflags & MMAN_Sm)
                        outflags |= MMAN_spc_force;
                print_word(n->string);
-               if (outflags & MMAN_Sm && ! (n->flags & MDOC_DELIMO))
+               if (n->flags & NODE_DELIMO)
+                       outflags &= ~(MMAN_spc | MMAN_spc_force);
+               else if (outflags & MMAN_Sm)
                        outflags |= MMAN_spc;
+       } else if (n->tok < ROFF_MAX) {
+               (*roff_manacts[n->tok])(meta, n);
+               return;
        } else {
+               assert(n->tok >= MDOC_Dd && n->tok < MDOC_MAX);
                /*
                 * Conditionally run the pre-node action handler for a
                 * node.
                 */
                act = manacts + n->tok;
                cond = act->cond == NULL || (*act->cond)(meta, n);
-               if (cond && act->pre && (n->end == ENDBODY_NOT || n->nchild))
+               if (cond && act->pre != NULL &&
+                   (n->end == ENDBODY_NOT || n->child != NULL))
                        do_sub = (*act->pre)(meta, n);
        }
 
@@ -626,17 +699,14 @@ print_node(DECL_ARGS)
        /*
         * Lastly, conditionally run the post-node handler.
         */
-       if (MDOC_ENDED & n->flags)
+       if (NODE_ENDED & n->flags)
                return;
 
        if (cond && act->post)
                (*act->post)(meta, n);
 
        if (ENDBODY_NOT != n->end)
-               n->body->flags |= MDOC_ENDED;
-
-       if (ENDBODY_NOSPACE == n->end)
-               outflags &= ~(MMAN_spc | MMAN_nl);
+               n->body->flags |= NODE_ENDED;
 }
 
 static int
@@ -681,37 +751,8 @@ post_enc(DECL_ARGS)
 static int
 pre_ex(DECL_ARGS)
 {
-       int      nchild;
-
        outflags |= MMAN_br | MMAN_nl;
-
-       print_word("The");
-
-       nchild = n->nchild;
-       for (n = n->child; n; n = n->next) {
-               font_push('B');
-               print_word(n->string);
-               font_pop();
-
-               if (n->next == NULL)
-                       continue;
-
-               if (nchild > 2) {
-                       outflags &= ~MMAN_spc;
-                       print_word(",");
-               }
-               if (n->next->next == NULL)
-                       print_word("and");
-       }
-
-       if (nchild > 1)
-               print_word("utilities exit\\~0");
-       else
-               print_word("utility exits\\~0");
-
-       print_word("on success, and\\~>0 if an error occurs.");
-       outflags |= MMAN_nl;
-       return 0;
+       return 1;
 }
 
 static void
@@ -742,10 +783,8 @@ static int
 pre__t(DECL_ARGS)
 {
 
-       if (n->parent && MDOC_Rs == n->parent->tok &&
-           n->parent->norm->Rs.quote_T) {
-               print_word("");
-               putchar('\"');
+       if (n->parent->tok == MDOC_Rs && n->parent->norm->Rs.quote_T) {
+               print_word("\\(lq");
                outflags &= ~MMAN_spc;
        } else
                font_push('I');
@@ -756,11 +795,9 @@ static void
 post__t(DECL_ARGS)
 {
 
-       if (n->parent && MDOC_Rs == n->parent->tok &&
-           n->parent->norm->Rs.quote_T) {
+       if (n->parent->tok  == MDOC_Rs && n->parent->norm->Rs.quote_T) {
                outflags &= ~MMAN_spc;
-               print_word("");
-               putchar('\"');
+               print_word("\\(rq");
        } else
                font_pop();
        post_percent(meta, n);
@@ -805,7 +842,7 @@ static void
 pre_syn(const struct roff_node *n)
 {
 
-       if (NULL == n->prev || ! (MDOC_SYNPRETTY & n->flags))
+       if (NULL == n->prev || ! (NODE_SYNPRETTY & n->flags))
                return;
 
        if (n->prev->tok == n->tok &&
@@ -818,13 +855,9 @@ pre_syn(const struct roff_node *n)
 
        switch (n->prev->tok) {
        case MDOC_Fd:
-               /* FALLTHROUGH */
        case MDOC_Fn:
-               /* FALLTHROUGH */
        case MDOC_Fo:
-               /* FALLTHROUGH */
        case MDOC_In:
-               /* FALLTHROUGH */
        case MDOC_Vt:
                outflags |= MMAN_sp;
                break;
@@ -877,7 +910,7 @@ static int
 pre_aq(DECL_ARGS)
 {
 
-       print_word(n->nchild == 1 &&
+       print_word(n->child != NULL && n->child->next == NULL &&
            n->child->tok == MDOC_Mt ?  "<" : "\\(la");
        outflags &= ~MMAN_spc;
        return 1;
@@ -888,7 +921,7 @@ post_aq(DECL_ARGS)
 {
 
        outflags &= ~(MMAN_spc | MMAN_nl);
-       print_word(n->nchild == 1 &&
+       print_word(n->child != NULL && n->child->next == NULL &&
            n->child->tok == MDOC_Mt ?  ">" : "\\(ra");
 }
 
@@ -959,11 +992,11 @@ post_bf(DECL_ARGS)
 static int
 pre_bk(DECL_ARGS)
 {
-
        switch (n->type) {
        case ROFFT_BLOCK:
                return 1;
        case ROFFT_BODY:
+       case ROFFT_ELEM:
                outflags |= MMAN_Bk;
                return 1;
        default:
@@ -974,9 +1007,18 @@ pre_bk(DECL_ARGS)
 static void
 post_bk(DECL_ARGS)
 {
-
-       if (n->type == ROFFT_BODY)
+       switch (n->type) {
+       case ROFFT_ELEM:
+               while ((n = n->parent) != NULL)
+                        if (n->tok == MDOC_Bk)
+                               return;
+               /* FALLTHROUGH */
+       case ROFFT_BODY:
                outflags &= ~MMAN_Bk;
+               break;
+       default:
+               break;
+       }
 }
 
 static int
@@ -1004,7 +1046,7 @@ pre_bl(DECL_ARGS)
                return 1;
        }
 
-       if (n->nchild) {
+       if (n->child != NULL) {
                print_line(".TS", MMAN_nl);
                for (icol = 0; icol < n->norm->Bl.ncols; icol++)
                        print_word("l");
@@ -1020,7 +1062,7 @@ post_bl(DECL_ARGS)
 
        switch (n->norm->Bl.type) {
        case LIST_column:
-               if (n->nchild)
+               if (n->child != NULL)
                        print_line(".TE", 0);
                break;
        case LIST_enum:
@@ -1046,32 +1088,10 @@ post_bl(DECL_ARGS)
 
 }
 
-static int
+static void
 pre_br(DECL_ARGS)
 {
-
        outflags |= MMAN_br;
-       return 0;
-}
-
-static int
-pre_bx(DECL_ARGS)
-{
-
-       n = n->child;
-       if (n) {
-               print_word(n->string);
-               outflags &= ~MMAN_spc;
-               n = n->next;
-       }
-       print_word("BSD");
-       if (NULL == n)
-               return 0;
-       outflags &= ~MMAN_spc;
-       print_word("-");
-       outflags &= ~MMAN_spc;
-       print_word(n->string);
-       return 0;
 }
 
 static int
@@ -1177,7 +1197,7 @@ pre_fa(DECL_ARGS)
 
        while (NULL != n) {
                font_push('I');
-               if (am_Fa || MDOC_SYNPRETTY & n->flags)
+               if (am_Fa || NODE_SYNPRETTY & n->flags)
                        outflags |= MMAN_nbrword;
                print_node(meta, n);
                font_pop();
@@ -1218,7 +1238,7 @@ pre_fl(DECL_ARGS)
 
        font_push('B');
        print_word("\\-");
-       if (n->nchild)
+       if (n->child != NULL)
                outflags &= ~MMAN_spc;
        return 1;
 }
@@ -1228,10 +1248,10 @@ post_fl(DECL_ARGS)
 {
 
        font_pop();
-       if ( ! (n->nchild ||
+       if (!(n->child != NULL ||
            n->next == NULL ||
            n->next->type == ROFFT_TEXT ||
-           n->next->flags & MDOC_LINE))
+           n->next->flags & NODE_LINE))
                outflags &= ~MMAN_spc;
 }
 
@@ -1245,7 +1265,7 @@ pre_fn(DECL_ARGS)
        if (NULL == n)
                return 0;
 
-       if (MDOC_SYNPRETTY & n->flags)
+       if (NODE_SYNPRETTY & n->flags)
                print_block(".HP 4n", MMAN_nl);
 
        font_push('B');
@@ -1266,7 +1286,7 @@ post_fn(DECL_ARGS)
 {
 
        print_word(")");
-       if (MDOC_SYNPRETTY & n->flags) {
+       if (NODE_SYNPRETTY & n->flags) {
                print_word(";");
                outflags |= MMAN_PP;
        }
@@ -1283,7 +1303,7 @@ pre_fo(DECL_ARGS)
        case ROFFT_HEAD:
                if (n->child == NULL)
                        return 0;
-               if (MDOC_SYNPRETTY & n->flags)
+               if (NODE_SYNPRETTY & n->flags)
                        print_block(".HP 4n", MMAN_nl);
                font_push('B');
                break;
@@ -1316,7 +1336,7 @@ post_fo(DECL_ARGS)
 }
 
 static int
-pre_ft(DECL_ARGS)
+pre_Ft(DECL_ARGS)
 {
 
        pre_syn(n);
@@ -1324,11 +1344,19 @@ pre_ft(DECL_ARGS)
        return 1;
 }
 
+static void
+pre_ft(DECL_ARGS)
+{
+       print_line(".ft", 0);
+       print_word(n->child->string);
+       outflags |= MMAN_nl;
+}
+
 static int
 pre_in(DECL_ARGS)
 {
 
-       if (MDOC_SYNPRETTY & n->flags) {
+       if (NODE_SYNPRETTY & n->flags) {
                pre_syn(n);
                font_push('B');
                print_word("#include <");
@@ -1345,7 +1373,7 @@ static void
 post_in(DECL_ARGS)
 {
 
-       if (MDOC_SYNPRETTY & n->flags) {
+       if (NODE_SYNPRETTY & n->flags) {
                outflags &= ~MMAN_spc;
                print_word(">");
                font_pop();
@@ -1375,9 +1403,7 @@ pre_it(DECL_ARGS)
                case LIST_item:
                        return 0;
                case LIST_inset:
-                       /* FALLTHROUGH */
                case LIST_diag:
-                       /* FALLTHROUGH */
                case LIST_ohang:
                        if (bln->norm->Bl.type == LIST_diag)
                                print_line(".B \"", 0);
@@ -1386,9 +1412,7 @@ pre_it(DECL_ARGS)
                        outflags &= ~MMAN_spc;
                        return 1;
                case LIST_bullet:
-                       /* FALLTHROUGH */
                case LIST_dash:
-                       /* FALLTHROUGH */
                case LIST_hyphen:
                        print_width(&bln->norm->Bl, NULL);
                        TPremain = 0;
@@ -1478,15 +1502,10 @@ post_it(DECL_ARGS)
        case ROFFT_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;
@@ -1527,33 +1546,63 @@ post_lb(DECL_ARGS)
 static int
 pre_lk(DECL_ARGS)
 {
-       const struct roff_node *link, *descr;
+       const struct roff_node *link, *descr, *punct;
+       int display;
 
-       if (NULL == (link = n->child))
+       if ((link = n->child) == NULL)
                return 0;
 
-       if (NULL != (descr = link->next)) {
+       /* Find beginning of trailing punctuation. */
+       punct = n->last;
+       while (punct != link && punct->flags & NODE_DELIMC)
+               punct = punct->prev;
+       punct = punct->next;
+
+       /* Link text. */
+       if ((descr = link->next) != NULL && descr != punct) {
                font_push('I');
-               while (NULL != descr) {
+               while (descr != punct) {
                        print_word(descr->string);
                        descr = descr->next;
                }
-               print_word(":");
                font_pop();
+               print_word(":");
        }
 
+       /* 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');
        print_word(link->string);
        font_pop();
+
+       /* Trailing punctuation. */
+       while (punct != NULL) {
+               print_word(punct->string);
+               punct = punct->next;
+       }
+       if (display)
+               print_line(".RE", MMAN_nl);
        return 0;
 }
 
-static int
-pre_ll(DECL_ARGS)
+static void
+pre_onearg(DECL_ARGS)
 {
-
-       print_line(".ll", 0);
-       return 1;
+       outflags |= MMAN_nl;
+       print_word(".");
+       outflags &= ~MMAN_spc;
+       print_word(roff_name[n->tok]);
+       if (n->child != NULL)
+               print_word(n->child->string);
+       outflags |= MMAN_nl;
+       if (n->tok == ROFF_ce)
+               for (n = n->child->next; n != NULL; n = n->next)
+                       print_node(meta, n);
 }
 
 static int
@@ -1575,19 +1624,17 @@ pre_nm(DECL_ARGS)
        }
        if (n->type != ROFFT_ELEM && n->type != ROFFT_HEAD)
                return 1;
-       name = n->child ? n->child->string : meta->name;
+       name = n->child == NULL ? NULL : n->child->string;
        if (NULL == name)
                return 0;
        if (n->type == ROFFT_HEAD) {
                if (NULL == n->parent->prev)
                        outflags |= MMAN_sp;
                print_block(".HP", 0);
-               printf(" %zun", strlen(name) + 1);
+               printf(" %dn", man_strlen(name) + 1);
                outflags |= MMAN_nl;
        }
        font_push('B');
-       if (NULL == n->child)
-               print_word(meta->name);
        return 1;
 }
 
@@ -1600,9 +1647,8 @@ post_nm(DECL_ARGS)
                outflags &= ~MMAN_Bk;
                break;
        case ROFFT_HEAD:
-               /* FALLTHROUGH */
        case ROFFT_ELEM:
-               if (n->child != NULL || meta->name != NULL)
+               if (n->child != NULL && n->child->string != NULL)
                        font_pop();
                break;
        default:
@@ -1630,7 +1676,7 @@ static void
 post_pf(DECL_ARGS)
 {
 
-       if ( ! (n->next == NULL || n->next->flags & MDOC_LINE))
+       if ( ! (n->next == NULL || n->next->flags & NODE_LINE))
                outflags &= ~MMAN_spc;
 }
 
@@ -1656,58 +1702,6 @@ pre_rs(DECL_ARGS)
        return 1;
 }
 
-static int
-pre_rv(DECL_ARGS)
-{
-       int      nchild;
-
-       outflags |= MMAN_br | MMAN_nl;
-
-       nchild = n->nchild;
-       if (nchild > 0) {
-               print_word("The");
-
-               for (n = n->child; n; n = n->next) {
-                       font_push('B');
-                       print_word(n->string);
-                       font_pop();
-
-                       outflags &= ~MMAN_spc;
-                       print_word("()");
-
-                       if (n->next == NULL)
-                               continue;
-
-                       if (nchild > 2) {
-                               outflags &= ~MMAN_spc;
-                               print_word(",");
-                       }
-                       if (n->next->next == NULL)
-                               print_word("and");
-               }
-
-               if (nchild > 1)
-                       print_word("functions return");
-               else
-                       print_word("function returns");
-
-               print_word("the value\\~0 if successful;");
-       } else
-               print_word("Upon successful completion, "
-                   "the value\\~0 is returned;");
-
-       print_word("otherwise the value\\~\\-1 is returned"
-           " and the global variable");
-
-       font_push('I');
-       print_word("errno");
-       font_pop();
-
-       print_word("is set to indicate the error.");
-       outflags |= MMAN_nl;
-       return 0;
-}
-
 static int
 pre_skip(DECL_ARGS)
 {
@@ -1732,22 +1726,17 @@ pre_sm(DECL_ARGS)
        return 0;
 }
 
-static int
+static void
 pre_sp(DECL_ARGS)
 {
-
-       if (MMAN_PP & outflags) {
+       if (outflags & MMAN_PP) {
                outflags &= ~MMAN_PP;
                print_line(".PP", 0);
-       } else
+       } else {
                print_line(".sp", 0);
-       return 1;
-}
-
-static void
-post_sp(DECL_ARGS)
-{
-
+               if (n->child != NULL)
+                       print_word(n->child->string);
+       }
        outflags |= MMAN_nl;
 }
 
@@ -1759,11 +1748,20 @@ pre_sy(DECL_ARGS)
        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
 pre_vt(DECL_ARGS)
 {
 
-       if (MDOC_SYNPRETTY & n->flags) {
+       if (NODE_SYNPRETTY & n->flags) {
                switch (n->type) {
                case ROFFT_BLOCK:
                        pre_syn(n);
@@ -1782,7 +1780,7 @@ static void
 post_vt(DECL_ARGS)
 {
 
-       if (n->flags & MDOC_SYNPRETTY && n->type != ROFFT_BODY)
+       if (n->flags & NODE_SYNPRETTY && n->type != ROFFT_BODY)
                return;
        font_pop();
 }
@@ -1804,16 +1802,3 @@ pre_xr(DECL_ARGS)
        print_word(")");
        return 0;
 }
-
-static int
-pre_ux(DECL_ARGS)
-{
-
-       print_word(manacts[n->tok].prefix);
-       if (NULL == n->child)
-               return 0;
-       outflags &= ~MMAN_spc;
-       print_word("\\ ");
-       outflags &= ~MMAN_spc;
-       return 1;
-}