Segmentation-fault fix in mdocterm.

[mandoc.git] / term.c

diff --git a/term.c b/term.c
index 2236703ecd95cd1ee42bfadfdb411582f710a6f3..d99fbd29ffca3b0114787de72d0ff8f565c6320b 100644 (file)
--- a/term.c
+++ b/term.c
@@ -1,4 +1,4 @@
-/* $Id: term.c,v 1.39 2009/03/04 13:57:35 kristaps Exp $ */
+/* $Id: term.c,v 1.45 2009/03/08 13:57:07 kristaps Exp $ */

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


@@ -83,12 +83,10 @@ const       int ttypes[TTYPE_NMAX] = {
        TERMP_BOLD              /* TTYPE_DIAG */
 };
 
        TERMP_BOLD              /* TTYPE_DIAG */
 };
 

-static int               arg_hasattr(int, size_t, 
-                               const struct mdoc_arg *);
-static int               arg_getattr(int, size_t, 
-                               const struct mdoc_arg *);
-static size_t            arg_offset(const struct mdoc_arg *);
-static size_t            arg_width(const struct mdoc_arg *);
+static int               arg_hasattr(int, const struct mdoc_node *);
+static int               arg_getattr(int, const struct mdoc_node *);
+static size_t            arg_offset(const struct mdoc_argv *);
+static size_t            arg_width(const struct mdoc_argv *);

 static int               arg_listtype(const struct mdoc_node *);
 
 /*
 static int               arg_listtype(const struct mdoc_node *);
 
 /*


@@ -166,6 +164,7 @@ DECL_PRE(termp_xr);
 DECL_POST(termp___);
 DECL_POST(termp_bl);
 DECL_POST(termp_bx);
 DECL_POST(termp___);
 DECL_POST(termp_bl);
 DECL_POST(termp_bx);

+DECL_POST(termp_lb);

 
 const  struct termact __termacts[MDOC_MAX] = {
        { NULL, NULL }, /* \" */
 
 const  struct termact __termacts[MDOC_MAX] = {
        { NULL, NULL }, /* \" */


@@ -274,13 +273,14 @@ const     struct termact __termacts[MDOC_MAX] = {
        { NULL, NULL }, /* Hf */
        { NULL, NULL }, /* Fr */
        { termp_ud_pre, NULL }, /* Ud */
        { NULL, NULL }, /* Hf */
        { NULL, NULL }, /* Fr */
        { termp_ud_pre, NULL }, /* Ud */

+       { NULL, termp_lb_post }, /* lb */

 };
 
 const struct termact *termacts = __termacts;
 
 
 static size_t
 };
 
 const struct termact *termacts = __termacts;
 
 
 static size_t

