]> git.cameronkatri.com Git - mandoc.git/blobdiff - roff.c
git.ckatri.com / mandoc.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
more renaming from mdocml to mandoc
[mandoc.git] / roff.c
diff --git a/roff.c b/roff.c
index c1d76e21001b1c1a3699f94aa5cd6176c1aeec6e..e2e498da0ce4cd5733ee0fbe9cb21028a007c110 100644 (file)
--- a/roff.c
+++ b/roff.c
@@ -1,4 +1,4 @@
-/*     $Id: roff.c,v 1.294 2017/04/24 23:06:18 schwarze Exp $ */
+/*     $Id: roff.c,v 1.324 2017/07/14 17:16:16 schwarze Exp $ */
 /*
  * Copyright (c) 2008-2012, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2010-2015, 2017 Ingo Schwarze <schwarze@openbsd.org>
 /*
  * Copyright (c) 2008-2012, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2010-2015, 2017 Ingo Schwarze <schwarze@openbsd.org>
@@ -22,12 +22,15 @@
 #include <assert.h>
 #include <ctype.h>
 #include <limits.h>
 #include <assert.h>
 #include <ctype.h>
 #include <limits.h>
+#include <stddef.h>
+#include <stdint.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 
 #include "mandoc.h"
 #include "mandoc_aux.h"
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 
 #include "mandoc.h"
 #include "mandoc_aux.h"
+#include "mandoc_ohash.h"
 #include "roff.h"
 #include "libmandoc.h"
 #include "roff_int.h"
 #include "roff.h"
 #include "libmandoc.h"
 #include "roff_int.h"
@@ -36,6 +39,14 @@
 /* Maximum number of string expansions per line, to break infinite loops. */
 #define        EXPAND_LIMIT    1000
 
 /* Maximum number of string expansions per line, to break infinite loops. */
 #define        EXPAND_LIMIT    1000
 
