Updated libman AST documentation.

[mandoc.git] / mdoc_action.c

diff --git a/mdoc_action.c b/mdoc_action.c
index 8ee06aeb5d0ff83f81a65500e4d70eb2e2a4a237..87882138ee00bef4f6d1f9e23a949a6bfdbd074b 100644 (file)
--- a/mdoc_action.c
+++ b/mdoc_action.c
@@ -1,4 +1,4 @@
-/*     $Id: mdoc_action.c,v 1.18 2009/06/22 12:04:05 kristaps Exp $ */
+/*     $Id: mdoc_action.c,v 1.34 2009/07/26 10:29:39 kristaps Exp $ */

 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *


@@ -24,18 +24,6 @@
 
 #include "libmdoc.h"
 
 
 #include "libmdoc.h"
 

-enum   mwarn {
-       WBADSEC,
-       WNOWIDTH,
-       WBADDATE
-};
-
-enum   merr {
-       ETOOLONG,
-       EMALLOC,
-       ENUMFMT
-};
-

 #define        PRE_ARGS  struct mdoc *m, const struct mdoc_node *n
 #define        POST_ARGS struct mdoc *m
 
 #define        PRE_ARGS  struct mdoc *m, const struct mdoc_node *n
 #define        POST_ARGS struct mdoc *m
 


@@ -44,33 +32,27 @@ struct      actions {
        int     (*post)(POST_ARGS);
 };
 
        int     (*post)(POST_ARGS);
 };
 

-static int       pwarn(struct mdoc *, int, int, enum mwarn);
-static int       perr(struct mdoc *, int, int, enum merr);
-static int       concat(struct mdoc *, const struct mdoc_node *, 
-                       char *, size_t);
-

 static int       post_ar(POST_ARGS);
 static int       post_ar(POST_ARGS);

+static int       post_at(POST_ARGS);

 static int       post_bl(POST_ARGS);
 static int       post_bl_head(POST_ARGS);
 static int       post_bl(POST_ARGS);
 static int       post_bl_head(POST_ARGS);

-static int       post_bl_width(POST_ARGS);

 static int       post_bl_tagwidth(POST_ARGS);
 static int       post_bl_tagwidth(POST_ARGS);

+static int       post_bl_width(POST_ARGS);

 static int       post_dd(POST_ARGS);
 static int       post_display(POST_ARGS);
 static int       post_dt(POST_ARGS);
 static int       post_dd(POST_ARGS);
 static int       post_display(POST_ARGS);
 static int       post_dt(POST_ARGS);

-static int       post_lk(POST_ARGS);
+static int       post_lb(POST_ARGS);

 static int       post_nm(POST_ARGS);
 static int       post_os(POST_ARGS);
 static int       post_prol(POST_ARGS);
 static int       post_sh(POST_ARGS);
 static int       post_nm(POST_ARGS);
 static int       post_os(POST_ARGS);
 static int       post_prol(POST_ARGS);
 static int       post_sh(POST_ARGS);

+static int       post_st(POST_ARGS);

 static int       post_std(POST_ARGS);
 static int       post_std(POST_ARGS);

+static int       post_tilde(POST_ARGS);

 
 static int       pre_bd(PRE_ARGS);
 static int       pre_dl(PRE_ARGS);
 
 
 static int       pre_bd(PRE_ARGS);
 static int       pre_dl(PRE_ARGS);
 

-#define        vwarn(m, t) pwarn((m), (m)->last->line, (m)->last->pos, (t))
-#define        verr(m, t) perr((m), (m)->last->line, (m)->last->pos, (t))
-#define        nerr(m, n, t) perr((m), (n)->line, (n)->pos, (t))
-

 const  struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, NULL }, /* Ap */
        { NULL, post_dd }, /* Dd */ 
 const  struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, NULL }, /* Ap */
        { NULL, post_dd }, /* Dd */ 


@@ -89,7 +71,7 @@ const struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, NULL }, /* Ad */ 
        { NULL, NULL }, /* An */
        { NULL, post_ar }, /* Ar */
        { NULL, NULL }, /* Ad */ 
        { NULL, NULL }, /* An */
        { NULL, post_ar }, /* Ar */

