]> git.cameronkatri.com Git - mandoc.git/blobdiff - mdoc_html.c
git.ckatri.com / mandoc.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Fixed up some documentation in man.7: only documenting man.7 macros, not related...
[mandoc.git] / mdoc_html.c
diff --git a/mdoc_html.c b/mdoc_html.c
index e2bb3d3c925138fe48aaae647956f4012158fc30..965bc568ceef9ddd2f5879c59702f093b3a6e1fd 100644 (file)
--- a/mdoc_html.c
+++ b/mdoc_html.c
@@ -1,4 +1,4 @@
-/*     $Id: mdoc_html.c,v 1.23 2009/10/07 12:35:24 kristaps Exp $ */
+/*     $Id: mdoc_html.c,v 1.54 2010/01/30 08:42:20 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -14,13 +14,14 @@
  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */
  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * 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 <sys/param.h>
-#include <sys/queue.h>
 
 #include <assert.h>
 #include <ctype.h>
 
 #include <assert.h>
 #include <ctype.h>
-#include <err.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ -29,6 +30,7 @@
 #include "out.h"
 #include "html.h"
 #include "mdoc.h"
 #include "out.h"
 #include "html.h"
 #include "mdoc.h"
+#include "main.h"
 
 #define        INDENT           5
 #define        HALFINDENT       3
 
 #define        INDENT           5
 #define        HALFINDENT       3
@@ -37,6 +39,10 @@
                          const struct mdoc_node *n, \
                          struct html *h
 
                          const struct mdoc_node *n, \
                          struct html *h
 