+/* Types of definitions of macros and strings. */
+#define        ROFFDEF_USER    (1 << 1)  /* User-defined. */
+#define        ROFFDEF_PRE     (1 << 2)  /* Predefined. */
+#define        ROFFDEF_REN     (1 << 3)  /* Renamed standard macro. */
+#define        ROFFDEF_STD     (1 << 4)  /* mdoc(7) or man(7) macro. */
+#define        ROFFDEF_ANY     (ROFFDEF_USER | ROFFDEF_PRE | \
+                        ROFFDEF_REN | ROFFDEF_STD)
+
 /* --- data types --------------------------------------------------------- */
 
 /*
 /* --- data types --------------------------------------------------------- */
 
 /*
@@ -64,21 +75,31 @@ struct      roffreg {
        struct roffreg  *next;
 };
 
        struct roffreg  *next;
 };
 
+/*
+ * Association of request and macro names with token IDs.
+ */
+struct roffreq {
+       enum roff_tok    tok;
+       char             name[];
+};
+
 struct roff {
        struct mparse   *parse; /* parse point */
 struct roff {
        struct mparse   *parse; /* parse point */
+       struct roff_man *man; /* mdoc or man parser */
        struct roffnode *last; /* leaf of stack */
        int             *rstack; /* stack of inverted `ie' values */
        struct roffnode *last; /* leaf of stack */
        int             *rstack; /* stack of inverted `ie' values */
+       struct ohash    *reqtab; /* request lookup table */
        struct roffreg  *regtab; /* number registers */
        struct roffkv   *strtab; /* user-defined strings & macros */
        struct roffreg  *regtab; /* number registers */
        struct roffkv   *strtab; /* user-defined strings & macros */
+       struct roffkv   *rentab; /* renamed strings & macros */
        struct roffkv   *xmbtab; /* multi-byte trans table (`tr') */
        struct roffstr  *xtab; /* single-byte trans table (`tr') */
        const char      *current_string; /* value of last called user macro */
        struct tbl_node *first_tbl; /* first table parsed */
        struct tbl_node *last_tbl; /* last table parsed */
        struct tbl_node *tbl; /* current table being parsed */
        struct roffkv   *xmbtab; /* multi-byte trans table (`tr') */
        struct roffstr  *xtab; /* single-byte trans table (`tr') */
        const char      *current_string; /* value of last called user macro */
        struct tbl_node *first_tbl; /* first table parsed */
        struct tbl_node *last_tbl; /* last table parsed */
        struct tbl_node *tbl; /* current table being parsed */
-       struct eqn_node *last_eqn; /* last equation parsed */
-       struct eqn_node *first_eqn; /* first equation parsed */
-       struct eqn_node *eqn; /* current equation being parsed */
+       struct eqn_node *last_eqn; /* equation parser */
+       struct eqn_node *eqn; /* active equation parser */
        int              eqn_inline; /* current equation is inline */
        int              options; /* parse options */
        int              rstacksz; /* current size limit of rstack */
        int              eqn_inline; /* current equation is inline */
        int              options; /* parse options */
        int              rstacksz; /* current size limit of rstack */
@@ -86,6 +107,7 @@ struct       roff {
        int              format; /* current file in mdoc or man format */
        int              argc; /* number of args of the last macro */
        char             control; /* control character */
        int              format; /* current file in mdoc or man format */
        int              argc; /* number of args of the last macro */
        char             control; /* control character */
+       char             escape; /* escape character */
 };
 
 struct roffnode {
 };
 
 struct roffnode {
@@ -110,13 +132,11 @@ struct    roffnode {
 typedef        enum rofferr (*roffproc)(ROFF_ARGS);
 
 struct roffmac {
 typedef        enum rofferr (*roffproc)(ROFF_ARGS);
 
 struct roffmac {
-       const char      *name; /* macro name */
        roffproc         proc; /* process new macro */
        roffproc         text; /* process as child text of macro */
        roffproc         sub; /* process as child of macro */
        int              flags;
 #define        ROFFMAC_STRUCT  (1 << 0) /* always interpret */
        roffproc         proc; /* process new macro */
        roffproc         text; /* process as child text of macro */
        roffproc         sub; /* process as child of macro */
        int              flags;
 #define        ROFFMAC_STRUCT  (1 << 0) /* always interpret */
-       struct roffmac  *next;
 };
 
 struct predef {
 };
 
 struct predef {
@@ -129,16 +149,16 @@ struct    predef {
 
 /* --- function prototypes ------------------------------------------------ */
 
 
 /* --- function prototypes ------------------------------------------------ */
 
-static enum roff_tok    roffhash_find(const char *, size_t);
-static void             roffhash_init(void);
 static void             roffnode_cleanscope(struct roff *);
 static void             roffnode_pop(struct roff *);
 static void             roffnode_push(struct roff *, enum roff_tok,
                                const char *, int, int);
 static void             roffnode_cleanscope(struct roff *);
 static void             roffnode_pop(struct roff *);
 static void             roffnode_push(struct roff *, enum roff_tok,
                                const char *, int, int);
+static void             roff_addtbl(struct roff_man *, struct tbl_node *);
+static enum rofferr     roff_als(ROFF_ARGS);
 static enum rofferr     roff_block(ROFF_ARGS);
 static enum rofferr     roff_block_text(ROFF_ARGS);
 static enum rofferr     roff_block_sub(ROFF_ARGS);
 static enum rofferr     roff_block(ROFF_ARGS);
 static enum rofferr     roff_block_text(ROFF_ARGS);
 static enum rofferr     roff_block_sub(ROFF_ARGS);
-static enum rofferr     roff_brp(ROFF_ARGS);
+static enum rofferr     roff_br(ROFF_ARGS);
 static enum rofferr     roff_cblock(ROFF_ARGS);
 static enum rofferr     roff_cc(ROFF_ARGS);
 static void             roff_ccond(struct roff *, int, int);
 static enum rofferr     roff_cblock(ROFF_ARGS);
 static enum rofferr     roff_cc(ROFF_ARGS);
 static void             roff_ccond(struct roff *, int, int);
@@ -146,6 +166,8 @@ static      enum rofferr     roff_cond(ROFF_ARGS);
 static enum rofferr     roff_cond_text(ROFF_ARGS);
 static enum rofferr     roff_cond_sub(ROFF_ARGS);
 static enum rofferr     roff_ds(ROFF_ARGS);
 static enum rofferr     roff_cond_text(ROFF_ARGS);
 static enum rofferr     roff_cond_sub(ROFF_ARGS);
 static enum rofferr     roff_ds(ROFF_ARGS);
+static enum rofferr     roff_ec(ROFF_ARGS);
+static enum rofferr     roff_eo(ROFF_ARGS);
 static enum rofferr     roff_eqndelim(struct roff *, struct buf *, int);
 static int              roff_evalcond(struct roff *r, int, char *, int *);
 static int              roff_evalnum(struct roff *, int,
 static enum rofferr     roff_eqndelim(struct roff *, struct buf *, int);
 static int              roff_evalcond(struct roff *r, int, char *, int *);
 static int              roff_evalnum(struct roff *, int,
@@ -164,7 +186,7 @@ static      int              roff_getregn(const struct roff *,
 static int              roff_getregro(const struct roff *,
                                const char *name);
 static const char      *roff_getstrn(const struct roff *,
 static int              roff_getregro(const struct roff *,
                                const char *name);
 static const char      *roff_getstrn(const struct roff *,
-                               const char *, size_t);
+                               const char *, size_t, int *);
 static int              roff_hasregn(const struct roff *,
                                const char *, size_t);
 static enum rofferr     roff_insec(ROFF_ARGS);
 static int              roff_hasregn(const struct roff *,
                                const char *, size_t);
 static enum rofferr     roff_insec(ROFF_ARGS);
@@ -172,12 +194,17 @@ static    enum rofferr     roff_it(ROFF_ARGS);
 static enum rofferr     roff_line_ignore(ROFF_ARGS);
 static void             roff_man_alloc1(struct roff_man *);
 static void             roff_man_free1(struct roff_man *);
 static enum rofferr     roff_line_ignore(ROFF_ARGS);
 static void             roff_man_alloc1(struct roff_man *);
 static void             roff_man_free1(struct roff_man *);
+static enum rofferr     roff_manyarg(ROFF_ARGS);
 static enum rofferr     roff_nr(ROFF_ARGS);
 static enum rofferr     roff_nr(ROFF_ARGS);
+static enum rofferr     roff_onearg(ROFF_ARGS);
 static enum roff_tok    roff_parse(struct roff *, char *, int *,
                                int, int);
 static enum roff_tok    roff_parse(struct roff *, char *, int *,
                                int, int);
-static enum rofferr     roff_parsetext(struct buf *, int, int *);
+static enum rofferr     roff_parsetext(struct roff *, struct buf *,
+                               int, int *);
+static enum rofferr     roff_renamed(ROFF_ARGS);
 static enum rofferr     roff_res(struct roff *, struct buf *, int, int);
 static enum rofferr     roff_rm(ROFF_ARGS);
 static enum rofferr     roff_res(struct roff *, struct buf *, int, int);
 static enum rofferr     roff_rm(ROFF_ARGS);
+static enum rofferr     roff_rn(ROFF_ARGS);
 static enum rofferr     roff_rr(ROFF_ARGS);
 static void             roff_setstr(struct roff *,
                                const char *, const char *, int);
 static enum rofferr     roff_rr(ROFF_ARGS);
 static void             roff_setstr(struct roff *,
                                const char *, const char *, int);
@@ -186,7 +213,6 @@ static      void             roff_setstrn(struct roffkv **, const char *,
 static enum rofferr     roff_so(ROFF_ARGS);
 static enum rofferr     roff_tr(ROFF_ARGS);
 static enum rofferr     roff_Dd(ROFF_ARGS);
 static enum rofferr     roff_so(ROFF_ARGS);
 static enum rofferr     roff_tr(ROFF_ARGS);
 static enum rofferr     roff_Dd(ROFF_ARGS);
-static enum rofferr     roff_TH(ROFF_ARGS);
 static enum rofferr     roff_TE(ROFF_ARGS);
 static enum rofferr     roff_TS(ROFF_ARGS);
 static enum rofferr     roff_EQ(ROFF_ARGS);
 static enum rofferr     roff_TE(ROFF_ARGS);
 static enum rofferr     roff_TS(ROFF_ARGS);
 static enum rofferr     roff_EQ(ROFF_ARGS);
@@ -197,23 +223,20 @@ static    enum rofferr     roff_userdef(ROFF_ARGS);
 
 /* --- constant data ------------------------------------------------------ */
 
 
 /* --- constant data ------------------------------------------------------ */
 
-/* See roffhash_find() */
-
-#define        ASCII_HI         126
-#define        ASCII_LO         33
-#define        HASHWIDTH       (ASCII_HI - ASCII_LO + 1)
-
 #define        ROFFNUM_SCALE   (1 << 0)  /* Honour scaling in roff_getnum(). */
 #define        ROFFNUM_WHITE   (1 << 1)  /* Skip whitespace in roff_evalnum(). */
 
 const char *__roff_name[MAN_MAX + 1] = {
 #define        ROFFNUM_SCALE   (1 << 0)  /* Honour scaling in roff_getnum(). */
 #define        ROFFNUM_WHITE   (1 << 1)  /* Skip whitespace in roff_evalnum(). */
 
 const char *__roff_name[MAN_MAX + 1] = {
+       "br",           "ce",           "ft",           "ll",
+       "mc",           "po",           "rj",           "sp",
+       "ta",           "ti",           NULL,
        "ab",           "ad",           "af",           "aln",
        "als",          "am",           "am1",          "ami",
        "ami1",         "as",           "as1",          "asciify",
        "backtrace",    "bd",           "bleedat",      "blm",
         "box",         "boxa",         "bp",           "BP",
        "break",        "breakchar",    "brnl",         "brp",
        "ab",           "ad",           "af",           "aln",
        "als",          "am",           "am1",          "ami",
        "ami1",         "as",           "as1",          "asciify",
        "backtrace",    "bd",           "bleedat",      "blm",
         "box",         "boxa",         "bp",           "BP",
        "break",        "breakchar",    "brnl",         "brp",
-       "brpnl",        "c2",           "cc",           "ce",
+       "brpnl",        "c2",           "cc",
        "cf",           "cflags",       "ch",           "char",
        "chop",         "class",        "close",        "CL",
        "color",        "composite",    "continue",     "cp",
        "cf",           "cflags",       "ch",           "char",
        "chop",         "class",        "close",        "CL",
        "color",        "composite",    "continue",     "cp",
@@ -239,7 +262,7 @@ const char *__roff_name[MAN_MAX + 1] = {
        "lc",           "lc_ctype",     "lds",          "length",
        "letadj",       "lf",           "lg",           "lhang",
        "linetabs",     "lnr",          "lnrf",         "lpfx",
        "lc",           "lc_ctype",     "lds",          "length",
        "letadj",       "lf",           "lg",           "lhang",
        "linetabs",     "lnr",          "lnrf",         "lpfx",
-       "ls",           "lsm",          "lt",           "mc",
+       "ls",           "lsm",          "lt",
        "mediasize",    "minss",        "mk",           "mso",
        "na",           "ne",           "nh",           "nhychar",
        "nm",           "nn",           "nop",          "nr",
        "mediasize",    "minss",        "mk",           "mso",
        "na",           "ne",           "nh",           "nhychar",
        "nm",           "nn",           "nop",          "nr",
@@ -247,17 +270,17 @@ const char *__roff_name[MAN_MAX + 1] = {
        "open",         "opena",        "os",           "output",
        "padj",         "papersize",    "pc",           "pev",
        "pi",           "PI",           "pl",           "pm",
        "open",         "opena",        "os",           "output",
        "padj",         "papersize",    "pc",           "pev",
        "pi",           "PI",           "pl",           "pm",
-       "pn",           "pnr",          "po",           "ps",
+       "pn",           "pnr",          "ps",
        "psbb",         "pshape",       "pso",          "ptr",
        "pvs",          "rchar",        "rd",           "recursionlimit",
        "psbb",         "pshape",       "pso",          "ptr",
        "pvs",          "rchar",        "rd",           "recursionlimit",
-       "return",       "rfschar",      "rhang",        "rj",
+       "return",       "rfschar",      "rhang",
        "rm",           "rn",           "rnn",          "rr",
        "rs",           "rt",           "schar",        "sentchar",
        "shc",          "shift",        "sizes",        "so",
        "spacewidth",   "special",      "spreadwarn",   "ss",
        "sty",          "substring",    "sv",           "sy",
        "rm",           "rn",           "rnn",          "rr",
        "rs",           "rt",           "schar",        "sentchar",
        "shc",          "shift",        "sizes",        "so",
        "spacewidth",   "special",      "spreadwarn",   "ss",
        "sty",          "substring",    "sv",           "sy",
-       "T&",           "ta",           "tc",           "TE",
-       "TH",           "ti",           "tkf",          "tl",
+       "T&",           "tc",           "TE",
+       "TH",           "tkf",          "tl",
        "tm",           "tm1",          "tmc",          "tr",
        "track",        "transchar",    "trf",          "trimat",
        "trin",         "trnt",         "troff",        "TS",
        "tm",           "tm1",          "tmc",          "tr",
        "track",        "transchar",    "trf",          "trimat",
        "trin",         "trnt",         "troff",        "TS",
@@ -266,7 +289,7 @@ const char *__roff_name[MAN_MAX + 1] = {
        "warnscale",    "watch",        "watchlength",  "watchn",
        "wh",           "while",        "write",        "writec",
        "writem",       "xflag",        ".",            NULL,
        "warnscale",    "watch",        "watchlength",  "watchn",
        "wh",           "while",        "write",        "writec",
        "writem",       "xflag",        ".",            NULL,
-       "text",
+       NULL,           "text",
        "Dd",           "Dt",           "Os",           "Sh",
        "Ss",           "Pp",           "D1",           "Dl",
        "Bd",           "Ed",           "Bl",           "El",
        "Dd",           "Dt",           "Os",           "Sh",
        "Ss",           "Pp",           "D1",           "Dl",
        "Bd",           "Ed",           "Bl",           "El",
@@ -296,293 +319,264 @@ const char *__roff_name[MAN_MAX + 1] = {
        "Fr",           "Ud",           "Lb",           "Lp",
        "Lk",           "Mt",           "Brq",          "Bro",
        "Brc",          "%C",           "Es",           "En",
        "Fr",           "Ud",           "Lb",           "Lp",
        "Lk",           "Mt",           "Brq",          "Bro",
        "Brc",          "%C",           "Es",           "En",
-       "Dx",           "%Q",           "br",           "sp",
-       "%U",           "Ta",           "ll",           NULL,
+       "Dx",           "%Q",           "%U",           "Ta",
+       NULL,
        "TH",           "SH",           "SS",           "TP",
        "LP",           "PP",           "P",            "IP",
        "HP",           "SM",           "SB",           "BI",
        "IB",           "BR",           "RB",           "R",
        "B",            "I",            "IR",           "RI",
        "TH",           "SH",           "SS",           "TP",
        "LP",           "PP",           "P",            "IP",
        "HP",           "SM",           "SB",           "BI",
        "IB",           "BR",           "RB",           "R",
        "B",            "I",            "IR",           "RI",
-       "br",           "sp",           "nf",           "fi",
+       "nf",           "fi",
        "RE",           "RS",           "DT",           "UC",
        "RE",           "RS",           "DT",           "UC",
-       "PD",           "AT",           "in",           "ft",
+       "PD",           "AT",           "in",
        "OP",           "EX",           "EE",           "UR",
        "OP",           "EX",           "EE",           "UR",
-       "UE",           "ll",           NULL
+       "UE",           "MT",           "ME",           NULL
 };
 const  char *const *roff_name = __roff_name;
 
 };
 const  char *const *roff_name = __roff_name;
 
-static struct roffmac  *hash[HASHWIDTH];
-
 static struct roffmac   roffs[TOKEN_NONE] = {
 static struct roffmac   roffs[TOKEN_NONE] = {
-       { "ab", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ad", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "af", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "aln", roff_unsupp, NULL, NULL, 0, NULL },
-       { "als", roff_unsupp, NULL, NULL, 0, NULL },
-       { "am", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "am1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "ami", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "ami1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "as", roff_ds, NULL, NULL, 0, NULL },
-       { "as1", roff_ds, NULL, NULL, 0, NULL },
-       { "asciify", roff_unsupp, NULL, NULL, 0, NULL },
-       { "backtrace", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "bd", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "bleedat", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "blm", roff_unsupp, NULL, NULL, 0, NULL },
-       { "box", roff_unsupp, NULL, NULL, 0, NULL },
-       { "boxa", roff_unsupp, NULL, NULL, 0, NULL },
-       { "bp", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "BP", roff_unsupp, NULL, NULL, 0, NULL },
-       { "break", roff_unsupp, NULL, NULL, 0, NULL },
-       { "breakchar", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "brnl", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "brp", roff_brp, NULL, NULL, 0, NULL },
-       { "brpnl", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "c2", roff_unsupp, NULL, NULL, 0, NULL },
-       { "cc", roff_cc, NULL, NULL, 0, NULL },
-       { "ce", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "cf", roff_insec, NULL, NULL, 0, NULL },
-       { "cflags", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ch", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "char", roff_unsupp, NULL, NULL, 0, NULL },
-       { "chop", roff_unsupp, NULL, NULL, 0, NULL },
-       { "class", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "close", roff_insec, NULL, NULL, 0, NULL },
-       { "CL", roff_unsupp, NULL, NULL, 0, NULL },
-       { "color", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "composite", roff_unsupp, NULL, NULL, 0, NULL },
-       { "continue", roff_unsupp, NULL, NULL, 0, NULL },
-       { "cp", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "cropat", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "cs", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "cu", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "da", roff_unsupp, NULL, NULL, 0, NULL },
-       { "dch", roff_unsupp, NULL, NULL, 0, NULL },
-       { "Dd", roff_Dd, NULL, NULL, 0, NULL },
-       { "de", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "de1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "defcolor", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "dei", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "dei1", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "device", roff_unsupp, NULL, NULL, 0, NULL },
-       { "devicem", roff_unsupp, NULL, NULL, 0, NULL },
-       { "di", roff_unsupp, NULL, NULL, 0, NULL },
-       { "do", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ds", roff_ds, NULL, NULL, 0, NULL },
-       { "ds1", roff_ds, NULL, NULL, 0, NULL },
-       { "dwh", roff_unsupp, NULL, NULL, 0, NULL },
-       { "dt", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ec", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ecr", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ecs", roff_unsupp, NULL, NULL, 0, NULL },
-       { "el", roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT, NULL },
-       { "em", roff_unsupp, NULL, NULL, 0, NULL },
-       { "EN", roff_EN, NULL, NULL, 0, NULL },
-       { "eo", roff_unsupp, NULL, NULL, 0, NULL },
-       { "EP", roff_unsupp, NULL, NULL, 0, NULL },
-       { "EQ", roff_EQ, NULL, NULL, 0, NULL },
-       { "errprint", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ev", roff_unsupp, NULL, NULL, 0, NULL },
-       { "evc", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ex", roff_unsupp, NULL, NULL, 0, NULL },
-       { "fallback", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fam", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fc", roff_unsupp, NULL, NULL, 0, NULL },
-       { "fchar", roff_unsupp, NULL, NULL, 0, NULL },
-       { "fcolor", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fdeferlig", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "feature", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fkern", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fl", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "flig", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fp", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fps", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fschar", roff_unsupp, NULL, NULL, 0, NULL },
-       { "fspacewidth", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fspecial", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ftr", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "fzoom", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "gcolor", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hc", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hcode", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hidechar", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hla", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hlm", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hpf", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hpfa", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hpfcode", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hw", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hy", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hylang", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hylen", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hym", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hypp", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "hys", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ie", roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT, NULL },
-       { "if", roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT, NULL },
-       { "ig", roff_block, roff_block_text, roff_block_sub, 0, NULL },
-       { "index", roff_unsupp, NULL, NULL, 0, NULL },
-       { "it", roff_it, NULL, NULL, 0, NULL },
-       { "itc", roff_unsupp, NULL, NULL, 0, NULL },
-       { "IX", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "kern", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "kernafter", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "kernbefore", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "kernpair", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "lc", roff_unsupp, NULL, NULL, 0, NULL },
-       { "lc_ctype", roff_unsupp, NULL, NULL, 0, NULL },
-       { "lds", roff_unsupp, NULL, NULL, 0, NULL },
-       { "length", roff_unsupp, NULL, NULL, 0, NULL },
-       { "letadj", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "lf", roff_insec, NULL, NULL, 0, NULL },
-       { "lg", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "lhang", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "linetabs", roff_unsupp, NULL, NULL, 0, NULL },
-       { "lnr", roff_unsupp, NULL, NULL, 0, NULL },
-       { "lnrf", roff_unsupp, NULL, NULL, 0, NULL },
-       { "lpfx", roff_unsupp, NULL, NULL, 0, NULL },
-       { "ls", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "lsm", roff_unsupp, NULL, NULL, 0, NULL },
-       { "lt", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "mc", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "mediasize", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "minss", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "mk", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "mso", roff_insec, NULL, NULL, 0, NULL },
-       { "na", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ne", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "nh", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "nhychar", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "nm", roff_unsupp, NULL, NULL, 0, NULL },
-       { "nn", roff_unsupp, NULL, NULL, 0, NULL },
-       { "nop", roff_unsupp, NULL, NULL, 0, NULL },
-       { "nr", roff_nr, NULL, NULL, 0, NULL },
-       { "nrf", roff_unsupp, NULL, NULL, 0, NULL },
-       { "nroff", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ns", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "nx", roff_insec, NULL, NULL, 0, NULL },
-       { "open", roff_insec, NULL, NULL, 0, NULL },
-       { "opena", roff_insec, NULL, NULL, 0, NULL },
-       { "os", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "output", roff_unsupp, NULL, NULL, 0, NULL },
-       { "padj", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "papersize", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pc", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pev", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pi", roff_insec, NULL, NULL, 0, NULL },
-       { "PI", roff_unsupp, NULL, NULL, 0, NULL },
-       { "pl", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pm", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pn", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pnr", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "po", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ps", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "psbb", roff_unsupp, NULL, NULL, 0, NULL },
-       { "pshape", roff_unsupp, NULL, NULL, 0, NULL },
-       { "pso", roff_insec, NULL, NULL, 0, NULL },
-       { "ptr", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "pvs", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "rchar", roff_unsupp, NULL, NULL, 0, NULL },
-       { "rd", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "recursionlimit", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "return", roff_unsupp, NULL, NULL, 0, NULL },
-       { "rfschar", roff_unsupp, NULL, NULL, 0, NULL },
-       { "rhang", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "rj", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "rm", roff_rm, NULL, NULL, 0, NULL },
-       { "rn", roff_unsupp, NULL, NULL, 0, NULL },
-       { "rnn", roff_unsupp, NULL, NULL, 0, NULL },
-       { "rr", roff_rr, NULL, NULL, 0, NULL },
-       { "rs", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "rt", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "schar", roff_unsupp, NULL, NULL, 0, NULL },
-       { "sentchar", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "shc", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "shift", roff_unsupp, NULL, NULL, 0, NULL },
-       { "sizes", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "so", roff_so, NULL, NULL, 0, NULL },
-       { "spacewidth", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "special", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "spreadwarn", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ss", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "sty", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "substring", roff_unsupp, NULL, NULL, 0, NULL },
-       { "sv", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "sy", roff_insec, NULL, NULL, 0, NULL },
-       { "T&", roff_T_, NULL, NULL, 0, NULL },
-       { "ta", roff_unsupp, NULL, NULL, 0, NULL },
-       { "tc", roff_unsupp, NULL, NULL, 0, NULL },
-       { "TE", roff_TE, NULL, NULL, 0, NULL },
-       { "TH", roff_TH, NULL, NULL, 0, NULL },
-       { "ti", roff_unsupp, NULL, NULL, 0, NULL },
-       { "tkf", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "tl", roff_unsupp, NULL, NULL, 0, NULL },
-       { "tm", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "tm1", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "tmc", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "tr", roff_tr, NULL, NULL, 0, NULL },
-       { "track", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "transchar", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "trf", roff_insec, NULL, NULL, 0, NULL },
-       { "trimat", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "trin", roff_unsupp, NULL, NULL, 0, NULL },
-       { "trnt", roff_unsupp, NULL, NULL, 0, NULL },
-       { "troff", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "TS", roff_TS, NULL, NULL, 0, NULL },
-       { "uf", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "ul", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "unformat", roff_unsupp, NULL, NULL, 0, NULL },
-       { "unwatch", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "unwatchn", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "vpt", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "vs", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "warn", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "warnscale", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "watch", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "watchlength", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "watchn", roff_line_ignore, NULL, NULL, 0, NULL },
-       { "wh", roff_unsupp, NULL, NULL, 0, NULL },
-       { "while", roff_unsupp, NULL, NULL, 0, NULL },
-       { "write", roff_insec, NULL, NULL, 0, NULL },
-       { "writec", roff_insec, NULL, NULL, 0, NULL },
-       { "writem", roff_insec, NULL, NULL, 0, NULL },
-       { "xflag", roff_line_ignore, NULL, NULL, 0, NULL },
-       { ".", roff_cblock, NULL, NULL, 0, NULL },
-       { NULL, roff_userdef, NULL, NULL, 0, NULL },
-};
-
-/* not currently implemented: Ds em Eq LP Me PP pp Or Rd Sf SH */
-const  char *const __mdoc_reserved[] = {
-       "Ac", "Ad", "An", "Ao", "Ap", "Aq", "Ar", "At",
-       "Bc", "Bd", "Bf", "Bk", "Bl", "Bo", "Bq",
-       "Brc", "Bro", "Brq", "Bsx", "Bt", "Bx",
-       "Cd", "Cm", "Db", "Dc", "Dd", "Dl", "Do", "Dq",
-       "Dt", "Dv", "Dx", "D1",
-       "Ec", "Ed", "Ef", "Ek", "El", "Em",
-       "En", "Eo", "Er", "Es", "Ev", "Ex",
-       "Fa", "Fc", "Fd", "Fl", "Fn", "Fo", "Fr", "Ft", "Fx",
-       "Hf", "Ic", "In", "It", "Lb", "Li", "Lk", "Lp",
-       "Ms", "Mt", "Nd", "Nm", "No", "Ns", "Nx",
-       "Oc", "Oo", "Op", "Os", "Ot", "Ox",
-       "Pa", "Pc", "Pf", "Po", "Pp", "Pq",
-       "Qc", "Ql", "Qo", "Qq", "Re", "Rs", "Rv",
-       "Sc", "Sh", "Sm", "So", "Sq",
-       "Ss", "St", "Sx", "Sy",
-       "Ta", "Tn", "Ud", "Ux", "Va", "Vt", "Xc", "Xo", "Xr",
-       "%A", "%B", "%C", "%D", "%I", "%J", "%N", "%O",
-       "%P", "%Q", "%R", "%T", "%U", "%V",
-       NULL
-};
-
-/* not currently implemented: BT DE DS ME MT PT SY TQ YS */
-const  char *const __man_reserved[] = {
-       "AT", "B", "BI", "BR", "DT",
-       "EE", "EN", "EQ", "EX", "HP", "I", "IB", "IP", "IR",
-       "LP", "OP", "P", "PD", "PP",
-       "R", "RB", "RE", "RI", "RS", "SB", "SH", "SM", "SS",
-       "TE", "TH", "TP", "TS", "T&", "UC", "UE", "UR",
-       NULL
+       { roff_br, NULL, NULL, 0 },  /* br */
+       { roff_onearg, NULL, NULL, 0 },  /* ce */
+       { roff_onearg, NULL, NULL, 0 },  /* ft */
+       { roff_onearg, NULL, NULL, 0 },  /* ll */
+       { roff_onearg, NULL, NULL, 0 },  /* mc */
+       { roff_onearg, NULL, NULL, 0 },  /* po */
+       { roff_onearg, NULL, NULL, 0 },  /* rj */
+       { roff_onearg, NULL, NULL, 0 },  /* sp */
+       { roff_manyarg, NULL, NULL, 0 },  /* ta */
+       { roff_onearg, NULL, NULL, 0 },  /* ti */
+       { NULL, NULL, NULL, 0 },  /* ROFF_MAX */
+       { roff_unsupp, NULL, NULL, 0 },  /* ab */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ad */
+       { roff_line_ignore, NULL, NULL, 0 },  /* af */
+       { roff_unsupp, NULL, NULL, 0 },  /* aln */
+       { roff_als, NULL, NULL, 0 },  /* als */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* am */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* am1 */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* ami */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* ami1 */
+       { roff_ds, NULL, NULL, 0 },  /* as */
+       { roff_ds, NULL, NULL, 0 },  /* as1 */
+       { roff_unsupp, NULL, NULL, 0 },  /* asciify */
+       { roff_line_ignore, NULL, NULL, 0 },  /* backtrace */
+       { roff_line_ignore, NULL, NULL, 0 },  /* bd */
+       { roff_line_ignore, NULL, NULL, 0 },  /* bleedat */
+       { roff_unsupp, NULL, NULL, 0 },  /* blm */
+       { roff_unsupp, NULL, NULL, 0 },  /* box */
+       { roff_unsupp, NULL, NULL, 0 },  /* boxa */
+       { roff_line_ignore, NULL, NULL, 0 },  /* bp */
+       { roff_unsupp, NULL, NULL, 0 },  /* BP */
+       { roff_unsupp, NULL, NULL, 0 },  /* break */
+       { roff_line_ignore, NULL, NULL, 0 },  /* breakchar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* brnl */
+       { roff_br, NULL, NULL, 0 },  /* brp */
+       { roff_line_ignore, NULL, NULL, 0 },  /* brpnl */
+       { roff_unsupp, NULL, NULL, 0 },  /* c2 */
+       { roff_cc, NULL, NULL, 0 },  /* cc */
+       { roff_insec, NULL, NULL, 0 },  /* cf */
+       { roff_line_ignore, NULL, NULL, 0 },  /* cflags */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ch */
+       { roff_unsupp, NULL, NULL, 0 },  /* char */
+       { roff_unsupp, NULL, NULL, 0 },  /* chop */
+       { roff_line_ignore, NULL, NULL, 0 },  /* class */
+       { roff_insec, NULL, NULL, 0 },  /* close */
+       { roff_unsupp, NULL, NULL, 0 },  /* CL */
+       { roff_line_ignore, NULL, NULL, 0 },  /* color */
+       { roff_unsupp, NULL, NULL, 0 },  /* composite */
+       { roff_unsupp, NULL, NULL, 0 },  /* continue */
+       { roff_line_ignore, NULL, NULL, 0 },  /* cp */
+       { roff_line_ignore, NULL, NULL, 0 },  /* cropat */
+       { roff_line_ignore, NULL, NULL, 0 },  /* cs */
+       { roff_line_ignore, NULL, NULL, 0 },  /* cu */
+       { roff_unsupp, NULL, NULL, 0 },  /* da */
+       { roff_unsupp, NULL, NULL, 0 },  /* dch */
+       { roff_Dd, NULL, NULL, 0 },  /* Dd */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* de */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* de1 */
+       { roff_line_ignore, NULL, NULL, 0 },  /* defcolor */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* dei */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* dei1 */
+       { roff_unsupp, NULL, NULL, 0 },  /* device */
+       { roff_unsupp, NULL, NULL, 0 },  /* devicem */
+       { roff_unsupp, NULL, NULL, 0 },  /* di */
+       { roff_unsupp, NULL, NULL, 0 },  /* do */
+       { roff_ds, NULL, NULL, 0 },  /* ds */
+       { roff_ds, NULL, NULL, 0 },  /* ds1 */
+       { roff_unsupp, NULL, NULL, 0 },  /* dwh */
+       { roff_unsupp, NULL, NULL, 0 },  /* dt */
+       { roff_ec, NULL, NULL, 0 },  /* ec */
+       { roff_unsupp, NULL, NULL, 0 },  /* ecr */
+       { roff_unsupp, NULL, NULL, 0 },  /* ecs */
+       { roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT },  /* el */
+       { roff_unsupp, NULL, NULL, 0 },  /* em */
+       { roff_EN, NULL, NULL, 0 },  /* EN */
+       { roff_eo, NULL, NULL, 0 },  /* eo */
+       { roff_unsupp, NULL, NULL, 0 },  /* EP */
+       { roff_EQ, NULL, NULL, 0 },  /* EQ */
+       { roff_line_ignore, NULL, NULL, 0 },  /* errprint */
+       { roff_unsupp, NULL, NULL, 0 },  /* ev */
+       { roff_unsupp, NULL, NULL, 0 },  /* evc */
+       { roff_unsupp, NULL, NULL, 0 },  /* ex */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fallback */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fam */
+       { roff_unsupp, NULL, NULL, 0 },  /* fc */
+       { roff_unsupp, NULL, NULL, 0 },  /* fchar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fcolor */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fdeferlig */
+       { roff_line_ignore, NULL, NULL, 0 },  /* feature */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fkern */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fl */
+       { roff_line_ignore, NULL, NULL, 0 },  /* flig */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fp */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fps */
+       { roff_unsupp, NULL, NULL, 0 },  /* fschar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fspacewidth */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fspecial */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ftr */
+       { roff_line_ignore, NULL, NULL, 0 },  /* fzoom */
+       { roff_line_ignore, NULL, NULL, 0 },  /* gcolor */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hc */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hcode */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hidechar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hla */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hlm */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hpf */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hpfa */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hpfcode */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hw */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hy */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hylang */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hylen */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hym */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hypp */
+       { roff_line_ignore, NULL, NULL, 0 },  /* hys */
+       { roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT },  /* ie */
+       { roff_cond, roff_cond_text, roff_cond_sub, ROFFMAC_STRUCT },  /* if */
+       { roff_block, roff_block_text, roff_block_sub, 0 },  /* ig */
+       { roff_unsupp, NULL, NULL, 0 },  /* index */
+       { roff_it, NULL, NULL, 0 },  /* it */
+       { roff_unsupp, NULL, NULL, 0 },  /* itc */
+       { roff_line_ignore, NULL, NULL, 0 },  /* IX */
+       { roff_line_ignore, NULL, NULL, 0 },  /* kern */
+       { roff_line_ignore, NULL, NULL, 0 },  /* kernafter */
+       { roff_line_ignore, NULL, NULL, 0 },  /* kernbefore */
+       { roff_line_ignore, NULL, NULL, 0 },  /* kernpair */
+       { roff_unsupp, NULL, NULL, 0 },  /* lc */
+       { roff_unsupp, NULL, NULL, 0 },  /* lc_ctype */
+       { roff_unsupp, NULL, NULL, 0 },  /* lds */
+       { roff_unsupp, NULL, NULL, 0 },  /* length */
+       { roff_line_ignore, NULL, NULL, 0 },  /* letadj */
+       { roff_insec, NULL, NULL, 0 },  /* lf */
+       { roff_line_ignore, NULL, NULL, 0 },  /* lg */
+       { roff_line_ignore, NULL, NULL, 0 },  /* lhang */
+       { roff_unsupp, NULL, NULL, 0 },  /* linetabs */
+       { roff_unsupp, NULL, NULL, 0 },  /* lnr */
+       { roff_unsupp, NULL, NULL, 0 },  /* lnrf */
+       { roff_unsupp, NULL, NULL, 0 },  /* lpfx */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ls */
+       { roff_unsupp, NULL, NULL, 0 },  /* lsm */
+       { roff_line_ignore, NULL, NULL, 0 },  /* lt */
+       { roff_line_ignore, NULL, NULL, 0 },  /* mediasize */
+       { roff_line_ignore, NULL, NULL, 0 },  /* minss */
+       { roff_line_ignore, NULL, NULL, 0 },  /* mk */
+       { roff_insec, NULL, NULL, 0 },  /* mso */
+       { roff_line_ignore, NULL, NULL, 0 },  /* na */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ne */
+       { roff_line_ignore, NULL, NULL, 0 },  /* nh */
+       { roff_line_ignore, NULL, NULL, 0 },  /* nhychar */
+       { roff_unsupp, NULL, NULL, 0 },  /* nm */
+       { roff_unsupp, NULL, NULL, 0 },  /* nn */
+       { roff_unsupp, NULL, NULL, 0 },  /* nop */
+       { roff_nr, NULL, NULL, 0 },  /* nr */
+       { roff_unsupp, NULL, NULL, 0 },  /* nrf */
+       { roff_line_ignore, NULL, NULL, 0 },  /* nroff */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ns */
+       { roff_insec, NULL, NULL, 0 },  /* nx */
+       { roff_insec, NULL, NULL, 0 },  /* open */
+       { roff_insec, NULL, NULL, 0 },  /* opena */
+       { roff_line_ignore, NULL, NULL, 0 },  /* os */
+       { roff_unsupp, NULL, NULL, 0 },  /* output */
+       { roff_line_ignore, NULL, NULL, 0 },  /* padj */
+       { roff_line_ignore, NULL, NULL, 0 },  /* papersize */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pc */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pev */
+       { roff_insec, NULL, NULL, 0 },  /* pi */
+       { roff_unsupp, NULL, NULL, 0 },  /* PI */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pl */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pm */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pn */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pnr */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ps */
+       { roff_unsupp, NULL, NULL, 0 },  /* psbb */
+       { roff_unsupp, NULL, NULL, 0 },  /* pshape */
+       { roff_insec, NULL, NULL, 0 },  /* pso */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ptr */
+       { roff_line_ignore, NULL, NULL, 0 },  /* pvs */
+       { roff_unsupp, NULL, NULL, 0 },  /* rchar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* rd */
+       { roff_line_ignore, NULL, NULL, 0 },  /* recursionlimit */
+       { roff_unsupp, NULL, NULL, 0 },  /* return */
+       { roff_unsupp, NULL, NULL, 0 },  /* rfschar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* rhang */
+       { roff_rm, NULL, NULL, 0 },  /* rm */
+       { roff_rn, NULL, NULL, 0 },  /* rn */
+       { roff_unsupp, NULL, NULL, 0 },  /* rnn */
+       { roff_rr, NULL, NULL, 0 },  /* rr */
+       { roff_line_ignore, NULL, NULL, 0 },  /* rs */
+       { roff_line_ignore, NULL, NULL, 0 },  /* rt */
+       { roff_unsupp, NULL, NULL, 0 },  /* schar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* sentchar */
+       { roff_line_ignore, NULL, NULL, 0 },  /* shc */
+       { roff_unsupp, NULL, NULL, 0 },  /* shift */
+       { roff_line_ignore, NULL, NULL, 0 },  /* sizes */
+       { roff_so, NULL, NULL, 0 },  /* so */
+       { roff_line_ignore, NULL, NULL, 0 },  /* spacewidth */
+       { roff_line_ignore, NULL, NULL, 0 },  /* special */
+       { roff_line_ignore, NULL, NULL, 0 },  /* spreadwarn */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ss */
+       { roff_line_ignore, NULL, NULL, 0 },  /* sty */
+       { roff_unsupp, NULL, NULL, 0 },  /* substring */
+       { roff_line_ignore, NULL, NULL, 0 },  /* sv */
+       { roff_insec, NULL, NULL, 0 },  /* sy */
+       { roff_T_, NULL, NULL, 0 },  /* T& */
+       { roff_unsupp, NULL, NULL, 0 },  /* tc */
+       { roff_TE, NULL, NULL, 0 },  /* TE */
+       { roff_Dd, NULL, NULL, 0 },  /* TH */
+       { roff_line_ignore, NULL, NULL, 0 },  /* tkf */
+       { roff_unsupp, NULL, NULL, 0 },  /* tl */
+       { roff_line_ignore, NULL, NULL, 0 },  /* tm */
+       { roff_line_ignore, NULL, NULL, 0 },  /* tm1 */
+       { roff_line_ignore, NULL, NULL, 0 },  /* tmc */
+       { roff_tr, NULL, NULL, 0 },  /* tr */
+       { roff_line_ignore, NULL, NULL, 0 },  /* track */
+       { roff_line_ignore, NULL, NULL, 0 },  /* transchar */
+       { roff_insec, NULL, NULL, 0 },  /* trf */
+       { roff_line_ignore, NULL, NULL, 0 },  /* trimat */
+       { roff_unsupp, NULL, NULL, 0 },  /* trin */
+       { roff_unsupp, NULL, NULL, 0 },  /* trnt */
+       { roff_line_ignore, NULL, NULL, 0 },  /* troff */
+       { roff_TS, NULL, NULL, 0 },  /* TS */
+       { roff_line_ignore, NULL, NULL, 0 },  /* uf */
+       { roff_line_ignore, NULL, NULL, 0 },  /* ul */
+       { roff_unsupp, NULL, NULL, 0 },  /* unformat */
+       { roff_line_ignore, NULL, NULL, 0 },  /* unwatch */
+       { roff_line_ignore, NULL, NULL, 0 },  /* unwatchn */
+       { roff_line_ignore, NULL, NULL, 0 },  /* vpt */
+       { roff_line_ignore, NULL, NULL, 0 },  /* vs */
+       { roff_line_ignore, NULL, NULL, 0 },  /* warn */
+       { roff_line_ignore, NULL, NULL, 0 },  /* warnscale */
+       { roff_line_ignore, NULL, NULL, 0 },  /* watch */
+       { roff_line_ignore, NULL, NULL, 0 },  /* watchlength */
+       { roff_line_ignore, NULL, NULL, 0 },  /* watchn */
+       { roff_unsupp, NULL, NULL, 0 },  /* wh */
+       { roff_unsupp, NULL, NULL, 0 },  /* while */
+       { roff_insec, NULL, NULL, 0 },  /* write */
+       { roff_insec, NULL, NULL, 0 },  /* writec */
+       { roff_insec, NULL, NULL, 0 },  /* writem */
+       { roff_line_ignore, NULL, NULL, 0 },  /* xflag */
+       { roff_cblock, NULL, NULL, 0 },  /* . */
+       { roff_renamed, NULL, NULL, 0 },
+       { roff_userdef, NULL, NULL, 0 }
 };
 
 /* Array of injected predefined strings. */
 };
 
 /* Array of injected predefined strings. */
@@ -591,65 +585,66 @@ static    const struct predef predefs[PREDEFS_MAX] = {
 #include "predefs.in"
 };
 
 #include "predefs.in"
 };
 
-/* See roffhash_find() */
-#define        ROFF_HASH(p)    (p[0] - ASCII_LO)
-
+static int      roffce_lines;  /* number of input lines to center */
+static struct roff_node *roffce_node;  /* active request */
 static int      roffit_lines;  /* number of lines to delay */
 static char    *roffit_macro;  /* nil-terminated macro line */
 
 
 /* --- request table ------------------------------------------------------ */
 
 static int      roffit_lines;  /* number of lines to delay */
 static char    *roffit_macro;  /* nil-terminated macro line */
 
 
 /* --- request table ------------------------------------------------------ */
 
-static void
-roffhash_init(void)
+struct ohash *
+roffhash_alloc(enum roff_tok mintok, enum roff_tok maxtok)
 {
 {
-       struct roffmac   *n;
-       int               buc, i;
-
-       for (i = 0; i < (int)ROFF_USERDEF; i++) {
-               assert(roffs[i].name[0] >= ASCII_LO);
-               assert(roffs[i].name[0] <= ASCII_HI);
+       struct ohash    *htab;
+       struct roffreq  *req;
+       enum roff_tok    tok;
+       size_t           sz;
+       unsigned int     slot;
 
 
-               buc = ROFF_HASH(roffs[i].name);
+       htab = mandoc_malloc(sizeof(*htab));
+       mandoc_ohash_init(htab, 8, offsetof(struct roffreq, name));
 
 
-               if (NULL != (n = hash[buc])) {
-                       for ( ; n->next; n = n->next)
-                               /* Do nothing. */ ;
-                       n->next = &roffs[i];
-               } else
-                       hash[buc] = &roffs[i];
+       for (tok = mintok; tok < maxtok; tok++) {
+               if (roff_name[tok] == NULL)
+                       continue;
+               sz = strlen(roff_name[tok]);
+               req = mandoc_malloc(sizeof(*req) + sz + 1);
+               req->tok = tok;
+               memcpy(req->name, roff_name[tok], sz + 1);
+               slot = ohash_qlookup(htab, req->name);
+               ohash_insert(htab, slot, req);
        }
        }
+       return htab;
 }
 
 }
 
-/*
- * Look up a roff token by its name.  Returns TOKEN_NONE if no macro by
- * the nil-terminated string name could be found.
- */
-static enum roff_tok
-roffhash_find(const char *p, size_t s)
+void
+roffhash_free(struct ohash *htab)
 {
 {
-       int              buc;
-       struct roffmac  *n;
-
-       /*
-        * libroff has an extremely simple hashtable, for the time
-        * being, which simply keys on the first character, which must
-        * be printable, then walks a chain.  It works well enough until
-        * optimised.
-        */
-
-       if (p[0] < ASCII_LO || p[0] > ASCII_HI)
-               return TOKEN_NONE;
+       struct roffreq  *req;
+       unsigned int     slot;
 
 
-       buc = ROFF_HASH(p);
+       if (htab == NULL)
+               return;
+       for (req = ohash_first(htab, &slot); req != NULL;
+            req = ohash_next(htab, &slot))
+               free(req);
+       ohash_delete(htab);
+       free(htab);
+}
 
 
-       if (NULL == (n = hash[buc]))
-               return TOKEN_NONE;
-       for ( ; n; n = n->next)
-               if (0 == strncmp(n->name, p, s) && '\0' == n->name[(int)s])
-                       return (enum roff_tok)(n - roffs);
+enum roff_tok
+roffhash_find(struct ohash *htab, const char *name, size_t sz)
+{
+       struct roffreq  *req;
+       const char      *end;
 
 
-       return TOKEN_NONE;
+       if (sz) {
+               end = name + sz;
+               req = ohash_find(htab, ohash_qlookupi(htab, name, &end));
+       } else
+               req = ohash_find(htab, ohash_qlookup(htab, name));
+       return req == NULL ? TOKEN_NONE : req->tok;
 }
 
 /* --- stack of request blocks -------------------------------------------- */
 }
 
 /* --- stack of request blocks -------------------------------------------- */
@@ -700,7 +695,6 @@ static void
 roff_free1(struct roff *r)
 {
        struct tbl_node *tbl;
 roff_free1(struct roff *r)
 {
        struct tbl_node *tbl;
-       struct eqn_node *e;
        int              i;
 
        while (NULL != (tbl = r->first_tbl)) {
        int              i;
 
        while (NULL != (tbl = r->first_tbl)) {
@@ -709,11 +703,9 @@ roff_free1(struct roff *r)
        }
        r->first_tbl = r->last_tbl = r->tbl = NULL;
 
        }
        r->first_tbl = r->last_tbl = r->tbl = NULL;
 
-       while (NULL != (e = r->first_eqn)) {
-               r->first_eqn = e->next;
-               eqn_free(e);
-       }
-       r->first_eqn = r->last_eqn = r->eqn = NULL;
+       if (r->last_eqn != NULL)
+               eqn_free(r->last_eqn);
+       r->last_eqn = r->eqn = NULL;
 
        while (r->last)
                roffnode_pop(r);
 
        while (r->last)
                roffnode_pop(r);
@@ -727,8 +719,9 @@ roff_free1(struct roff *r)
        r->regtab = NULL;
 
        roff_freestr(r->strtab);
        r->regtab = NULL;
 
        roff_freestr(r->strtab);
+       roff_freestr(r->rentab);
        roff_freestr(r->xmbtab);
        roff_freestr(r->xmbtab);
-       r->strtab = r->xmbtab = NULL;
+       r->strtab = r->rentab = r->xmbtab = NULL;
 
        if (r->xtab)
                for (i = 0; i < 128; i++)
 
        if (r->xtab)
                for (i = 0; i < 128; i++)
@@ -740,17 +733,21 @@ roff_free1(struct roff *r)
 void
 roff_reset(struct roff *r)
 {
 void
 roff_reset(struct roff *r)
 {
-
        roff_free1(r);
        r->format = r->options & (MPARSE_MDOC | MPARSE_MAN);
        roff_free1(r);
        r->format = r->options & (MPARSE_MDOC | MPARSE_MAN);
-       r->control = 0;
+       r->control = '\0';
+       r->escape = '\\';
+       roffce_lines = 0;
+       roffce_node = NULL;
+       roffit_lines = 0;
+       roffit_macro = NULL;
 }
 
 void
 roff_free(struct roff *r)
 {
 }
 
 void
 roff_free(struct roff *r)
 {
-
        roff_free1(r);
        roff_free1(r);
+       roffhash_free(r->reqtab);
        free(r);
 }
 
        free(r);
 }
 
@@ -761,12 +758,11 @@ roff_alloc(struct mparse *parse, int options)
 
        r = mandoc_calloc(1, sizeof(struct roff));
        r->parse = parse;
 
        r = mandoc_calloc(1, sizeof(struct roff));
        r->parse = parse;
+       r->reqtab = roffhash_alloc(0, ROFF_USERDEF);
        r->options = options;
        r->format = options & (MPARSE_MDOC | MPARSE_MAN);
        r->rstackpos = -1;
        r->options = options;
        r->format = options & (MPARSE_MDOC | MPARSE_MAN);
        r->rstackpos = -1;
-
-       roffhash_init();
-
+       r->escape = '\\';
        return r;
 }
 
        return r;
 }
 
@@ -820,16 +816,17 @@ roff_man_free(struct roff_man *man)
 
 struct roff_man *
 roff_man_alloc(struct roff *roff, struct mparse *parse,
 
 struct roff_man *
 roff_man_alloc(struct roff *roff, struct mparse *parse,
-       const char *defos, int quick)
+       const char *os_s, int quick)
 {
        struct roff_man *man;
 
        man = mandoc_calloc(1, sizeof(*man));
        man->parse = parse;
        man->roff = roff;
 {
        struct roff_man *man;
 
        man = mandoc_calloc(1, sizeof(*man));
        man->parse = parse;
        man->roff = roff;
-       man->defos = defos;
+       man->os_s = os_s;
        man->quick = quick;
        roff_man_alloc1(man);
        man->quick = quick;
        roff_man_alloc1(man);
+       roff->man = man;
        return man;
 }
 
        return man;
 }
 
@@ -983,31 +980,21 @@ roff_body_alloc(struct roff_man *man, int line, int pos, int tok)
        return n;
 }
 
        return n;
 }
 
-void
-roff_addeqn(struct roff_man *man, const struct eqn *eqn)
-{
-       struct roff_node        *n;
-
-       n = roff_node_alloc(man, eqn->ln, eqn->pos, ROFFT_EQN, TOKEN_NONE);
-       n->eqn = eqn;
-       if (eqn->ln > man->last->line)
-               n->flags |= NODE_LINE;
-       roff_node_append(man, n);
-       man->next = ROFF_NEXT_SIBLING;
-}
-
-void
-roff_addtbl(struct roff_man *man, const struct tbl_span *tbl)
+static void
+roff_addtbl(struct roff_man *man, struct tbl_node *tbl)
 {
        struct roff_node        *n;
 {
        struct roff_node        *n;
+       const struct tbl_span   *span;
 
        if (man->macroset == MACROSET_MAN)
 
        if (man->macroset == MACROSET_MAN)
-               man_breakscope(man, TOKEN_NONE);
-       n = roff_node_alloc(man, tbl->line, 0, ROFFT_TBL, TOKEN_NONE);
-       n->span = tbl;
-       roff_node_append(man, n);
-       n->flags |= NODE_VALID | NODE_ENDED;
-       man->next = ROFF_NEXT_SIBLING;
+               man_breakscope(man, ROFF_TS);
+       while ((span = tbl_span(tbl)) != NULL) {
+               n = roff_node_alloc(man, tbl->line, 0, ROFFT_TBL, TOKEN_NONE);
+               n->span = span;
+               roff_node_append(man, n);
+               n->flags |= NODE_VALID | NODE_ENDED;
+               man->next = ROFF_NEXT_SIBLING;
+       }
 }
 
 void
 }
 
 void
@@ -1055,6 +1042,8 @@ roff_node_free(struct roff_node *n)
                mdoc_argv_free(n->args);
        if (n->type == ROFFT_BLOCK || n->type == ROFFT_ELEM)
                free(n->norm);
                mdoc_argv_free(n->args);
        if (n->type == ROFFT_BLOCK || n->type == ROFFT_ELEM)
                free(n->norm);
+       if (n->eqn != NULL)
+               eqn_box_free(n->eqn);
        free(n->string);
        free(n);
 }
        free(n->string);
        free(n);
 }
@@ -1142,27 +1131,104 @@ roff_res(struct roff *r, struct buf *buf, int ln, int pos)
        int              expand_count;  /* to avoid infinite loops */
        int              npos;  /* position in numeric expression */
        int              arg_complete; /* argument not interrupted by eol */
        int              expand_count;  /* to avoid infinite loops */
        int              npos;  /* position in numeric expression */
        int              arg_complete; /* argument not interrupted by eol */
+       int              done;  /* no more input available */
+       int              deftype; /* type of definition to paste */
+       int              rcsid; /* kind of RCS id seen */
        char             term;  /* character terminating the escape */
 
        char             term;  /* character terminating the escape */
 
-       expand_count = 0;
+       /* Search forward for comments. */
+
+       done = 0;
        start = buf->buf + pos;
        start = buf->buf + pos;
-       stesc = strchr(start, '\0') - 1;
-       while (stesc-- > start) {
+       for (stesc = buf->buf + pos; *stesc != '\0'; stesc++) {
+               if (stesc[0] != r->escape || stesc[1] == '\0')
+                       continue;
+               stesc++;
+               if (*stesc != '"' && *stesc != '#')
+                       continue;
+
+               /* Comment found, look for RCS id. */
+
+               rcsid = 0;
+               if ((cp = strstr(stesc, "$" "OpenBSD")) != NULL) {
+                       rcsid = 1 << MANDOC_OS_OPENBSD;
+                       cp += 8;
+               } else if ((cp = strstr(stesc, "$" "NetBSD")) != NULL) {
+                       rcsid = 1 << MANDOC_OS_NETBSD;
+                       cp += 7;
+               }
+               if (cp != NULL &&
+                   isalnum((unsigned char)*cp) == 0 &&
+                   strchr(cp, '$') != NULL) {
+                       if (r->man->meta.rcsids & rcsid)
+                               mandoc_msg(MANDOCERR_RCS_REP, r->parse,
+                                   ln, stesc + 1 - buf->buf, stesc + 1);
+                       r->man->meta.rcsids |= rcsid;
+               }
+
+               /* Handle trailing whitespace. */
+
+               cp = strchr(stesc--, '\0') - 1;
+               if (*cp == '\n') {
+                       done = 1;
+                       cp--;
+               }
+               if (*cp == ' ' || *cp == '\t')
+                       mandoc_msg(MANDOCERR_SPACE_EOL, r->parse,
+                           ln, cp - buf->buf, NULL);
+               while (stesc > start && stesc[-1] == ' ')
+                       stesc--;
+               *stesc = '\0';
+               break;
+       }
+       if (stesc == start)
+               return ROFF_CONT;
+       stesc--;
+
+       /* Notice the end of the input. */
+
+       if (*stesc == '\n') {
+               *stesc-- = '\0';
+               done = 1;
+       }
+
+       expand_count = 0;
+       while (stesc >= start) {
 
                /* Search backwards for the next backslash. */
 
 
                /* Search backwards for the next backslash. */
 
-               if (*stesc != '\\')
+               if (*stesc != r->escape) {
+                       if (*stesc == '\\') {
+                               *stesc = '\0';
+                               buf->sz = mandoc_asprintf(&nbuf, "%s\\e%s",
+                                   buf->buf, stesc + 1) + 1;
+                               start = nbuf + pos;
+                               stesc = nbuf + (stesc - buf->buf);
+                               free(buf->buf);
+                               buf->buf = nbuf;
+                       }
+                       stesc--;
                        continue;
                        continue;
+               }
 
                /* If it is escaped, skip it. */
 
                for (cp = stesc - 1; cp >= start; cp--)
 
                /* If it is escaped, skip it. */
 
                for (cp = stesc - 1; cp >= start; cp--)
-                       if (*cp != '\\')
+                       if (*cp != r->escape)
                                break;
 
                if ((stesc - cp) % 2 == 0) {
                                break;
 
                if ((stesc - cp) % 2 == 0) {
-                       stesc = (char *)cp;
+                       while (stesc > cp)
+                               *stesc-- = '\\';
                        continue;
                        continue;
+               } else if (stesc[1] != '\0') {
+                       *stesc = '\\';
+               } else {
+                       *stesc-- = '\0';
+                       if (done)
+                               continue;
+                       else
+                               return ROFF_APPEND;
                }
 
                /* Decide whether to expand or to check only. */
                }
 
                /* Decide whether to expand or to check only. */
@@ -1188,6 +1254,7 @@ roff_res(struct roff *r, struct buf *buf, int ln, int pos)
                                mandoc_vmsg(MANDOCERR_ESC_BAD,
                                    r->parse, ln, (int)(stesc - buf->buf),
                                    "%.*s", (int)(cp - stesc), stesc);
                                mandoc_vmsg(MANDOCERR_ESC_BAD,
                                    r->parse, ln, (int)(stesc - buf->buf),
                                    "%.*s", (int)(cp - stesc), stesc);
+                       stesc--;
                        continue;
                }
 
                        continue;
                }
 
@@ -1265,8 +1332,10 @@ roff_res(struct roff *r, struct buf *buf, int ln, int pos)
 
                switch (stesc[1]) {
                case '*':
 
                switch (stesc[1]) {
                case '*':
-                       if (arg_complete)
-                               res = roff_getstrn(r, stnam, naml);
+                       if (arg_complete) {
+                               deftype = ROFFDEF_USER | ROFFDEF_PRE;
+                               res = roff_getstrn(r, stnam, naml, &deftype);
+                       }
                        break;
                case 'B':
                        npos = 0;
                        break;
                case 'B':
                        npos = 0;
@@ -1321,7 +1390,7 @@ roff_res(struct roff *r, struct buf *buf, int ln, int pos)
  * Process text streams.
  */
 static enum rofferr
  * Process text streams.
  */
 static enum rofferr
-roff_parsetext(struct buf *buf, int pos, int *offs)
+roff_parsetext(struct roff *r, struct buf *buf, int pos, int *offs)
 {
        size_t           sz;
        const char      *start;
 {
        size_t           sz;
        const char      *start;
@@ -1343,6 +1412,16 @@ roff_parsetext(struct buf *buf, int pos, int *offs)
        } else if (roffit_lines > 1)
                --roffit_lines;
 
        } else if (roffit_lines > 1)
                --roffit_lines;
 
+       if (roffce_node != NULL && buf->buf[pos] != '\0') {
+               if (roffce_lines < 1) {
+                       r->man->last = roffce_node;
+                       r->man->next = ROFF_NEXT_SIBLING;
+                       roffce_lines = 0;
+                       roffce_node = NULL;
+               } else
+                       roffce_lines--;
+       }
+
        /* Convert all breakable hyphens into ASCII_HYPH. */
 
        start = p = buf->buf + pos;
        /* Convert all breakable hyphens into ASCII_HYPH. */
 
        start = p = buf->buf + pos;
@@ -1402,7 +1481,7 @@ roff_parseln(struct roff *r, int ln, struct buf *buf, int *offs)
        /* Expand some escape sequences. */
 
        e = roff_res(r, buf, ln, pos);
        /* Expand some escape sequences. */
 
        e = roff_res(r, buf, ln, pos);
-       if (e == ROFF_IGN)
+       if (e == ROFF_IGN || e == ROFF_APPEND)
                return e;
        assert(e == ROFF_CONT);
 
                return e;
        assert(e == ROFF_CONT);
 
@@ -1423,12 +1502,17 @@ roff_parseln(struct roff *r, int ln, struct buf *buf, int *offs)
                        return e;
                assert(e == ROFF_CONT);
        }
                        return e;
                assert(e == ROFF_CONT);
        }
-       if (r->eqn != NULL)
-               return eqn_read(&r->eqn, ln, buf->buf, ppos, offs);
-       if (r->tbl != NULL && ( ! ctl || buf->buf[pos] == '\0'))
-               return tbl_read(r->tbl, ln, buf->buf, ppos);
+       if (r->eqn != NULL && strncmp(buf->buf + ppos, ".EN", 3)) {
+               eqn_read(r->eqn, buf->buf + ppos);
+               return ROFF_IGN;
+       }
+       if (r->tbl != NULL && (ctl == 0 || buf->buf[pos] == '\0')) {
+               tbl_read(r->tbl, ln, buf->buf, ppos);
+               roff_addtbl(r->man, r->tbl);
+               return ROFF_IGN;
+       }
        if ( ! ctl)
        if ( ! ctl)
-               return roff_parsetext(buf, pos, offs);
+               return roff_parsetext(r, buf, pos, offs);
 
        /* Skip empty request lines. */
 
 
        /* Skip empty request lines. */
 
@@ -1457,16 +1541,30 @@ roff_parseln(struct roff *r, int ln, struct buf *buf, int *offs)
 
        /* Tables ignore most macros. */
 
 
        /* Tables ignore most macros. */
 
-       if (r->tbl != NULL && (t == TOKEN_NONE || t == ROFF_TS)) {
+       if (r->tbl != NULL && (t == TOKEN_NONE || t == ROFF_TS ||
+           t == ROFF_br || t == ROFF_ce || t == ROFF_rj || t == ROFF_sp)) {
                mandoc_msg(MANDOCERR_TBLMACRO, r->parse,
                    ln, pos, buf->buf + spos);
                mandoc_msg(MANDOCERR_TBLMACRO, r->parse,
                    ln, pos, buf->buf + spos);
-               if (t == ROFF_TS)
+               if (t != TOKEN_NONE)
                        return ROFF_IGN;
                while (buf->buf[pos] != '\0' && buf->buf[pos] != ' ')
                        pos++;
                while (buf->buf[pos] == ' ')
                        pos++;
                        return ROFF_IGN;
                while (buf->buf[pos] != '\0' && buf->buf[pos] != ' ')
                        pos++;
                while (buf->buf[pos] == ' ')
                        pos++;
-               return tbl_read(r->tbl, ln, buf->buf, pos);
+               tbl_read(r->tbl, ln, buf->buf, pos);
+               roff_addtbl(r->man, r->tbl);
+               return ROFF_IGN;
+       }
+
+       /* For now, let high level macros abort .ce mode. */
+
+       if (ctl && roffce_node != NULL &&
+           (t == TOKEN_NONE || t == ROFF_Dd || t == ROFF_EQ ||
+            t == ROFF_TH || t == ROFF_TS)) {
+               r->man->last = roffce_node;
+               r->man->next = ROFF_NEXT_SIBLING;
+               roffce_lines = 0;
+               roffce_node = NULL;
        }
 
        /*
        }
 
        /*
@@ -1479,28 +1577,29 @@ roff_parseln(struct roff *r, int ln, struct buf *buf, int *offs)
 
        /* Execute a roff request or a user defined macro. */
 
 
        /* Execute a roff request or a user defined macro. */
 
-       return (*roffs[t].proc)(r, t, buf, ln, ppos, pos, offs);
+       return (*roffs[t].proc)(r, t, buf, ln, spos, pos, offs);
 }
 
 void
 roff_endparse(struct roff *r)
 {
 }
 
 void
 roff_endparse(struct roff *r)
 {
-
-       if (r->last)
+       if (r->last != NULL)
                mandoc_msg(MANDOCERR_BLK_NOEND, r->parse,
                    r->last->line, r->last->col,
                mandoc_msg(MANDOCERR_BLK_NOEND, r->parse,
                    r->last->line, r->last->col,
-                   roffs[r->last->tok].name);
+                   roff_name[r->last->tok]);
 
 
-       if (r->eqn) {
+       if (r->eqn != NULL) {
                mandoc_msg(MANDOCERR_BLK_NOEND, r->parse,
                mandoc_msg(MANDOCERR_BLK_NOEND, r->parse,
-                   r->eqn->eqn.ln, r->eqn->eqn.pos, "EQ");
-               eqn_end(&r->eqn);
+                   r->eqn->node->line, r->eqn->node->pos, "EQ");
+               eqn_parse(r->eqn);
+               r->eqn = NULL;
        }
 
        }
 
-       if (r->tbl) {
+       if (r->tbl != NULL) {
                mandoc_msg(MANDOCERR_BLK_NOEND, r->parse,
                    r->tbl->line, r->tbl->pos, "TS");
                mandoc_msg(MANDOCERR_BLK_NOEND, r->parse,
                    r->tbl->line, r->tbl->pos, "TS");
-               tbl_end(&r->tbl);
+               tbl_end(r->tbl);
+               r->tbl = NULL;
        }
 }
 
        }
 }
 
@@ -1514,6 +1613,7 @@ roff_parse(struct roff *r, char *buf, int *pos, int ln, int ppos)
        char            *cp;
        const char      *mac;
        size_t           maclen;
        char            *cp;
        const char      *mac;
        size_t           maclen;
+       int              deftype;
        enum roff_tok    t;
 
        cp = buf + *pos;
        enum roff_tok    t;
 
        cp = buf + *pos;
@@ -1524,12 +1624,21 @@ roff_parse(struct roff *r, char *buf, int *pos, int ln, int ppos)
        mac = cp;
        maclen = roff_getname(r, &cp, ln, ppos);
 
        mac = cp;
        maclen = roff_getname(r, &cp, ln, ppos);
 
-       t = (r->current_string = roff_getstrn(r, mac, maclen))
-           ? ROFF_USERDEF : roffhash_find(mac, maclen);
-
+       deftype = ROFFDEF_USER | ROFFDEF_REN;
+       r->current_string = roff_getstrn(r, mac, maclen, &deftype);
+       switch (deftype) {
+       case ROFFDEF_USER:
+               t = ROFF_USERDEF;
+               break;
+       case ROFFDEF_REN:
+               t = ROFF_RENAMED;
+               break;
+       default:
+               t = roffhash_find(r->reqtab, mac, maclen);
+               break;
+       }
        if (t != TOKEN_NONE)
                *pos = cp - buf;
        if (t != TOKEN_NONE)
                *pos = cp - buf;
-
        return t;
 }
 
        return t;
 }
 
@@ -1621,9 +1730,10 @@ roff_ccond(struct roff *r, int ln, int ppos)
 static enum rofferr
 roff_block(ROFF_ARGS)
 {
 static enum rofferr
 roff_block(ROFF_ARGS)
 {
-       const char      *name;
-       char            *iname, *cp;
-       size_t           namesz;
+       const char      *name, *value;
+       char            *call, *cp, *iname, *rname;
+       size_t           csz, namesz, rsz;
+       int              deftype;
 
        /* Ignore groff compatibility mode for now. */
 
 
        /* Ignore groff compatibility mode for now. */
 
@@ -1651,7 +1761,9 @@ roff_block(ROFF_ARGS)
        /* Resolve the macro name argument if it is indirect. */
 
        if (namesz && (tok == ROFF_dei || tok == ROFF_ami)) {
        /* Resolve the macro name argument if it is indirect. */
 
        if (namesz && (tok == ROFF_dei || tok == ROFF_ami)) {
-               if ((name = roff_getstrn(r, iname, namesz)) == NULL) {
+               deftype = ROFFDEF_USER;
+               name = roff_getstrn(r, iname, namesz, &deftype);
+               if (name == NULL) {
                        mandoc_vmsg(MANDOCERR_STR_UNDEF,
                            r->parse, ln, (int)(iname - buf->buf),
                            "%.*s", (int)namesz, iname);
                        mandoc_vmsg(MANDOCERR_STR_UNDEF,
                            r->parse, ln, (int)(iname - buf->buf),
                            "%.*s", (int)namesz, iname);
@@ -1663,7 +1775,7 @@ roff_block(ROFF_ARGS)
 
        if (namesz == 0 && tok != ROFF_ig) {
                mandoc_msg(MANDOCERR_REQ_EMPTY, r->parse,
 
        if (namesz == 0 && tok != ROFF_ig) {
                mandoc_msg(MANDOCERR_REQ_EMPTY, r->parse,
-                   ln, ppos, roffs[tok].name);
+                   ln, ppos, roff_name[tok]);
                return ROFF_IGN;
        }
 
                return ROFF_IGN;
        }
 
@@ -1675,8 +1787,37 @@ roff_block(ROFF_ARGS)
         * appended from roff_block_text() in multiline mode.
         */
 
         * appended from roff_block_text() in multiline mode.
         */
 
-       if (tok == ROFF_de || tok == ROFF_dei)
+       if (tok == ROFF_de || tok == ROFF_dei) {
                roff_setstrn(&r->strtab, name, namesz, "", 0, 0);
                roff_setstrn(&r->strtab, name, namesz, "", 0, 0);
+               roff_setstrn(&r->rentab, name, namesz, NULL, 0, 0);
+       } else if (tok == ROFF_am || tok == ROFF_ami) {
+               deftype = ROFFDEF_ANY;
+               value = roff_getstrn(r, iname, namesz, &deftype);
+               switch (deftype) {  /* Before appending, ... */
+               case ROFFDEF_PRE: /* copy predefined to user-defined. */
+                       roff_setstrn(&r->strtab, name, namesz,
+                           value, strlen(value), 0);
+                       break;
+               case ROFFDEF_REN: /* call original standard macro. */
+                       csz = mandoc_asprintf(&call, ".%.*s \\$* \\\"\n",
+                           (int)strlen(value), value);
+                       roff_setstrn(&r->strtab, name, namesz, call, csz, 0);
+                       roff_setstrn(&r->rentab, name, namesz, NULL, 0, 0);
+                       free(call);
+                       break;
+               case ROFFDEF_STD:  /* rename and call standard macro. */
+                       rsz = mandoc_asprintf(&rname, "__%s_renamed", name);
+                       roff_setstrn(&r->rentab, rname, rsz, name, namesz, 0);
+                       csz = mandoc_asprintf(&call, ".%.*s \\$* \\\"\n",
+                           (int)rsz, rname);
+                       roff_setstrn(&r->strtab, name, namesz, call, csz, 0);
+                       free(call);
+                       free(rname);
+                       break;
+               default:
+                       break;
+               }
+       }
 
        if (*cp == '\0')
                return ROFF_IGN;
 
        if (*cp == '\0')
                return ROFF_IGN;
@@ -1689,7 +1830,9 @@ roff_block(ROFF_ARGS)
        /* Resolve the end marker if it is indirect. */
 
        if (namesz && (tok == ROFF_dei || tok == ROFF_ami)) {
        /* Resolve the end marker if it is indirect. */
 
        if (namesz && (tok == ROFF_dei || tok == ROFF_ami)) {
-               if ((name = roff_getstrn(r, iname, namesz)) == NULL) {
+               deftype = ROFFDEF_USER;
+               name = roff_getstrn(r, iname, namesz, &deftype);
+               if (name == NULL) {
                        mandoc_vmsg(MANDOCERR_STR_UNDEF,
                            r->parse, ln, (int)(iname - buf->buf),
                            "%.*s", (int)namesz, iname);
                        mandoc_vmsg(MANDOCERR_STR_UNDEF,
                            r->parse, ln, (int)(iname - buf->buf),
                            "%.*s", (int)namesz, iname);
@@ -1704,7 +1847,7 @@ roff_block(ROFF_ARGS)
 
        if (*cp != '\0')
                mandoc_vmsg(MANDOCERR_ARG_EXCESS, r->parse,
 
        if (*cp != '\0')
                mandoc_vmsg(MANDOCERR_ARG_EXCESS, r->parse,
-                   ln, pos, ".%s ... %s", roffs[tok].name, cp);
+                   ln, pos, ".%s ... %s", roff_name[tok], cp);
 
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
@@ -1782,15 +1925,6 @@ roff_cond_sub(ROFF_ARGS)
 
        rr = r->last->rule;
        roffnode_cleanscope(r);
 
        rr = r->last->rule;
        roffnode_cleanscope(r);
-       t = roff_parse(r, buf->buf, &pos, ln, ppos);
-
-       /*
-        * Fully handle known macros when they are structurally
-        * required or when the conditional evaluated to true.
-        */
-
-       if (t != TOKEN_NONE && (rr || roffs[t].flags & ROFFMAC_STRUCT))
-               return (*roffs[t].proc)(r, t, buf, ln, ppos, pos, offs);
 
        /*
         * If `\}' occurs on a macro line without a preceding macro,
 
        /*
         * If `\}' occurs on a macro line without a preceding macro,
@@ -1804,14 +1938,29 @@ roff_cond_sub(ROFF_ARGS)
        /* Always check for the closing delimiter `\}'. */
 
        while ((ep = strchr(ep, '\\')) != NULL) {
        /* Always check for the closing delimiter `\}'. */
 
        while ((ep = strchr(ep, '\\')) != NULL) {
-               if (*(++ep) == '}') {
-                       *ep = '&';
-                       roff_ccond(r, ln, ep - buf->buf - 1);
-               }
-               if (*ep != '\0')
+               switch (ep[1]) {
+               case '}':
+                       memmove(ep, ep + 2, strlen(ep + 2) + 1);
+                       roff_ccond(r, ln, ep - buf->buf);
+                       break;
+               case '\0':
                        ++ep;
                        ++ep;
+                       break;
+               default:
+                       ep += 2;
+                       break;
+               }
        }
        }
-       return rr ? ROFF_CONT : ROFF_IGN;
+
+       /*
+        * Fully handle known macros when they are structurally
+        * required or when the conditional evaluated to true.
+        */
+
+       t = roff_parse(r, buf->buf, &pos, ln, ppos);
+       return t != TOKEN_NONE && (rr || roffs[t].flags & ROFFMAC_STRUCT)
+           ? (*roffs[t].proc)(r, t, buf, ln, ppos, pos, offs) : rr
+           ? ROFF_CONT : ROFF_IGN;
 }
 
 static enum rofferr
 }
 
 static enum rofferr
@@ -1961,7 +2110,7 @@ roff_evalcond(struct roff *r, int ln, char *v, int *pos)
 {
        char    *cp, *name;
        size_t   sz;
 {
        char    *cp, *name;
        size_t   sz;
-       int      number, savepos, wanttrue;
+       int      deftype, number, savepos, istrue, wanttrue;
 
        if ('!' == v[*pos]) {
                wanttrue = 0;
 
        if ('!' == v[*pos]) {
                wanttrue = 0;
@@ -1977,17 +2126,29 @@ roff_evalcond(struct roff *r, int ln, char *v, int *pos)
                (*pos)++;
                return wanttrue;
        case 'c':
                (*pos)++;
                return wanttrue;
        case 'c':
-       case 'd':
        case 'e':
        case 't':
        case 'v':
                (*pos)++;
                return !wanttrue;
        case 'e':
        case 't':
        case 'v':
                (*pos)++;
                return !wanttrue;
+       case 'd':
        case 'r':
        case 'r':
-               cp = name = v + ++*pos;
-               sz = roff_getname(r, &cp, ln, *pos);
+               cp = v + *pos + 1;
+               while (*cp == ' ')
+                       cp++;
+               name = cp;
+               sz = roff_getname(r, &cp, ln, cp - v);
+               if (sz == 0)
+                       istrue = 0;
+               else if (v[*pos] == 'r')
+                       istrue = roff_hasregn(r, name, sz);
+               else {
+                       deftype = ROFFDEF_ANY;
+                       roff_getstrn(r, name, sz, &deftype);
+                       istrue = !!deftype;
+               }
                *pos = cp - v;
                *pos = cp - v;
-               return (sz && roff_hasregn(r, name, sz)) == wanttrue;
+               return istrue == wanttrue;
        default:
                break;
        }
        default:
                break;
        }
@@ -2013,7 +2174,7 @@ roff_insec(ROFF_ARGS)
 {
 
        mandoc_msg(MANDOCERR_REQ_INSEC, r->parse,
 {
 
        mandoc_msg(MANDOCERR_REQ_INSEC, r->parse,
-           ln, ppos, roffs[tok].name);
+           ln, ppos, roff_name[tok]);
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
 
@@ -2022,7 +2183,7 @@ roff_unsupp(ROFF_ARGS)
 {
 
        mandoc_msg(MANDOCERR_REQ_UNSUPP, r->parse,
 {
 
        mandoc_msg(MANDOCERR_REQ_UNSUPP, r->parse,
-           ln, ppos, roffs[tok].name);
+           ln, ppos, roff_name[tok]);
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
 
@@ -2095,7 +2256,7 @@ roff_cond(ROFF_ARGS)
 
        if (buf->buf[pos] == '\0')
                mandoc_msg(MANDOCERR_COND_EMPTY, r->parse,
 
        if (buf->buf[pos] == '\0')
                mandoc_msg(MANDOCERR_COND_EMPTY, r->parse,
-                   ln, ppos, roffs[tok].name);
+                   ln, ppos, roff_name[tok]);
 
        r->last->endspan = 1;
 
 
        r->last->endspan = 1;
 
@@ -2139,6 +2300,7 @@ roff_ds(ROFF_ARGS)
        /* The rest is the value. */
        roff_setstrn(&r->strtab, name, namesz, string, strlen(string),
            ROFF_as == tok);
        /* The rest is the value. */
        roff_setstrn(&r->strtab, name, namesz, string, strlen(string),
            ROFF_as == tok);
+       roff_setstrn(&r->rentab, name, namesz, NULL, 0, 0);
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
 
@@ -2550,6 +2712,7 @@ roff_rm(ROFF_ARGS)
                name = cp;
                namesz = roff_getname(r, &cp, ln, (int)(cp - buf->buf));
                roff_setstrn(&r->strtab, name, namesz, NULL, 0, 0);
                name = cp;
                namesz = roff_getname(r, &cp, ln, (int)(cp - buf->buf));
                roff_setstrn(&r->strtab, name, namesz, NULL, 0, 0);
+               roff_setstrn(&r->rentab, name, namesz, NULL, 0, 0);
                if (name[namesz] == '\\')
                        break;
        }
                if (name[namesz] == '\\')
                        break;
        }
@@ -2588,46 +2751,49 @@ roff_it(ROFF_ARGS)
 static enum rofferr
 roff_Dd(ROFF_ARGS)
 {
 static enum rofferr
 roff_Dd(ROFF_ARGS)
 {
-       const char *const       *cp;
-
-       if ((r->options & (MPARSE_MDOC | MPARSE_QUICK)) == 0)
-               for (cp = __mdoc_reserved; *cp; cp++)
-                       roff_setstr(r, *cp, NULL, 0);
-
-       if (r->format == 0)
-               r->format = MPARSE_MDOC;
-
-       return ROFF_CONT;
-}
-
-static enum rofferr
-roff_TH(ROFF_ARGS)
-{
-       const char *const       *cp;
-
-       if ((r->options & MPARSE_QUICK) == 0)
-               for (cp = __man_reserved; *cp; cp++)
-                       roff_setstr(r, *cp, NULL, 0);
-
-       if (r->format == 0)
-               r->format = MPARSE_MAN;
+       int              mask;
+       enum roff_tok    t, te;
 
 
+       switch (tok) {
+       case ROFF_Dd:
+               tok = MDOC_Dd;
+               te = MDOC_MAX;
+               if (r->format == 0)
+                       r->format = MPARSE_MDOC;
+               mask = MPARSE_MDOC | MPARSE_QUICK;
+               break;
+       case ROFF_TH:
+               tok = MAN_TH;
+               te = MAN_MAX;
+               if (r->format == 0)
+                       r->format = MPARSE_MAN;
+               mask = MPARSE_QUICK;
+               break;
+       default:
+               abort();
+       }
+       if ((r->options & mask) == 0)
+               for (t = tok; t < te; t++)
+                       roff_setstr(r, roff_name[t], NULL, 0);
        return ROFF_CONT;
 }
 
 static enum rofferr
 roff_TE(ROFF_ARGS)
 {
        return ROFF_CONT;
 }
 
 static enum rofferr
 roff_TE(ROFF_ARGS)
 {
-
-       if (NULL == r->tbl)
+       if (r->tbl == NULL) {
                mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse,
                    ln, ppos, "TE");
                mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse,
                    ln, ppos, "TE");
-       else if ( ! tbl_end(&r->tbl)) {
+               return ROFF_IGN;
+       }
+       if (tbl_end(r->tbl) == 0) {
+               r->tbl = NULL;
                free(buf->buf);
                buf->buf = mandoc_strdup(".sp");
                buf->sz = 4;
                return ROFF_REPARSE;
        }
                free(buf->buf);
                buf->buf = mandoc_strdup(".sp");
                buf->sz = 4;
                return ROFF_REPARSE;
        }
+       r->tbl = NULL;
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
 
@@ -2639,7 +2805,7 @@ roff_T_(ROFF_ARGS)
                mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse,
                    ln, ppos, "T&");
        else
                mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse,
                    ln, ppos, "T&");
        else
-               tbl_restart(ppos, ln, r->tbl);
+               tbl_restart(ln, ppos, r->tbl);
 
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
@@ -2713,20 +2879,25 @@ roff_eqndelim(struct roff *r, struct buf *buf, int pos)
 static enum rofferr
 roff_EQ(ROFF_ARGS)
 {
 static enum rofferr
 roff_EQ(ROFF_ARGS)
 {
-       struct eqn_node *e;
-
-       assert(r->eqn == NULL);
-       e = eqn_alloc(ppos, ln, r->parse);
+       struct roff_node        *n;
 
 
-       if (r->last_eqn) {
-               r->last_eqn->next = e;
-               e->delim = r->last_eqn->delim;
-               e->odelim = r->last_eqn->odelim;
-               e->cdelim = r->last_eqn->cdelim;
-       } else
-               r->first_eqn = r->last_eqn = e;
+       if (r->man->macroset == MACROSET_MAN)
+               man_breakscope(r->man, ROFF_EQ);
+       n = roff_node_alloc(r->man, ln, ppos, ROFFT_EQN, TOKEN_NONE);
+       if (ln > r->man->last->line)
+               n->flags |= NODE_LINE;
+       n->eqn = mandoc_calloc(1, sizeof(*n->eqn));
+       n->eqn->expectargs = UINT_MAX;
+       roff_node_append(r->man, n);
+       r->man->next = ROFF_NEXT_SIBLING;
 
 
-       r->eqn = r->last_eqn = e;
+       assert(r->eqn == NULL);
+       if (r->last_eqn == NULL)
+               r->last_eqn = eqn_alloc(r->parse);
+       else
+               eqn_reset(r->last_eqn);
+       r->eqn = r->last_eqn;
+       r->eqn->node = n;
 
        if (buf->buf[pos] != '\0')
                mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse, ln, pos,
 
        if (buf->buf[pos] != '\0')
                mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse, ln, pos,
@@ -2738,39 +2909,156 @@ roff_EQ(ROFF_ARGS)
 static enum rofferr
 roff_EN(ROFF_ARGS)
 {
 static enum rofferr
 roff_EN(ROFF_ARGS)
 {
-
-       mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse, ln, ppos, "EN");
+       if (r->eqn != NULL) {
+               eqn_parse(r->eqn);
+               r->eqn = NULL;
+       } else
+               mandoc_msg(MANDOCERR_BLK_NOTOPEN, r->parse, ln, ppos, "EN");
+       if (buf->buf[pos] != '\0')
+               mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse, ln, pos,
+                   "EN %s", buf->buf + pos);
        return ROFF_IGN;
 }
 
 static enum rofferr
 roff_TS(ROFF_ARGS)
 {
        return ROFF_IGN;
 }
 
 static enum rofferr
 roff_TS(ROFF_ARGS)
 {
-       struct tbl_node *tbl;
-
-       if (r->tbl) {
+       if (r->tbl != NULL) {
                mandoc_msg(MANDOCERR_BLK_BROKEN, r->parse,
                    ln, ppos, "TS breaks TS");
                mandoc_msg(MANDOCERR_BLK_BROKEN, r->parse,
                    ln, ppos, "TS breaks TS");
-               tbl_end(&r->tbl);
+               tbl_end(r->tbl);
        }
        }
-
-       tbl = tbl_alloc(ppos, ln, r->parse);
-
+       r->tbl = tbl_alloc(ppos, ln, r->parse);
        if (r->last_tbl)
        if (r->last_tbl)
-               r->last_tbl->next = tbl;
+               r->last_tbl->next = r->tbl;
        else
        else
-               r->first_tbl = r->last_tbl = tbl;
+               r->first_tbl = r->tbl;
+       r->last_tbl = r->tbl;
+       return ROFF_IGN;
+}
 
 
-       r->tbl = r->last_tbl = tbl;
+static enum rofferr
+roff_onearg(ROFF_ARGS)
+{
+       struct roff_node        *n;
+       char                    *cp;
+       int                      npos;
+
+       if (r->man->flags & (MAN_BLINE | MAN_ELINE) &&
+           (tok == ROFF_ce || tok == ROFF_rj || tok == ROFF_sp ||
+            tok == ROFF_ti))
+               man_breakscope(r->man, tok);
+
+       if (roffce_node != NULL && (tok == ROFF_ce || tok == ROFF_rj)) {
+               r->man->last = roffce_node;
+               r->man->next = ROFF_NEXT_SIBLING;
+       }
+
+       roff_elem_alloc(r->man, ln, ppos, tok);
+       n = r->man->last;
+
+       cp = buf->buf + pos;
+       if (*cp != '\0') {
+               while (*cp != '\0' && *cp != ' ')
+                       cp++;
+               while (*cp == ' ')
+                       *cp++ = '\0';
+               if (*cp != '\0')
+                       mandoc_vmsg(MANDOCERR_ARG_EXCESS,
+                           r->parse, ln, cp - buf->buf,
+                           "%s ... %s", roff_name[tok], cp);
+               roff_word_alloc(r->man, ln, pos, buf->buf + pos);
+       }
+
+       if (tok == ROFF_ce || tok == ROFF_rj) {
+               if (r->man->last->type == ROFFT_ELEM) {
+                       roff_word_alloc(r->man, ln, pos, "1");
+                       r->man->last->flags |= NODE_NOSRC;
+               }
+               npos = 0;
+               if (roff_evalnum(r, ln, r->man->last->string, &npos,
+                   &roffce_lines, 0) == 0) {
+                       mandoc_vmsg(MANDOCERR_CE_NONUM,
+                           r->parse, ln, pos, "ce %s", buf->buf + pos);
+                       roffce_lines = 1;
+               }
+               if (roffce_lines < 1) {
+                       r->man->last = r->man->last->parent;
+                       roffce_node = NULL;
+                       roffce_lines = 0;
+               } else
+                       roffce_node = r->man->last->parent;
+       } else {
+               n->flags |= NODE_VALID | NODE_ENDED;
+               r->man->last = n;
+       }
+       n->flags |= NODE_LINE;
+       r->man->next = ROFF_NEXT_SIBLING;
        return ROFF_IGN;
 }
 
 static enum rofferr
        return ROFF_IGN;
 }
 
 static enum rofferr
-roff_brp(ROFF_ARGS)
+roff_manyarg(ROFF_ARGS)
 {
 {
+       struct roff_node        *n;
+       char                    *sp, *ep;
 
 
-       buf->buf[pos - 1] = '\0';
-       return ROFF_CONT;
+       roff_elem_alloc(r->man, ln, ppos, tok);
+       n = r->man->last;
+
+       for (sp = ep = buf->buf + pos; *sp != '\0'; sp = ep) {
+               while (*ep != '\0' && *ep != ' ')
+                       ep++;
+               while (*ep == ' ')
+                       *ep++ = '\0';
+               roff_word_alloc(r->man, ln, sp - buf->buf, sp);
+       }
+
+       n->flags |= NODE_LINE | NODE_VALID | NODE_ENDED;
+       r->man->last = n;
+       r->man->next = ROFF_NEXT_SIBLING;
+       return ROFF_IGN;
+}
+
+static enum rofferr
+roff_als(ROFF_ARGS)
+{
+       char            *oldn, *newn, *end, *value;
+       size_t           oldsz, newsz, valsz;
+
+       newn = oldn = buf->buf + pos;
+       if (*newn == '\0')
+               return ROFF_IGN;
+
+       newsz = roff_getname(r, &oldn, ln, pos);
+       if (newn[newsz] == '\\' || *oldn == '\0')
+               return ROFF_IGN;
+
+       end = oldn;
+       oldsz = roff_getname(r, &end, ln, oldn - buf->buf);
+       if (oldsz == 0)
+               return ROFF_IGN;
+
+       valsz = mandoc_asprintf(&value, ".%.*s \\$*\\\"\n",
+           (int)oldsz, oldn);
+       roff_setstrn(&r->strtab, newn, newsz, value, valsz, 0);
+       roff_setstrn(&r->rentab, newn, newsz, NULL, 0, 0);
+       free(value);
+       return ROFF_IGN;
+}
+
+static enum rofferr
+roff_br(ROFF_ARGS)
+{
+       if (r->man->flags & (MAN_BLINE | MAN_ELINE))
+               man_breakscope(r->man, ROFF_br);
+       roff_elem_alloc(r->man, ln, ppos, ROFF_br);
+       if (buf->buf[pos] != '\0')
+               mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse, ln, pos,
+                   "%s %s", roff_name[tok], buf->buf + pos);
+       r->man->last->flags |= NODE_LINE | NODE_VALID | NODE_ENDED;
+       r->man->next = ROFF_NEXT_SIBLING;
+       return ROFF_IGN;
 }
 
 static enum rofferr
 }
 
 static enum rofferr
@@ -2781,7 +3069,7 @@ roff_cc(ROFF_ARGS)
        p = buf->buf + pos;
 
        if (*p == '\0' || (r->control = *p++) == '.')
        p = buf->buf + pos;
 
        if (*p == '\0' || (r->control = *p++) == '.')
-               r->control = 0;
+               r->control = '\0';
 
        if (*p != '\0')
                mandoc_vmsg(MANDOCERR_ARG_EXCESS, r->parse,
 
        if (*p != '\0')
                mandoc_vmsg(MANDOCERR_ARG_EXCESS, r->parse,
@@ -2790,6 +3078,33 @@ roff_cc(ROFF_ARGS)
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
 
+static enum rofferr
+roff_ec(ROFF_ARGS)
+{
+       const char      *p;
+
+       p = buf->buf + pos;
+       if (*p == '\0')
+               r->escape = '\\';
+       else {
+               r->escape = *p;
+               if (*++p != '\0')
+                       mandoc_vmsg(MANDOCERR_ARG_EXCESS, r->parse,
+                           ln, p - buf->buf, "ec ... %s", p);
+       }
+       return ROFF_IGN;
+}
+
+static enum rofferr
+roff_eo(ROFF_ARGS)
+{
+       r->escape = '\0';
+       if (buf->buf[pos] != '\0')
+               mandoc_vmsg(MANDOCERR_ARG_SKIP, r->parse,
+                   ln, pos, "eo %s", buf->buf + pos);
+       return ROFF_IGN;
+}
+
 static enum rofferr
 roff_tr(ROFF_ARGS)
 {
 static enum rofferr
 roff_tr(ROFF_ARGS)
 {
@@ -2852,6 +3167,56 @@ roff_tr(ROFF_ARGS)
        return ROFF_IGN;
 }
 
        return ROFF_IGN;
 }
 
+static enum rofferr
+roff_rn(ROFF_ARGS)
+{
+       const char      *value;
+       char            *oldn, *newn, *end;
+       size_t           oldsz, newsz;
+       int              deftype;
+
+       oldn = newn = buf->buf + pos;
+       if (*oldn == '\0')
+               return ROFF_IGN;
+
+       oldsz = roff_getname(r, &newn, ln, pos);
+       if (oldn[oldsz] == '\\' || *newn == '\0')
+               return ROFF_IGN;
+
+       end = newn;
+       newsz = roff_getname(r, &end, ln, newn - buf->buf);
+       if (newsz == 0)
+               return ROFF_IGN;
+
+       deftype = ROFFDEF_ANY;
+       value = roff_getstrn(r, oldn, oldsz, &deftype);
+       switch (deftype) {
+       case ROFFDEF_USER:
+               roff_setstrn(&r->strtab, newn, newsz, value, strlen(value), 0);
+               roff_setstrn(&r->strtab, oldn, oldsz, NULL, 0, 0);
+               roff_setstrn(&r->rentab, newn, newsz, NULL, 0, 0);
+               break;
+       case ROFFDEF_PRE:
+               roff_setstrn(&r->strtab, newn, newsz, value, strlen(value), 0);
+               roff_setstrn(&r->rentab, newn, newsz, NULL, 0, 0);
+               break;
+       case ROFFDEF_REN:
+               roff_setstrn(&r->rentab, newn, newsz, value, strlen(value), 0);
+               roff_setstrn(&r->rentab, oldn, oldsz, NULL, 0, 0);
+               roff_setstrn(&r->strtab, newn, newsz, NULL, 0, 0);
+               break;
+       case ROFFDEF_STD:
+               roff_setstrn(&r->rentab, newn, newsz, oldn, oldsz, 0);
+               roff_setstrn(&r->strtab, newn, newsz, NULL, 0, 0);
+               break;
+       default:
+               roff_setstrn(&r->strtab, newn, newsz, NULL, 0, 0);
+               roff_setstrn(&r->rentab, newn, newsz, NULL, 0, 0);
+               break;
+       }
+       return ROFF_IGN;
+}
+
 static enum rofferr
 roff_so(ROFF_ARGS)
 {
 static enum rofferr
 roff_so(ROFF_ARGS)
 {
@@ -2887,7 +3252,7 @@ roff_so(ROFF_ARGS)
 static enum rofferr
 roff_userdef(ROFF_ARGS)
 {
 static enum rofferr
 roff_userdef(ROFF_ARGS)
 {
-       const char       *arg[9], *ap;
+       const char       *arg[16], *ap;
        char             *cp, *n1, *n2;
        int               expand_count, i, ib, ie;
        size_t            asz, rsz;
        char             *cp, *n1, *n2;
        int               expand_count, i, ib, ie;
        size_t            asz, rsz;
@@ -2899,7 +3264,7 @@ roff_userdef(ROFF_ARGS)
 
        r->argc = 0;
        cp = buf->buf + pos;
 
        r->argc = 0;
        cp = buf->buf + pos;
-       for (i = 0; i < 9; i++) {
+       for (i = 0; i < 16; i++) {
                if (*cp == '\0')
                        arg[i] = "";
                else {
                if (*cp == '\0')
                        arg[i] = "";
                else {
@@ -3026,6 +3391,22 @@ roff_userdef(ROFF_ARGS)
           ROFF_REPARSE : ROFF_APPEND;
 }
 
           ROFF_REPARSE : ROFF_APPEND;
 }
 
+/*
+ * Calling a high-level macro that was renamed with .rn.
+ * r->current_string has already been set up by roff_parse().
+ */
+static enum rofferr
+roff_renamed(ROFF_ARGS)
+{
+       char    *nbuf;
+
+       buf->sz = mandoc_asprintf(&nbuf, ".%s%s%s", r->current_string,
+           buf->buf[pos] == '\0' ? "" : " ", buf->buf + pos) + 1;
+       free(buf->buf);
+       buf->buf = nbuf;
+       return ROFF_CONT;
+}
+
 static size_t
 roff_getname(struct roff *r, char **cpp, int ln, int pos)
 {
 static size_t
 roff_getname(struct roff *r, char **cpp, int ln, int pos)
 {
@@ -3075,9 +3456,12 @@ static void
 roff_setstr(struct roff *r, const char *name, const char *string,
        int append)
 {
 roff_setstr(struct roff *r, const char *name, const char *string,
        int append)
 {
+       size_t   namesz;
 
 
-       roff_setstrn(&r->strtab, name, strlen(name), string,
+       namesz = strlen(name);
+       roff_setstrn(&r->strtab, name, namesz, string,
            string ? strlen(string) : 0, append);
            string ? strlen(string) : 0, append);
+       roff_setstrn(&r->rentab, name, namesz, NULL, 0, 0);
 }
 
 static void
 }
 
 static void
@@ -3153,21 +3537,63 @@ roff_setstrn(struct roffkv **r, const char *name, size_t namesz,
 }
 
 static const char *
 }
 
 static const char *
-roff_getstrn(const struct roff *r, const char *name, size_t len)
-{
-       const struct roffkv *n;
-       int i;
-
-       for (n = r->strtab; n; n = n->next)
-               if (0 == strncmp(name, n->key.p, len) &&
-                   '\0' == n->key.p[(int)len])
-                       return n->val.p;
-
-       for (i = 0; i < PREDEFS_MAX; i++)
-               if (0 == strncmp(name, predefs[i].name, len) &&
-                               '\0' == predefs[i].name[(int)len])
-                       return predefs[i].str;
-
+roff_getstrn(const struct roff *r, const char *name, size_t len,
+    int *deftype)
+{
+       const struct roffkv     *n;
+       int                      i;
+       enum roff_tok            tok;
+
+       if (*deftype & ROFFDEF_USER) {
+               for (n = r->strtab; n != NULL; n = n->next) {
+                       if (strncmp(name, n->key.p, len) == 0 &&
+                           n->key.p[len] == '\0' &&
+                           n->val.p != NULL) {
+                               *deftype = ROFFDEF_USER;
+                               return n->val.p;
+                       }
+               }
+       }
+       if (*deftype & ROFFDEF_PRE) {
+               for (i = 0; i < PREDEFS_MAX; i++) {
+                       if (strncmp(name, predefs[i].name, len) == 0 &&
+                           predefs[i].name[len] == '\0') {
+                               *deftype = ROFFDEF_PRE;
+                               return predefs[i].str;
+                       }
+               }
+       }
+       if (*deftype & ROFFDEF_REN) {
+               for (n = r->rentab; n != NULL; n = n->next) {
+                       if (strncmp(name, n->key.p, len) == 0 &&
+                           n->key.p[len] == '\0' &&
+                           n->val.p != NULL) {
+                               *deftype = ROFFDEF_REN;
+                               return n->val.p;
+                       }
+               }
+       }
+       if (*deftype & ROFFDEF_STD) {
+               if (r->man->macroset != MACROSET_MAN) {
+                       for (tok = MDOC_Dd; tok < MDOC_MAX; tok++) {
+                               if (strncmp(name, roff_name[tok], len) == 0 &&
+                                   roff_name[tok][len] == '\0') {
+                                       *deftype = ROFFDEF_STD;
+                                       return NULL;
+                               }
+                       }
+               }
+               if (r->man->macroset != MACROSET_MDOC) {
+                       for (tok = MAN_TH; tok < MAN_MAX; tok++) {
+                               if (strncmp(name, roff_name[tok], len) == 0 &&
+                                   roff_name[tok][len] == '\0') {
+                                       *deftype = ROFFDEF_STD;
+                                       return NULL;
+                               }
+                       }
+               }
+       }
+       *deftype = 0;
        return NULL;
 }
 
        return NULL;
 }
 
@@ -3186,20 +3612,6 @@ roff_freestr(struct roffkv *r)
 
 /* --- accessors and utility functions ------------------------------------ */
 
 
 /* --- accessors and utility functions ------------------------------------ */
 
-const struct tbl_span *
-roff_span(const struct roff *r)
-{
-
-       return r->tbl ? tbl_span(r->tbl) : NULL;
-}
-
-const struct eqn *
-roff_eqn(const struct roff *r)
-{
-
-       return r->last_eqn ? &r->last_eqn->eqn : NULL;
-}
-
 /*
  * Duplicate an input string, making the appropriate character
  * conversations (as stipulated by `tr') along the way.
 /*
  * Duplicate an input string, making the appropriate character
  * conversations (as stipulated by `tr') along the way.
@@ -3317,9 +3729,9 @@ roff_getcontrol(const struct roff *r, const char *cp, int *ppos)
 
        pos = *ppos;
 
 
        pos = *ppos;
 
-       if (0 != r->control && cp[pos] == r->control)
+       if (r->control != '\0' && cp[pos] == r->control)
                pos++;
                pos++;
-       else if (0 != r->control)
+       else if (r->control != '\0')
                return 0;
        else if ('\\' == cp[pos] && '.' == cp[pos + 1])
                pos += 2;
                return 0;
        else if ('\\' == cp[pos] && '.' == cp[pos + 1])
                pos += 2;
A git conversion mirror of mandoc.bsd.lv