]> git.cameronkatri.com Git - mandoc.git/blobdiff - mdoc_html.c
More release notes.
[mandoc.git] / mdoc_html.c
index 739d62ab9824d84a86c1bd59bc81f8bc6b211865..652e8536dff64a7ea16891209d3e5bc6b0b842e2 100644 (file)
@@ -1,6 +1,6 @@
-/*     $Id: mdoc_html.c,v 1.133 2010/12/20 13:07:55 kristaps Exp $ */
+/*     $Id: mdoc_html.c,v 1.165 2011/04/23 09:10:50 kristaps Exp $ */
 /*
- * Copyright (c) 2008, 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv>
+ * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above
@@ -410,6 +410,7 @@ print_mdoc_node(MDOC_ARGS)
 {
        int              child;
        struct tag      *t;
+       struct htmlpair  tag;
 
        child = 1;
        t = h->tags.head;
@@ -420,9 +421,47 @@ print_mdoc_node(MDOC_ARGS)
                child = mdoc_root_pre(m, n, h);
                break;
        case (MDOC_TEXT):
+               /* No tables in this mode... */
+               assert(NULL == h->tblt);
+
+               /*
+                * Make sure that if we're in a literal mode already
+                * (i.e., within a <PRE>) don't print the newline.
+                */
+               if (' ' == *n->string && MDOC_LINE & n->flags)
+                       if ( ! (HTML_LITERAL & h->flags))
+                               print_otag(h, TAG_BR, 0, NULL);
+               if (MDOC_DELIMC & n->flags)
+                       h->flags |= HTML_NOSPACE;
                print_text(h, n->string);
+               if (MDOC_DELIMO & n->flags)
+                       h->flags |= HTML_NOSPACE;
+               return;
+       case (MDOC_EQN):
+               PAIR_CLASS_INIT(&tag, "eqn");
+               print_otag(h, TAG_SPAN, 1, &tag);
+               print_text(h, n->eqn->data);
+               break;
+       case (MDOC_TBL):
+               /*
+                * This will take care of initialising all of the table
+                * state data for the first table, then tearing it down
+                * for the last one.
+                */
+               print_tbl(h, n->span);
                return;
        default:
+               /*
+                * Close out the current table, if it's open, and unset
+                * the "meta" table state.  This will be reopened on the
+                * next table element.
+                */
+               if (h->tblt) {
+                       print_tblclose(h);
+                       t = h->tags.head;
+               }
+
+               assert(NULL == h->tblt);
                if (mdocs[n->tok].pre && ENDBODY_NOT == n->end)
                        child = (*mdocs[n->tok].pre)(m, n, h);
                break;
@@ -450,6 +489,8 @@ print_mdoc_node(MDOC_ARGS)
        case (MDOC_ROOT):
                mdoc_root_post(m, n, h);
                break;
+       case (MDOC_EQN):
+               break;
        default:
                if (mdocs[n->tok].post && ENDBODY_NOT == n->end)
                        (*mdocs[n->tok].post)(m, n, h);