-       { NULL, NULL }, /* Cd */
+       { NULL, NULL }, /* Cd */ /* FIXME: tabs are accepted! */

        { NULL, NULL }, /* Cm */
        { NULL, NULL }, /* Dv */ 
        { NULL, NULL }, /* Er */ 
        { NULL, NULL }, /* Cm */
        { NULL, NULL }, /* Dv */ 
        { NULL, NULL }, /* Er */ 


@@ -107,9 +89,9 @@ const        struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, post_nm }, /* Nm */ 
        { NULL, NULL }, /* Op */
        { NULL, NULL }, /* Ot */
        { NULL, post_nm }, /* Nm */ 
        { NULL, NULL }, /* Op */
        { NULL, NULL }, /* Ot */

-       { NULL, NULL }, /* Pa */
+       { NULL, post_tilde }, /* Pa */

        { NULL, post_std }, /* Rv */
        { NULL, post_std }, /* Rv */

-       { NULL, NULL }, /* St */
+       { NULL, post_st }, /* St */

        { NULL, NULL }, /* Va */
        { NULL, NULL }, /* Vt */ 
        { NULL, NULL }, /* Xr */
        { NULL, NULL }, /* Va */
        { NULL, NULL }, /* Vt */ 
        { NULL, NULL }, /* Xr */


@@ -127,7 +109,7 @@ const       struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, NULL }, /* Ac */
        { NULL, NULL }, /* Ao */
        { NULL, NULL }, /* Aq */
        { NULL, NULL }, /* Ac */
        { NULL, NULL }, /* Ao */
        { NULL, NULL }, /* Aq */

-       { NULL, NULL }, /* At */ 
+       { NULL, post_at }, /* At */ 

        { NULL, NULL }, /* Bc */
        { NULL, NULL }, /* Bf */ 
        { NULL, NULL }, /* Bo */
        { NULL, NULL }, /* Bc */
        { NULL, NULL }, /* Bf */ 
        { NULL, NULL }, /* Bo */


@@ -178,9 +160,9 @@ const       struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, NULL }, /* Hf */
        { NULL, NULL }, /* Fr */
        { NULL, NULL }, /* Ud */
        { NULL, NULL }, /* Hf */
        { NULL, NULL }, /* Fr */
        { NULL, NULL }, /* Ud */

-       { NULL, NULL }, /* Lb */
+       { NULL, post_lb }, /* Lb */

        { NULL, NULL }, /* Lp */
        { NULL, NULL }, /* Lp */

-       { NULL, post_lk }, /* Lk */
+       { NULL, post_tilde }, /* Lk */

        { NULL, NULL }, /* Mt */
        { NULL, NULL }, /* Brq */
        { NULL, NULL }, /* Bro */
        { NULL, NULL }, /* Mt */
        { NULL, NULL }, /* Brq */
        { NULL, NULL }, /* Bro */


@@ -190,11 +172,15 @@ const     struct actions mdoc_actions[MDOC_MAX] = {
        { NULL, NULL }, /* En */
        { NULL, NULL }, /* Dx */
        { NULL, NULL }, /* %Q */
        { NULL, NULL }, /* En */
        { NULL, NULL }, /* Dx */
        { NULL, NULL }, /* %Q */

+       { NULL, NULL }, /* br */
+       { NULL, NULL }, /* sp */

 };
 
 };
 

+static int       concat(struct mdoc *, const struct mdoc_node *, 
+                       char *, size_t);

 
 #ifdef __linux__
 
 #ifdef __linux__

-extern size_t  strlcat(char *, const char *, size_t);
+extern size_t    strlcat(char *, const char *, size_t);

 #endif
 
 
 #endif
 
 


@@ -248,64 +234,17 @@ concat(struct mdoc *m, const struct mdoc_node *n,
        for ( ; n; n = n->next) {
                assert(MDOC_TEXT == n->type);
                if (strlcat(buf, n->string, sz) >= sz)
        for ( ; n; n = n->next) {
                assert(MDOC_TEXT == n->type);
                if (strlcat(buf, n->string, sz) >= sz)

-                       return(nerr(m, n, ETOOLONG));
+                       return(mdoc_nerr(m, n, ETOOLONG));

                if (NULL == n->next)
                        continue;
                if (strlcat(buf, " ", sz) >= sz)
                if (NULL == n->next)
                        continue;
                if (strlcat(buf, " ", sz) >= sz)

-                       return(nerr(m, n, ETOOLONG));
+                       return(mdoc_nerr(m, n, ETOOLONG));

        }
 
        return(1);
 }
 
 
        }
 
        return(1);
 }
 
 