-arg_width(const struct mdoc_arg *arg)
+arg_width(const struct mdoc_argv *arg)

 {
        size_t           v;
        int              i, len;
 {
        size_t           v;
        int              i, len;


@@ -295,7 +295,7 @@ arg_width(const struct mdoc_arg *arg)
        assert(len > 0);
 
        for (i = 0; i < len - 1; i++) 
        assert(len > 0);
 
        for (i = 0; i < len - 1; i++) 

-               if ( ! isdigit((int)(*arg->value)[i]))
+               if ( ! isdigit((u_char)(*arg->value)[i]))

                        break;
 
        if (i == len - 1) {
                        break;
 
        if (i == len - 1) {


@@ -312,14 +312,14 @@ arg_width(const struct mdoc_arg *arg)
 static int
 arg_listtype(const struct mdoc_node *n)
 {
 static int
 arg_listtype(const struct mdoc_node *n)
 {

-       const struct mdoc_block *bl;

        int              i, len;
 
        int              i, len;
 

-       bl = &n->data.block;
-       len = (int)bl->argc;
+       assert(MDOC_BLOCK == n->type);
+
+       len = n->args ? n->args->argc : 0;

 
        for (i = 0; i < len; i++) 
 
        for (i = 0; i < len; i++) 

-               switch (bl->argv[i].arg) {
+               switch (n->args->argv[i].arg) {

                case (MDOC_Bullet):
                        /* FALLTHROUGH */
                case (MDOC_Dash):
                case (MDOC_Bullet):
                        /* FALLTHROUGH */
                case (MDOC_Dash):


@@ -337,7 +337,7 @@ arg_listtype(const struct mdoc_node *n)
                case (MDOC_Item):
                        /* FALLTHROUGH */
                case (MDOC_Ohang):
                case (MDOC_Item):
                        /* FALLTHROUGH */
                case (MDOC_Ohang):

-                       return(bl->argv[i].arg);
+                       return(n->args->argv[i].arg);

                default:
                        break;
                }
                default:
                        break;
                }


@@ -348,7 +348,7 @@ arg_listtype(const struct mdoc_node *n)
 
 
 static size_t
 
 
 static size_t

-arg_offset(const struct mdoc_arg *arg)
+arg_offset(const struct mdoc_argv *arg)

 {
 
        /* TODO */
 {
 
        /* TODO */


@@ -362,20 +362,22 @@ arg_offset(const struct mdoc_arg *arg)
 
 
 static int
 
 
 static int

-arg_hasattr(int arg, size_t argc, const struct mdoc_arg *argv)
+arg_hasattr(int arg, const struct mdoc_node *n)

 {
 
 {
 

-       return(-1 != arg_getattr(arg, argc, argv));
+       return(-1 != arg_getattr(arg, n));

 }
 
 
 static int
 }
 
 
 static int

-arg_getattr(int arg, size_t argc, const struct mdoc_arg *argv)
+arg_getattr(int arg, const struct mdoc_node *n)

 {
        int              i;
 
 {
        int              i;
 

-       for (i = 0; i < (int)argc; i++) 
-               if (argv[i].arg == arg)
+       if (NULL == n->args)
+               return(-1);
+       for (i = 0; i < (int)n->args->argc; i++) 
+               if (n->args->argv[i].arg == arg)

                        return(i);
        return(-1);
 }
                        return(i);
        return(-1);
 }


@@ -412,15 +414,10 @@ termp_dq_post(DECL_ARGS)
 static int
 termp_it_pre_block(DECL_ARGS)
 {
 static int
 termp_it_pre_block(DECL_ARGS)
 {

-       const struct mdoc_node  *n;
-       const struct mdoc_block *bl;
-
-       n = node->parent->parent;
-       bl = &n->data.block;

 
        newln(p);
 
        newln(p);

-       if ( ! arg_hasattr(MDOC_Compact, bl->argc, bl->argv))
-               if (node->prev || n->prev)
+       if ( ! arg_hasattr(MDOC_Compact, node->parent->parent))
+               if (node->prev || node->parent->parent->prev)

                        vspace(p);
 
        return(1);
                        vspace(p);
 
        return(1);


@@ -431,7 +428,7 @@ termp_it_pre_block(DECL_ARGS)
 static int
 termp_it_pre(DECL_ARGS)
 {
 static int
 termp_it_pre(DECL_ARGS)
 {

-       const struct mdoc_block *bl;
+       const struct mdoc_node *bl;

        char             buf[7];
        int              i, type;
        size_t           width, offset;
        char             buf[7];
        int              i, type;
        size_t           width, offset;


@@ -441,8 +438,8 @@ termp_it_pre(DECL_ARGS)
 
        /* Get ptr to list block, type, etc. */
 
 
        /* Get ptr to list block, type, etc. */
 

-       bl = &node->parent->parent->parent->data.block;
-       type = arg_listtype(node->parent->parent->parent);
+       bl = node->parent->parent->parent;
+       type = arg_listtype(bl);

 
        /* Save parent attributes. */
 
 
        /* Save parent attributes. */
 


@@ -452,11 +449,11 @@ termp_it_pre(DECL_ARGS)
 
        /* Get list width and offset. */
 
 
        /* Get list width and offset. */
 

-       i = arg_getattr(MDOC_Width, bl->argc, bl->argv);
-       width = i >= 0 ? arg_width(&bl->argv[i]) : 0;
+       i = arg_getattr(MDOC_Width, bl);
+       width = i >= 0 ? arg_width(&bl->args->argv[i]) : 0;

 
 

-       i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
-       offset = i >= 0 ? arg_offset(&bl->argv[i]) : 0;
+       i = arg_getattr(MDOC_Offset, bl);
+       offset = i >= 0 ? arg_offset(&bl->args->argv[i]) : 0;

 
        /* 
         * List-type can override the width in the case of fixed-head
 
        /* 
         * List-type can override the width in the case of fixed-head


@@ -536,6 +533,10 @@ termp_it_pre(DECL_ARGS)
                        p->flags |= TERMP_NOBREAK;
                else
                        p->flags |= TERMP_NOLPAD;
                        p->flags |= TERMP_NOBREAK;
                else
                        p->flags |= TERMP_NOLPAD;

+               if (MDOC_HEAD == node->type && MDOC_Tag == type)
+                       if (NULL == node->next ||
+                                       NULL == node->next->child)
+                               p->flags |= TERMP_NONOBREAK;

                break;
        case (MDOC_Diag):
                if (MDOC_HEAD == node->type)
                break;
        case (MDOC_Diag):
                if (MDOC_HEAD == node->type)


@@ -689,10 +690,6 @@ termp_ar_pre(DECL_ARGS)
 {
 
        TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_CMD_ARG]);
 {
 
        TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_CMD_ARG]);

-       if (NULL == node->child) {
-               word(p, "file");
-               word(p, "...");
-       }

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


@@ -721,14 +718,15 @@ termp_pp_pre(DECL_ARGS)
 static int
 termp_st_pre(DECL_ARGS)
 {
 static int
 termp_st_pre(DECL_ARGS)
 {

-       const char      *tp;
-
-       assert(1 == node->data.elem.argc);
+       const char      *cp;

 
 

-       tp = mdoc_st2a(node->data.elem.argv[0].arg);
-       word(p, tp);
-
-       return(1);
+       if (node->child) {
+               if (MDOC_TEXT != node->child->type)
+                       errx(1, "expected text line arguments");
+               if ((cp = mdoc_a2st(node->child->string)))
+                       word(p, cp);
+       }
+       return(0);

 }
 
 
 }
 
 


@@ -749,15 +747,16 @@ termp_rv_pre(DECL_ARGS)
 {
        int              i;
 
 {
        int              i;
 

-       i = arg_getattr(MDOC_Std, node->data.elem.argc, 
-                       node->data.elem.argv);
-       assert(i >= 0);
+       if (-1 == (i = arg_getattr(MDOC_Std, node)))
+               errx(1, "expected -std argument");
+       if (1 != node->args->argv[i].sz)
+               errx(1, "expected -std argument");

 
        newln(p);
        word(p, "The");
 
        p->flags |= ttypes[TTYPE_FUNC_NAME];
 
        newln(p);
        word(p, "The");
 
        p->flags |= ttypes[TTYPE_FUNC_NAME];

-       word(p, *node->data.elem.argv[i].value);
+       word(p, *node->args->argv[i].value);

        p->flags &= ~ttypes[TTYPE_FUNC_NAME];
 
                word(p, "() function returns the value 0 if successful;");
        p->flags &= ~ttypes[TTYPE_FUNC_NAME];
 
                word(p, "() function returns the value 0 if successful;");


@@ -780,13 +779,14 @@ termp_ex_pre(DECL_ARGS)
 {
        int              i;
 
 {
        int              i;
 

-       i = arg_getattr(MDOC_Std, node->data.elem.argc, 
-                       node->data.elem.argv);
-       assert(i >= 0);
+       if (-1 == (i = arg_getattr(MDOC_Std, node)))
+               errx(1, "expected -std argument");
+       if (1 != node->args->argv[i].sz)
+               errx(1, "expected -std argument");

 
        word(p, "The");
        p->flags |= ttypes[TTYPE_PROG];
 
        word(p, "The");
        p->flags |= ttypes[TTYPE_PROG];

-       word(p, *node->data.elem.argv[i].value);
+       word(p, *node->args->argv[i].value);

        p->flags &= ~ttypes[TTYPE_PROG];
                word(p, "utility exits 0 on success, and >0 if an error occurs.");
 
        p->flags &= ~ttypes[TTYPE_PROG];
                word(p, "utility exits 0 on success, and >0 if an error occurs.");
 


@@ -832,20 +832,22 @@ termp_xr_pre(DECL_ARGS)
 {
        const struct mdoc_node *n;
 
 {
        const struct mdoc_node *n;
 

-       n = node->child;
-       assert(n);
+       if (NULL == (n = node->child))
+               errx(1, "expected text line argument");
+       if (MDOC_TEXT != n->type)
+               errx(1, "expected text line argument");

 
 

-       assert(MDOC_TEXT == n->type);
-       word(p, n->data.text.string);
+       word(p, n->string);

 
        if (NULL == (n = n->next)) 
                return(0);
 
        if (NULL == (n = n->next)) 
                return(0);

+       if (MDOC_TEXT != n->type)
+               errx(1, "expected text line argument");

 
 

-       assert(MDOC_TEXT == n->type);

        p->flags |= TERMP_NOSPACE;
        word(p, "(");
        p->flags |= TERMP_NOSPACE;
        p->flags |= TERMP_NOSPACE;
        word(p, "(");
        p->flags |= TERMP_NOSPACE;

-       word(p, n->data.text.string);
+       word(p, n->string);

        p->flags |= TERMP_NOSPACE;
        word(p, ")");
 
        p->flags |= TERMP_NOSPACE;
        word(p, ")");
 


@@ -967,6 +969,15 @@ termp_bt_pre(DECL_ARGS)
 }
 
 
 }
 
 

+/* ARGSUSED */
+static void
+termp_lb_post(DECL_ARGS)
+{
+
+       newln(p);
+}
+
+

 /* ARGSUSED */
 static int
 termp_ud_pre(DECL_ARGS)
 /* ARGSUSED */
 static int
 termp_ud_pre(DECL_ARGS)


@@ -1009,7 +1020,7 @@ termp_aq_pre(DECL_ARGS)
 
        if (MDOC_BODY != node->type)
                return(1);
 
        if (MDOC_BODY != node->type)
                return(1);

-       word(p, "<");
+       word(p, "\\(la");

        p->flags |= TERMP_NOSPACE;
        return(1);
 }
        p->flags |= TERMP_NOSPACE;
        return(1);
 }


@@ -1023,7 +1034,7 @@ termp_aq_post(DECL_ARGS)
        if (MDOC_BODY != node->type)
                return;
        p->flags |= TERMP_NOSPACE;
        if (MDOC_BODY != node->type)
                return;
        p->flags |= TERMP_NOSPACE;

-       word(p, ">");
+       word(p, "\\(ra");

 }
 
 
 }
 
 


@@ -1056,22 +1067,25 @@ termp_fn_pre(DECL_ARGS)
 {
        const struct mdoc_node *n;
 
 {
        const struct mdoc_node *n;
 

-       assert(node->child);
-       assert(MDOC_TEXT == node->child->type);
+       if (NULL == node->child)
+               errx(1, "expected text line arguments");
+       if (MDOC_TEXT != node->child->type)
+               errx(1, "expected text line arguments");

 
        /* FIXME: can be "type funcname" "type varname"... */
 
        p->flags |= ttypes[TTYPE_FUNC_NAME];
 
        /* FIXME: can be "type funcname" "type varname"... */
 
        p->flags |= ttypes[TTYPE_FUNC_NAME];

-       word(p, node->child->data.text.string);
+       word(p, node->child->string);

        p->flags &= ~ttypes[TTYPE_FUNC_NAME];
 
        word(p, "(");
 
        p->flags |= TERMP_NOSPACE;
        for (n = node->child->next; n; n = n->next) {
        p->flags &= ~ttypes[TTYPE_FUNC_NAME];
 
        word(p, "(");
 
        p->flags |= TERMP_NOSPACE;
        for (n = node->child->next; n; n = n->next) {

-               assert(MDOC_TEXT == n->type);
+               if (MDOC_TEXT != n->type)
+                       errx(1, "expected text line arguments");

                p->flags |= ttypes[TTYPE_FUNC_ARG];
                p->flags |= ttypes[TTYPE_FUNC_ARG];

-               word(p, n->data.text.string);
+               word(p, n->string);

                p->flags &= ~ttypes[TTYPE_FUNC_ARG];
                if (n->next)
                        word(p, ",");
                p->flags &= ~ttypes[TTYPE_FUNC_ARG];
                if (n->next)
                        word(p, ",");


@@ -1119,10 +1133,11 @@ termp_fa_pre(DECL_ARGS)
        }
 
        for (n = node->child; n; n = n->next) {
        }
 
        for (n = node->child; n; n = n->next) {

-               assert(MDOC_TEXT == n->type);
+               if (MDOC_TEXT != n->type)
+                       errx(1, "expected text line arguments");

 
                p->flags |= ttypes[TTYPE_FUNC_ARG];
 
                p->flags |= ttypes[TTYPE_FUNC_ARG];

-               word(p, n->data.text.string);
+               word(p, n->string);

                p->flags &= ~ttypes[TTYPE_FUNC_ARG];
 
                if (n->next)
                p->flags &= ~ttypes[TTYPE_FUNC_ARG];
 
                if (n->next)


@@ -1150,9 +1165,8 @@ termp_va_pre(DECL_ARGS)
 static int
 termp_bd_pre(DECL_ARGS)
 {
 static int
 termp_bd_pre(DECL_ARGS)
 {

-       const struct mdoc_block *bl;

        const struct mdoc_node  *n;
        const struct mdoc_node  *n;

-       int              i, type;
+       int                      i, type;

 
        if (MDOC_BLOCK == node->type) {
                if (node->prev)
 
        if (MDOC_BLOCK == node->type) {
                if (node->prev)


@@ -1161,11 +1175,14 @@ termp_bd_pre(DECL_ARGS)
        } else if (MDOC_BODY != node->type)
                return(1);
 
        } else if (MDOC_BODY != node->type)
                return(1);
 

+       if (NULL == node->parent->args)
+               errx(1, "missing display type");
+

        pair->offset = p->offset;
        pair->offset = p->offset;

-       bl = &node->parent->data.block;

 
 

-       for (type = -1, i = 0; i < (int)bl->argc; i++) {
-               switch (bl->argv[i].arg) {
+       for (type = -1, i = 0; 
+                       i < (int)node->parent->args->argc; i++) {
+               switch (node->parent->args->argv[i].arg) {

                case (MDOC_Ragged):
                        /* FALLTHROUGH */
                case (MDOC_Filled):
                case (MDOC_Ragged):
                        /* FALLTHROUGH */
                case (MDOC_Filled):


@@ -1173,23 +1190,24 @@ termp_bd_pre(DECL_ARGS)
                case (MDOC_Unfilled):
                        /* FALLTHROUGH */
                case (MDOC_Literal):
                case (MDOC_Unfilled):
                        /* FALLTHROUGH */
                case (MDOC_Literal):

-                       type = bl->argv[i].arg;
-                       i = (int)bl->argc;
+                       type = node->parent->args->argv[i].arg;
+                       i = (int)node->parent->args->argc;

                        break;
                default:
                        break;
                default:

-                       errx(1, "display type not supported");
+                       break;

                }
        }
 
                }
        }
 

-       assert(-1 != type);
+       if (NULL == node->parent->args)
+               errx(1, "missing display type");

 
 

-       i = arg_getattr(MDOC_Offset, bl->argc, bl->argv);
+       i = arg_getattr(MDOC_Offset, node->parent);

        if (-1 != i) {
        if (-1 != i) {

-               assert(1 == bl->argv[i].sz);
-               p->offset += arg_offset(&bl->argv[i]);
+               if (1 != node->parent->args->argv[i].sz)
+                       errx(1, "expected single value");
+               p->offset += arg_offset(&node->parent->args->argv[i]);

        }
 
        }
 

-

        switch (type) {
        case (MDOC_Literal):
                /* FALLTHROUGH */
        switch (type) {
        case (MDOC_Literal):
                /* FALLTHROUGH */


@@ -1206,7 +1224,7 @@ termp_bd_pre(DECL_ARGS)
                        warnx("non-text children not yet allowed");
                        continue;
                }
                        warnx("non-text children not yet allowed");
                        continue;
                }

-               word(p, n->data.text.string);
+               word(p, n->string);

                flushln(p);
        }
 
                flushln(p);
        }
 


@@ -1480,15 +1498,20 @@ termp_in_post(DECL_ARGS)
 static int
 termp_at_pre(DECL_ARGS)
 {
 static int
 termp_at_pre(DECL_ARGS)
 {

-       enum mdoc_att    c;
+       const char      *att;
+
+       att = NULL;

 
 

-       c = ATT_DEFAULT;

        if (node->child) {
        if (node->child) {

-               assert(MDOC_TEXT == node->child->type);
-               c = mdoc_atoatt(node->child->data.text.string);
+               if (MDOC_TEXT != node->child->type)
+                       errx(1, "expected text line argument");
+               att = mdoc_a2att(node->child->string);

        }
 
        }
 

-       word(p, mdoc_att2a(c));
+       if (NULL == att)
+               att = "AT&T UNIX";
+
+       word(p, att);

        return(0);
 }
 
        return(0);
 }
 


@@ -1558,8 +1581,9 @@ termp_fo_pre(DECL_ARGS)
 
        p->flags |= ttypes[TTYPE_FUNC_NAME];
        for (n = node->child; n; n = n->next) {
 
        p->flags |= ttypes[TTYPE_FUNC_NAME];
        for (n = node->child; n; n = n->next) {

-               assert(MDOC_TEXT == n->type);
-               word(p, n->data.text.string);
+               if (MDOC_TEXT != n->type)
+                       errx(1, "expected text line argument");
+               word(p, n->string);

        }
        p->flags &= ~ttypes[TTYPE_FUNC_NAME];
 
        }
        p->flags &= ~ttypes[TTYPE_FUNC_NAME];
 


@@ -1585,31 +1609,27 @@ static int
 termp_bf_pre(DECL_ARGS)
 {
        const struct mdoc_node  *n;
 termp_bf_pre(DECL_ARGS)
 {
        const struct mdoc_node  *n;

-       const struct mdoc_block *b;
-
-       /* XXX - we skip over possible trailing HEAD tokens. */

 
 

-       if (MDOC_HEAD == node->type)
+       if (MDOC_HEAD == node->type) {

                return(0);
                return(0);

-       else if (MDOC_BLOCK != node->type)
+       } else if (MDOC_BLOCK != node->type)

                return(1);
 
                return(1);
 

-       b = &node->data.block;
-
-       if (NULL == (n = b->head->child)) {
-               if (arg_hasattr(MDOC_Emphasis, b->argc, b->argv))
+       if (NULL == (n = node->head->child)) {
+               if (arg_hasattr(MDOC_Emphasis, node))

                        TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_EMPH]);
                        TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_EMPH]);

-               else if (arg_hasattr(MDOC_Symbolic, b->argc, b->argv))
+               else if (arg_hasattr(MDOC_Symbolic, node))

                        TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_SYMB]);
 
                return(1);
        } 
 
                        TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_SYMB]);
 
                return(1);
        } 
 

-       assert(MDOC_TEXT == n->type);
+       if (MDOC_TEXT != n->type)
+               errx(1, "expected text line arguments");

 
 

-       if (0 == strcmp("Em", n->data.text.string))
+       if (0 == strcmp("Em", n->string))

                TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_EMPH]);
                TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_EMPH]);

-       else if (0 == strcmp("Sy", n->data.text.string))
+       else if (0 == strcmp("Sy", n->string))

                TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_EMPH]);
 
        return(1);
                TERMPAIR_SETFLAG(p, pair, ttypes[TTYPE_EMPH]);
 
        return(1);


@@ -1662,6 +1682,7 @@ static int
 termp__t_pre(DECL_ARGS)
 {
 
 termp__t_pre(DECL_ARGS)
 {
 

+       /* FIXME: titles are underlined. */

        word(p, "\"");
        p->flags |= TERMP_NOSPACE;
        return(1);
        word(p, "\"");
        p->flags |= TERMP_NOSPACE;
        return(1);


@@ -1674,6 +1695,7 @@ termp__t_post(DECL_ARGS)
 {
 
        p->flags |= TERMP_NOSPACE;
 {
 
        p->flags |= TERMP_NOSPACE;

+       /* FIXME: titles are underlined. */

        word(p, "\"");
        word(p, node->next ? "," : ".");
 }
        word(p, "\"");
        word(p, node->next ? "," : ".");
 }