[BACK]Return to docbook2mdoc.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / docbook2mdoc

Diff for /docbook2mdoc/docbook2mdoc.c between version 1.39 and 1.62

version 1.39, 2014/04/30 13:18:38 version 1.62, 2019/03/22 17:42:53
Line 1 
Line 1 
 /*      $Id$ */  /* $Id$ */
 /*  /*
  * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>   * Copyright (c) 2014 Kristaps Dzonsons <kristaps@bsd.lv>
    * Copyright (c) 2019 Ingo Schwarze <schwarze@openbsd.org>
  *   *
  * Permission to use, copy, modify, and distribute this software for any   * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above   * purpose with or without fee is hereby granted, provided that the above
Line 37  struct parse {
Line 38  struct parse {
         enum nodeid      node; /* current (NODE_ROOT if pre-tree) */          enum nodeid      node; /* current (NODE_ROOT if pre-tree) */
         const char      *fname; /* filename */          const char      *fname; /* filename */
         int              stop; /* should we stop now? */          int              stop; /* should we stop now? */
   #define PARSE_EQN        1
           unsigned int     flags; /* document-wide flags */
         struct pnode    *root; /* root of parse tree */          struct pnode    *root; /* root of parse tree */
         struct pnode    *cur; /* current node in tree */          struct pnode    *cur; /* current node in tree */
         char            *b; /* nil-terminated buffer for pre-print */          char            *b; /* NUL-terminated buffer for pre-print */
         size_t           bsz; /* current length of b */          size_t           bsz; /* current length of b */
         size_t           mbsz; /* max bsz allocation */          size_t           mbsz; /* max bsz allocation */
           int              level; /* header level, starting at 1 */
         int              newln; /* output: are we on a fresh line */          int              newln; /* output: are we on a fresh line */
 };  };
   
 struct  node {  struct  node {
         const char      *name; /* docbook element name */          const char      *name; /* docbook element name */
         unsigned int     flags;          enum nodeid      node; /* docbook element to generate */
 #define NODE_IGNTEXT     1 /* ignore all contained text */  
 };  };
   
 TAILQ_HEAD(pnodeq, pnode);  TAILQ_HEAD(pnodeq, pnode);