-static int
-perr(struct mdoc *m, int line, int pos, enum merr type)
-{
-       char            *p;
-
-       p = NULL;
-       switch (type) {
-       case (ENUMFMT):
-               p = "bad number format";
-               break;
-       case (ETOOLONG):
-               p = "argument text too long";
-               break;
-       case (EMALLOC):
-               p = "memory exhausted";
-               break;
-       }
-       assert(p);
-       return(mdoc_perr(m, line, pos, p));
-}
-
-
-static int
-pwarn(struct mdoc *m, int line, int pos, enum mwarn type)
-{
-       char            *p;
-       int              c;
-
-       p = NULL;
-       c = WARN_SYNTAX;
-       switch (type) {
-       case (WBADSEC):
-               p = "inappropriate document section in manual section";
-               c = WARN_COMPAT;
-               break;
-       case (WNOWIDTH):
-               p = "cannot determine default width";
-               break;
-       case (WBADDATE):
-               p = "malformed date syntax";
-               break;
-       }
-       assert(p);
-       return(mdoc_pwarn(m, line, pos, c, p));
-}
-
-

 static int
 post_std(POST_ARGS)
 {
 static int
 post_std(POST_ARGS)
 {


@@ -324,12 +263,12 @@ post_std(POST_ARGS)
 
        m->last->args->argv[0].value = calloc(1, sizeof(char *));
        if (NULL == m->last->args->argv[0].value)
 
        m->last->args->argv[0].value = calloc(1, sizeof(char *));
        if (NULL == m->last->args->argv[0].value)

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        m->last->args->argv[0].sz = 1;
        m->last->args->argv[0].value[0] = strdup(m->meta.name);
        if (NULL == m->last->args->argv[0].value[0])
 
        m->last->args->argv[0].sz = 1;
        m->last->args->argv[0].value[0] = strdup(m->meta.name);
        if (NULL == m->last->args->argv[0].value[0])

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        return(1);
 }
 
        return(1);
 }


@@ -348,12 +287,87 @@ post_nm(POST_ARGS)
                return(0);
 
        if (NULL == (m->meta.name = strdup(buf)))
                return(0);
 
        if (NULL == (m->meta.name = strdup(buf)))

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        return(1);
 }
 
 
 
        return(1);
 }
 
 

+static int
+post_lb(POST_ARGS)
+{
+       const char      *p;
+       char            *buf;
+       size_t           sz;
+
+       assert(MDOC_TEXT == m->last->child->type);
+       p = mdoc_a2lib(m->last->child->string);
+       if (NULL == p) {
+               sz = strlen(m->last->child->string) +
+                       2 + strlen("\\(lqlibrary\\(rq");
+               buf = malloc(sz);
+               if (NULL == buf)
+                       return(mdoc_nerr(m, m->last, EMALLOC));
+               (void)snprintf(buf, sz, "library \\(lq%s\\(rq", 
+                               m->last->child->string);
+               free(m->last->child->string);
+               m->last->child->string = buf;
+               return(1);
+       }
+
+       free(m->last->child->string);
+       m->last->child->string = strdup(p);
+       if (NULL == m->last->child->string)
+               return(mdoc_nerr(m, m->last, EMALLOC));
+       return(1);
+}
+
+
+static int
+post_st(POST_ARGS)
+{
+       const char      *p;
+
+       assert(MDOC_TEXT == m->last->child->type);
+       p = mdoc_a2st(m->last->child->string);
+       assert(p);
+       free(m->last->child->string);
+       m->last->child->string = strdup(p);
+       if (NULL == m->last->child->string)
+               return(mdoc_nerr(m, m->last, EMALLOC));
+       return(1);
+}
+
+
+static int
+post_at(POST_ARGS)
+{
+       struct mdoc_node *n;
+       const char       *p;
+
+       if (m->last->child) {
+               assert(MDOC_TEXT == m->last->child->type);
+               p = mdoc_a2att(m->last->child->string);
+               assert(p);
+               free(m->last->child->string);
+               m->last->child->string = strdup(p);
+               if (NULL == m->last->child->string)
+                       return(mdoc_nerr(m, m->last, EMALLOC));
+               return(1);
+       }
+
+       n = m->last;
+       m->next = MDOC_NEXT_CHILD;
+
+       if ( ! mdoc_word_alloc(m, n->line, n->pos, "AT&T UNIX"))
+               return(0);
+
+       m->last = n;
+       m->next = MDOC_NEXT_SIBLING;
+       return(1);
+}
+
+

 static int
 post_sh(POST_ARGS)
 {
 static int
 post_sh(POST_ARGS)
 {


@@ -387,7 +401,7 @@ post_sh(POST_ARGS)
                case (9):
                        break;
                default:
                case (9):
                        break;
                default:

-                       return(vwarn(m, WBADSEC));
+                       return(mdoc_nwarn(m, m->last, EBADSEC));

                }
                break;
        default:
                }
                break;
        default:


@@ -421,9 +435,9 @@ post_dt(POST_ARGS)
 
        if (NULL == (n = m->last->child)) {
                if (NULL == (m->meta.title = strdup("unknown")))
 
        if (NULL == (n = m->last->child)) {
                if (NULL == (m->meta.title = strdup("unknown")))

-                       return(verr(m, EMALLOC));
+                       return(mdoc_nerr(m, m->last, EMALLOC));

                if (NULL == (m->meta.vol = strdup("local")))
                if (NULL == (m->meta.vol = strdup("local")))

-                       return(verr(m, EMALLOC));
+                       return(mdoc_nerr(m, m->last, EMALLOC));

                return(post_prol(m));
        }
 
                return(post_prol(m));
        }
 


@@ -432,11 +446,11 @@ post_dt(POST_ARGS)
         */
 
        if (NULL == (m->meta.title = strdup(n->string)))
         */
 
        if (NULL == (m->meta.title = strdup(n->string)))

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        if (NULL == (n = n->next)) {
                if (NULL == (m->meta.vol = strdup("local")))
 
        if (NULL == (n = n->next)) {
                if (NULL == (m->meta.vol = strdup("local")))

-                       return(verr(m, EMALLOC));
+                       return(mdoc_nerr(m, m->last, EMALLOC));

                return(post_prol(m));
        }
 
                return(post_prol(m));
        }
 


@@ -450,13 +464,13 @@ post_dt(POST_ARGS)
        cp = mdoc_a2msec(n->string);
        if (cp) {
                if (NULL == (m->meta.vol = strdup(cp)))
        cp = mdoc_a2msec(n->string);
        if (cp) {
                if (NULL == (m->meta.vol = strdup(cp)))

-                       return(verr(m, EMALLOC));
+                       return(mdoc_nerr(m, m->last, EMALLOC));

                errno = 0;
                lval = strtol(n->string, &ep, 10);
                if (n->string[0] != '\0' && *ep == '\0')
                        m->meta.msec = (int)lval;
        } else if (NULL == (m->meta.vol = strdup(n->string)))
                errno = 0;
                lval = strtol(n->string, &ep, 10);
                if (n->string[0] != '\0' && *ep == '\0')
                        m->meta.msec = (int)lval;
        } else if (NULL == (m->meta.vol = strdup(n->string)))

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        if (NULL == (n = n->next))
                return(post_prol(m));
 
        if (NULL == (n = n->next))
                return(post_prol(m));


@@ -472,16 +486,15 @@ post_dt(POST_ARGS)
        if (cp) {
                free(m->meta.vol);
                if (NULL == (m->meta.vol = strdup(cp)))
        if (cp) {
                free(m->meta.vol);
                if (NULL == (m->meta.vol = strdup(cp)))

-                       return(verr(m, EMALLOC));
-               n = n->next;
+                       return(mdoc_nerr(m, m->last, EMALLOC));

        } else {
                cp = mdoc_a2arch(n->string);
                if (NULL == cp) {
                        free(m->meta.vol);
                        if (NULL == (m->meta.vol = strdup(n->string)))
        } else {
                cp = mdoc_a2arch(n->string);
                if (NULL == cp) {
                        free(m->meta.vol);
                        if (NULL == (m->meta.vol = strdup(n->string)))

-                               return(verr(m, EMALLOC));
+                               return(mdoc_nerr(m, m->last, EMALLOC));

                } else if (NULL == (m->meta.arch = strdup(cp)))
                } else if (NULL == (m->meta.arch = strdup(cp)))

-                       return(verr(m, EMALLOC));
+                       return(mdoc_nerr(m, m->last, EMALLOC));

        }       
 
        /* Ignore any subsequent parameters... */
        }       
 
        /* Ignore any subsequent parameters... */