+#ifndef MIN
+#define        MIN(a,b)        ((/*CONSTCOND*/(a)<(b))?(a):(b))
+#endif
+
 struct htmlmdoc {
        int             (*pre)(MDOC_ARGS);
        void            (*post)(MDOC_ARGS);
 struct htmlmdoc {
        int             (*pre)(MDOC_ARGS);
        void            (*post)(MDOC_ARGS);
@@ -49,16 +55,11 @@ static      void              print_mdoc_nodelist(MDOC_ARGS);
 
 static void              a2width(const char *, struct roffsu *);
 static void              a2offs(const char *, struct roffsu *);
 
 static void              a2width(const char *, struct roffsu *);
 static void              a2offs(const char *, struct roffsu *);
+
 static int               a2list(const struct mdoc_node *);
 
 static void              mdoc_root_post(MDOC_ARGS);
 static int               mdoc_root_pre(MDOC_ARGS);
 static int               a2list(const struct mdoc_node *);
 
 static void              mdoc_root_post(MDOC_ARGS);
 static int               mdoc_root_pre(MDOC_ARGS);
-static int               mdoc_it_block_pre(MDOC_ARGS, int, 
-                               struct roffsu *, int, 
-                               struct roffsu *);
-static int               mdoc_it_head_pre(MDOC_ARGS, int, 
-                               struct roffsu *);
-static int               mdoc_it_body_pre(MDOC_ARGS, int);
 
 static void              mdoc__x_post(MDOC_ARGS);
 static int               mdoc__x_pre(MDOC_ARGS);
 
 static void              mdoc__x_post(MDOC_ARGS);
 static int               mdoc__x_pre(MDOC_ARGS);
@@ -96,6 +97,11 @@ static       void              mdoc_fo_post(MDOC_ARGS);
 static int               mdoc_fo_pre(MDOC_ARGS);
 static int               mdoc_ic_pre(MDOC_ARGS);
 static int               mdoc_in_pre(MDOC_ARGS);
 static int               mdoc_fo_pre(MDOC_ARGS);
 static int               mdoc_ic_pre(MDOC_ARGS);
 static int               mdoc_in_pre(MDOC_ARGS);
+static int               mdoc_it_block_pre(MDOC_ARGS, int, int,
+                               struct roffsu *, struct roffsu *);
+static int               mdoc_it_head_pre(MDOC_ARGS, int, 
+                               struct roffsu *);
+static int               mdoc_it_body_pre(MDOC_ARGS, int);
 static int               mdoc_it_pre(MDOC_ARGS);
 static int               mdoc_lb_pre(MDOC_ARGS);
 static int               mdoc_li_pre(MDOC_ARGS);
 static int               mdoc_it_pre(MDOC_ARGS);
 static int               mdoc_lb_pre(MDOC_ARGS);
 static int               mdoc_li_pre(MDOC_ARGS);
@@ -127,11 +133,6 @@ static     int               mdoc_vt_pre(MDOC_ARGS);
 static int               mdoc_xr_pre(MDOC_ARGS);
 static int               mdoc_xx_pre(MDOC_ARGS);
 
 static int               mdoc_xr_pre(MDOC_ARGS);
 static int               mdoc_xx_pre(MDOC_ARGS);
 
-#ifdef __linux__
-extern size_t            strlcpy(char *, const char *, size_t);
-extern size_t            strlcat(char *, const char *, size_t);
-#endif
-
 static const struct htmlmdoc mdocs[MDOC_MAX] = {
        {mdoc_ap_pre, NULL}, /* Ap */
        {NULL, NULL}, /* Dd */
 static const struct htmlmdoc mdocs[MDOC_MAX] = {
        {mdoc_ap_pre, NULL}, /* Ap */
        {NULL, NULL}, /* Dd */
@@ -253,6 +254,7 @@ static      const struct htmlmdoc mdocs[MDOC_MAX] = {
        {mdoc__x_pre, mdoc__x_post}, /* %Q */ 
        {mdoc_sp_pre, NULL}, /* br */
        {mdoc_sp_pre, NULL}, /* sp */ 
        {mdoc__x_pre, mdoc__x_post}, /* %Q */ 
        {mdoc_sp_pre, NULL}, /* br */
        {mdoc_sp_pre, NULL}, /* sp */ 
+       {mdoc__x_pre, mdoc__x_post}, /* %U */ 
 };
 
 
 };
 
 
@@ -264,7 +266,7 @@ html_mdoc(void *arg, const struct mdoc *m)
 
        h = (struct html *)arg;
 
 
        h = (struct html *)arg;
 
-       print_gen_doctype(h);
+       print_gen_decls(h);
        t = print_otag(h, TAG_HTML, 0, NULL);
        print_mdoc(mdoc_meta(m), mdoc_node(m), h);
        print_tagq(h, t);
        t = print_otag(h, TAG_HTML, 0, NULL);
        print_mdoc(mdoc_meta(m), mdoc_node(m), h);
        print_tagq(h, t);
@@ -326,8 +328,10 @@ static void
 a2width(const char *p, struct roffsu *su)
 {
 
 a2width(const char *p, struct roffsu *su)
 {
 
-       if ( ! a2roffsu(p, su))
-               SCALE_HS_INIT(su, (int)strlen(p));
+       if ( ! a2roffsu(p, su, SCALE_MAX)) {
+               su->unit = SCALE_EM;
+               su->scale = (int)strlen(p);
+       }
 }
 
 
 }
 
 
@@ -340,14 +344,18 @@ static void
 a2offs(const char *p, struct roffsu *su)
 {
 
 a2offs(const char *p, struct roffsu *su)
 {
 
+       /* FIXME: "right"? */
+
        if (0 == strcmp(p, "left"))
                SCALE_HS_INIT(su, 0);
        else if (0 == strcmp(p, "indent"))
                SCALE_HS_INIT(su, INDENT);
        else if (0 == strcmp(p, "indent-two"))
                SCALE_HS_INIT(su, INDENT * 2);
        if (0 == strcmp(p, "left"))
                SCALE_HS_INIT(su, 0);
        else if (0 == strcmp(p, "indent"))
                SCALE_HS_INIT(su, INDENT);
        else if (0 == strcmp(p, "indent-two"))
                SCALE_HS_INIT(su, INDENT * 2);
-       else if ( ! a2roffsu(p, su))
-               SCALE_HS_INIT(su, (int)strlen(p));
+       else if ( ! a2roffsu(p, su, SCALE_MAX)) {
+               su->unit = SCALE_EM;
+               su->scale = (int)strlen(p);
+       }
 }
 
 
 }
 
 
@@ -409,7 +417,7 @@ print_mdoc_node(MDOC_ARGS)
        struct tag      *t;
 
        child = 1;
        struct tag      *t;
 
        child = 1;
-       t = SLIST_FIRST(&h->tags);
+       t = h->tags.head;
 
        bufinit(h);
        switch (n->type) {
 
        bufinit(h);
        switch (n->type) {
@@ -418,7 +426,7 @@ print_mdoc_node(MDOC_ARGS)
                break;
        case (MDOC_TEXT):
                print_text(h, n->string);
                break;
        case (MDOC_TEXT):
                print_text(h, n->string);
-               break;
+               return;
        default:
                if (mdocs[n->tok].pre)
                        child = (*mdocs[n->tok].pre)(m, n, h);
        default:
                if (mdocs[n->tok].pre)
                        child = (*mdocs[n->tok].pre)(m, n, h);
@@ -435,8 +443,6 @@ print_mdoc_node(MDOC_ARGS)
        case (MDOC_ROOT):
                mdoc_root_post(m, n, h);
                break;
        case (MDOC_ROOT):
                mdoc_root_post(m, n, h);
                break;
-       case (MDOC_TEXT):
-               break;
        default:
                if (mdocs[n->tok].post)
                        (*mdocs[n->tok].post)(m, n, h);
        default:
                if (mdocs[n->tok].post)
                        (*mdocs[n->tok].post)(m, n, h);
@@ -449,10 +455,11 @@ print_mdoc_node(MDOC_ARGS)
 static void
 mdoc_root_post(MDOC_ARGS)
 {
 static void
 mdoc_root_post(MDOC_ARGS)
 {
-       struct tm        tm;
-       struct htmlpair  tag[2];
+       struct htmlpair  tag[3];
        struct tag      *t, *tt;
        struct tag      *t, *tt;
-       char             b[BUFSIZ];
+       char             b[DATESIZ];
+
+       time2a(m->date, b, DATESIZ);
 
        /*
         * XXX: this should use divs, but in Firefox, divs with nested
 
        /*
         * XXX: this should use divs, but in Firefox, divs with nested
@@ -460,15 +467,12 @@ mdoc_root_post(MDOC_ARGS)
         * below.  So I use tables, instead.
         */
 
         * below.  So I use tables, instead.
         */
 
-       (void)localtime_r(&m->date, &tm);
-
-       if (0 == strftime(b, BUFSIZ - 1, "%B %e, %Y", &tm))
-               err(EXIT_FAILURE, "strftime");
-
        PAIR_CLASS_INIT(&tag[0], "footer");
        bufcat_style(h, "width", "100%");
        PAIR_STYLE_INIT(&tag[1], h);
        PAIR_CLASS_INIT(&tag[0], "footer");
        bufcat_style(h, "width", "100%");
        PAIR_STYLE_INIT(&tag[1], h);
-       t = print_otag(h, TAG_TABLE, 2, tag);
+       PAIR_SUMMARY_INIT(&tag[2], "footer");
+
+       t = print_otag(h, TAG_TABLE, 3, tag);
        tt = print_otag(h, TAG_TR, 0, NULL);
 
        bufinit(h);
        tt = print_otag(h, TAG_TR, 0, NULL);
 
        bufinit(h);
@@ -492,7 +496,7 @@ mdoc_root_post(MDOC_ARGS)
 static int
 mdoc_root_pre(MDOC_ARGS)
 {
 static int
 mdoc_root_pre(MDOC_ARGS)
 {
-       struct htmlpair  tag[2];
+       struct htmlpair  tag[3];
        struct tag      *t, *tt;
        char             b[BUFSIZ], title[BUFSIZ];
 
        struct tag      *t, *tt;
        char             b[BUFSIZ], title[BUFSIZ];
 
@@ -512,7 +516,10 @@ mdoc_root_pre(MDOC_ARGS)
        PAIR_CLASS_INIT(&tag[0], "header");
        bufcat_style(h, "width", "100%");
        PAIR_STYLE_INIT(&tag[1], h);
        PAIR_CLASS_INIT(&tag[0], "header");
        bufcat_style(h, "width", "100%");
        PAIR_STYLE_INIT(&tag[1], h);
-       t = print_otag(h, TAG_TABLE, 2, tag);
+       PAIR_SUMMARY_INIT(&tag[2], "header");
+
+       t = print_otag(h, TAG_TABLE, 3, tag);
+
        tt = print_otag(h, TAG_TR, 0, NULL);
 
        bufinit(h);
        tt = print_otag(h, TAG_TR, 0, NULL);
 
        bufinit(h);
@@ -548,7 +555,7 @@ mdoc_sh_pre(MDOC_ARGS)
 {
        struct htmlpair          tag[2];
        const struct mdoc_node  *nn;
 {
        struct htmlpair          tag[2];
        const struct mdoc_node  *nn;
-       char                     link[BUFSIZ];
+       char                     buf[BUFSIZ];
        struct roffsu            su;
 
        if (MDOC_BODY == n->type) {
        struct roffsu            su;
 
        if (MDOC_BODY == n->type) {
@@ -575,11 +582,11 @@ mdoc_sh_pre(MDOC_ARGS)
                return(1);
        }
 
                return(1);
        }
 
-       link[0] = 0;
+       buf[0] = '\0';
        for (nn = n->child; nn; nn = nn->next) {
        for (nn = n->child; nn; nn = nn->next) {
-               (void)strlcat(link, nn->string, BUFSIZ);
+               html_idcat(buf, nn->string, BUFSIZ);
                if (nn->next)
                if (nn->next)
-                       (void)strlcat(link, "_", BUFSIZ);
+                       html_idcat(buf, " ", BUFSIZ);
        }
 
        /* 
        }
 
        /* 
@@ -589,7 +596,7 @@ mdoc_sh_pre(MDOC_ARGS)
 
        PAIR_CLASS_INIT(&tag[0], "sec-head");
        tag[1].key = ATTR_ID;
 
        PAIR_CLASS_INIT(&tag[0], "sec-head");
        tag[1].key = ATTR_ID;
-       tag[1].val = link;
+       tag[1].val = buf;
        print_otag(h, TAG_DIV, 2, tag);
        return(1);
 }
        print_otag(h, TAG_DIV, 2, tag);
        return(1);
 }
@@ -601,7 +608,7 @@ mdoc_ss_pre(MDOC_ARGS)
 {
        struct htmlpair          tag[3];
        const struct mdoc_node  *nn;
 {
        struct htmlpair          tag[3];
        const struct mdoc_node  *nn;
-       char                     link[BUFSIZ];
+       char                     buf[BUFSIZ];
        struct roffsu            su;
 
        SCALE_VS_INIT(&su, 1);
        struct roffsu            su;
 
        SCALE_VS_INIT(&su, 1);
@@ -628,11 +635,11 @@ mdoc_ss_pre(MDOC_ARGS)
 
        /* TODO: see note in mdoc_sh_pre() about duplicates. */
 
 
        /* TODO: see note in mdoc_sh_pre() about duplicates. */
 
-       link[0] = 0;
+       buf[0] = '\0';
        for (nn = n->child; nn; nn = nn->next) {
        for (nn = n->child; nn; nn = nn->next) {
-               (void)strlcat(link, nn->string, BUFSIZ);
+               html_idcat(buf, nn->string, BUFSIZ);
                if (nn->next)
                if (nn->next)
-                       (void)strlcat(link, "_", BUFSIZ);
+                       html_idcat(buf, " ", BUFSIZ);
        }
 
        SCALE_HS_INIT(&su, INDENT - HALFINDENT);
        }
 
        SCALE_HS_INIT(&su, INDENT - HALFINDENT);
@@ -642,7 +649,7 @@ mdoc_ss_pre(MDOC_ARGS)
        PAIR_CLASS_INIT(&tag[0], "ssec-head");
        PAIR_STYLE_INIT(&tag[1], h);
        tag[2].key = ATTR_ID;
        PAIR_CLASS_INIT(&tag[0], "ssec-head");
        PAIR_STYLE_INIT(&tag[1], h);
        tag[2].key = ATTR_ID;
-       tag[2].val = link;
+       tag[2].val = buf;
        print_otag(h, TAG_DIV, 3, tag);
        return(1);
 }
        print_otag(h, TAG_DIV, 3, tag);
        return(1);
 }
@@ -656,10 +663,19 @@ mdoc_fl_pre(MDOC_ARGS)
 
        PAIR_CLASS_INIT(&tag, "flag");
        print_otag(h, TAG_SPAN, 1, &tag);
 
        PAIR_CLASS_INIT(&tag, "flag");
        print_otag(h, TAG_SPAN, 1, &tag);
-       if (MDOC_Fl == n->tok) {
-               print_text(h, "\\-");
+
+       /* `Cm' has no leading hyphen. */
+
+       if (MDOC_Cm == n->tok)
+               return(1);
+
+       print_text(h, "\\-");
+
+       /* A blank `Fl' should incur a subsequent space. */
+
+       if (n->child)
                h->flags |= HTML_NOSPACE;
                h->flags |= HTML_NOSPACE;
-       }
+
        return(1);
 }
 
        return(1);
 }
 
@@ -673,7 +689,8 @@ mdoc_nd_pre(MDOC_ARGS)
        if (MDOC_BODY != n->type)
                return(1);
 
        if (MDOC_BODY != n->type)
                return(1);
 
-       /* XXX - this can contain block elements! */
+       /* XXX: this tag in theory can contain block elements. */
+
        print_text(h, "\\(em");
        PAIR_CLASS_INIT(&tag, "desc-body");
        print_otag(h, TAG_SPAN, 1, &tag);
        print_text(h, "\\(em");
        PAIR_CLASS_INIT(&tag, "desc-body");
        print_otag(h, TAG_SPAN, 1, &tag);
@@ -690,7 +707,8 @@ mdoc_op_pre(MDOC_ARGS)
        if (MDOC_BODY != n->type)
                return(1);
 
        if (MDOC_BODY != n->type)
                return(1);
 
-       /* XXX - this can contain block elements! */
+       /* XXX: this tag in theory can contain block elements. */
+
        print_text(h, "\\(lB");
        h->flags |= HTML_NOSPACE;
        PAIR_CLASS_INIT(&tag, "opt");
        print_text(h, "\\(lB");
        h->flags |= HTML_NOSPACE;
        PAIR_CLASS_INIT(&tag, "opt");
@@ -716,12 +734,11 @@ mdoc_nm_pre(MDOC_ARGS)
 {
        struct htmlpair tag;
 
 {
        struct htmlpair tag;
 
-       if ( ! (HTML_NEWLINE & h->flags))
-               if (SEC_SYNOPSIS == n->sec) {
-                       bufcat_style(h, "clear", "both");
-                       PAIR_STYLE_INIT(&tag, h);
-                       print_otag(h, TAG_BR, 1, &tag);
-               }
+       if (SEC_SYNOPSIS == n->sec && n->prev) {
+               bufcat_style(h, "clear", "both");
+               PAIR_STYLE_INIT(&tag, h);
+               print_otag(h, TAG_BR, 1, &tag);
+       }
 
        PAIR_CLASS_INIT(&tag, "name");
        print_otag(h, TAG_SPAN, 1, &tag);
 
        PAIR_CLASS_INIT(&tag, "name");
        print_otag(h, TAG_SPAN, 1, &tag);
@@ -801,7 +818,7 @@ mdoc_xx_pre(MDOC_ARGS)
                pp = "BSDI BSD/OS";
                break;
        case (MDOC_Dx):
                pp = "BSDI BSD/OS";
                break;
        case (MDOC_Dx):
-               pp = "DragonFlyBSD";
+               pp = "DragonFly";
                break;
        case (MDOC_Fx):
                pp = "FreeBSD";
                break;
        case (MDOC_Fx):
                pp = "FreeBSD";
@@ -849,8 +866,8 @@ mdoc_bx_pre(MDOC_ARGS)
 
 /* ARGSUSED */
 static int
 
 /* ARGSUSED */
 static int
-mdoc_it_block_pre(MDOC_ARGS, int type, struct roffsu *offs, 
-               int comp, struct roffsu *width)
+mdoc_it_block_pre(MDOC_ARGS, int type, int comp,
+               struct roffsu *offs, struct roffsu *width)
 {
        struct htmlpair          tag;
        const struct mdoc_node  *nn;
 {
        struct htmlpair          tag;
        const struct mdoc_node  *nn;
@@ -859,12 +876,20 @@ mdoc_it_block_pre(MDOC_ARGS, int type, struct roffsu *offs,
        nn = n->parent->parent;
        assert(nn->args);
 
        nn = n->parent->parent;
        assert(nn->args);
 
-       if (MDOC_Column == type)
-               comp = 0;
+       /* XXX: see notes in mdoc_it_pre(). */
+
+       if (MDOC_Column == type) {
+               /* Don't width-pad on the left. */
+               SCALE_HS_INIT(width, 0);
+               /* Also disallow non-compact. */
+               comp = 1;
+       }
        if (MDOC_Diag == type)
        if (MDOC_Diag == type)
+               /* Mandate non-compact with empty prior. */
                if (n->prev && NULL == n->prev->body->child)
                        comp = 1;
 
                if (n->prev && NULL == n->prev->body->child)
                        comp = 1;
 
+       bufcat_style(h, "clear", "both");
        if (offs->scale > 0)
                bufcat_su(h, "margin-left", offs);
        if (width->scale > 0)
        if (offs->scale > 0)
                bufcat_su(h, "margin-left", offs);
        if (width->scale > 0)
@@ -872,6 +897,8 @@ mdoc_it_block_pre(MDOC_ARGS, int type, struct roffsu *offs,
 
        PAIR_STYLE_INIT(&tag, h);
 
 
        PAIR_STYLE_INIT(&tag, h);
 
+       /* Mandate compact following `Ss' and `Sh' starts. */
+
        for (nn = n; nn && ! comp; nn = nn->parent) {
                if (MDOC_BLOCK != nn->type)
                        continue;
        for (nn = n; nn && ! comp; nn = nn->parent) {
                if (MDOC_BLOCK != nn->type)
                        continue;
@@ -892,6 +919,7 @@ mdoc_it_block_pre(MDOC_ARGS, int type, struct roffsu *offs,
 }
 
 
 }
 
 
+/* ARGSUSED */
 static int
 mdoc_it_body_pre(MDOC_ARGS, int type)
 {
 static int
 mdoc_it_body_pre(MDOC_ARGS, int type)
 {
@@ -906,6 +934,10 @@ mdoc_it_body_pre(MDOC_ARGS, int type)
        case (MDOC_Column):
                break;
        default:
        case (MDOC_Column):
                break;
        default:
+               /* 
+                * XXX: this tricks CSS into aligning the bodies with
+                * the right-padding in the head. 
+                */
                SCALE_HS_INIT(&su, 2);
                bufcat_su(h, "margin-left", &su);
                PAIR_STYLE_INIT(&tag, h);
                SCALE_HS_INIT(&su, 2);
                bufcat_su(h, "margin-left", &su);
                PAIR_STYLE_INIT(&tag, h);
@@ -917,6 +949,7 @@ mdoc_it_body_pre(MDOC_ARGS, int type)
 }
 
 
 }
 
 
+/* ARGSUSED */
 static int
 mdoc_it_head_pre(MDOC_ARGS, int type, struct roffsu *width)
 {
 static int
 mdoc_it_head_pre(MDOC_ARGS, int type, struct roffsu *width)
 {
@@ -926,10 +959,10 @@ mdoc_it_head_pre(MDOC_ARGS, int type, struct roffsu *width)
 
        switch (type) {
        case (MDOC_Item):
 
        switch (type) {
        case (MDOC_Item):
-               /* FALLTHROUGH */
+               return(0);
        case (MDOC_Ohang):
        case (MDOC_Ohang):
-               print_otag(h, TAG_DIV, 0, NULL);
-               break;
+               print_otag(h, TAG_DIV, 0, &tag);
+               return(1);
        case (MDOC_Column):
                bufcat_su(h, "min-width", width);
                bufcat_style(h, "clear", "none");
        case (MDOC_Column):
                bufcat_su(h, "min-width", width);
                bufcat_style(h, "clear", "none");
@@ -944,6 +977,8 @@ mdoc_it_head_pre(MDOC_ARGS, int type, struct roffsu *width)
                bufcat_su(h, "margin-left", width);
                if (n->next && n->next->child)
                        bufcat_style(h, "float", "left");
                bufcat_su(h, "margin-left", width);
                if (n->next && n->next->child)
                        bufcat_style(h, "float", "left");
+
+               /* XXX: buffer if we run into body. */
                SCALE_HS_INIT(width, 1);
                bufcat_su(h, "margin-right", width);
                PAIR_STYLE_INIT(&tag, h);
                SCALE_HS_INIT(width, 1);
                bufcat_su(h, "margin-right", width);
                PAIR_STYLE_INIT(&tag, h);
@@ -957,7 +992,7 @@ mdoc_it_head_pre(MDOC_ARGS, int type, struct roffsu *width)
                print_otag(h, TAG_SPAN, 1, &tag);
                break;
        case (MDOC_Enum):
                print_otag(h, TAG_SPAN, 1, &tag);
                break;
        case (MDOC_Enum):
-               ord = SLIST_FIRST(&h->ords);
+               ord = h->ords.head;
                assert(ord);
                nbuf[BUFSIZ - 1] = 0;
                (void)snprintf(nbuf, BUFSIZ - 1, "%d.", ord->pos++);
                assert(ord);
                nbuf[BUFSIZ - 1] = 0;
                (void)snprintf(nbuf, BUFSIZ - 1, "%d.", ord->pos++);
@@ -987,7 +1022,11 @@ mdoc_it_pre(MDOC_ARGS)
        const struct mdoc_node  *bl, *nn;
        struct roffsu            width, offs;
 
        const struct mdoc_node  *bl, *nn;
        struct roffsu            width, offs;
 
-       /* This is the `Bl' block parent. */
+       /* 
+        * XXX: be very careful in changing anything, here.  Lists in
+        * mandoc have many peculiarities; furthermore, they don't
+        * translate well into HTML and require a bit of mangling.
+        */
 
        bl = n->parent->parent;
        if (MDOC_BLOCK != n->type)
 
        bl = n->parent->parent;
        if (MDOC_BLOCK != n->type)
@@ -997,6 +1036,8 @@ mdoc_it_pre(MDOC_ARGS)
 
        /* Set default width and offset. */
 
 
        /* Set default width and offset. */
 
+       SCALE_HS_INIT(&offs, 0);
+
        switch (type) {
        case (MDOC_Enum):
                /* FALLTHROUGH */
        switch (type) {
        case (MDOC_Enum):
                /* FALLTHROUGH */
@@ -1012,14 +1053,14 @@ mdoc_it_pre(MDOC_ARGS)
                break;
        }
 
                break;
        }
 
-       SCALE_HS_INIT(&offs, 0);
-
        /* Get width, offset, and compact arguments. */
 
        for (wp = -1, comp = i = 0; i < (int)bl->args->argc; i++) 
                switch (bl->args->argv[i].arg) {
        /* Get width, offset, and compact arguments. */
 
        for (wp = -1, comp = i = 0; i < (int)bl->args->argc; i++) 
                switch (bl->args->argv[i].arg) {
+               case (MDOC_Column):
+                       wp = i; /* Save for later. */
+                       break;
                case (MDOC_Width):
                case (MDOC_Width):
-                       wp = i; /* Save offset. */
                        a2width(bl->args->argv[i].value[0], &width);
                        break;
                case (MDOC_Offset):
                        a2width(bl->args->argv[i].value[0], &width);
                        break;
                case (MDOC_Offset):
@@ -1035,6 +1076,10 @@ mdoc_it_pre(MDOC_ARGS)
        /* Override width in some cases. */
 
        switch (type) {
        /* Override width in some cases. */
 
        switch (type) {
+       case (MDOC_Ohang):
+               /* FALLTHROUGH */
+       case (MDOC_Item):
+               /* FALLTHROUGH */
        case (MDOC_Inset):
                /* FALLTHROUGH */
        case (MDOC_Diag):
        case (MDOC_Inset):
                /* FALLTHROUGH */
        case (MDOC_Diag):
@@ -1051,8 +1096,8 @@ mdoc_it_pre(MDOC_ARGS)
        if (MDOC_BODY == n->type)
                return(mdoc_it_body_pre(m, n, h, type));
        if (MDOC_BLOCK == n->type)
        if (MDOC_BODY == n->type)
                return(mdoc_it_body_pre(m, n, h, type));
        if (MDOC_BLOCK == n->type)
-               return(mdoc_it_block_pre(m, n, h, type, 
-                                       &offs, comp, &width));
+               return(mdoc_it_block_pre(m, n, h, type, comp,
+                                       &offs, &width));
 
        /* Override column widths. */
 
 
        /* Override column widths. */
 
@@ -1060,7 +1105,7 @@ mdoc_it_pre(MDOC_ARGS)
                nn = n->parent->child;
                for (i = 0; nn && nn != n; nn = nn->next, i++)
                        /* Counter... */ ;
                nn = n->parent->child;
                for (i = 0; nn && nn != n; nn = nn->next, i++)
                        /* Counter... */ ;
-               if (wp >= 0 && i < (int)bl->args[wp].argv->sz)
+               if (i < (int)bl->args->argv[wp].sz)
                        a2width(bl->args->argv[wp].value[i], &width);
        }
 
                        a2width(bl->args->argv[wp].value[i], &width);
        }
 
@@ -1080,11 +1125,14 @@ mdoc_bl_pre(MDOC_ARGS)
                return(1);
 
        ord = malloc(sizeof(struct ord));
                return(1);
 
        ord = malloc(sizeof(struct ord));
-       if (NULL == ord)
-               err(EXIT_FAILURE, "malloc");
+       if (NULL == ord) {
+               perror(NULL);
+               exit(EXIT_FAILURE);
+       }
        ord->cookie = n;
        ord->pos = 1;
        ord->cookie = n;
        ord->pos = 1;
-       SLIST_INSERT_HEAD(&h->ords, ord, entry);
+       ord->next = h->ords.head;
+       h->ords.head = ord;
        return(1);
 }
 
        return(1);
 }
 
@@ -1100,9 +1148,9 @@ mdoc_bl_post(MDOC_ARGS)
        if (MDOC_Enum != a2list(n))
                return;
 
        if (MDOC_Enum != a2list(n))
                return;
 
-       ord = SLIST_FIRST(&h->ords);
+       ord = h->ords.head;
        assert(ord);
        assert(ord);
-       SLIST_REMOVE_HEAD(&h->ords, entry);
+       h->ords.head = ord->next;
        free(ord);
 }
 
        free(ord);
 }
 
@@ -1239,6 +1287,8 @@ mdoc_d1_pre(MDOC_ARGS)
        if (MDOC_BLOCK != n->type)
                return(1);
 
        if (MDOC_BLOCK != n->type)
                return(1);
 
+       /* FIXME: D1 shouldn't be literal. */
+
        SCALE_VS_INIT(&su, INDENT - 2);
        bufcat_su(h, "margin-left", &su);
        PAIR_CLASS_INIT(&tag[0], "lit");
        SCALE_VS_INIT(&su, INDENT - 2);
        bufcat_su(h, "margin-left", &su);
        PAIR_CLASS_INIT(&tag[0], "lit");
@@ -1254,20 +1304,20 @@ mdoc_sx_pre(MDOC_ARGS)
 {
        struct htmlpair          tag[2];
        const struct mdoc_node  *nn;
 {
        struct htmlpair          tag[2];
        const struct mdoc_node  *nn;
-       char                     link[BUFSIZ];
+       char                     buf[BUFSIZ];
 
        /* FIXME: duplicates? */
 
 
        /* FIXME: duplicates? */
 
-       (void)strlcpy(link, "#", BUFSIZ);
+       strlcpy(buf, "#", BUFSIZ);
        for (nn = n->child; nn; nn = nn->next) {
        for (nn = n->child; nn; nn = nn->next) {
-               (void)strlcat(link, nn->string, BUFSIZ);
+               html_idcat(buf, nn->string, BUFSIZ);
                if (nn->next)
                if (nn->next)
-                       (void)strlcat(link, "_", BUFSIZ);
+                       html_idcat(buf, " ", BUFSIZ);
        }
 
        PAIR_CLASS_INIT(&tag[0], "link-sec");
        tag[1].key = ATTR_HREF;
        }
 
        PAIR_CLASS_INIT(&tag[0], "link-sec");
        tag[1].key = ATTR_HREF;
-       tag[1].val = link;
+       tag[1].val = buf;
 
        print_otag(h, TAG_A, 2, tag);
        return(1);
 
        print_otag(h, TAG_A, 2, tag);
        return(1);
@@ -1315,16 +1365,19 @@ mdoc_bd_pre(MDOC_ARGS)
        else
                bl = n->parent;
 
        else
                bl = n->parent;
 
+       SCALE_VS_INIT(&su, 0);
+
        type = comp = 0;
        for (i = 0; i < (int)bl->args->argc; i++) 
                switch (bl->args->argv[i].arg) {
                case (MDOC_Offset):
                        a2offs(bl->args->argv[i].value[0], &su);
        type = comp = 0;
        for (i = 0; i < (int)bl->args->argc; i++) 
                switch (bl->args->argv[i].arg) {
                case (MDOC_Offset):
                        a2offs(bl->args->argv[i].value[0], &su);
-                       bufcat_su(h, "margin-left", &su);
                        break;
                case (MDOC_Compact):
                        comp = 1;
                        break;
                        break;
                case (MDOC_Compact):
                        comp = 1;
                        break;
+               case (MDOC_Centred):
+                       /* FALLTHROUGH */
                case (MDOC_Ragged):
                        /* FALLTHROUGH */
                case (MDOC_Filled):
                case (MDOC_Ragged):
                        /* FALLTHROUGH */
                case (MDOC_Filled):
@@ -1334,9 +1387,14 @@ mdoc_bd_pre(MDOC_ARGS)
                case (MDOC_Literal):
                        type = bl->args->argv[i].arg;
                        break;
                case (MDOC_Literal):
                        type = bl->args->argv[i].arg;
                        break;
+               default:
+                       break;
                }
 
                }
 
+       /* FIXME: -centered, etc. formatting. */
+
        if (MDOC_BLOCK == n->type) {
        if (MDOC_BLOCK == n->type) {
+               bufcat_su(h, "margin-left", &su);
                for (nn = n; nn && ! comp; nn = nn->parent) {
                        if (MDOC_BLOCK != nn->type)
                                continue;
                for (nn = n; nn && ! comp; nn = nn->parent) {
                        if (MDOC_BLOCK != nn->type)
                                continue;
@@ -1423,6 +1481,7 @@ mdoc_cd_pre(MDOC_ARGS)
 {
        struct htmlpair tag;
 
 {
        struct htmlpair tag;
 
+       print_otag(h, TAG_DIV, 0, NULL);
        PAIR_CLASS_INIT(&tag, "config");
        print_otag(h, TAG_SPAN, 1, &tag);
        return(1);
        PAIR_CLASS_INIT(&tag, "config");
        print_otag(h, TAG_SPAN, 1, &tag);
        return(1);
@@ -1524,15 +1583,18 @@ mdoc_vt_pre(MDOC_ARGS)
        struct htmlpair  tag;
        struct roffsu    su;
 
        struct htmlpair  tag;
        struct roffsu    su;
 
-       if (SEC_SYNOPSIS == n->sec) {
-               if (n->next && MDOC_Vt != n->next->tok) {
+       if (MDOC_BLOCK == n->type) {
+               if (n->prev && MDOC_Vt != n->prev->tok) {
                        SCALE_VS_INIT(&su, 1);
                        SCALE_VS_INIT(&su, 1);
-                       bufcat_su(h, "margin-bottom", &su);
+                       bufcat_su(h, "margin-top", &su);
                        PAIR_STYLE_INIT(&tag, h);
                        print_otag(h, TAG_DIV, 1, &tag);
                } else
                        print_otag(h, TAG_DIV, 0, NULL);
                        PAIR_STYLE_INIT(&tag, h);
                        print_otag(h, TAG_DIV, 1, &tag);
                } else
                        print_otag(h, TAG_DIV, 0, NULL);
-       }
+
+               return(1);
+       } else if (MDOC_HEAD == n->type)
+               return(0);
 
        PAIR_CLASS_INIT(&tag, "type");
        print_otag(h, TAG_SPAN, 1, &tag);
 
        PAIR_CLASS_INIT(&tag, "type");
        print_otag(h, TAG_SPAN, 1, &tag);
@@ -1592,7 +1654,8 @@ mdoc_fn_pre(MDOC_ARGS)
        assert(n->child->string);
        sp = n->child->string;
 
        assert(n->child->string);
        sp = n->child->string;
 
-       if ((ep = strchr(sp, ' '))) {
+       ep = strchr(sp, ' ');
+       if (NULL != ep) {
                PAIR_CLASS_INIT(&tag[0], "ftype");
                t = print_otag(h, TAG_SPAN, 1, tag);
        
                PAIR_CLASS_INIT(&tag[0], "ftype");
                t = print_otag(h, TAG_SPAN, 1, tag);
        
@@ -1669,7 +1732,10 @@ mdoc_sp_pre(MDOC_ARGS)
        bufcat_su(h, "height", &su);
        PAIR_STYLE_INIT(&tag, h);
        print_otag(h, TAG_DIV, 1, &tag);
        bufcat_su(h, "height", &su);
        PAIR_STYLE_INIT(&tag, h);
        print_otag(h, TAG_DIV, 1, &tag);
-       return(1);
+       /* So the div isn't empty: */
+       print_text(h, "\\~");
+
+       return(0);
 
 }
 
 
 }
 
@@ -1713,6 +1779,9 @@ mdoc_lk_pre(MDOC_ARGS)
        tag[1].val = nn->string;
        print_otag(h, TAG_A, 2, tag);
 
        tag[1].val = nn->string;
        print_otag(h, TAG_A, 2, tag);
 
+       if (NULL == nn->next) 
+               return(1);
+
        for (nn = nn->next; nn; nn = nn->next) 
                print_text(h, nn->string);
 
        for (nn = nn->next; nn; nn = nn->next) 
                print_text(h, nn->string);
 
@@ -1797,6 +1866,8 @@ mdoc_in_pre(MDOC_ARGS)
                        print_otag(h, TAG_DIV, 0, NULL);
        }
 
                        print_otag(h, TAG_DIV, 0, NULL);
        }
 
+       /* FIXME: there's a buffer bug in here somewhere. */
+
        PAIR_CLASS_INIT(&tag[0], "includes");
        print_otag(h, TAG_SPAN, 1, tag);
 
        PAIR_CLASS_INIT(&tag[0], "includes");
        print_otag(h, TAG_SPAN, 1, tag);
 
@@ -1811,6 +1882,7 @@ mdoc_in_pre(MDOC_ARGS)
        for (nn = n->child; nn; nn = nn->next) {
                PAIR_CLASS_INIT(&tag[0], "link-includes");
                i = 1;
        for (nn = n->child; nn; nn = nn->next) {
                PAIR_CLASS_INIT(&tag[0], "link-includes");
                i = 1;
+               bufinit(h);
                if (h->base_includes) {
                        buffmt_includes(h, nn->string);
                        tag[i].key = ATTR_HREF;
                if (h->base_includes) {
                        buffmt_includes(h, nn->string);
                        tag[i].key = ATTR_HREF;
@@ -2101,56 +2173,65 @@ mdoc_lb_pre(MDOC_ARGS)
 static int
 mdoc__x_pre(MDOC_ARGS)
 {
 static int
 mdoc__x_pre(MDOC_ARGS)
 {
-       struct htmlpair tag;
+       struct htmlpair tag[2];
 
        switch (n->tok) {
        case(MDOC__A):
 
        switch (n->tok) {
        case(MDOC__A):
-               PAIR_CLASS_INIT(&tag, "ref-auth");
+               PAIR_CLASS_INIT(&tag[0], "ref-auth");
                break;
        case(MDOC__B):
                break;
        case(MDOC__B):
-               PAIR_CLASS_INIT(&tag, "ref-book");
+               PAIR_CLASS_INIT(&tag[0], "ref-book");
                break;
        case(MDOC__C):
                break;
        case(MDOC__C):
-               PAIR_CLASS_INIT(&tag, "ref-city");
+               PAIR_CLASS_INIT(&tag[0], "ref-city");
                break;
        case(MDOC__D):
                break;
        case(MDOC__D):
-               PAIR_CLASS_INIT(&tag, "ref-date");
+               PAIR_CLASS_INIT(&tag[0], "ref-date");
                break;
        case(MDOC__I):
                break;
        case(MDOC__I):
-               PAIR_CLASS_INIT(&tag, "ref-issue");
+               PAIR_CLASS_INIT(&tag[0], "ref-issue");
                break;
        case(MDOC__J):
                break;
        case(MDOC__J):
-               PAIR_CLASS_INIT(&tag, "ref-jrnl");
+               PAIR_CLASS_INIT(&tag[0], "ref-jrnl");
                break;
        case(MDOC__N):
                break;
        case(MDOC__N):
-               PAIR_CLASS_INIT(&tag, "ref-num");
+               PAIR_CLASS_INIT(&tag[0], "ref-num");
                break;
        case(MDOC__O):
                break;
        case(MDOC__O):
-               PAIR_CLASS_INIT(&tag, "ref-opt");
+               PAIR_CLASS_INIT(&tag[0], "ref-opt");
                break;
        case(MDOC__P):
                break;
        case(MDOC__P):
-               PAIR_CLASS_INIT(&tag, "ref-page");
+               PAIR_CLASS_INIT(&tag[0], "ref-page");
                break;
        case(MDOC__Q):
                break;
        case(MDOC__Q):
-               PAIR_CLASS_INIT(&tag, "ref-corp");
+               PAIR_CLASS_INIT(&tag[0], "ref-corp");
                break;
        case(MDOC__R):
                break;
        case(MDOC__R):
-               PAIR_CLASS_INIT(&tag, "ref-rep");
+               PAIR_CLASS_INIT(&tag[0], "ref-rep");
                break;
        case(MDOC__T):
                break;
        case(MDOC__T):
-               PAIR_CLASS_INIT(&tag, "ref-title");
+               PAIR_CLASS_INIT(&tag[0], "ref-title");
                print_text(h, "\\(lq");
                h->flags |= HTML_NOSPACE;
                break;
                print_text(h, "\\(lq");
                h->flags |= HTML_NOSPACE;
                break;
+       case(MDOC__U):
+               PAIR_CLASS_INIT(&tag[0], "link-ref");
+               break;
        case(MDOC__V):
        case(MDOC__V):
-               PAIR_CLASS_INIT(&tag, "ref-vol");
+               PAIR_CLASS_INIT(&tag[0], "ref-vol");
                break;
        default:
                abort();
                /* NOTREACHED */
        }
 
                break;
        default:
                abort();
                /* NOTREACHED */
        }
 
-       print_otag(h, TAG_SPAN, 1, &tag);
+       if (MDOC__U != n->tok) {
+               print_otag(h, TAG_SPAN, 1, tag);
+               return(1);
+       }
+
+       PAIR_HREF_INIT(&tag[1], n->child->string);
+       print_otag(h, TAG_A, 2, tag);
        return(1);
 }
 
        return(1);
 }
 
A git conversion mirror of mandoc.bsd.lv