Line 74  struct pnode {
Line 77  struct pnode {
   
 static  const char *attrkeys[ATTRKEY__MAX] = {  static  const char *attrkeys[ATTRKEY__MAX] = {
         "choice",          "choice",
           "class",
           "close",
         "id",          "id",
           "linkend",
           "open",
         "rep"          "rep"
 };  };
   
 static  const char *attrvals[ATTRVAL__MAX] = {  static  const char *attrvals[ATTRVAL__MAX] = {
           "monospaced",
         "norepeat",          "norepeat",
         "opt",          "opt",
         "plain",          "plain",
Line 86  static const char *attrvals[ATTRVAL__MAX] = {
Line 94  static const char *attrvals[ATTRVAL__MAX] = {
         "req"          "req"
 };  };
   
 static  const struct node nodes[NODE__MAX] = {  static  const struct node nodes[] = {
         { NULL, 0 },          { "acronym",            NODE_ACRONYM },
         { "acronym", 0 },          { "affiliation",        NODE_AFFILIATION },
         { "anchor", NODE_IGNTEXT },          { "anchor",             NODE_ANCHOR },
         { "application", 0 },          { "application",        NODE_APPLICATION },
         { "arg", 0 },          { "arg",                NODE_ARG },
         { "caution", NODE_IGNTEXT },          { "author",             NODE_AUTHOR },
         { "citerefentry", NODE_IGNTEXT },          { "authorgroup",        NODE_AUTHORGROUP },
         { "cmdsynopsis", NODE_IGNTEXT },          { "blockquote",         NODE_BLOCKQUOTE },
         { "code", 0 },          { "book",               NODE_BOOK },
         { "colspec", NODE_IGNTEXT },          { "bookinfo",           NODE_BOOKINFO },
         { "command", 0 },          { "caution",            NODE_CAUTION },
         { "constant", 0 },          { "chapter",            NODE_SECTION },
         { "copyright", NODE_IGNTEXT },          { "citerefentry",       NODE_CITEREFENTRY },
         { "date", 0 },          { "citetitle",          NODE_CITETITLE },
         { "emphasis", 0 },          { "cmdsynopsis",        NODE_CMDSYNOPSIS },
         { "entry", 0 },          { "code",               NODE_CODE },
         { "envar", 0 },          { "colspec",            NODE_COLSPEC },
         { "fieldsynopsis", NODE_IGNTEXT },          { "command",            NODE_COMMAND },
         { "filename", 0 },          { "constant",           NODE_CONSTANT },
         { "funcdef", 0 },          { "copyright",          NODE_COPYRIGHT },
         { "funcprototype", NODE_IGNTEXT },          { "date",               NODE_DATE },
         { "funcsynopsis", NODE_IGNTEXT },          { "editor",             NODE_EDITOR },
         { "funcsynopsisinfo", 0 },          { "emphasis",           NODE_EMPHASIS },
         { "function", 0 },          { "entry",              NODE_ENTRY },
         { "group", NODE_IGNTEXT },          { "envar",              NODE_ENVAR },
         { "holder", NODE_IGNTEXT },          { "fieldsynopsis",      NODE_FIELDSYNOPSIS },
         { "info", NODE_IGNTEXT },          { "filename",           NODE_FILENAME },
         { "informaltable", NODE_IGNTEXT },          { "firstname",          NODE_FIRSTNAME },
         { "itemizedlist", NODE_IGNTEXT },          { "firstterm",          NODE_FIRSTTERM },
         { "link", 0 },          { "footnote",           NODE_FOOTNOTE },
         { "listitem", NODE_IGNTEXT },          { "funcdef",            NODE_FUNCDEF },
         { "literal", 0 },          { "funcprototype",      NODE_FUNCPROTOTYPE },
         { "manvolnum", 0 },          { "funcsynopsis",       NODE_FUNCSYNOPSIS },
         { "modifier", 0 },          { "funcsynopsisinfo",   NODE_FUNCSYNOPSISINFO },
         { "note", NODE_IGNTEXT },          { "function",           NODE_FUNCTION },
         { "option", 0 },          { "glossterm",          NODE_GLOSSTERM },
         { "orderedlist", NODE_IGNTEXT },          { "group",              NODE_GROUP },
         { "para", 0 },          { "holder",             NODE_HOLDER },
         { "paramdef", 0 },          { "index",              NODE_INDEX },
         { "parameter", 0 },          { "indexterm",          NODE_INDEXTERM },
         { "programlisting", 0 },          { "info",               NODE_INFO },
         { "prompt", 0 },          { "informalequation",   NODE_INFORMALEQUATION },
         { "quote", 0 },          { "informaltable",      NODE_INFORMALTABLE },
         { "refclass", NODE_IGNTEXT },          { "inlineequation",     NODE_INLINEEQUATION },
         { "refdescriptor", NODE_IGNTEXT },          { "itemizedlist",       NODE_ITEMIZEDLIST },
         { "refentry", NODE_IGNTEXT },          { "keysym",             NODE_KEYSYM },
         { "refentryinfo", NODE_IGNTEXT },          { "legalnotice",        NODE_LEGALNOTICE },
         { "refentrytitle", 0 },          { "link",               NODE_LINK },
         { "refmeta", NODE_IGNTEXT },          { "listitem",           NODE_LISTITEM },
         { "refmetainfo", NODE_IGNTEXT },          { "literal",            NODE_LITERAL },
         { "refmiscinfo", NODE_IGNTEXT },          { "literallayout",      NODE_LITERALLAYOUT },
         { "refname", 0 },          { "manvolnum",          NODE_MANVOLNUM },
         { "refnamediv", NODE_IGNTEXT },          { "member",             NODE_MEMBER },
         { "refpurpose", 0 },          { "mml:math",           NODE_MML_MATH },
         { "refsect1", NODE_IGNTEXT },          { "mml:mfenced",        NODE_MML_MFENCED },
         { "refsect2", NODE_IGNTEXT },          { "mml:mfrac",          NODE_MML_MFRAC },
         { "refsect3", NODE_IGNTEXT },          { "mml:mi",             NODE_MML_MI },
         { "refsection", NODE_IGNTEXT },          { "mml:mn",             NODE_MML_MN },
         { "refsynopsisdiv", NODE_IGNTEXT },          { "mml:mo",             NODE_MML_MO },
         { "replaceable", 0 },          { "mml:mrow",           NODE_MML_MROW },
         { "row", NODE_IGNTEXT },          { "mml:msub",           NODE_MML_MSUB },
         { "sbr", NODE_IGNTEXT },          { "mml:msup",           NODE_MML_MSUP },
         { "screen", NODE_IGNTEXT },          { "modifier",           NODE_MODIFIER },
         { "sgmltag", 0 },          { "note",               NODE_NOTE },
         { "structname", 0 },          { "option",             NODE_OPTION },
         { "synopsis", 0 },          { "orderedlist",        NODE_ORDEREDLIST },
         { "table", NODE_IGNTEXT },          { "orgname",            NODE_ORGNAME },
         { "tbody", NODE_IGNTEXT },          { "othername",          NODE_OTHERNAME },
         { "term", 0 },          { "para",               NODE_PARA },
         { NULL, 0 },          { "paramdef",           NODE_PARAMDEF },
         { "tfoot", NODE_IGNTEXT },          { "parameter",          NODE_PARAMETER },
         { "tgroup", NODE_IGNTEXT },          { "part",               NODE_SECTION },
         { "thead", NODE_IGNTEXT },          { "phrase",             NODE_PHRASE },
         { "tip", NODE_IGNTEXT },          { "preface",            NODE_PREFACE },
         { "title", 0 },          { "primary",            NODE_PRIMARY },
         { "trademark", 0 },          { "programlisting",     NODE_PROGRAMLISTING },
         { "type", 0 },          { "prompt",             NODE_PROMPT },
         { "ulink", 0 },          { "quote",              NODE_QUOTE },
         { "userinput", 0 },          { "refclass",           NODE_REFCLASS },
         { "variablelist", NODE_IGNTEXT },          { "refdescriptor",      NODE_REFDESCRIPTOR },
         { "varlistentry", NODE_IGNTEXT },          { "refentry",           NODE_REFENTRY },
         { "varname", 0 },          { "refentryinfo",       NODE_REFENTRYINFO },
         { "warning", NODE_IGNTEXT },          { "refentrytitle",      NODE_REFENTRYTITLE },
         { "wordasword", 0 },          { "refmeta",            NODE_REFMETA },
         { "year", NODE_IGNTEXT },          { "refmetainfo",        NODE_REFMETAINFO },
           { "refmiscinfo",        NODE_REFMISCINFO },
           { "refname",            NODE_REFNAME },
           { "refnamediv",         NODE_REFNAMEDIV },
           { "refpurpose",         NODE_REFPURPOSE },
           { "refsect1",           NODE_SECTION },
           { "refsect2",           NODE_SECTION },
           { "refsect3",           NODE_SECTION },
           { "refsection",         NODE_SECTION },
           { "refsynopsisdiv",     NODE_REFSYNOPSISDIV },
           { "releaseinfo",        NODE_RELEASEINFO },
           { "replaceable",        NODE_REPLACEABLE },
           { "row",                NODE_ROW },
           { "sbr",                NODE_SBR },
           { "screen",             NODE_SCREEN },
           { "secondary",          NODE_SECONDARY },
           { "sect1",              NODE_SECTION },
           { "sect2",              NODE_SECTION },
           { "section",            NODE_SECTION },
           { "sgmltag",            NODE_SGMLTAG },
           { "simplelist",         NODE_SIMPLELIST },
           { "spanspec",           NODE_SPANSPEC },
           { "structname",         NODE_STRUCTNAME },
           { "subtitle",           NODE_SUBTITLE },
           { "surname",            NODE_SURNAME },
           { "synopsis",           NODE_SYNOPSIS },
           { "table",              NODE_TABLE },
           { "tbody",              NODE_TBODY },
           { "term",               NODE_TERM },
           { "tfoot",              NODE_TFOOT },
           { "tgroup",             NODE_TGROUP },
           { "thead",              NODE_THEAD },
           { "tip",                NODE_TIP },
           { "title",              NODE_TITLE },
           { "trademark",          NODE_TRADEMARK },
           { "type",               NODE_TYPE },
           { "ulink",              NODE_ULINK },
           { "userinput",          NODE_USERINPUT },
           { "variablelist",       NODE_VARIABLELIST },
           { "varlistentry",       NODE_VARLISTENTRY },
           { "varname",            NODE_VARNAME },
           { "warning",            NODE_WARNING },
           { "wordasword",         NODE_WORDASWORD },
           { "year",               NODE_YEAR },
           { NULL,                 NODE__MAX }
 };  };
   
 static  int warn = 0;  static  int warn = 0;
Line 196  xml_char(void *arg, const XML_Char *p, int sz)
Line 248  xml_char(void *arg, const XML_Char *p, int sz)
         if (ps->stop || NODE_ROOT == ps->node)          if (ps->stop || NODE_ROOT == ps->node)
                 return;                  return;
   
         /* Not supposed to be collecting text. */  
         assert(NULL != ps->cur);          assert(NULL != ps->cur);
         if (NODE_IGNTEXT & nodes[ps->node].flags)  
                 return;  
   
         /*          /*
          * Are we in the midst of processing text?           * Are we in the midst of processing text?
Line 210  xml_char(void *arg, const XML_Char *p, int sz)
Line 259  xml_char(void *arg, const XML_Char *p, int sz)
          */           */
         if (NODE_TEXT != ps->node) {          if (NODE_TEXT != ps->node) {
                 for (i = 0; i < sz; i++)                  for (i = 0; i < sz; i++)
                         if ( ! isspace((int)p[i]))                          if ( ! isspace((unsigned char)p[i]))
                                 break;                                  break;
                 if (i == sz)                  if (i == sz)
                         return;                          return;
Line 233  xml_char(void *arg, const XML_Char *p, int sz)
Line 282  xml_char(void *arg, const XML_Char *p, int sz)
   
         /* Append to current buffer. */          /* Append to current buffer. */
         assert(sz >= 0);          assert(sz >= 0);
         ps->cur->b = realloc(ps->cur->b,          ps->cur->b = realloc(ps->cur->b,
                 ps->cur->bsz + (size_t)sz);                  ps->cur->bsz + (size_t)sz);
         if (NULL == ps->cur->b) {          if (NULL == ps->cur->b) {
                 perror(NULL);                  perror(NULL);
Line 250  pnode_trim(struct pnode *pn)
Line 299  pnode_trim(struct pnode *pn)
   
         assert(NODE_TEXT == pn->node);          assert(NODE_TEXT == pn->node);
         for ( ; pn->bsz > 0; pn->bsz--)          for ( ; pn->bsz > 0; pn->bsz--)
                 if ( ! isspace((int)pn->b[pn->bsz - 1]))                  if ( ! isspace((unsigned char)pn->b[pn->bsz - 1]))
                         break;                          break;
 }  }
   
Line 272  static void
Line 321  static void
 xml_elem_start(void *arg, const XML_Char *name, const XML_Char **atts)  xml_elem_start(void *arg, const XML_Char *name, const XML_Char **atts)
 {  {
         struct parse     *ps = arg;          struct parse     *ps = arg;
         enum nodeid       node;          const struct node *node;
         enum attrkey      key;          enum attrkey      key;
         enum attrval      val;          enum attrval      val;
         struct pnode     *dat;          struct pnode     *dat;
Line 292  xml_elem_start(void *arg, const XML_Char *name, const 
Line 341  xml_elem_start(void *arg, const XML_Char *name, const 
                 ps->node = ps->cur->node;                  ps->node = ps->cur->node;
         }          }
   
           for (node = nodes; NULL != node->name; node++)
         for (node = 0; node < NODE__MAX; node++)                  if (0 == strcmp(node->name, name))
                 if (NULL == nodes[node].name)  
                         continue;  
                 else if (0 == strcmp(nodes[node].name, name))  
                         break;                          break;
   
         if (NODE__MAX == node && NODE_ROOT == ps->node) {          if (NULL == node->name) {
                 return;                  if (NODE_ROOT == ps->node)
         } else if (NODE__MAX == node) {                          return;
                 fprintf(stderr, "%s:%zu:%zu: unknown node \"%s\"\n",                  fprintf(stderr, "%s:%zu:%zu: unknown node \"%s\"\n",
                         ps->fname, XML_GetCurrentLineNumber(ps->xml),                          ps->fname, XML_GetCurrentLineNumber(ps->xml),
                         XML_GetCurrentColumnNumber(ps->xml), name);                          XML_GetCurrentColumnNumber(ps->xml), name);
                 ps->stop = 1;                  ps->stop = 1;
Line 313  xml_elem_start(void *arg, const XML_Char *name, const 
Line 359  xml_elem_start(void *arg, const XML_Char *name, const 
                         XML_GetCurrentColumnNumber(ps->xml));                          XML_GetCurrentColumnNumber(ps->xml));
                 ps->stop = 1;                  ps->stop = 1;
                 return;                  return;
         } else if (NODE_ROOT == ps->node && NODE_REFENTRY != node) {  
                 return;  
         } else if ( ! isparent(node, ps->node)) {  
                 fprintf(stderr, "%s:%zu:%zu: bad parent \"%s\" "  
                         "of node \"%s\"\n",  
                         ps->fname, XML_GetCurrentLineNumber(ps->xml),  
                         XML_GetCurrentColumnNumber(ps->xml),  
                         NULL == nodes[ps->node].name ?  
                         "(none)" : nodes[ps->node].name,  
                         NULL == nodes[node].name ?  
                         "(none)" : nodes[node].name);  
                 ps->stop = 1;  
                 return;  
         }          }
   
           if (NODE_INLINEEQUATION == node->node)
                   ps->flags |= PARSE_EQN;
   
         if (NULL == (dat = calloc(1, sizeof(struct pnode)))) {          if (NULL == (dat = calloc(1, sizeof(struct pnode)))) {
                 perror(NULL);                  perror(NULL);
                 exit(EXIT_FAILURE);                  exit(EXIT_FAILURE);
         }          }
   
         dat->node = ps->node = node;          dat->node = ps->node = node->node;
         dat->parent = ps->cur;          dat->parent = ps->cur;
         TAILQ_INIT(&dat->childq);          TAILQ_INIT(&dat->childq);
         TAILQ_INIT(&dat->attrq);          TAILQ_INIT(&dat->attrq);
Line 353  xml_elem_start(void *arg, const XML_Char *name, const 
Line 389  xml_elem_start(void *arg, const XML_Char *name, const 
                         if (0 == strcmp(*att, attrkeys[key]))                          if (0 == strcmp(*att, attrkeys[key]))
                                 break;                                  break;
                 if (ATTRKEY__MAX == key) {                  if (ATTRKEY__MAX == key) {
                         if (warn)  
                                 fprintf(stderr, "%s:%zu:%zu: warning: "  
                                         "unknown attribute \"%s\"\n",  
                                         ps->fname,  
                                         XML_GetCurrentLineNumber(ps->xml),  
                                         XML_GetCurrentColumnNumber(ps->xml),  
                                         *att);  
                         continue;  
                 } else if ( ! isattrkey(node, key)) {  
                         if (warn)                          if (warn)
                                 fprintf(stderr, "%s:%zu:%zu: warning: "                                  fprintf(stderr, "%s:%zu:%zu: warning: "
                                         "bad attribute \"%s\"\n",                                          "unknown attribute \"%s\"\n",
                                         ps->fname,                                          ps->fname,
                                         XML_GetCurrentLineNumber(ps->xml),                                          XML_GetCurrentLineNumber(ps->xml),
                                         XML_GetCurrentColumnNumber(ps->xml),                                          XML_GetCurrentColumnNumber(ps->xml),
                                         *att);                                          *att);
                         continue;                          continue;
                 }                  }
                 for (val = 0; val < ATTRVAL__MAX; val++)                  for (val = 0; val < ATTRVAL__MAX; val++)
                         if (0 == strcmp(*(att + 1), attrvals[val]))                          if (0 == strcmp(*(att + 1), attrvals[val]))
                                 break;                                  break;
                 if (ATTRVAL__MAX != val && ! isattrval(key, val)) {  
                         if (warn)  
                                 fprintf(stderr, "%s:%zu:%zu: warning: "  
                                         "bad attribute value \"%s\"\n",  
                                         ps->fname,  
                                         XML_GetCurrentLineNumber(ps->xml),  
                                         XML_GetCurrentColumnNumber(ps->xml),  
                                         *(att + 1));  
                         continue;  
                 }  
                 pattr = calloc(1, sizeof(struct pattr));                  pattr = calloc(1, sizeof(struct pattr));
                 pattr->key = key;                  pattr->key = key;
                 pattr->val = val;                  pattr->val = val;
Line 476  pnode_unlinksub(struct pnode *pn)
Line 493  pnode_unlinksub(struct pnode *pn)
 }  }
   
 /*  /*
    * Retrieve an enumeration attribute from a node.
    * Return ATTRVAL__MAX if the node has no such attribute.
    */
   enum attrval
   pnode_getattr(struct pnode *pn, enum attrkey key)
   {
           struct pattr    *ap;
   
           TAILQ_FOREACH(ap, &pn->attrq, child)
                   if (ap->key == key)
                           return ap->val;
           return(ATTRVAL__MAX);
   }
   
   /*
    * Retrieve an attribute string from a node.
    * Return defval if the node has no such attribute.
    */
   const char *
   pnode_getattr_raw(struct pnode *pn, enum attrkey key, const char *defval)
   {
           struct pattr    *ap;
   
           TAILQ_FOREACH(ap, &pn->attrq, child)
                   if (ap->key == key)
                           return ATTRVAL__MAX == ap->val ? ap->rawval :
                               attrvals[ap->val];
           return(defval);
   }
   
   /*
  * Reset the lookaside buffer.   * Reset the lookaside buffer.
  */   */
 static void  static void
Line 488  bufclear(struct parse *p)
Line 536  bufclear(struct parse *p)
 /*  /*
  * Append NODE_TEXT contents to the current buffer, reallocating its   * Append NODE_TEXT contents to the current buffer, reallocating its
  * size if necessary.   * size if necessary.
  * The buffer is ALWAYS nil-terminated.   * The buffer is ALWAYS NUL-terminated.
  */   */
 static void  static void
 bufappend(struct parse *p, struct pnode *pn)  bufappend(struct parse *p, struct pnode *pn)
Line 524  bufappend_r(struct parse *p, struct pnode *pn)
Line 572  bufappend_r(struct parse *p, struct pnode *pn)
                 bufappend_r(p, pp);                  bufappend_r(p, pp);
 }  }
   
 /*  /*
  * Recursively search and return the first instance of "node".   * Recursively search and return the first instance of "node".
  */   */
 static struct pnode *  static struct pnode *
Line 563  pnode_printmacrolinetext(struct parse *p, struct pnode
Line 611  pnode_printmacrolinetext(struct parse *p, struct pnode
   
         /* Convert all space to spaces. */          /* Convert all space to spaces. */
         for (cp = p->b; '\0' != *cp; cp++)          for (cp = p->b; '\0' != *cp; cp++)
                 if (isspace((int)*cp))                  if (isspace((unsigned char)*cp))
                         *cp = ' ';                          *cp = ' ';
   
         for (cp = p->b; isspace((int)*cp); cp++)          for (cp = p->b; isspace((unsigned char)*cp); cp++)
                 /* Spin past whitespace (XXX: necessary?) */ ;                  /* Spin past whitespace (XXX: necessary?) */ ;
         for ( ; '\0' != *cp; cp++) {          for ( ; '\0' != *cp; cp++) {
                 /* Escape us if we look like a macro. */                  /* Escape us if we look like a macro. */
                 if ((cp == p->b || ' ' == *(cp - 1)) &&                  if ((cp == p->b || ' ' == *(cp - 1)) &&
                         isupper((int)*cp) &&                          isupper((unsigned char)*cp) &&
                         '\0' != *(cp + 1) &&                          '\0' != *(cp + 1) &&
                         islower((int)*(cp + 1)) &&                          islower((unsigned char)*(cp + 1)) &&
                         ('\0' == *(cp + 2) ||                          ('\0' == *(cp + 2) ||
                          ' ' == *(cp + 2) ||                           ' ' == *(cp + 2) ||
                          (islower((int)*(cp + 2)) &&                           (islower((unsigned char)*(cp + 2)) &&
                           ('\0' == *(cp + 3) ||                            ('\0' == *(cp + 3) ||
                            ' ' == *(cp + 3)))))                             ' ' == *(cp + 3)))))
                         fputs("\\&", stdout);                          fputs("\\&", stdout);
                 if (MACROLINE_UPPER & fl)                  if (MACROLINE_UPPER & fl)
                         putchar(toupper((int)*cp));                          putchar(toupper((unsigned char)*cp));
                 else                  else
                         putchar((int)*cp);                          putchar(*cp);
                 /* If we're a character escape, escape us. */                  /* If we're a character escape, escape us. */
                 if ('\\' == *cp)                  if ('\\' == *cp)
                         putchar('e');                          putchar('e');
Line 640  static void
Line 688  static void
 pnode_printmclosepunct(struct parse *p, struct pnode *pn, int sv)  pnode_printmclosepunct(struct parse *p, struct pnode *pn, int sv)
 {  {
         /* We wouldn't have done anything anyway. */          /* We wouldn't have done anything anyway. */
         if ( ! (sv && ! p->newln))          if ( ! (sv && ! p->newln))
                 return;                  return;
   
         /* No next node or it's not text. */          /* No next node or it's not text. */
Line 650  pnode_printmclosepunct(struct parse *p, struct pnode *
Line 698  pnode_printmclosepunct(struct parse *p, struct pnode *
         } else if (NODE_TEXT != pn->node) {          } else if (NODE_TEXT != pn->node) {
                 pnode_printmclose(p, sv);                  pnode_printmclose(p, sv);
                 return;                  return;
         }          }
   
         /* Only do this for the comma/period. */          /* Only do this for the comma/period. */
         if (pn->bsz > 0 &&          if (pn->bsz > 0 &&
                 (',' == pn->b[0] || '.' == pn->b[0]) &&                  (',' == pn->b[0] || '.' == pn->b[0]) &&
                 (1 == pn->bsz || isspace((int)pn->b[1]))) {                  (1 == pn->bsz || isspace((unsigned char)pn->b[1]))) {
                 putchar(' ');                  putchar(' ');
                 putchar(pn->b[0]);                  putchar(pn->b[0]);
                 pn->b++;                  pn->b++;
                 pn->bsz--;                  pn->bsz--;
         }          }
   
         putchar('\n');          putchar('\n');
         p->newln = 1;          p->newln = 1;
 }  }
   
   static void
   pnode_printpara(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           assert(p->newln);
           if ((pp = TAILQ_PREV(pn, pnodeq, child)) == NULL &&
               (pp = pn->parent) == NULL)
                   return;
   
           switch (pp->node) {
           case NODE_ENTRY:
           case NODE_LISTITEM:
                   return;
           case NODE_PREFACE:
           case NODE_SECTION:
                   if (p->level < 3)
                           return;
                   break;
           default:
                   break;
           }
           puts(".Pp");
   }
   
 /*  /*
  * If the SYNOPSIS macro has a superfluous title, kill it.   * If the SYNOPSIS macro has a superfluous title, kill it.
  */   */
Line 674  pnode_printrefsynopsisdiv(struct parse *p, struct pnod
Line 747  pnode_printrefsynopsisdiv(struct parse *p, struct pnod
 {  {
         struct pnode    *pp;          struct pnode    *pp;
   
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TITLE == pp->node) {                  if (NODE_TITLE == pp->node) {
                         pnode_unlink(pp);                          pnode_unlink(pp);
                         return;                          return;
Line 688  static void
Line 761  static void
 pnode_printrefsect(struct parse *p, struct pnode *pn)  pnode_printrefsect(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
           const char      *title;
           int              flags, level;
   
           if (NULL == pn->parent)
                   return;
   
           level = ++p->level;
           flags = 1 == level ? MACROLINE_UPPER : 0;
           if (3 > level) {
                   switch (pn->node) {
                   case NODE_CAUTION:
                   case NODE_NOTE:
                   case NODE_TIP:
                   case NODE_WARNING:
                           level = 3;
                           break;
                   default:
                           break;
                   }
           }
   
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TITLE == pp->node)                  if (NODE_TITLE == pp->node)
                         break;                          break;
   
         switch (pn->node) {          if (NULL == pp) {
         case (NODE_REFSECT1):                  switch (pn->node) {
                   case NODE_PREFACE:
                           title = "Preface";
                           break;
                   case NODE_CAUTION:
                           title = "Caution";
                           break;
                   case NODE_NOTE:
                           title = "Note";
                           break;
                   case NODE_TIP:
                           title = "Tip";
                           break;
                   case NODE_WARNING:
                           title = "Warning";
                           break;
                   default:
                           title = "Unknown";
                           break;
                   }
           }
   
           switch (level) {
           case 1:
                 fputs(".Sh", stdout);                  fputs(".Sh", stdout);
                 break;                  break;
         case (NODE_REFSECT2):          case 2:
                 fputs(".Ss", stdout);                  fputs(".Ss", stdout);
                 break;                  break;
         case (NODE_REFSECT3):          default:
                 puts(".Pp");                  pnode_printpara(p, pn);
                 fputs(".Sy", stdout);                  fputs(".Sy", stdout);
                 break;                  break;
         case (NODE_NOTE):  
                 /* FALLTHROUGH */  
         case (NODE_REFSECTION):  
                 /* FALLTHROUGH */  
         case (NODE_TIP):  
                 /* FALLTHROUGH */  
         case (NODE_CAUTION):  
                 /* FALLTHROUGH */  
         case (NODE_WARNING):  
                 puts(".Pp");  
                 if (NULL == pp)  
                         return;  
                 fputs(".Em", stdout);  
                 break;  
         default:  
                 break;  
         }          }
   
         p->newln = 0;  
   
         if (NULL != pp) {          if (NULL != pp) {
                 pnode_printmacrolinetext(p, pp,                  p->newln = 0;
                         NODE_REFSECT1 == pn->node ?                  pnode_printmacrolinetext(p, pp, flags);
                         MACROLINE_UPPER : 0);  
                 pnode_printmclose(p, 1);                  pnode_printmclose(p, 1);
                 pnode_unlink(pp);                  pnode_unlink(pp);
         } else {          } else
                 puts(NODE_REFSECT1 == pn->node ?                  printf(" %s\n", title);
                         "UNKNOWN" : "unknown");  
                 p->newln = 1;  
         }  
 }  }
   
 /*  /*
Line 777  pnode_printrefmeta(struct parse *p, struct pnode *pn)
Line 871  pnode_printrefmeta(struct parse *p, struct pnode *pn)
                 else if (NODE_REFENTRYTITLE == pp->node)                  else if (NODE_REFENTRYTITLE == pp->node)
                         title = pp;                          title = pp;
   
         puts(".Dd $Mdocdate" "$");  
         fputs(".Dt", stdout);          fputs(".Dt", stdout);
         p->newln = 0;          p->newln = 0;
   
Line 791  pnode_printrefmeta(struct parse *p, struct pnode *pn)
Line 884  pnode_printrefmeta(struct parse *p, struct pnode *pn)
                 p->newln = 1;                  p->newln = 1;
         } else          } else
                 pnode_printmacroline(p, manvol);                  pnode_printmacroline(p, manvol);
   
         puts(".Os");  
 }  }
   
 static void  static void
Line 851  pnode_printparamdef(struct parse *p, struct pnode *pn)
Line 942  pnode_printparamdef(struct parse *p, struct pnode *pn)
         p->newln = 1;          p->newln = 1;
 }  }
   
   /*
    * The <mml:mfenced> node is a little peculiar.
    * First, it can have arbitrary open and closing tokens, which default
    * to parentheses.
    * Second, >1 arguments are separated by commas.
    */
 static void  static void
   pnode_printmathfenced(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           printf("left %s ", pnode_getattr_raw(pn, ATTRKEY_OPEN, "("));
   
           pp = TAILQ_FIRST(&pn->childq);
           pnode_print(p, pp);
   
           while (NULL != (pp = TAILQ_NEXT(pp, child))) {
                   putchar(',');
                   pnode_print(p, pp);
           }
   
           printf("right %s ", pnode_getattr_raw(pn, ATTRKEY_CLOSE, ")"));
   }
   
   /*
    * These math nodes require special handling because they have infix
    * syntax, instead of the usual prefix or prefix.
    * So we need to break up the first and second child node with a
    * particular eqn(7) word.
    */
   static void
   pnode_printmath(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           pp = TAILQ_FIRST(&pn->childq);
           pnode_print(p, pp);
   
           switch (pn->node) {
           case NODE_MML_MSUP:
                   fputs(" sup ", stdout);
                   break;
           case NODE_MML_MFRAC:
                   fputs(" over ", stdout);
                   break;
           case NODE_MML_MSUB:
                   fputs(" sub ", stdout);
                   break;
           default:
                   break;
           }
   
           pp = TAILQ_NEXT(pp, child);
           pnode_print(p, pp);
   }
   
   static void
 pnode_printfuncprototype(struct parse *p, struct pnode *pn)  pnode_printfuncprototype(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp, *fdef;          struct pnode    *pp, *fdef;
   
         assert(p->newln);          assert(p->newln);
         TAILQ_FOREACH(fdef, &pn->childq, child)          TAILQ_FOREACH(fdef, &pn->childq, child)
                 if (NODE_FUNCDEF == fdef->node)                  if (NODE_FUNCDEF == fdef->node)
                         break;                          break;
   
         if (NULL != fdef)          if (NULL != fdef)
Line 866  pnode_printfuncprototype(struct parse *p, struct pnode
Line 1013  pnode_printfuncprototype(struct parse *p, struct pnode
         else          else
                 puts(".Fo UNKNOWN");                  puts(".Fo UNKNOWN");
   
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_PARAMDEF == pp->node)                  if (NODE_PARAMDEF == pp->node)
                         pnode_printparamdef(p, pp);                          pnode_printparamdef(p, pp);
   
Line 874  pnode_printfuncprototype(struct parse *p, struct pnode
Line 1021  pnode_printfuncprototype(struct parse *p, struct pnode
         p->newln = 1;          p->newln = 1;
 }  }
   
 /*  /*
  * The <arg> element is more complicated than it should be because text   * The <arg> element is more complicated than it should be because text
  * nodes are treated like ".Ar foo", but non-text nodes need to be   * nodes are treated like ".Ar foo", but non-text nodes need to be
  * re-sent into the printer (i.e., without the preceding ".Ar").   * re-sent into the printer (i.e., without the preceding ".Ar").
Line 890  pnode_printarg(struct parse *p, struct pnode *pn)
Line 1037  pnode_printarg(struct parse *p, struct pnode *pn)
   
         isop = 1;          isop = 1;
         isrep = 0;          isrep = 0;
         TAILQ_FOREACH(ap, &pn->attrq, child)          TAILQ_FOREACH(ap, &pn->attrq, child)
                 if (ATTRKEY_CHOICE == ap->key &&                  if (ATTRKEY_CHOICE == ap->key &&
                         (ATTRVAL_PLAIN == ap->val ||                          (ATTRVAL_PLAIN == ap->val ||
                          ATTRVAL_REQ == ap->val))                           ATTRVAL_REQ == ap->val))
                         isop = 0;                          isop = 0;
                 else if (ATTRKEY_REP == ap->key &&                  else if (ATTRKEY_REP == ap->key &&
                         (ATTRVAL_REPEAT == ap->val))                          (ATTRVAL_REPEAT == ap->val))
Line 908  pnode_printarg(struct parse *p, struct pnode *pn)
Line 1055  pnode_printarg(struct parse *p, struct pnode *pn)
                 if (NODE_TEXT == pp->node) {                  if (NODE_TEXT == pp->node) {
                         pnode_printmopen(p);                          pnode_printmopen(p);
                         fputs("Ar", stdout);                          fputs("Ar", stdout);
                 }                  }
                 pnode_print(p, pp);                  pnode_print(p, pp);
                 if (NODE_TEXT == pp->node && isrep)                  if (NODE_TEXT == pp->node && isrep)
                         fputs("...", stdout);                          fputs("...", stdout);
         }          }
 }  }
Line 923  pnode_printgroup(struct parse *p, struct pnode *pn)
Line 1070  pnode_printgroup(struct parse *p, struct pnode *pn)
         int              isop, sv;          int              isop, sv;
   
         isop = 1;          isop = 1;
         TAILQ_FOREACH(ap, &pn->attrq, child)          TAILQ_FOREACH(ap, &pn->attrq, child)
                 if (ATTRKEY_CHOICE == ap->key &&                  if (ATTRKEY_CHOICE == ap->key &&
                         (ATTRVAL_PLAIN == ap->val ||                          (ATTRVAL_PLAIN == ap->val ||
                          ATTRVAL_REQ == ap->val)) {                           ATTRVAL_REQ == ap->val)) {
Line 931  pnode_printgroup(struct parse *p, struct pnode *pn)
Line 1078  pnode_printgroup(struct parse *p, struct pnode *pn)
                         break;                          break;
                 }                  }
   
         /*          /*
          * Make sure we're on a macro line.           * Make sure we're on a macro line.
          * This will prevent pnode_print() for putting us on a           * This will prevent pnode_print() for putting us on a
          * subsequent line.           * subsequent line.
          */           */
         sv = p->newln;          sv = p->newln;
         pnode_printmopen(p);          pnode_printmopen(p);
         if (isop)          if (isop)
                 fputs("Op", stdout);                  fputs("Op", stdout);
         else if (sv)          else if (sv)
                 fputs("No", stdout);                  fputs("No", stdout);
Line 975  pnode_printprologue(struct parse *p, struct pnode *pn)
Line 1122  pnode_printprologue(struct parse *p, struct pnode *pn)
         pp = NULL == p->root ? NULL :          pp = NULL == p->root ? NULL :
                 pnode_findfirst(p->root, NODE_REFMETA);                  pnode_findfirst(p->root, NODE_REFMETA);
   
           puts(".Dd $Mdocdate" "$");
         if (NULL != pp) {          if (NULL != pp) {
                 pnode_printrefmeta(p, pp);                  pnode_printrefmeta(p, pp);
                 pnode_unlink(pp);                  pnode_unlink(pp);
         } else {          } else
                 puts(".\\\" Supplying bogus prologue...");                  printf(".Dt %s 1\n",
                 puts(".Dd $Mdocdate" "$");                      pnode_getattr_raw(p->root, ATTRKEY_ID, "UNKNOWN"));
                 puts(".Dt UNKNOWN 1");          puts(".Os");
                 puts(".Os");  
           if (PARSE_EQN & p->flags) {
                   puts(".EQ");
                   puts("delim $$");
                   puts(".EN");
         }          }
 }  }
   
   /*
    * We can have multiple <term> elements within a <varlistentry>, which
    * we should comma-separate as list headers.
    */
 static void  static void
 pnode_printvarlistentry(struct parse *p, struct pnode *pn)  pnode_printvarlistentry(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
           int              first = 1;
   
         assert(p->newln);          assert(p->newln);
           fputs(".It", stdout);
           p->newln = 0;
   
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TERM == pp->node) {                  if (NODE_TERM == pp->node) {
                         assert(p->newln);                          if ( ! first)
                         fputs(".It", stdout);                                  putchar(',');
                         p->newln = 0;  
                         pnode_print(p, pp);                          pnode_print(p, pp);
                         pnode_unlink(pp);                          pnode_unlink(pp);
                         pnode_printmclose(p, 1);                          first = 0;
                         return;                  } else
                 }                          break;
   
         puts(".It");          putchar('\n');
         p->newln = 1;          p->newln = 1;
 }  }
   
Line 1032  pnode_printtable(struct parse *p, struct pnode *pn)
Line 1191  pnode_printtable(struct parse *p, struct pnode *pn)
         assert(p->newln);          assert(p->newln);
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TITLE == pp->node) {                  if (NODE_TITLE == pp->node) {
                         puts(".Pp");                          pnode_printpara(p, pp);
                         pnode_print(p, pp);                          pnode_print(p, pp);
                         pnode_unlink(pp);                          pnode_unlink(pp);
                 }                  }
Line 1056  pnode_printlist(struct parse *p, struct pnode *pn)
Line 1215  pnode_printlist(struct parse *p, struct pnode *pn)
         assert(p->newln);          assert(p->newln);
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TITLE == pp->node) {                  if (NODE_TITLE == pp->node) {
                         puts(".Pp");                          pnode_printpara(p, pp);
                         pnode_print(p, pp);                          pnode_print(p, pp);
                         pnode_unlink(pp);                          pnode_unlink(pp);
                 }                  }
Line 1065  pnode_printlist(struct parse *p, struct pnode *pn)
Line 1224  pnode_printlist(struct parse *p, struct pnode *pn)
         if (NODE_ORDEREDLIST == pn->node)          if (NODE_ORDEREDLIST == pn->node)
                 puts(".Bl -enum");                  puts(".Bl -enum");
         else          else
                 puts(".Bl -item");                  puts(".Bl -bullet");
   
         TAILQ_FOREACH(pp, &pn->childq, child) {          TAILQ_FOREACH(pp, &pn->childq, child) {
                 assert(p->newln);                  assert(p->newln);
Line 1085  pnode_printvariablelist(struct parse *p, struct pnode 
Line 1244  pnode_printvariablelist(struct parse *p, struct pnode 
         assert(p->newln);          assert(p->newln);
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TITLE == pp->node) {                  if (NODE_TITLE == pp->node) {
                         puts(".Pp");                          pnode_printpara(p, pp);
                         pnode_print(p, pp);                          pnode_print(p, pp);
                         pnode_unlink(pp);                          pnode_unlink(pp);
                 }                  }
Line 1115  static void
Line 1274  static void
 pnode_print(struct parse *p, struct pnode *pn)  pnode_print(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
           const char      *ccp;
         char            *cp;          char            *cp;
         int              last, sv;          int              last, sv;
   
Line 1124  pnode_print(struct parse *p, struct pnode *pn)
Line 1284  pnode_print(struct parse *p, struct pnode *pn)
         sv = p->newln;          sv = p->newln;
   
         switch (pn->node) {          switch (pn->node) {
         case (NODE_APPLICATION):          case NODE_APPLICATION:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Nm", stdout);                  fputs("Nm", stdout);
                 break;                  break;
         case (NODE_ANCHOR):          case NODE_ANCHOR:
                 /* Don't print anything! */                  /* Don't print anything! */
                 return;                  return;
         case (NODE_ARG):          case NODE_ARG:
                 pnode_printarg(p, pn);                  pnode_printarg(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_CITEREFENTRY):          case NODE_AUTHOR:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                   fputs("An", stdout);
                   break;
           case NODE_AUTHORGROUP:
                   assert(p->newln);
                   puts(".An -split");
                   break;
           case NODE_BOOKINFO:
                   assert(p->newln);
                   puts(".Sh NAME");
                   break;
           case NODE_CITEREFENTRY:
                   pnode_printmopen(p);
                 fputs("Xr", stdout);                  fputs("Xr", stdout);
                 pnode_printciterefentry(p, pn);                  pnode_printciterefentry(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_CODE):          case NODE_CODE:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Li", stdout);                  fputs("Li", stdout);
                 break;                  break;
         case (NODE_COMMAND):          case NODE_COMMAND:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Nm", stdout);                  fputs("Nm", stdout);
                 break;                  break;
         case (NODE_CONSTANT):          case NODE_CONSTANT:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Dv", stdout);                  fputs("Dv", stdout);
                 break;                  break;
         case (NODE_EMPHASIS):          case NODE_EDITOR:
                   puts("editor: ");
                 pnode_printmopen(p);                  pnode_printmopen(p);
                   fputs("An", stdout);
                   break;
           case NODE_EMPHASIS:
           case NODE_FIRSTTERM:
                   pnode_printmopen(p);
                 fputs("Em", stdout);                  fputs("Em", stdout);
                 break;                  break;
         case (NODE_ENVAR):          case NODE_ENVAR:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Ev", stdout);                  fputs("Ev", stdout);
                 break;                  break;
         case (NODE_FILENAME):          case NODE_FILENAME:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Pa", stdout);                  fputs("Pa", stdout);
                 break;                  break;
         case (NODE_FUNCTION):          case NODE_FUNCTION:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Fn", stdout);                  fputs("Fn", stdout);
                 break;                  break;
         case (NODE_FUNCPROTOTYPE):          case NODE_FUNCPROTOTYPE:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printfuncprototype(p, pn);                  pnode_printfuncprototype(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_FUNCSYNOPSISINFO):          case NODE_FUNCSYNOPSISINFO:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Fd", stdout);                  fputs("Fd", stdout);
                 break;                  break;
         case (NODE_ITEMIZEDLIST):          case NODE_INDEXTERM:
                   return;
           case NODE_INFORMALEQUATION:
                   if ( ! p->newln)
                           putchar('\n');
                   puts(".EQ");
                   p->newln = 0;
                   break;
           case NODE_INLINEEQUATION:
                   fputc('$', stdout);
                   p->newln = 0;
                   break;
           case NODE_ITEMIZEDLIST:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printlist(p, pn);                  pnode_printlist(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_GROUP):          case NODE_GROUP:
                 pnode_printgroup(p, pn);                  pnode_printgroup(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_LITERAL):          case NODE_LEGALNOTICE:
                   assert(p->newln);
                   puts(".Sh LEGAL NOTICE");
                   break;
           case NODE_LINK:
                   ccp = pnode_getattr_raw(pn, ATTRKEY_LINKEND, NULL);
                   if (NULL == ccp)
                           break;
                 pnode_printmopen(p);                  pnode_printmopen(p);
                   printf("Sx %s\n", ccp);
                   p->newln = 1;
                   return;
           case NODE_LITERAL:
                   pnode_printmopen(p);
                 fputs("Li", stdout);                  fputs("Li", stdout);
                 break;                  break;
         case (NODE_OPTION):          case NODE_LITERALLAYOUT:
                   assert(p->newln);
                   puts(".Bd -literal");
                   break;
           case NODE_MML_MFENCED:
                   pnode_printmathfenced(p, pn);
                   pnode_unlinksub(pn);
                   break;
           case NODE_MML_MROW:
           case NODE_MML_MI:
           case NODE_MML_MN:
           case NODE_MML_MO:
                   if (TAILQ_EMPTY(&pn->childq))
                           break;
                   fputs(" { ", stdout);
                   break;
           case NODE_MML_MFRAC:
           case NODE_MML_MSUB:
           case NODE_MML_MSUP:
                   pnode_printmath(p, pn);
                   pnode_unlinksub(pn);
                   break;
           case NODE_OPTION:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Fl", stdout);                  fputs("Fl", stdout);
                 break;                  break;
         case (NODE_ORDEREDLIST):          case NODE_ORDEREDLIST:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printlist(p, pn);                  pnode_printlist(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_PARA):          case NODE_PARA:
                 assert(p->newln);                  pnode_printpara(p, pn);
                 if (NULL != pn->parent &&  
                         NODE_LISTITEM == pn->parent->node)  
                         break;  
                 puts(".Pp");  
                 break;                  break;
         case (NODE_PARAMETER):          case NODE_PARAMETER:
                 /* Suppress non-text children... */                  /* Suppress non-text children... */
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Fa \"", stdout);                  fputs("Fa \"", stdout);
Line 1215  pnode_print(struct parse *p, struct pnode *pn)
Line 1435  pnode_print(struct parse *p, struct pnode *pn)
                 fputs("\"", stdout);                  fputs("\"", stdout);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_QUOTE):          case NODE_QUOTE:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Qo", stdout);                  fputs("Qo", stdout);
                 break;                  break;
         case (NODE_PROGRAMLISTING):          case NODE_PROGRAMLISTING:
                 /* FALLTHROUGH */          case NODE_SCREEN:
         case (NODE_SCREEN):  
                 assert(p->newln);                  assert(p->newln);
                 puts(".Bd -literal");                  printf(".Bd %s\n", ATTRVAL_MONOSPACED ==
                       pnode_getattr(pn, ATTRKEY_CLASS) ?
                       "-literal" : "-unfilled");
                 break;                  break;
         case (NODE_REFENTRYINFO):          case NODE_REFENTRYINFO:
                 /* Suppress. */                  /* Suppress. */
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_REFMETA):          case NODE_REFMETA:
                 abort();                  abort();
                 break;                  break;
         case (NODE_REFNAME):          case NODE_REFNAME:
                 /* Suppress non-text children... */                  /* Suppress non-text children... */
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Nm", stdout);                  fputs("Nm", stdout);
Line 1240  pnode_print(struct parse *p, struct pnode *pn)
Line 1461  pnode_print(struct parse *p, struct pnode *pn)
                 pnode_printmacrolinepart(p, pn);                  pnode_printmacrolinepart(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_REFNAMEDIV):          case NODE_REFNAMEDIV:
                 assert(p->newln);                  assert(p->newln);
                 puts(".Sh NAME");                  puts(".Sh NAME");
                 break;                  break;
         case (NODE_REFPURPOSE):          case NODE_REFPURPOSE:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Nd", stdout);                  fputs("Nd", stdout);
                 break;                  break;
         case (NODE_REFSYNOPSISDIV):          case NODE_REFSYNOPSISDIV:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printrefsynopsisdiv(p, pn);                  pnode_printrefsynopsisdiv(p, pn);
                 puts(".Sh SYNOPSIS");                  puts(".Sh SYNOPSIS");
                 break;                  break;
         case (NODE_REFSECT1):          case NODE_PREFACE:
                 /* FALLTHROUGH */          case NODE_SECTION:
         case (NODE_REFSECT2):          case NODE_NOTE:
                 /* FALLTHROUGH */          case NODE_TIP:
         case (NODE_REFSECT3):          case NODE_CAUTION:
                 /* FALLTHROUGH */          case NODE_WARNING:
         case (NODE_REFSECTION):  
                 /* FALLTHROUGH */  
         case (NODE_NOTE):  
                 /* FALLTHROUGH */  
         case (NODE_TIP):  
                 /* FALLTHROUGH */  
         case (NODE_CAUTION):  
                 /* FALLTHROUGH */  
         case (NODE_WARNING):  
                 assert(p->newln);                  assert(p->newln);
                 pnode_printrefsect(p, pn);                  pnode_printrefsect(p, pn);
                 break;                  break;
         case (NODE_REPLACEABLE):          case NODE_REPLACEABLE:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Ar", stdout);                  fputs("Ar", stdout);
                 break;                  break;
         case (NODE_SBR):          case NODE_SBR:
                 assert(p->newln);                  assert(p->newln);
                 puts(".br");                  puts(".br");
                 break;                  break;
         case (NODE_SGMLTAG):          case NODE_SGMLTAG:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Li", stdout);                  fputs("Li", stdout);
                 break;                  break;
         case (NODE_STRUCTNAME):          case NODE_STRUCTNAME:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Vt", stdout);                  fputs("Vt", stdout);
                 break;                  break;
         case (NODE_TABLE):          case NODE_TABLE:
                 /* FALLTHROUGH */          case NODE_INFORMALTABLE:
         case (NODE_INFORMALTABLE):  
                 assert(p->newln);                  assert(p->newln);
                 pnode_printtable(p, pn);                  pnode_printtable(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_TEXT):          case NODE_TEXT:
                 if (0 == p->newln)                  if (0 == p->newln)
                         putchar(' ');                          putchar(' ');
   
Line 1309  pnode_print(struct parse *p, struct pnode *pn)
Line 1520  pnode_print(struct parse *p, struct pnode *pn)
   
                 /*                  /*
                  * Output all characters, squeezing out whitespace                   * Output all characters, squeezing out whitespace
                  * between newlines.                   * between newlines.
                  * XXX: all whitespace, including tabs (?).                   * XXX: all whitespace, including tabs (?).
                  * Remember to escape control characters and escapes.                   * Remember to escape control characters and escapes.
                  */                   */
Line 1328  pnode_print(struct parse *p, struct pnode *pn)
Line 1539  pnode_print(struct parse *p, struct pnode *pn)
                 for (last = '\n'; '\0' != *cp; ) {                  for (last = '\n'; '\0' != *cp; ) {
                         if ('\n' == last) {                          if ('\n' == last) {
                                 /* Consume all whitespace. */                                  /* Consume all whitespace. */
                                 if (isspace((int)*cp)) {                                  if (isspace((unsigned char)*cp)) {
                                         while (isspace((int)*cp))                                          while (isspace((unsigned char)*cp))
                                                 cp++;                                                  cp++;
                                         continue;                                          continue;
                                 } else if ('\'' == *cp || '.' == *cp)                                  } else if ('\'' == *cp || '.' == *cp)
Line 1342  pnode_print(struct parse *p, struct pnode *pn)
Line 1553  pnode_print(struct parse *p, struct pnode *pn)
                 }                  }
                 p->newln = 0;                  p->newln = 0;
                 break;                  break;
         case (NODE_TYPE):          case NODE_TITLE:
                   if (pn->parent->node == NODE_BOOKINFO) {
                           pnode_printmopen(p);
                           fputs("Nd", stdout);
                   }
                   break;
           case NODE_TYPE:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Vt", stdout);                  fputs("Vt", stdout);
                 break;                  break;
         case (NODE_USERINPUT):          case NODE_USERINPUT:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Li", stdout);                  fputs("Li", stdout);
                 break;                  break;
         case (NODE_VARIABLELIST):          case NODE_VARIABLELIST:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printvariablelist(p, pn);                  pnode_printvariablelist(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_VARLISTENTRY):          case NODE_VARLISTENTRY:
                 assert(p->newln);                  assert(p->newln);
                 pnode_printvarlistentry(p, pn);                  pnode_printvarlistentry(p, pn);
                 break;                  break;
         case (NODE_VARNAME):          case NODE_VARNAME:
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Va", stdout);                  fputs("Va", stdout);
                 break;                  break;
Line 1371  pnode_print(struct parse *p, struct pnode *pn)
Line 1588  pnode_print(struct parse *p, struct pnode *pn)
                 pnode_print(p, pp);                  pnode_print(p, pp);
   
         switch (pn->node) {          switch (pn->node) {
         case (NODE_APPLICATION):          case NODE_INFORMALEQUATION:
         case (NODE_ARG):                  if ( ! p->newln)
         case (NODE_CITEREFENTRY):                          putchar('\n');
         case (NODE_CODE):                  puts(".EN");
         case (NODE_COMMAND):                  p->newln = 1;
         case (NODE_CONSTANT):                  break;
         case (NODE_EMPHASIS):          case NODE_INLINEEQUATION:
         case (NODE_ENVAR):                  fputs("$ ", stdout);
         case (NODE_FILENAME):                  p->newln = sv;
         case (NODE_FUNCTION):                  break;
         case (NODE_FUNCSYNOPSISINFO):          case NODE_MML_MROW:
         case (NODE_LITERAL):          case NODE_MML_MI:
         case (NODE_OPTION):          case NODE_MML_MN:
         case (NODE_PARAMETER):          case NODE_MML_MO:
         case (NODE_REPLACEABLE):                  if (TAILQ_EMPTY(&pn->childq))
         case (NODE_REFPURPOSE):                          break;
         case (NODE_SGMLTAG):                  fputs(" } ", stdout);
         case (NODE_STRUCTNAME):                  break;
         case (NODE_TEXT):          case NODE_APPLICATION:
         case (NODE_TYPE):          case NODE_ARG:
         case (NODE_USERINPUT):          case NODE_AUTHOR:
         case (NODE_VARNAME):          case NODE_CITEREFENTRY:
           case NODE_CODE:
           case NODE_COMMAND:
           case NODE_CONSTANT:
           case NODE_EDITOR:
           case NODE_EMPHASIS:
           case NODE_ENVAR:
           case NODE_FILENAME:
           case NODE_FIRSTTERM:
           case NODE_FUNCTION:
           case NODE_FUNCSYNOPSISINFO:
           case NODE_LITERAL:
           case NODE_OPTION:
           case NODE_PARAMETER:
           case NODE_REPLACEABLE:
           case NODE_REFPURPOSE:
           case NODE_SGMLTAG:
           case NODE_STRUCTNAME:
           case NODE_TEXT:
           case NODE_TYPE:
           case NODE_USERINPUT:
           case NODE_VARNAME:
                 pnode_printmclosepunct(p, pn, sv);                  pnode_printmclosepunct(p, pn, sv);
                 break;                  break;
         case (NODE_QUOTE):          case NODE_QUOTE:
                 pnode_printmclose(p, sv);                  pnode_printmclose(p, sv);
                 sv = p->newln;                  sv = p->newln;
                 pnode_printmopen(p);                  pnode_printmopen(p);
                 fputs("Qc", stdout);                  fputs("Qc", stdout);
                 pnode_printmclose(p, sv);                  pnode_printmclose(p, sv);
                 break;                  break;
         case (NODE_REFNAME):          case NODE_REFNAME:
                 /*                  /*
                  * If we're in the NAME macro and we have multiple                   * If we're in the NAME macro and we have multiple
                  * <refname> macros in sequence, then print out a                   * <refname> macros in sequence, then print out a
                  * trailing comma before the newline.                   * trailing comma before the newline.
                  */                   */
                 if (NULL != pn->parent &&                  if (NULL != pn->parent &&
                         NODE_REFNAMEDIV == pn->parent->node &&                          NODE_REFNAMEDIV == pn->parent->node &&
                         NULL != TAILQ_NEXT(pn, child) &&                          NULL != TAILQ_NEXT(pn, child) &&
                         NODE_REFNAME == TAILQ_NEXT(pn, child)->node)                          NODE_REFNAME == TAILQ_NEXT(pn, child)->node)
                         fputs(" ,", stdout);                          fputs(" ,", stdout);
                 pnode_printmclose(p, sv);                  pnode_printmclose(p, sv);
                 break;                  break;
         case (NODE_PROGRAMLISTING):          case NODE_PREFACE:
                 /* FALLTHROUGH */          case NODE_SECTION:
         case (NODE_SCREEN):          case NODE_NOTE:
           case NODE_TIP:
           case NODE_CAUTION:
           case NODE_WARNING:
                   p->level--;
                   break;
           case NODE_LITERALLAYOUT:
           case NODE_PROGRAMLISTING:
           case NODE_SCREEN:
                 assert(p->newln);                  assert(p->newln);
                 puts(".Ed");                  puts(".Ed");
                 p->newln = 1;                  p->newln = 1;
                 break;                  break;
           case NODE_TITLE:
                   if (pn->parent->node == NODE_BOOKINFO) {
                           pnode_printmclose(p, 1);
                           puts(".Sh AUTHORS");
                   }
                   break;
         default:          default:
                 break;                  break;
         }          }
Line 1432  pnode_print(struct parse *p, struct pnode *pn)
Line 1684  pnode_print(struct parse *p, struct pnode *pn)
  * Invoke the parser context with each buffer fill.   * Invoke the parser context with each buffer fill.
  */   */
 static int  static int
 readfile(XML_Parser xp, int fd,  readfile(XML_Parser xp, int fd,
         char *b, size_t bsz, const char *fn)          char *b, size_t bsz, const char *fn)
 {  {
         struct parse     p;          struct parse     p;
Line 1453  readfile(XML_Parser xp, int fd, 
Line 1705  readfile(XML_Parser xp, int fd, 
                 if (0 == (rc = XML_Parse(xp, b, ssz, 0 == ssz)))                  if (0 == (rc = XML_Parse(xp, b, ssz, 0 == ssz)))
                         fprintf(stderr, "%s:%zu:%zu: %s\n", fn,                          fprintf(stderr, "%s:%zu:%zu: %s\n", fn,
                                 XML_GetCurrentLineNumber(xp),                                  XML_GetCurrentLineNumber(xp),
                                 XML_GetCurrentColumnNumber(xp),                                  XML_GetCurrentColumnNumber(xp),
                                 XML_ErrorString                                  XML_ErrorString
                                 (XML_GetErrorCode(xp)));                                  (XML_GetErrorCode(xp)));
                 else if ( ! p.stop && ssz > 0)                  else if ( ! p.stop && ssz > 0)
                         continue;                          continue;
                 /*                  /*
                  * Exit when we've read all or errors have occured                   * Exit when we've read all or errors have occured
                  * during the parse sequence.                   * during the parse sequence.
                  */                   */
Line 1499  main(int argc, char *argv[])
Line 1751  main(int argc, char *argv[])
   
         while (-1 != (ch = getopt(argc, argv, "W")))          while (-1 != (ch = getopt(argc, argv, "W")))
                 switch (ch) {                  switch (ch) {
                 case ('W'):                  case 'W':
                         warn = 1;                          warn = 1;
                         break;                          break;
                 default:                  default:
Line 1509  main(int argc, char *argv[])
Line 1761  main(int argc, char *argv[])
         argc -= optind;          argc -= optind;
         argv += optind;          argv += optind;
   
         if (argc > 1)          if (argc > 1) {
                 return(EXIT_FAILURE);                  fprintf(stderr, "%s: Too many arguments\n", argv[1]);
         else if (argc > 0)                  goto usage;
           } else if (argc > 0)
                 fname = argv[0];                  fname = argv[0];
   
         /* Read from stdin or a file. */          /* Read from stdin or a file. */
         fd = 0 == strcmp(fname, "-") ?          fd = 0 == strcmp(fname, "-") ?
                 STDIN_FILENO : open(fname, O_RDONLY, 0);                  STDIN_FILENO : open(fname, O_RDONLY, 0);
   
         /*          /*
Line 1540  main(int argc, char *argv[])
Line 1793  main(int argc, char *argv[])
         return(rc ? EXIT_SUCCESS : EXIT_FAILURE);          return(rc ? EXIT_SUCCESS : EXIT_FAILURE);
   
 usage:  usage:
         fprintf(stderr, "usage: %s [-W]\n", progname);          fprintf(stderr, "usage: %s [-W] [input_filename]\n", progname);
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
 }  }
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.62
CVSweb