@@ -505,19 +518,18 @@ post_os(POST_ARGS)
 
        if (0 == buf[0]) {
                if (-1 == uname(&utsname))
 
        if (0 == buf[0]) {
                if (-1 == uname(&utsname))

-                       return(mdoc_err(m, "utsname"));
+                       return(mdoc_nerr(m, m->last, EUTSNAME));

                if (strlcat(buf, utsname.sysname, 64) >= 64)
                if (strlcat(buf, utsname.sysname, 64) >= 64)

-                       return(verr(m, ETOOLONG));
+                       return(mdoc_nerr(m, m->last, ETOOLONG));

                if (strlcat(buf, " ", 64) >= 64)
                if (strlcat(buf, " ", 64) >= 64)

-                       return(verr(m, ETOOLONG));
+                       return(mdoc_nerr(m, m->last, ETOOLONG));

                if (strlcat(buf, utsname.release, 64) >= 64)
                if (strlcat(buf, utsname.release, 64) >= 64)

-                       return(verr(m, ETOOLONG));
+                       return(mdoc_nerr(m, m->last, ETOOLONG));

        }
 
        if (NULL == (m->meta.os = strdup(buf)))
        }
 
        if (NULL == (m->meta.os = strdup(buf)))

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
 

-       m->flags |= MDOC_PBODY;

        return(post_prol(m));
 }
 
        return(post_prol(m));
 }
 


@@ -550,14 +562,14 @@ post_bl_tagwidth(struct mdoc *m)
        if (n) {
                if (MDOC_TEXT != n->type) {
                        if (0 == (sz = (int)mdoc_macro2len(n->tok)))
        if (n) {
                if (MDOC_TEXT != n->type) {
                        if (0 == (sz = (int)mdoc_macro2len(n->tok)))

-                               if ( ! vwarn(m, WNOWIDTH))
+                               if ( ! mdoc_nwarn(m, m->last, ENOWIDTH))

                                        return(0);
                } else
                        sz = (int)strlen(n->string) + 1;
        } 
 
        if (-1 == snprintf(buf, sizeof(buf), "%dn", sz))
                                        return(0);
                } else
                        sz = (int)strlen(n->string) + 1;
        } 
 
        if (-1 == snprintf(buf, sizeof(buf), "%dn", sz))

-               return(verr(m, ENUMFMT));
+               return(mdoc_nerr(m, m->last, ENUMFMT));

 
        /*
         * We have to dynamically add this to the macro's argument list.
 
        /*
         * We have to dynamically add this to the macro's argument list.


@@ -572,7 +584,7 @@ post_bl_tagwidth(struct mdoc *m)
                        n->args->argc * sizeof(struct mdoc_argv));
 
        if (NULL == n->args->argv)
                        n->args->argc * sizeof(struct mdoc_argv));
 
        if (NULL == n->args->argv)

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        n->args->argv[sz].arg = MDOC_Width;
        n->args->argv[sz].line = m->last->line;
 
        n->args->argv[sz].arg = MDOC_Width;
        n->args->argv[sz].line = m->last->line;


@@ -581,9 +593,9 @@ post_bl_tagwidth(struct mdoc *m)
        n->args->argv[sz].value = calloc(1, sizeof(char *));
 
        if (NULL == n->args->argv[sz].value)
        n->args->argv[sz].value = calloc(1, sizeof(char *));
 
        if (NULL == n->args->argv[sz].value)

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

        if (NULL == (n->args->argv[sz].value[0] = strdup(buf)))
        if (NULL == (n->args->argv[sz].value[0] = strdup(buf)))

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        return(1);
 }
 
        return(1);
 }


@@ -618,17 +630,17 @@ post_bl_width(struct mdoc *m)
        else if (MDOC_MAX == (tok = mdoc_hash_find(m->htab, p)))
                return(1);
        else if (0 == (width = mdoc_macro2len(tok))) 
        else if (MDOC_MAX == (tok = mdoc_hash_find(m->htab, p)))
                return(1);
        else if (0 == (width = mdoc_macro2len(tok))) 

-               return(vwarn(m, WNOWIDTH));
+               return(mdoc_nwarn(m, m->last, ENOWIDTH));

 
        /* The value already exists: free and reallocate it. */
 
        if (-1 == snprintf(buf, sizeof(buf), "%zun", width))
 
        /* The value already exists: free and reallocate it. */
 
        if (-1 == snprintf(buf, sizeof(buf), "%zun", width))