@@ -463,15 +504,12 @@ mdoc_root_post(MDOC_ARGS)
 {
        struct htmlpair  tag[3];
        struct tag      *t, *tt;
-       char             b[DATESIZ];
-
-       time2a(m->date, b, DATESIZ);
 
        PAIR_SUMMARY_INIT(&tag[0], "Document Footer");
        PAIR_CLASS_INIT(&tag[1], "foot");
        if (NULL == h->style) {
-               PAIR_INIT(&tag[1], ATTR_WIDTH, "100%");
-               t = print_otag(h, TAG_TABLE, 2, tag);
+               PAIR_INIT(&tag[2], ATTR_WIDTH, "100%");
+               t = print_otag(h, TAG_TABLE, 3, tag);
                PAIR_INIT(&tag[0], ATTR_WIDTH, "50%");
                print_otag(h, TAG_COL, 1, tag);
                print_otag(h, TAG_COL, 1, tag);
@@ -485,7 +523,7 @@ mdoc_root_post(MDOC_ARGS)
        PAIR_CLASS_INIT(&tag[0], "foot-date");
        print_otag(h, TAG_TD, 1, tag);
 
-       print_text(h, b);
+       print_text(h, m->date);
        print_stagq(h, tt);
 
        PAIR_CLASS_INIT(&tag[0], "foot-os");
@@ -713,8 +751,7 @@ mdoc_nm_pre(MDOC_ARGS)
 static int
 mdoc_xr_pre(MDOC_ARGS)
 {
-       struct htmlpair          tag[2];
-       const struct mdoc_node  *nn;
+       struct htmlpair  tag[2];
 
        if (NULL == n->child)
                return(0);
@@ -730,16 +767,16 @@ mdoc_xr_pre(MDOC_ARGS)
        } else
                print_otag(h, TAG_A, 1, tag);
 
-       nn = n->child;
-       print_text(h, nn->string);
+       n = n->child;
+       print_text(h, n->string);
 
-       if (NULL == (nn = nn->next))
+       if (NULL == (n = n->next))
                return(0);
 
        h->flags |= HTML_NOSPACE;
        print_text(h, "(");
        h->flags |= HTML_NOSPACE;
-       print_text(h, nn->string);
+       print_text(h, n->string);
        h->flags |= HTML_NOSPACE;
        print_text(h, ")");
        return(0);
@@ -751,7 +788,8 @@ static int
 mdoc_ns_pre(MDOC_ARGS)
 {
 
-       h->flags |= HTML_NOSPACE;
+       if ( ! (MDOC_LINE & n->flags))
+               h->flags |= HTML_NOSPACE;
        return(1);
 }
 
@@ -774,6 +812,7 @@ mdoc_xx_pre(MDOC_ARGS)
 {
        const char      *pp;
        struct htmlpair  tag;
+       int              flags;
 
        switch (n->tok) {
        case (MDOC_Bsx):
@@ -800,8 +839,15 @@ mdoc_xx_pre(MDOC_ARGS)
 
        PAIR_CLASS_INIT(&tag, "unix");
        print_otag(h, TAG_SPAN, 1, &tag);
+
        print_text(h, pp);
-       return(1);
+       if (n->child) {
+               flags = h->flags;
+               h->flags |= HTML_KEEP;
+               print_text(h, n->child->string);
+               h->flags = flags;
+       }
+       return(0);
 }
 
 
@@ -809,22 +855,31 @@ mdoc_xx_pre(MDOC_ARGS)
 static int
 mdoc_bx_pre(MDOC_ARGS)
 {
-       const struct mdoc_node  *nn;
-       struct htmlpair          tag;
+       struct htmlpair  tag;
 
        PAIR_CLASS_INIT(&tag, "unix");
        print_otag(h, TAG_SPAN, 1, &tag);
 
-       for (nn = n->child; nn; nn = nn->next)
-               print_mdoc_node(m, nn, h);
+       if (NULL != (n = n->child)) {
+               print_text(h, n->string);
+               h->flags |= HTML_NOSPACE;
+               print_text(h, "BSD");
+       } else {
+               print_text(h, "BSD");
+               return(0);
+       }
 
-       if (n->child)
+       if (NULL != (n = n->next)) {
+               h->flags |= HTML_NOSPACE;
+               print_text(h, "-");
                h->flags |= HTML_NOSPACE;
+               print_text(h, n->string);
+       }
 
-       print_text(h, "BSD");
        return(0);
 }
 
+/* ARGSUSED */
 static int
 mdoc_it_pre(MDOC_ARGS)
 {
@@ -839,7 +894,7 @@ mdoc_it_pre(MDOC_ARGS)
 
        assert(bl);
 
-       type = bl->data.Bl->type;
+       type = bl->norm->Bl.type;
 
        assert(lists[type]);
        PAIR_CLASS_INIT(&tag[0], lists[type]);
@@ -857,7 +912,6 @@ mdoc_it_pre(MDOC_ARGS)
                case(LIST_enum):
                        return(0);
                case(LIST_diag):
-                       /* FIXME: STYLE for diag! */
                        /* FALLTHROUGH */
                case(LIST_hang):
                        /* FALLTHROUGH */
@@ -866,10 +920,14 @@ mdoc_it_pre(MDOC_ARGS)
                case(LIST_ohang):
                        /* FALLTHROUGH */
                case(LIST_tag):
-                       SCALE_VS_INIT(&su, ! bl->data.Bl->comp);
+                       SCALE_VS_INIT(&su, ! bl->norm->Bl.comp);
                        bufcat_su(h, "margin-top", &su);
                        PAIR_STYLE_INIT(&tag[1], h);
                        print_otag(h, TAG_DT, 2, tag);
+                       if (LIST_diag != type)
+                               break;
+                       PAIR_CLASS_INIT(&tag[0], "diag");
+                       print_otag(h, TAG_B, 1, tag);
                        break;
                case(LIST_column):
                        break;
@@ -887,7 +945,7 @@ mdoc_it_pre(MDOC_ARGS)
                case(LIST_enum):
                        /* FALLTHROUGH */
                case(LIST_item):
-                       SCALE_VS_INIT(&su, ! bl->data.Bl->comp);
+                       SCALE_VS_INIT(&su, ! bl->norm->Bl.comp);
                        bufcat_su(h, "margin-top", &su);
                        PAIR_STYLE_INIT(&tag[1], h);
                        print_otag(h, TAG_LI, 2, tag);
@@ -901,17 +959,17 @@ mdoc_it_pre(MDOC_ARGS)
                case(LIST_ohang):
                        /* FALLTHROUGH */
                case(LIST_tag):
-                       if (NULL == bl->data.Bl->width) {
+                       if (NULL == bl->norm->Bl.width) {
                                print_otag(h, TAG_DD, 1, tag);
                                break;
                        }
-                       a2width(bl->data.Bl->width, &su);
+                       a2width(bl->norm->Bl.width, &su);
                        bufcat_su(h, "margin-left", &su);
                        PAIR_STYLE_INIT(&tag[1], h);
                        print_otag(h, TAG_DD, 2, tag);
                        break;
                case(LIST_column):
-                       SCALE_VS_INIT(&su, ! bl->data.Bl->comp);
+                       SCALE_VS_INIT(&su, ! bl->norm->Bl.comp);
                        bufcat_su(h, "margin-top", &su);
                        PAIR_STYLE_INIT(&tag[1], h);
                        print_otag(h, TAG_TD, 2, tag);
@@ -936,18 +994,19 @@ mdoc_it_pre(MDOC_ARGS)
 static int
 mdoc_bl_pre(MDOC_ARGS)
 {
-       size_t           i;
+       int              i;
        struct htmlpair  tag[3];
        struct roffsu    su;
+       char             buf[BUFSIZ];
 
        if (MDOC_BODY == n->type) {
-               if (LIST_column == n->data.Bl->type)
+               if (LIST_column == n->norm->Bl.type)
                        print_otag(h, TAG_TBODY, 0, NULL);
                return(1);
        }
 
        if (MDOC_HEAD == n->type) {
-               if (LIST_column != n->data.Bl->type)
+               if (LIST_column != n->norm->Bl.type)
                        return(0);
 
                /*
@@ -957,10 +1016,10 @@ mdoc_bl_pre(MDOC_ARGS)
                 * screen and we want to preserve that behaviour.
                 */
 
-               for (i = 0; i < n->data.Bl->ncols; i++) {
-                       a2width(n->data.Bl->cols[i], &su);
+               for (i = 0; i < (int)n->norm->Bl.ncols; i++) {
+                       a2width(n->norm->Bl.cols[i], &su);
                        bufinit(h);
-                       if (i < n->data.Bl->ncols - 1)
+                       if (i < (int)n->norm->Bl.ncols - 1)
                                bufcat_su(h, "width", &su);
                        else
                                bufcat_su(h, "min-width", &su);
@@ -976,23 +1035,19 @@ mdoc_bl_pre(MDOC_ARGS)
        bufcat_su(h, "margin-bottom", &su);
        PAIR_STYLE_INIT(&tag[0], h);
 
-       assert(lists[n->data.Bl->type]);
-       bufinit(h);
-       bufcat(h, "list ");
-       bufcat(h, lists[n->data.Bl->type]);
-       PAIR_INIT(&tag[1], ATTR_CLASS, h->buf);
-       i = 2;
+       assert(lists[n->norm->Bl.type]);
+       strlcpy(buf, "list ", BUFSIZ);
+       strlcat(buf, lists[n->norm->Bl.type], BUFSIZ);
+       PAIR_INIT(&tag[1], ATTR_CLASS, buf);
 
        /* Set the block's left-hand margin. */
 
-       if (n->data.Bl->offs) {
-               a2offs(n->data.Bl->offs, &su);
+       if (n->norm->Bl.offs) {
+               a2offs(n->norm->Bl.offs, &su);
                bufcat_su(h, "margin-left", &su);
-               PAIR_STYLE_INIT(&tag[2], h);
-               i = 3;
        }
 
-       switch (n->data.Bl->type) {
+       switch (n->norm->Bl.type) {
        case(LIST_bullet):
                /* FALLTHROUGH */
        case(LIST_dash):
@@ -1000,10 +1055,10 @@ mdoc_bl_pre(MDOC_ARGS)
        case(LIST_hyphen):
                /* FALLTHROUGH */
        case(LIST_item):
-               print_otag(h, TAG_UL, i, tag);
+               print_otag(h, TAG_UL, 2, tag);
                break;
        case(LIST_enum):
-               print_otag(h, TAG_OL, i, tag);
+               print_otag(h, TAG_OL, 2, tag);
                break;
        case(LIST_diag):
                /* FALLTHROUGH */
@@ -1014,10 +1069,10 @@ mdoc_bl_pre(MDOC_ARGS)
        case(LIST_ohang):
                /* FALLTHROUGH */
        case(LIST_tag):
-               print_otag(h, TAG_DL, i, tag);
+               print_otag(h, TAG_DL, 2, tag);
                break;
        case(LIST_column):
-               print_otag(h, TAG_TABLE, i, tag);
+               print_otag(h, TAG_TABLE, 2, tag);
                break;
        default:
                abort();
@@ -1031,9 +1086,9 @@ mdoc_bl_pre(MDOC_ARGS)
 static int
 mdoc_ex_pre(MDOC_ARGS)
 {
-       const struct mdoc_node  *nn;
-       struct tag              *t;
-       struct htmlpair          tag;
+       struct tag      *t;
+       struct htmlpair  tag;
+       int              nchild;
 
        if (n->prev)
                print_otag(h, TAG_BR, 0, NULL);
@@ -1041,22 +1096,25 @@ mdoc_ex_pre(MDOC_ARGS)
        PAIR_CLASS_INIT(&tag, "utility");
 
        print_text(h, "The");
-       for (nn = n->child; nn; nn = nn->next) {
+
+       nchild = n->nchild;
+       for (n = n->child; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+
                t = print_otag(h, TAG_B, 1, &tag);
-               print_text(h, nn->string);
+               print_text(h, n->string);
                print_tagq(h, t);
 
-               h->flags |= HTML_NOSPACE;
-
-               if (nn->next && NULL == nn->next->next)
-                       print_text(h, ", and");
-               else if (nn->next)
+               if (nchild > 2 && n->next) {
+                       h->flags |= HTML_NOSPACE;
                        print_text(h, ",");
-               else
-                       h->flags &= ~HTML_NOSPACE;
+               }
+
+               if (n->next && NULL == n->next->next)
+                       print_text(h, "and");
        }
 
-       if (n->child && n->child->next)
+       if (nchild > 1)
                print_text(h, "utilities exit");
        else
                print_text(h, "utility exits");
@@ -1096,12 +1154,14 @@ mdoc_d1_pre(MDOC_ARGS)
 
        /* BLOCKQUOTE needs a block body. */
 
-       if (MDOC_Dl == n->tok)
-               PAIR_CLASS_INIT(&tag[0], "lit display");
-       else
-               PAIR_CLASS_INIT(&tag[0], "display");
-
+       PAIR_CLASS_INIT(&tag[0], "display");
        print_otag(h, TAG_DIV, 1, tag);
+
+       if (MDOC_Dl == n->tok) {
+               PAIR_CLASS_INIT(&tag[0], "lit");
+               print_otag(h, TAG_CODE, 1, tag);
+       } 
+
        return(1);
 }
 
@@ -1110,20 +1170,20 @@ mdoc_d1_pre(MDOC_ARGS)
 static int
 mdoc_sx_pre(MDOC_ARGS)
 {
-       struct htmlpair          tag[2];
-       const struct mdoc_node  *nn;
-       char                     buf[BUFSIZ];
+       struct htmlpair  tag[2];
+       char             buf[BUFSIZ];
 
        strlcpy(buf, "#", BUFSIZ);
-       for (nn = n->child; nn; nn = nn->next) {
-               html_idcat(buf, nn->string, BUFSIZ);
-               if (nn->next)
+       for (n = n->child; n; n = n->next) {
+               html_idcat(buf, n->string, BUFSIZ);
+               if (n->next)
                        html_idcat(buf, " ", BUFSIZ);
        }
 
        PAIR_CLASS_INIT(&tag[0], "link-sec");
        PAIR_HREF_INIT(&tag[1], buf);
 
+       print_otag(h, TAG_I, 1, tag);
        print_otag(h, TAG_A, 2, tag);
        return(1);
 }
@@ -1134,7 +1194,7 @@ static int
 mdoc_bd_pre(MDOC_ARGS)
 {
        struct htmlpair          tag[2];
-       int                      comp;
+       int                      comp, sv;
        const struct mdoc_node  *nn;
        struct roffsu            su;
 
@@ -1142,7 +1202,7 @@ mdoc_bd_pre(MDOC_ARGS)
                return(0);
 
        if (MDOC_BLOCK == n->type) {
-               comp = n->data.Bd->comp;
+               comp = n->norm->Bd.comp;
                for (nn = n; nn && ! comp; nn = nn->parent) {
                        if (MDOC_BLOCK != nn->type)
                                continue;
@@ -1157,14 +1217,14 @@ mdoc_bd_pre(MDOC_ARGS)
        }
 
        SCALE_HS_INIT(&su, 0);
-       if (n->data.Bd->offs)
-               a2offs(n->data.Bd->offs, &su);
+       if (n->norm->Bd.offs)
+               a2offs(n->norm->Bd.offs, &su);
 
        bufcat_su(h, "margin-left", &su);
        PAIR_STYLE_INIT(&tag[0], h);
 
-       if (DISP_unfilled != n->data.Bd->type && 
-                       DISP_literal != n->data.Bd->type) {
+       if (DISP_unfilled != n->norm->Bd.type && 
+                       DISP_literal != n->norm->Bd.type) {
                PAIR_CLASS_INIT(&tag[1], "display");
                print_otag(h, TAG_DIV, 2, tag);
                return(1);
@@ -1173,6 +1233,11 @@ mdoc_bd_pre(MDOC_ARGS)
        PAIR_CLASS_INIT(&tag[1], "lit display");
        print_otag(h, TAG_PRE, 2, tag);
 
+       /* This can be recursive: save & set our literal state. */
+
+       sv = h->flags & HTML_LITERAL;
+       h->flags |= HTML_LITERAL;
+
        for (nn = n->child; nn; nn = nn->next) {
                print_mdoc_node(m, nn, h);
                /*
@@ -1209,6 +1274,9 @@ mdoc_bd_pre(MDOC_ARGS)
                h->flags |= HTML_NOSPACE;
        }
 
+       if (0 == sv)
+               h->flags &= ~HTML_LITERAL;
+
        return(0);
 }
 
@@ -1318,12 +1386,16 @@ mdoc_fa_pre(MDOC_ARGS)
                t = print_otag(h, TAG_I, 1, &tag);
                print_text(h, nn->string);
                print_tagq(h, t);
-               if (nn->next)
+               if (nn->next) {
+                       h->flags |= HTML_NOSPACE;
                        print_text(h, ",");
+               }
        }
 
-       if (n->child && n->next && n->next->tok == MDOC_Fa)
+       if (n->child && n->next && n->next->tok == MDOC_Fa) {
+               h->flags |= HTML_NOSPACE;
                print_text(h, ",");
+       }
 
        return(0);
 }
@@ -1333,13 +1405,61 @@ mdoc_fa_pre(MDOC_ARGS)
 static int
 mdoc_fd_pre(MDOC_ARGS)
 {
-       struct htmlpair  tag;
+       struct htmlpair  tag[2];
+       char             buf[BUFSIZ];
+       size_t           sz;
+       int              i;
+       struct tag      *t;
 
        synopsis_pre(h, n);
 
-       PAIR_CLASS_INIT(&tag, "macro");
-       print_otag(h, TAG_B, 1, &tag);
-       return(1);
+       if (NULL == (n = n->child))
+               return(0);
+
+       assert(MDOC_TEXT == n->type);
+
+       if (strcmp(n->string, "#include")) {
+               PAIR_CLASS_INIT(&tag[0], "macro");
+               print_otag(h, TAG_B, 1, tag);
+               return(1);
+       }
+
+       PAIR_CLASS_INIT(&tag[0], "includes");
+       print_otag(h, TAG_B, 1, tag);
+       print_text(h, n->string);
+
+       if (NULL != (n = n->next)) {
+               assert(MDOC_TEXT == n->type);
+               strlcpy(buf, '<' == *n->string || '"' == *n->string ? 
+                               n->string + 1 : n->string, BUFSIZ);
+
+               sz = strlen(buf);
+               if (sz && ('>' == buf[sz - 1] || '"' == buf[sz - 1]))
+                       buf[sz - 1] = '\0';
+
+               PAIR_CLASS_INIT(&tag[0], "link-includes");
+               bufinit(h);
+               
+               i = 1;
+               if (h->base_includes) {
+                       buffmt_includes(h, buf);
+                       PAIR_HREF_INIT(&tag[i], h->buf);
+                       i++;
+               } 
+
+               t = print_otag(h, TAG_A, i, tag);
+               print_text(h, n->string);
+               print_tagq(h, t);
+
+               n = n->next;
+       }
+
+       for ( ; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+               print_text(h, n->string);
+       }
+
+       return(0);
 }
 
 
@@ -1380,13 +1500,13 @@ mdoc_ft_pre(MDOC_ARGS)
 static int
 mdoc_fn_pre(MDOC_ARGS)
 {
-       struct tag              *t;
-       struct htmlpair          tag[2];
-       const struct mdoc_node  *nn;
-       char                     nbuf[BUFSIZ];
-       const char              *sp, *ep;
-       int                      sz, i;
+       struct tag      *t;
+       struct htmlpair  tag[2];
+       char             nbuf[BUFSIZ];
+       const char      *sp, *ep;
+       int              sz, i, pretty;
 
+       pretty = MDOC_SYNPRETTY & n->flags;
        synopsis_pre(h, n);
 
        /* Split apart into type and name. */
@@ -1438,26 +1558,33 @@ mdoc_fn_pre(MDOC_ARGS)
 
        h->flags |= HTML_NOSPACE;
        print_text(h, "(");
+       h->flags |= HTML_NOSPACE;
 
        bufinit(h);
        PAIR_CLASS_INIT(&tag[0], "farg");
        bufcat_style(h, "white-space", "nowrap");
        PAIR_STYLE_INIT(&tag[1], h);
 
-       for (nn = n->child->next; nn; nn = nn->next) {
+       for (n = n->child->next; n; n = n->next) {
                i = 1;
                if (MDOC_SYNPRETTY & n->flags)
                        i = 2;
                t = print_otag(h, TAG_I, i, tag);
-               print_text(h, nn->string);
+               print_text(h, n->string);
                print_tagq(h, t);
-               if (nn->next)
+               if (n->next) {
+                       h->flags |= HTML_NOSPACE;
                        print_text(h, ",");
+               }
        }
 
+       h->flags |= HTML_NOSPACE;
        print_text(h, ")");
-       if (MDOC_SYNPRETTY & n->flags)
+
+       if (pretty) {
+               h->flags |= HTML_NOSPACE;
                print_text(h, ";");
+       }
 
        return(0);
 }
@@ -1528,20 +1655,22 @@ mdoc_sp_pre(MDOC_ARGS)
 static int
 mdoc_lk_pre(MDOC_ARGS)
 {
-       const struct mdoc_node  *nn;
-       struct htmlpair          tag[2];
+       struct htmlpair  tag[2];
+
+       if (NULL == (n = n->child))
+               return(0);
 
-       nn = n->child;
+       assert(MDOC_TEXT == n->type);
 
        PAIR_CLASS_INIT(&tag[0], "link-ext");
-       PAIR_HREF_INIT(&tag[1], nn->string);
-       print_otag(h, TAG_A, 2, tag);
+       PAIR_HREF_INIT(&tag[1], n->string);
 
-       if (NULL == nn || NULL == nn->next) 
-               return(1);
+       print_otag(h, TAG_A, 2, tag);
 
-       for (nn = nn->next; nn; nn = nn->next) 
-               print_text(h, nn->string);
+       for (n = n->next; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+               print_text(h, n->string);
+       }
 
        return(0);
 }
@@ -1551,19 +1680,21 @@ mdoc_lk_pre(MDOC_ARGS)
 static int
 mdoc_mt_pre(MDOC_ARGS)
 {
-       struct htmlpair          tag[2];
-       struct tag              *t;
-       const struct mdoc_node  *nn;
+       struct htmlpair  tag[2];
+       struct tag      *t;
 
        PAIR_CLASS_INIT(&tag[0], "link-mail");
 
-       for (nn = n->child; nn; nn = nn->next) {
+       for (n = n->child; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+
                bufinit(h);
                bufcat(h, "mailto:");
-               bufcat(h, nn->string);
+               bufcat(h, n->string);
+
                PAIR_HREF_INIT(&tag[1], h->buf);
                t = print_otag(h, TAG_A, 2, tag);
-               print_text(h, nn->string);
+               print_text(h, n->string);
                print_tagq(h, t);
        }
        
@@ -1594,7 +1725,7 @@ mdoc_fo_pre(MDOC_ARGS)
        assert(n->child->string);
 
        PAIR_CLASS_INIT(&tag, "fname");
-       t = print_otag(h, TAG_SPAN, 1, &tag);
+       t = print_otag(h, TAG_B, 1, &tag);
        print_text(h, n->child->string);
        print_tagq(h, t);
        return(0);
@@ -1608,7 +1739,9 @@ mdoc_fo_post(MDOC_ARGS)
 
        if (MDOC_BODY != n->type)
                return;
+       h->flags |= HTML_NOSPACE;
        print_text(h, ")");
+       h->flags |= HTML_NOSPACE;
        print_text(h, ";");
 }
 
@@ -1617,39 +1750,57 @@ mdoc_fo_post(MDOC_ARGS)
 static int
 mdoc_in_pre(MDOC_ARGS)
 {
-       const struct mdoc_node  *nn;
-       struct tag              *t;
-       struct htmlpair          tag[2];
-       int                      i;
+       struct tag      *t;
+       struct htmlpair  tag[2];
+       int              i;
 
        synopsis_pre(h, n);
 
        PAIR_CLASS_INIT(&tag[0], "includes");
        print_otag(h, TAG_B, 1, tag);
 
+       /*
+        * The first argument of the `In' gets special treatment as
+        * being a linked value.  Subsequent values are printed
+        * afterward.  groff does similarly.  This also handles the case
+        * of no children.
+        */
+
        if (MDOC_SYNPRETTY & n->flags && MDOC_LINE & n->flags)
                print_text(h, "#include");
 
        print_text(h, "<");
        h->flags |= HTML_NOSPACE;
 
-       for (nn = n->child; nn; nn = nn->next) {
+       if (NULL != (n = n->child)) {
+               assert(MDOC_TEXT == n->type);
+
                PAIR_CLASS_INIT(&tag[0], "link-includes");
-               i = 1;
                bufinit(h);
+
+               i = 1;
+
                if (h->base_includes) {
-                       buffmt_includes(h, nn->string);
+                       buffmt_includes(h, n->string);
                        PAIR_HREF_INIT(&tag[i], h->buf);
                        i++;
-               }
+               } 
+
                t = print_otag(h, TAG_A, i, tag);
-               print_mdoc_node(m, nn, h);
+               print_text(h, n->string);
                print_tagq(h, t);
+
+               n = n->next;
        }
 
        h->flags |= HTML_NOSPACE;
        print_text(h, ">");
 
+       for ( ; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+               print_text(h, n->string);
+       }
+
        return(0);
 }
 
@@ -1670,31 +1821,38 @@ mdoc_ic_pre(MDOC_ARGS)
 static int
 mdoc_rv_pre(MDOC_ARGS)
 {
-       const struct mdoc_node  *nn;
-       struct htmlpair          tag;
-       struct tag              *t;
+       struct htmlpair  tag;
+       struct tag      *t;
+       int              nchild;
 
        if (n->prev)
                print_otag(h, TAG_BR, 0, NULL);
 
+       PAIR_CLASS_INIT(&tag, "fname");
+
        print_text(h, "The");
 
-       for (nn = n->child; nn; nn = nn->next) {
-               PAIR_CLASS_INIT(&tag, "fname");
-               t = print_otag(h, TAG_SPAN, 1, &tag);
-               print_text(h, nn->string);
+       nchild = n->nchild;
+       for (n = n->child; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+
+               t = print_otag(h, TAG_B, 1, &tag);
+               print_text(h, n->string);
                print_tagq(h, t);
 
                h->flags |= HTML_NOSPACE;
-               if (nn->next && NULL == nn->next->next)
-                       print_text(h, "(), and");
-               else if (nn->next)
-                       print_text(h, "(),");
-               else
-                       print_text(h, "()");
+               print_text(h, "()");
+
+               if (nchild > 2 && n->next) {
+                       h->flags |= HTML_NOSPACE;
+                       print_text(h, ",");
+               }
+
+               if (n->next && NULL == n->next->next)
+                       print_text(h, "and");
        }
 
-       if (n->child && n->child->next)
+       if (nchild > 1)
                print_text(h, "functions return");
        else
                print_text(h, "function returns");
@@ -1747,13 +1905,11 @@ mdoc_bf_pre(MDOC_ARGS)
        else if (MDOC_BODY != n->type)
                return(1);
 
-       assert(n->data.Bf);
-
-       if (FONT_Em == n->data.Bf->font) 
+       if (FONT_Em == n->norm->Bf.font) 
                PAIR_CLASS_INIT(&tag[0], "emph");
-       else if (FONT_Sy == n->data.Bf->font) 
+       else if (FONT_Sy == n->norm->Bf.font) 
                PAIR_CLASS_INIT(&tag[0], "symb");
-       else if (FONT_Li == n->data.Bf->font) 
+       else if (FONT_Li == n->norm->Bf.font) 
                PAIR_CLASS_INIT(&tag[0], "lit");
        else
                PAIR_CLASS_INIT(&tag[0], "none");
@@ -1932,7 +2088,6 @@ mdoc__x_pre(MDOC_ARGS)
                break;
        case(MDOC__T):
                PAIR_CLASS_INIT(&tag[0], "ref-title");
-               t = TAG_U;
                break;
        case(MDOC__U):
                PAIR_CLASS_INIT(&tag[0], "link-ref");
@@ -1972,6 +2127,7 @@ mdoc__x_post(MDOC_ARGS)
        if (NULL == n->parent || MDOC_Rs != n->parent->tok)
                return;
 
+       h->flags |= HTML_NOSPACE;
        print_text(h, n->next ? "," : ".");
 }