-               return(verr(m, ENUMFMT));
+               return(mdoc_nerr(m, m->last, ENUMFMT));

 
        free(m->last->args->argv[i].value[0]);
        m->last->args->argv[i].value[0] = strdup(buf);
        if (NULL == m->last->args->argv[i].value[0])
 
        free(m->last->args->argv[i].value[0]);
        m->last->args->argv[i].value[0] = strdup(buf);
        if (NULL == m->last->args->argv[i].value[0])

-               return(verr(m, EMALLOC));
+               return(mdoc_nerr(m, m->last, EMALLOC));

 
        return(1);
 }
 
        return(1);
 }


@@ -721,7 +733,7 @@ post_bl(POST_ARGS)
 
 
 static int
 
 
 static int

-post_lk(POST_ARGS)
+post_tilde(POST_ARGS)

 {
        struct mdoc_node *n;
 
 {
        struct mdoc_node *n;
 


@@ -730,9 +742,9 @@ post_lk(POST_ARGS)
        
        n = m->last;
        m->next = MDOC_NEXT_CHILD;
        
        n = m->last;
        m->next = MDOC_NEXT_CHILD;

-       /* FIXME: this isn't documented anywhere! */
-       if ( ! mdoc_word_alloc(m, m->last->line,
-                               m->last->pos, "~"))
+
+       /* XXX: not documented for `Lk'. */
+       if ( ! mdoc_word_alloc(m, m->last->line, m->last->pos, "~"))

                return(0);
 
        m->last = n;
                return(0);
 
        m->last = n;


@@ -751,12 +763,10 @@ post_ar(POST_ARGS)
        
        n = m->last;
        m->next = MDOC_NEXT_CHILD;
        
        n = m->last;
        m->next = MDOC_NEXT_CHILD;

-       if ( ! mdoc_word_alloc(m, m->last->line,
-                               m->last->pos, "file"))
+       if ( ! mdoc_word_alloc(m, m->last->line, m->last->pos, "file"))

                return(0);
        m->next = MDOC_NEXT_SIBLING;
                return(0);
        m->next = MDOC_NEXT_SIBLING;

-       if ( ! mdoc_word_alloc(m, m->last->line, 
-                               m->last->pos, "..."))
+       if ( ! mdoc_word_alloc(m, m->last->line, m->last->pos, "..."))

                return(0);
 
        m->last = n;
                return(0);
 
        m->last = n;


@@ -775,7 +785,7 @@ post_dd(POST_ARGS)
                return(0);
 
        if (0 == (m->meta.date = mdoc_atotime(buf))) {
                return(0);
 
        if (0 == (m->meta.date = mdoc_atotime(buf))) {

-               if ( ! vwarn(m, WBADDATE))
+               if ( ! mdoc_nwarn(m, m->last, EBADDATE))

                        return(0);
                m->meta.date = time(NULL);
        }
                        return(0);
                m->meta.date = time(NULL);
        }


@@ -811,6 +821,9 @@ post_prol(POST_ARGS)
        }
 
        mdoc_node_freelist(n);
        }
 
        mdoc_node_freelist(n);

+
+       if (m->meta.title && m->meta.date && m->meta.os)
+               m->flags |= MDOC_PBODY;

        return(1);
 }
 
        return(1);
 }
 


@@ -821,6 +834,7 @@ pre_dl(PRE_ARGS)
 
        if (MDOC_BODY == n->type)
                m->flags |= MDOC_LITERAL;
 
        if (MDOC_BODY == n->type)
                m->flags |= MDOC_LITERAL;

+

        return(1);
 }
 
        return(1);
 }
 


@@ -833,7 +847,12 @@ pre_bd(PRE_ARGS)
        if (MDOC_BODY != n->type)
                return(1);
 
        if (MDOC_BODY != n->type)
                return(1);
 

-       /* Enter literal context if `Bd -literal' or * -unfilled'. */
+       /* Enter literal context if `Bd -literal' or `-unfilled'. */
+
+       /* 
+        * TODO: `-offset' without an argument should be the width of
+        * the literal "<string>".
+        */

 
        for (n = n->parent, i = 0; i < (int)n->args->argc; i++)
                if (MDOC_Literal == n->args->argv[i].arg)
 
        for (n = n->parent, i = 0; i < (int)n->args->argc; i++)
                if (MDOC_Literal == n->args->argv[i].arg)