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

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

version 1.8, 2014/03/28 12:11:18 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 26 
Line 27 
 #include <string.h>  #include <string.h>
 #include <unistd.h>  #include <unistd.h>
   
 /*  #include "extern.h"
  * All recognised node types.  
  */  
 enum    nodeid {  
         NODE_ROOT = 0, /* Must comes first. */  
         /* Alpha-ordered hereafter. */  
         NODE_ARG,  
         NODE_CITEREFENTRY,  
         NODE_CMDSYNOPSIS,  
         NODE_CODE,  
         NODE_COMMAND,  
         NODE_FUNCDEF,  
         NODE_FUNCPROTOTYPE,  
         NODE_FUNCSYNOPSIS,  
         NODE_FUNCSYNOPSISINFO,  
         NODE_FUNCTION,  
         NODE_MANVOLNUM,  
         NODE_OPTION,  
         NODE_PARA,  
         NODE_PARAMDEF,  
         NODE_PARAMETER,  
         NODE_PROGRAMLISTING,  
         NODE_REFCLASS,  
         NODE_REFDESCRIPTOR,  
         NODE_REFENTRY,  
         NODE_REFENTRYTITLE,  
         NODE_REFMETA,  
         NODE_REFMISCINFO,  
         NODE_REFNAME,  
         NODE_REFNAMEDIV,  
         NODE_REFPURPOSE,  
         NODE_REFSECT1,  
         NODE_REFSYNOPSISDIV,  
         NODE_STRUCTNAME,  
         NODE_SYNOPSIS,  
         NODE_TEXT,  
         NODE_TITLE,  
         NODE__MAX  
 };  
   
 /*  /*
  * Global parse state.   * Global parse state.
  * Keep this as simple and small as possible.   * Keep this as simple and small as possible.
  */   */
 struct  parse {  struct  parse {
           XML_Parser       xml;
         enum nodeid      node; /* current (NODE_ROOT if pre-tree) */          enum nodeid      node; /* current (NODE_ROOT if pre-tree) */
           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 */
 };  };
   
 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);
   TAILQ_HEAD(pattrq, pattr);
   
   struct  pattr {
           enum attrkey     key;
           enum attrval     val;
           char            *rawval;
           TAILQ_ENTRY(pattr) child;
   };
   
 struct  pnode {  struct  pnode {
         enum nodeid      node; /* node type */          enum nodeid      node; /* node type */
         char            *b; /* binary data buffer */          char            *b; /* binary data buffer */
           char            *real; /* store for "b" */
         size_t           bsz; /* data buffer size */          size_t           bsz; /* data buffer size */
         struct pnode    *parent; /* parent (or NULL if top) */          struct pnode    *parent; /* parent (or NULL if top) */
         struct pnodeq    childq; /* queue of children */          struct pnodeq    childq; /* queue of children */
           struct pattrq    attrq; /* attributes of node */
         TAILQ_ENTRY(pnode) child;          TAILQ_ENTRY(pnode) child;
 };  };
   
 static  const struct node nodes[NODE__MAX] = {  static  const char *attrkeys[ATTRKEY__MAX] = {
         { NULL, 0 },          "choice",
         { "arg", 0 },          "class",
         { "citerefentry", NODE_IGNTEXT },          "close",
         { "cmdsynopsis", NODE_IGNTEXT },          "id",
         { "code", 0 },          "linkend",
         { "command", 0 },          "open",
         { "funcdef", 0 },          "rep"
         { "funcprototype", NODE_IGNTEXT },  
         { "funcsynopsis", NODE_IGNTEXT },  
         { "funcsynopsisinfo", 0 },  
         { "function", 0 },  
         { "manvolnum", 0 },  
         { "option", 0 },  
         { "para", 0 },  
         { "paramdef", 0 },  
         { "parameter", 0 },  
         { "programlisting", 0 },  
         { "refclass", NODE_IGNTEXT },  
         { "refdescriptor", NODE_IGNTEXT },  
         { "refentry", NODE_IGNTEXT },  
         { "refentrytitle", 0 },  
         { "refmeta", NODE_IGNTEXT },  
         { "refmiscinfo", NODE_IGNTEXT },  
         { "refname", 0 },  
         { "refnamediv", NODE_IGNTEXT },  
         { "refpurpose", 0 },  
         { "refsect1", 0 },  
         { "refsynopsisdiv", NODE_IGNTEXT },  
         { "structname", 0 },  
         { "synopsis", 0 },  
         { NULL, 0 },  
         { "title", 0 },  
 };  };
   
 /*  static  const char *attrvals[ATTRVAL__MAX] = {
  * Look up whether "parent" is a valid parent for "node".          "monospaced",
  * This is sucked directly from the DocBook specification: look at the          "norepeat",
  * "children" and "parent" sections of each node.          "opt",
  */          "plain",
 static int          "repeat",
 isparent(enum nodeid node, enum nodeid parent)          "req"
 {  };
   
         switch (node) {  static  const struct node nodes[] = {
         case (NODE_ROOT):          { "acronym",            NODE_ACRONYM },
                 return(0);          { "affiliation",        NODE_AFFILIATION },
         case (NODE_ARG):          { "anchor",             NODE_ANCHOR },
                 switch (parent) {          { "application",        NODE_APPLICATION },
                 case (NODE_ARG):          { "arg",                NODE_ARG },
                 case (NODE_CMDSYNOPSIS):          { "author",             NODE_AUTHOR },
                         return(1);          { "authorgroup",        NODE_AUTHORGROUP },
                 default:          { "blockquote",         NODE_BLOCKQUOTE },
                         break;          { "book",               NODE_BOOK },
                 }          { "bookinfo",           NODE_BOOKINFO },
                 return(0);          { "caution",            NODE_CAUTION },
         case (NODE_CITEREFENTRY):          { "chapter",            NODE_SECTION },
                 switch (parent) {          { "citerefentry",       NODE_CITEREFENTRY },
                 case (NODE_FUNCSYNOPSISINFO):          { "citetitle",          NODE_CITETITLE },
                 case (NODE_PARA):          { "cmdsynopsis",        NODE_CMDSYNOPSIS },
                 case (NODE_PROGRAMLISTING):          { "code",               NODE_CODE },
                 case (NODE_REFDESCRIPTOR):          { "colspec",            NODE_COLSPEC },
                 case (NODE_REFENTRYTITLE):          { "command",            NODE_COMMAND },
                 case (NODE_REFNAME):          { "constant",           NODE_CONSTANT },
                 case (NODE_REFPURPOSE):          { "copyright",          NODE_COPYRIGHT },
                 case (NODE_SYNOPSIS):          { "date",               NODE_DATE },
                 case (NODE_TITLE):          { "editor",             NODE_EDITOR },
                         return(1);          { "emphasis",           NODE_EMPHASIS },
                 default:          { "entry",              NODE_ENTRY },
                         break;          { "envar",              NODE_ENVAR },
                 }          { "fieldsynopsis",      NODE_FIELDSYNOPSIS },
                 return(0);          { "filename",           NODE_FILENAME },
         case (NODE_CMDSYNOPSIS):          { "firstname",          NODE_FIRSTNAME },
                 switch (parent) {          { "firstterm",          NODE_FIRSTTERM },
                 case (NODE_PARA):          { "footnote",           NODE_FOOTNOTE },
                 case (NODE_REFSECT1):          { "funcdef",            NODE_FUNCDEF },
                 case (NODE_REFSYNOPSISDIV):          { "funcprototype",      NODE_FUNCPROTOTYPE },
                         return(1);          { "funcsynopsis",       NODE_FUNCSYNOPSIS },
                 default:          { "funcsynopsisinfo",   NODE_FUNCSYNOPSISINFO },
                         break;          { "function",           NODE_FUNCTION },
                 }          { "glossterm",          NODE_GLOSSTERM },
                 return(0);          { "group",              NODE_GROUP },
         case (NODE_CODE):          { "holder",             NODE_HOLDER },
                 switch (parent) {          { "index",              NODE_INDEX },
                 case (NODE_FUNCSYNOPSISINFO):          { "indexterm",          NODE_INDEXTERM },
                 case (NODE_PARA):          { "info",               NODE_INFO },
                 case (NODE_PROGRAMLISTING):          { "informalequation",   NODE_INFORMALEQUATION },
                 case (NODE_REFDESCRIPTOR):          { "informaltable",      NODE_INFORMALTABLE },
                 case (NODE_REFENTRYTITLE):          { "inlineequation",     NODE_INLINEEQUATION },
                 case (NODE_REFNAME):          { "itemizedlist",       NODE_ITEMIZEDLIST },
                 case (NODE_REFPURPOSE):          { "keysym",             NODE_KEYSYM },
                 case (NODE_SYNOPSIS):          { "legalnotice",        NODE_LEGALNOTICE },
                 case (NODE_TITLE):          { "link",               NODE_LINK },
                         return(1);          { "listitem",           NODE_LISTITEM },
                 default:          { "literal",            NODE_LITERAL },
                         break;          { "literallayout",      NODE_LITERALLAYOUT },
                 }          { "manvolnum",          NODE_MANVOLNUM },
                 return(0);          { "member",             NODE_MEMBER },
         case (NODE_COMMAND):          { "mml:math",           NODE_MML_MATH },
                 switch (parent) {          { "mml:mfenced",        NODE_MML_MFENCED },
                 case (NODE_CMDSYNOPSIS):          { "mml:mfrac",          NODE_MML_MFRAC },
                 case (NODE_FUNCSYNOPSISINFO):          { "mml:mi",             NODE_MML_MI },
                 case (NODE_PARA):          { "mml:mn",             NODE_MML_MN },
                 case (NODE_PROGRAMLISTING):          { "mml:mo",             NODE_MML_MO },
                 case (NODE_REFDESCRIPTOR):          { "mml:mrow",           NODE_MML_MROW },
                 case (NODE_REFENTRYTITLE):          { "mml:msub",           NODE_MML_MSUB },
                 case (NODE_REFNAME):          { "mml:msup",           NODE_MML_MSUP },
                 case (NODE_REFPURPOSE):          { "modifier",           NODE_MODIFIER },
                 case (NODE_SYNOPSIS):          { "note",               NODE_NOTE },
                 case (NODE_TITLE):          { "option",             NODE_OPTION },
                         return(1);          { "orderedlist",        NODE_ORDEREDLIST },
                 default:          { "orgname",            NODE_ORGNAME },
                         break;          { "othername",          NODE_OTHERNAME },
                 }          { "para",               NODE_PARA },
                 return(0);          { "paramdef",           NODE_PARAMDEF },
         case (NODE_FUNCDEF):          { "parameter",          NODE_PARAMETER },
                 return(NODE_FUNCPROTOTYPE == parent);          { "part",               NODE_SECTION },
         case (NODE_FUNCPROTOTYPE):          { "phrase",             NODE_PHRASE },
                 return(NODE_FUNCSYNOPSIS == parent);          { "preface",            NODE_PREFACE },
         case (NODE_FUNCSYNOPSIS):          { "primary",            NODE_PRIMARY },
                 switch (parent) {          { "programlisting",     NODE_PROGRAMLISTING },
                 case (NODE_PARA):          { "prompt",             NODE_PROMPT },
                 case (NODE_REFSECT1):          { "quote",              NODE_QUOTE },
                 case (NODE_REFSYNOPSISDIV):          { "refclass",           NODE_REFCLASS },
                         return(1);          { "refdescriptor",      NODE_REFDESCRIPTOR },
                 default:          { "refentry",           NODE_REFENTRY },
                         break;          { "refentryinfo",       NODE_REFENTRYINFO },
                 }          { "refentrytitle",      NODE_REFENTRYTITLE },
                 return(0);          { "refmeta",            NODE_REFMETA },
         case (NODE_FUNCSYNOPSISINFO):          { "refmetainfo",        NODE_REFMETAINFO },
                 return(NODE_FUNCSYNOPSIS == parent);          { "refmiscinfo",        NODE_REFMISCINFO },
         case (NODE_FUNCTION):          { "refname",            NODE_REFNAME },
                 switch (parent) {          { "refnamediv",         NODE_REFNAMEDIV },
                 case (NODE_CODE):          { "refpurpose",         NODE_REFPURPOSE },
                 case (NODE_FUNCDEF):          { "refsect1",           NODE_SECTION },
                 case (NODE_FUNCSYNOPSISINFO):          { "refsect2",           NODE_SECTION },
                 case (NODE_PARA):          { "refsect3",           NODE_SECTION },
                 case (NODE_PROGRAMLISTING):          { "refsection",         NODE_SECTION },
                 case (NODE_REFDESCRIPTOR):          { "refsynopsisdiv",     NODE_REFSYNOPSISDIV },
                 case (NODE_REFENTRYTITLE):          { "releaseinfo",        NODE_RELEASEINFO },
                 case (NODE_REFNAME):          { "replaceable",        NODE_REPLACEABLE },
                 case (NODE_REFPURPOSE):          { "row",                NODE_ROW },
                 case (NODE_SYNOPSIS):          { "sbr",                NODE_SBR },
                 case (NODE_TITLE):          { "screen",             NODE_SCREEN },
                         return(1);          { "secondary",          NODE_SECONDARY },
                 default:          { "sect1",              NODE_SECTION },
                         break;          { "sect2",              NODE_SECTION },
                 }          { "section",            NODE_SECTION },
                 return(0);          { "sgmltag",            NODE_SGMLTAG },
         case (NODE_MANVOLNUM):          { "simplelist",         NODE_SIMPLELIST },
                 switch (parent) {          { "spanspec",           NODE_SPANSPEC },
                 case (NODE_CITEREFENTRY):          { "structname",         NODE_STRUCTNAME },
                 case (NODE_REFMETA):          { "subtitle",           NODE_SUBTITLE },
                         return(1);          { "surname",            NODE_SURNAME },
                 default:          { "synopsis",           NODE_SYNOPSIS },
                         break;          { "table",              NODE_TABLE },
                 }          { "tbody",              NODE_TBODY },
                 return(0);          { "term",               NODE_TERM },
         case (NODE_OPTION):          { "tfoot",              NODE_TFOOT },
                 switch (parent) {          { "tgroup",             NODE_TGROUP },
                 case (NODE_ARG):          { "thead",              NODE_THEAD },
                 case (NODE_FUNCSYNOPSISINFO):          { "tip",                NODE_TIP },
                 case (NODE_PARA):          { "title",              NODE_TITLE },
                 case (NODE_PROGRAMLISTING):          { "trademark",          NODE_TRADEMARK },
                 case (NODE_REFDESCRIPTOR):          { "type",               NODE_TYPE },
                 case (NODE_REFENTRYTITLE):          { "ulink",              NODE_ULINK },
                 case (NODE_REFNAME):          { "userinput",          NODE_USERINPUT },
                 case (NODE_REFPURPOSE):          { "variablelist",       NODE_VARIABLELIST },
                 case (NODE_SYNOPSIS):          { "varlistentry",       NODE_VARLISTENTRY },
                 case (NODE_TITLE):          { "varname",            NODE_VARNAME },
                         return(1);          { "warning",            NODE_WARNING },
                 default:          { "wordasword",         NODE_WORDASWORD },
                         break;          { "year",               NODE_YEAR },
                 }          { NULL,                 NODE__MAX }
                 return(0);  };
         case (NODE_PARA):  
                 switch (parent) {  
                 case (NODE_REFSECT1):  
                 case (NODE_REFSYNOPSISDIV):  
                         return(1);  
                 default:  
                         break;  
                 }  
                 return(0);  
         case (NODE_PARAMDEF):  
                 return(NODE_FUNCPROTOTYPE == parent);  
         case (NODE_PARAMETER):  
                 switch (parent) {  
                 case (NODE_CODE):  
                 case (NODE_FUNCSYNOPSISINFO):  
                 case (NODE_PARA):  
                 case (NODE_PARAMDEF):  
                 case (NODE_PROGRAMLISTING):  
                 case (NODE_REFDESCRIPTOR):  
                 case (NODE_REFENTRYTITLE):  
                 case (NODE_REFNAME):  
                 case (NODE_REFPURPOSE):  
                 case (NODE_SYNOPSIS):  
                 case (NODE_TITLE):  
                         return(1);  
                 default:  
                         break;  
                 }  
                 return(0);  
         case (NODE_PROGRAMLISTING):  
                 switch (parent) {  
                 case (NODE_PARA):  
                 case (NODE_REFSECT1):  
                 case (NODE_REFSYNOPSISDIV):  
                         return(1);  
                 default:  
                         break;  
                 }  
                 return(0);  
         case (NODE_REFCLASS):  
                 return(parent == NODE_REFNAMEDIV);  
         case (NODE_REFDESCRIPTOR):  
                 return(parent == NODE_REFNAMEDIV);  
         case (NODE_REFENTRY):  
                 return(parent == NODE_ROOT);  
         case (NODE_REFENTRYTITLE):  
                 switch (parent) {  
                 case (NODE_CITEREFENTRY):  
                 case (NODE_REFMETA):  
                         return(1);  
                 default:  
                         break;  
                 }  
         case (NODE_REFMETA):  
                 return(parent == NODE_REFENTRY);  
         case (NODE_REFMISCINFO):  
                 return(parent == NODE_REFMETA);  
         case (NODE_REFNAME):  
                 return(parent == NODE_REFNAMEDIV);  
         case (NODE_REFNAMEDIV):  
                 return(parent == NODE_REFENTRY);  
         case (NODE_REFPURPOSE):  
                 return(parent == NODE_REFNAMEDIV);  
         case (NODE_REFSECT1):  
                 return(parent == NODE_REFENTRY);  
         case (NODE_REFSYNOPSISDIV):  
                 return(parent == NODE_REFENTRY);  
         case (NODE_STRUCTNAME):  
                 switch (parent) {  
                 case (NODE_CODE):  
                 case (NODE_FUNCSYNOPSISINFO):  
                 case (NODE_FUNCTION):  
                 case (NODE_OPTION):  
                 case (NODE_PARA):  
                 case (NODE_PARAMETER):  
                 case (NODE_PROGRAMLISTING):  
                 case (NODE_REFDESCRIPTOR):  
                 case (NODE_REFENTRYTITLE):  
                 case (NODE_REFNAME):  
                 case (NODE_REFPURPOSE):  
                 case (NODE_SYNOPSIS):  
                 case (NODE_TITLE):  
                         return(1);  
                 default:  
                         break;  
                 }  
                 return(0);  
         case (NODE_SYNOPSIS):  
                 switch (parent) {  
                 case (NODE_REFSYNOPSISDIV):  
                 case (NODE_REFSECT1):  
                         return(1);  
                 default:  
                         break;  
                 }  
                 return(0);  
         case (NODE_TITLE):  
                 switch (parent) {  
                 case (NODE_REFSECT1):  
                 case (NODE_REFSYNOPSISDIV):  
                         return(1);  
                 default:  
                         break;  
                 }  
                 return(0);  
         case (NODE_TEXT):  
                 return(1);  
         case (NODE__MAX):  
                 break;  
         }  
   
         abort();  static  int warn = 0;
         return(0);  
 }  
   
   static void
   pnode_print(struct parse *p, struct pnode *pn);
   
 /*  /*
  * Process a stream of characters.   * Process a stream of characters.
  * We store text as nodes in and of themselves.   * We store text as nodes in and of themselves.
Line 404  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?
          * If we're not processing text right now, then create a text           * If we're not processing text right now, then create a text
          * node for doing so.           * node for doing so.
          * However, don't do so unless we have some non-whitespace to           * However, don't do so unless we have some non-whitespace to
          * process!           * process: strip out all leading whitespace to be sure.
          */           */
         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;
                   p += i;
                   sz -= i;
                 dat = calloc(1, sizeof(struct pnode));                  dat = calloc(1, sizeof(struct pnode));
                 if (NULL == dat) {                  if (NULL == dat) {
                         perror(NULL);                          perror(NULL);
Line 431  xml_char(void *arg, const XML_Char *p, int sz)
Line 274  xml_char(void *arg, const XML_Char *p, int sz)
                 dat->node = ps->node = NODE_TEXT;                  dat->node = ps->node = NODE_TEXT;
                 dat->parent = ps->cur;                  dat->parent = ps->cur;
                 TAILQ_INIT(&dat->childq);                  TAILQ_INIT(&dat->childq);
                   TAILQ_INIT(&dat->attrq);
                 TAILQ_INSERT_TAIL(&ps->cur->childq, dat, child);                  TAILQ_INSERT_TAIL(&ps->cur->childq, dat, child);
                 ps->cur = dat;                  ps->cur = dat;
                 assert(NULL != ps->root);                  assert(NULL != ps->root);
   
         }          }
   
         /* 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 447  xml_char(void *arg, const XML_Char *p, int sz)
Line 290  xml_char(void *arg, const XML_Char *p, int sz)
         }          }
         memcpy(ps->cur->b + ps->cur->bsz, p, sz);          memcpy(ps->cur->b + ps->cur->bsz, p, sz);
         ps->cur->bsz += (size_t)sz;          ps->cur->bsz += (size_t)sz;
           ps->cur->real = ps->cur->b;
 }  }
   
   static void
   pnode_trim(struct pnode *pn)
   {
   
           assert(NODE_TEXT == pn->node);
           for ( ; pn->bsz > 0; pn->bsz--)
                   if ( ! isspace((unsigned char)pn->b[pn->bsz - 1]))
                           break;
   }
   
 /*  /*
  * Begin an element.   * Begin an element.
  * First, look for the element.   * First, look for the element.
Line 466  xml_char(void *arg, const XML_Char *p, int sz)
Line 320  xml_char(void *arg, const XML_Char *p, int sz)
 static void  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;
         struct pnode    *dat;          enum attrkey      key;
           enum attrval      val;
           struct pnode     *dat;
           struct pattr     *pattr;
           const XML_Char  **att;
   
         if (ps->stop)          /* FIXME: find a better way to ditch other namespaces. */
           if (ps->stop || 0 == strcmp(name, "xi:include"))
                 return;                  return;
   
         /* Close out text node, if applicable... */          /* Close out text node, if applicable... */
         if (NODE_TEXT == ps->node) {          if (NODE_TEXT == ps->node) {
                 assert(NULL != ps->cur);                  assert(NULL != ps->cur);
                   pnode_trim(ps->cur);
                 ps->cur = ps->cur->parent;                  ps->cur = ps->cur->parent;
                 assert(NULL != ps->cur);                  assert(NULL != ps->cur);
                 ps->node = ps->cur->node;                  ps->node = ps->cur->node;
         }          }
   
         for (node = 0; node < NODE__MAX; node++)          for (node = nodes; NULL != node->name; node++)
                 if (NULL == nodes[node].name)                  if (0 == strcmp(node->name, name))
                         continue;  
                 else if (0 == strcmp(nodes[node].name, name))  
                         break;                          break;
   
         /* FIXME: do more with these error messages... */          if (NULL == node->name) {
         if (NODE__MAX == node && NODE_ROOT == ps->node) {                  if (NODE_ROOT == ps->node)
                 fprintf(stderr, "%s: ignoring node\n", name);                          return;
                 return;                  fprintf(stderr, "%s:%zu:%zu: unknown node \"%s\"\n",
         } else if (NODE__MAX == node) {                          ps->fname, XML_GetCurrentLineNumber(ps->xml),
                 fprintf(stderr, "%s: unknown node\n", name);                          XML_GetCurrentColumnNumber(ps->xml), name);
                 ps->stop = 1;                  ps->stop = 1;
                 return;                  return;
         } else if (NODE_ROOT == ps->node && NULL != ps->root) {          } else if (NODE_ROOT == ps->node && NULL != ps->root) {
                 fprintf(stderr, "%s: reentering?\n", name);                  fprintf(stderr, "%s:%zu:%zu: multiple refentries\n",
                           ps->fname, XML_GetCurrentLineNumber(ps->xml),
                           XML_GetCurrentColumnNumber(ps->xml));
                 ps->stop = 1;                  ps->stop = 1;
                 return;                  return;
         } else if (NODE_ROOT == ps->node && NODE_REFENTRY != node) {  
                 fprintf(stderr, "%s: known node w/o context\n", name);  
                 return;  
         } else if ( ! isparent(node, ps->node)) {  
                 fprintf(stderr, "%s: bad parent\n", 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);
   
         if (NULL != ps->cur)          if (NULL != ps->cur)
                 TAILQ_INSERT_TAIL(&ps->cur->childq, dat, child);                  TAILQ_INSERT_TAIL(&ps->cur->childq, dat, child);
Line 523  xml_elem_start(void *arg, const XML_Char *name, const 
Line 380  xml_elem_start(void *arg, const XML_Char *name, const 
         ps->cur = dat;          ps->cur = dat;
         if (NULL == ps->root)          if (NULL == ps->root)
                 ps->root = dat;                  ps->root = dat;
   
           /*
            * Process attributes.
            */
           for (att = atts; NULL != *att; att += 2) {
                   for (key = 0; key < ATTRKEY__MAX; key++)
                           if (0 == strcmp(*att, attrkeys[key]))
                                   break;
                   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;
                   }
                   for (val = 0; val < ATTRVAL__MAX; val++)
                           if (0 == strcmp(*(att + 1), attrvals[val]))
                                   break;
                   pattr = calloc(1, sizeof(struct pattr));
                   pattr->key = key;
                   pattr->val = val;
                   if (ATTRVAL__MAX == val)
                           pattr->rawval = strdup(*(att + 1));
                   TAILQ_INSERT_TAIL(&dat->attrq, pattr, child);
           }
   
 }  }
   
 /*  /*
Line 535  xml_elem_end(void *arg, const XML_Char *name)
Line 421  xml_elem_end(void *arg, const XML_Char *name)
 {  {
         struct parse    *ps = arg;          struct parse    *ps = arg;
   
           /* FIXME: find a better way to ditch other namespaces. */
         if (ps->stop || NODE_ROOT == ps->node)          if (ps->stop || NODE_ROOT == ps->node)
                 return;                  return;
           else if (0 == strcmp(name, "xi:include"))
                   return;
   
         /* Close out text node, if applicable... */          /* Close out text node, if applicable... */
         if (NODE_TEXT == ps->node) {          if (NODE_TEXT == ps->node) {
                 assert(NULL != ps->cur);                  assert(NULL != ps->cur);
                   pnode_trim(ps->cur);
                 ps->cur = ps->cur->parent;                  ps->cur = ps->cur->parent;
                 assert(NULL != ps->cur);                  assert(NULL != ps->cur);
                 ps->node = ps->cur->node;                  ps->node = ps->cur->node;
Line 559  static void
Line 449  static void
 pnode_free(struct pnode *pn)  pnode_free(struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
           struct pattr    *ap;
   
         if (NULL == pn)          if (NULL == pn)
                 return;                  return;
Line 568  pnode_free(struct pnode *pn)
Line 459  pnode_free(struct pnode *pn)
                 pnode_free(pp);                  pnode_free(pp);
         }          }
   
         free(pn->b);          while (NULL != (ap = TAILQ_FIRST(&pn->attrq))) {
                   TAILQ_REMOVE(&pn->attrq, ap, child);
                   free(ap->rawval);
                   free(ap);
           }
   
           free(pn->real);
         free(pn);          free(pn);
 }  }
   
Line 596  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 608  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 645  bufappend_r(struct parse *p, struct pnode *pn)
Line 573  bufappend_r(struct parse *p, struct pnode *pn)
 }  }
   
 /*  /*
    * Recursively search and return the first instance of "node".
    */
   static struct pnode *
   pnode_findfirst(struct pnode *pn, enum nodeid node)
   {
           struct pnode    *pp, *res;
   
           res = NULL;
           TAILQ_FOREACH(pp, &pn->childq, child) {
                   res = pp->node == node ? pp :
                           pnode_findfirst(pp, node);
                   if (NULL != res)
                           break;
           }
   
           return(res);
   }
   
   #define MACROLINE_NORM  0
   #define MACROLINE_UPPER 1
   #define MACROLINE_NOWS 2
   /*
  * Recursively print text presumably on a macro line.   * Recursively print text presumably on a macro line.
  * Convert all whitespace to regular spaces.   * Convert all whitespace to regular spaces.
  */   */
 static void  static void
 pnode_printmacrolinepart(struct parse *p, struct pnode *pn)  pnode_printmacrolinetext(struct parse *p, struct pnode *pn, int fl)
 {  {
         char            *cp;          char            *cp;
   
           if (0 == p->newln && ! (MACROLINE_NOWS & fl))
                   putchar(' ');
   
         bufclear(p);          bufclear(p);
         bufappend_r(p, pn);          bufappend_r(p, pn);
   
         /* 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);
                 putchar(*cp);                  if (MACROLINE_UPPER & fl)
                           putchar(toupper((unsigned char)*cp));
                   else
                           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');
         }          }
 }  }
   
   static void
   pnode_printmacrolinepart(struct parse *p, struct pnode *pn)
   {
   
           pnode_printmacrolinetext(p, pn, 0);
   }
   
 /*  /*
  * Just pnode_printmacrolinepart() but with a newline.   * Just pnode_printmacrolinepart() but with a newline.
  * If no text, just the newline.   * If no text, just the newline.
Line 690  static void
Line 653  static void
 pnode_printmacroline(struct parse *p, struct pnode *pn)  pnode_printmacroline(struct parse *p, struct pnode *pn)
 {  {
   
         pnode_printmacrolinepart(p, pn);          assert(0 == p->newln);
           pnode_printmacrolinetext(p, pn, 0);
         putchar('\n');          putchar('\n');
           p->newln = 1;
 }  }
   
   static void
   pnode_printmopen(struct parse *p)
   {
           if (p->newln) {
                   putchar('.');
                   p->newln = 0;
           } else
                   putchar(' ');
   }
   
   static void
   pnode_printmclose(struct parse *p, int sv)
   {
   
           if (sv && ! p->newln) {
                   putchar('\n');
                   p->newln = 1;
           }
   }
   
 /*  /*
  * Start the SYNOPSIS macro, unlinking its [superfluous] title.   * Like pnode_printmclose() except we look to the next node, and, if
    * found, see if it starts with punctuation.
    * If it does, then we print that punctuation before the newline.
  */   */
 static void  static void
   pnode_printmclosepunct(struct parse *p, struct pnode *pn, int sv)
   {
           /* We wouldn't have done anything anyway. */
           if ( ! (sv && ! p->newln))
                   return;
   
           /* No next node or it's not text. */
           if (NULL == (pn = TAILQ_NEXT(pn, child))) {
                   pnode_printmclose(p, sv);
                   return;
           } else if (NODE_TEXT != pn->node) {
                   pnode_printmclose(p, sv);
                   return;
           }
   
           /* Only do this for the comma/period. */
           if (pn->bsz > 0 &&
                   (',' == pn->b[0] || '.' == pn->b[0]) &&
                   (1 == pn->bsz || isspace((unsigned char)pn->b[1]))) {
                   putchar(' ');
                   putchar(pn->b[0]);
                   pn->b++;
                   pn->bsz--;
           }
   
           putchar('\n');
           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.
    */
   static void
 pnode_printrefsynopsisdiv(struct parse *p, struct pnode *pn)  pnode_printrefsynopsisdiv(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
Line 705  pnode_printrefsynopsisdiv(struct parse *p, struct pnod
Line 750  pnode_printrefsynopsisdiv(struct parse *p, struct pnod
         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);
                         break;                          return;
                 }                  }
   
         puts(".Sh SYNOPSIS");  
 }  }
   
 /*  /*
Line 718  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;
   
         fputs(".Sh ", stdout);          if (NULL == pp) {
                   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);
                   break;
           case 2:
                   fputs(".Ss", stdout);
                   break;
           default:
                   pnode_printpara(p, pn);
                   fputs(".Sy", stdout);
                   break;
           }
   
         if (NULL != pp) {          if (NULL != pp) {
                 pnode_printmacroline(p, pp);                  p->newln = 0;
                   pnode_printmacrolinetext(p, pp, flags);
                   pnode_printmclose(p, 1);
                 pnode_unlink(pp);                  pnode_unlink(pp);
         } else          } else
                 puts("UNKNOWN");                  printf(" %s\n", title);
 }  }
   
 /*  /*
Line 747  pnode_printciterefentry(struct parse *p, struct pnode 
Line 846  pnode_printciterefentry(struct parse *p, struct pnode 
                 else if (NODE_REFENTRYTITLE == pp->node)                  else if (NODE_REFENTRYTITLE == pp->node)
                         title = pp;                          title = pp;
   
         fputs(".Xr ", stdout);  
   
         if (NULL != title) {          if (NULL != title) {
                 pnode_printmacrolinepart(p, title);                  pnode_printmacrolinepart(p, title);
                 putchar(' ');  
         } else          } else
                 fputs("unknown ", stdout);                  fputs(" unknown ", stdout);
   
         if (NULL != manvol)          if (NULL == manvol) {
                 pnode_printmacroline(p, manvol);                  puts(" 1");
         else                  p->newln = 1;
                 puts("1");          } else
                   pnode_printmacrolinepart(p, manvol);
 }  }
   
 static void  static void
Line 767  pnode_printrefmeta(struct parse *p, struct pnode *pn)
Line 864  pnode_printrefmeta(struct parse *p, struct pnode *pn)
         struct pnode    *pp, *title, *manvol;          struct pnode    *pp, *title, *manvol;
   
         title = manvol = NULL;          title = manvol = NULL;
           assert(p->newln);
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_MANVOLNUM == pp->node)                  if (NODE_MANVOLNUM == pp->node)
                         manvol = pp;                          manvol = pp;
                 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;
   
         if (NULL != title) {          if (NULL != title)
                 /* FIXME: uppercase. */                  pnode_printmacrolinetext(p, title, MACROLINE_UPPER);
                 pnode_printmacrolinepart(p, title);  
                 putchar(' ');  
         } else  
                 fputs("UNKNOWN ", stdout);  
   
         if (NULL != manvol)  
                 pnode_printmacroline(p, manvol);  
         else          else
                 puts("1");                  fputs(" UNKNOWN ", stdout);
   
         puts(".Os");          if (NULL == manvol) {
                   puts(" 1");
                   p->newln = 1;
           } else
                   pnode_printmacroline(p, manvol);
 }  }
   
 static void  static void
Line 796  pnode_printfuncdef(struct parse *p, struct pnode *pn)
Line 891  pnode_printfuncdef(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp, *ftype, *func;          struct pnode    *pp, *ftype, *func;
   
           assert(p->newln);
         ftype = func = NULL;          ftype = func = NULL;
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TEXT == pp->node)                  if (NODE_TEXT == pp->node)
Line 804  pnode_printfuncdef(struct parse *p, struct pnode *pn)
Line 900  pnode_printfuncdef(struct parse *p, struct pnode *pn)
                         func = pp;                          func = pp;
   
         if (NULL != ftype) {          if (NULL != ftype) {
                 fputs(".Ft ", stdout);                  fputs(".Ft", stdout);
                   p->newln = 0;
                 pnode_printmacroline(p, ftype);                  pnode_printmacroline(p, ftype);
         }          }
   
         if (NULL != func) {          if (NULL != func) {
                 fputs(".Fo ", stdout);                  fputs(".Fo", stdout);
                   p->newln = 0;
                 pnode_printmacroline(p, func);                  pnode_printmacroline(p, func);
         } else          } else {
                 puts(".Fo UNKNOWN");                  puts(".Fo UNKNOWN");
                   p->newln = 1;
           }
 }  }
   
 static void  static void
Line 820  pnode_printparamdef(struct parse *p, struct pnode *pn)
Line 920  pnode_printparamdef(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp, *ptype, *param;          struct pnode    *pp, *ptype, *param;
   
           assert(p->newln);
         ptype = param = NULL;          ptype = param = NULL;
         TAILQ_FOREACH(pp, &pn->childq, child)          TAILQ_FOREACH(pp, &pn->childq, child)
                 if (NODE_TEXT == pp->node)                  if (NODE_TEXT == pp->node)
Line 828  pnode_printparamdef(struct parse *p, struct pnode *pn)
Line 929  pnode_printparamdef(struct parse *p, struct pnode *pn)
                         param = pp;                          param = pp;
   
         fputs(".Fa \"", stdout);          fputs(".Fa \"", stdout);
           p->newln = 0;
         if (NULL != ptype) {          if (NULL != ptype) {
                 pnode_printmacrolinepart(p, ptype);                  pnode_printmacrolinetext(p, ptype, MACROLINE_NOWS);
                 putchar(' ');                  putchar(' ');
         }          }
   
         if (NULL != param)          if (NULL != param)
                 pnode_printmacrolinepart(p, param);                  pnode_printmacrolinepart(p, param);
         else  
                 fputs("UNKNOWN", stdout);  
   
         puts("\"");          puts("\"");
           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);
         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 855  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);
   
         puts(".Fc");          puts(".Fc");
           p->newln = 1;
 }  }
   
 /* TODO: handle "optional" values. */  /*
    * 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
    * re-sent into the printer (i.e., without the preceding ".Ar").
    * This also handles the case of "repetition" (or in other words, the
    * ellipsis following an argument) and optionality.
    */
 static void  static void
 pnode_printarg(struct parse *p, struct pnode *pn, int nested)  pnode_printarg(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
         int              sv = nested;          struct pattr    *ap;
           int              isop, isrep;
   
         if ( ! nested)          isop = 1;
                 fputs(".", stdout);          isrep = 0;
         nested = 1;          TAILQ_FOREACH(ap, &pn->attrq, child)
         TAILQ_FOREACH(pp, &pn->childq, child)                  if (ATTRKEY_CHOICE == ap->key &&
                 if (NODE_OPTION == pp->node) {                          (ATTRVAL_PLAIN == ap->val ||
                         fputs("Fl ", stdout);                           ATTRVAL_REQ == ap->val))
                         pnode_printmacrolinepart(p, pp);                          isop = 0;
                 } else if (NODE_TEXT == pp->node) {                  else if (ATTRKEY_REP == ap->key &&
                         fputs("Ar ", stdout);                          (ATTRVAL_REPEAT == ap->val))
                         pnode_printmacrolinepart(p, pp);                          isrep = 1;
                 } else if (NODE_ARG == pp->node)  
                         pnode_printarg(p, pp, nested);  
   
         if ( ! sv)          if (isop) {
                 puts("");                  pnode_printmopen(p);
                   fputs("Op", stdout);
           }
   
           TAILQ_FOREACH(pp, &pn->childq, child) {
                   if (NODE_TEXT == pp->node) {
                           pnode_printmopen(p);
                           fputs("Ar", stdout);
                   }
                   pnode_print(p, pp);
                   if (NODE_TEXT == pp->node && isrep)
                           fputs("...", stdout);
           }
 }  }
   
 /*  static void
  * Recursively search and return the first instance of "node".  pnode_printgroup(struct parse *p, struct pnode *pn)
  */  
 static struct pnode *  
 pnode_findfirst(struct pnode *pn, enum nodeid node)  
 {  {
         struct pnode    *pp, *res;          struct pnode    *pp, *np;
           struct pattr    *ap;
           int              isop, sv;
   
         res = NULL;          isop = 1;
         TAILQ_FOREACH(pp, &pn->childq, child) {          TAILQ_FOREACH(ap, &pn->attrq, child)
                 res = pp->node == node ? pp :                  if (ATTRKEY_CHOICE == ap->key &&
                         pnode_findfirst(pp, node);                          (ATTRVAL_PLAIN == ap->val ||
                 if (NULL != res)                           ATTRVAL_REQ == ap->val)) {
                           isop = 0;
                         break;                          break;
                   }
   
           /*
            * Make sure we're on a macro line.
            * This will prevent pnode_print() for putting us on a
            * subsequent line.
            */
           sv = p->newln;
           pnode_printmopen(p);
           if (isop)
                   fputs("Op", stdout);
           else if (sv)
                   fputs("No", stdout);
   
           /*
            * Keep on printing text separated by the vertical bar as long
            * as we're within the same origin node as the group.
            * This is kind of a nightmare.
            * Eh, DocBook...
            * FIXME: if there's a "Fl", we don't cut off the leading "-"
            * like we do in pnode_print().
            */
           TAILQ_FOREACH(pp, &pn->childq, child) {
                   pnode_print(p, pp);
                   np = TAILQ_NEXT(pp, child);
                   while (NULL != np) {
                           if (pp->node != np->node)
                                   break;
                           fputs(" |", stdout);
                           pnode_printmacrolinepart(p, np);
                           pp = np;
                           np = TAILQ_NEXT(np, child);
                   }
         }          }
   
         return(res);          pnode_printmclose(p, sv);
 }  }
   
 static void  static void
Line 910  pnode_printprologue(struct parse *p, struct pnode *pn)
Line 1119  pnode_printprologue(struct parse *p, struct pnode *pn)
 {  {
         struct pnode    *pp;          struct pnode    *pp;
   
         if (NULL != (pp = pnode_findfirst(p->root, NODE_REFMETA))) {          pp = NULL == p->root ? NULL :
                   pnode_findfirst(p->root, NODE_REFMETA);
   
           puts(".Dd $Mdocdate" "$");
           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
   pnode_printvarlistentry(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
           int              first = 1;
   
           assert(p->newln);
           fputs(".It", stdout);
           p->newln = 0;
   
           TAILQ_FOREACH(pp, &pn->childq, child)
                   if (NODE_TERM == pp->node) {
                           if ( ! first)
                                   putchar(',');
                           pnode_print(p, pp);
                           pnode_unlink(pp);
                           first = 0;
                   } else
                           break;
   
           putchar('\n');
           p->newln = 1;
   }
   
   static void
   pnode_printrow(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           puts(".Bl -dash -compact");
   
           TAILQ_FOREACH(pp, &pn->childq, child) {
                   assert(p->newln);
                   puts(".It");
                   pnode_print(p, pp);
                   pnode_printmclose(p, 1);
           }
           assert(p->newln);
           puts(".El");
   }
   
   static void
   pnode_printtable(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           assert(p->newln);
           TAILQ_FOREACH(pp, &pn->childq, child)
                   if (NODE_TITLE == pp->node) {
                           pnode_printpara(p, pp);
                           pnode_print(p, pp);
                           pnode_unlink(pp);
                   }
           assert(p->newln);
           puts(".Bl -ohang");
           while (NULL != (pp = pnode_findfirst(pn, NODE_ROW))) {
                   puts(".It Table Row");
                   pnode_printrow(p, pp);
                   pnode_printmclose(p, 1);
                   pnode_unlink(pp);
           }
           assert(p->newln);
           puts(".El");
   }
   
   static void
   pnode_printlist(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           assert(p->newln);
           TAILQ_FOREACH(pp, &pn->childq, child)
                   if (NODE_TITLE == pp->node) {
                           pnode_printpara(p, pp);
                           pnode_print(p, pp);
                           pnode_unlink(pp);
                   }
           assert(p->newln);
   
           if (NODE_ORDEREDLIST == pn->node)
                   puts(".Bl -enum");
           else
                   puts(".Bl -bullet");
   
           TAILQ_FOREACH(pp, &pn->childq, child) {
                   assert(p->newln);
                   puts(".It");
                   pnode_print(p, pp);
                   pnode_printmclose(p, 1);
           }
           assert(p->newln);
           puts(".El");
   }
   
   static void
   pnode_printvariablelist(struct parse *p, struct pnode *pn)
   {
           struct pnode    *pp;
   
           assert(p->newln);
           TAILQ_FOREACH(pp, &pn->childq, child)
                   if (NODE_TITLE == pp->node) {
                           pnode_printpara(p, pp);
                           pnode_print(p, pp);
                           pnode_unlink(pp);
                   }
   
           assert(p->newln);
           puts(".Bl -tag -width Ds");
           TAILQ_FOREACH(pp, &pn->childq, child)
                   if (NODE_VARLISTENTRY != pp->node) {
                           assert(p->newln);
                           fputs(".It", stdout);
                           pnode_printmacroline(p, pp);
                   } else {
                           assert(p->newln);
                           pnode_print(p, pp);
                   }
           assert(p->newln);
           puts(".El");
   }
   
   /*
  * Print a parsed node (or ignore it--whatever).   * Print a parsed node (or ignore it--whatever).
  * This is a recursive function.   * This is a recursive function.
  * FIXME: macro line continuation?   * FIXME: if we're in a literal context (<screen> or <programlisting> or
    * whatever), don't print inline macros.
  */   */
 static void  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;          int              last, sv;
   
         if (NULL == pn)          if (NULL == pn)
                 return;                  return;
   
         if (NODE_TEXT != pn->node && NODE_ROOT != pn->node)          sv = p->newln;
                 printf(".\\\" %s\n", nodes[pn->node].name);  
   
         switch (pn->node) {          switch (pn->node) {
         case (NODE_ARG):          case NODE_APPLICATION:
                 pnode_printarg(p, pn, 0);                  pnode_printmopen(p);
                   fputs("Nm", stdout);
                   break;
           case NODE_ANCHOR:
                   /* Don't print anything! */
                   return;
           case NODE_ARG:
                   pnode_printarg(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_CITEREFENTRY):          case NODE_AUTHOR:
                   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);
                 pnode_printciterefentry(p, pn);                  pnode_printciterefentry(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_CODE):          case NODE_CODE:
                 fputs(".Li ", stdout);                  pnode_printmopen(p);
                 pnode_printmacroline(p, pn);                  fputs("Li", stdout);
                   break;
           case NODE_COMMAND:
                   pnode_printmopen(p);
                   fputs("Nm", stdout);
                   break;
           case NODE_CONSTANT:
                   pnode_printmopen(p);
                   fputs("Dv", stdout);
                   break;
           case NODE_EDITOR:
                   puts("editor: ");
                   pnode_printmopen(p);
                   fputs("An", stdout);
                   break;
           case NODE_EMPHASIS:
           case NODE_FIRSTTERM:
                   pnode_printmopen(p);
                   fputs("Em", stdout);
                   break;
           case NODE_ENVAR:
                   pnode_printmopen(p);
                   fputs("Ev", stdout);
                   break;
           case NODE_FILENAME:
                   pnode_printmopen(p);
                   fputs("Pa", stdout);
                   break;
           case NODE_FUNCTION:
                   pnode_printmopen(p);
                   fputs("Fn", stdout);
                   break;
           case NODE_FUNCPROTOTYPE:
                   assert(p->newln);
                   pnode_printfuncprototype(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_COMMAND):          case NODE_FUNCSYNOPSISINFO:
                 fputs(".Nm ", stdout);                  pnode_printmopen(p);
                 pnode_printmacroline(p, pn);                  fputs("Fd", stdout);
                   break;
           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);
                   pnode_printlist(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_FUNCTION):          case NODE_GROUP:
                 fputs(".Fn ", stdout);                  pnode_printgroup(p, pn);
                 pnode_printmacroline(p, pn);  
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_FUNCPROTOTYPE):          case NODE_LEGALNOTICE:
                 pnode_printfuncprototype(p, pn);                  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);
                   printf("Sx %s\n", ccp);
                   p->newln = 1;
                   return;
           case NODE_LITERAL:
                   pnode_printmopen(p);
                   fputs("Li", stdout);
                   break;
           case NODE_LITERALLAYOUT:
                   assert(p->newln);
                   puts(".Bd -literal");
                   break;
           case NODE_MML_MFENCED:
                   pnode_printmathfenced(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_FUNCSYNOPSISINFO):          case NODE_MML_MROW:
                 fputs(".Fd ", stdout);          case NODE_MML_MI:
                 pnode_printmacroline(p, pn);          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);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_PARA):          case NODE_OPTION:
                 /* FIXME: not always. */                  pnode_printmopen(p);
                 puts(".Pp");                  fputs("Fl", stdout);
                 break;                  break;
         case (NODE_PARAMETER):          case NODE_ORDEREDLIST:
                 fputs(".Fa \"", stdout);                  assert(p->newln);
                 pnode_printmacrolinepart(p, pn);                  pnode_printlist(p, pn);
                 puts("\"");  
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 break;                  break;
         case (NODE_PROGRAMLISTING):          case NODE_PARA:
                 puts(".Bd -literal");                  pnode_printpara(p, pn);
                 break;                  break;
         case (NODE_REFMETA):          case NODE_PARAMETER:
                   /* Suppress non-text children... */
                   pnode_printmopen(p);
                   fputs("Fa \"", stdout);
                   pnode_printmacrolinetext(p, pn, MACROLINE_NOWS);
                   fputs("\"", stdout);
                   pnode_unlinksub(pn);
                   break;
           case NODE_QUOTE:
                   pnode_printmopen(p);
                   fputs("Qo", stdout);
                   break;
           case NODE_PROGRAMLISTING:
           case NODE_SCREEN:
                   assert(p->newln);
                   printf(".Bd %s\n", ATTRVAL_MONOSPACED ==
                       pnode_getattr(pn, ATTRKEY_CLASS) ?
                       "-literal" : "-unfilled");
                   break;
           case NODE_REFENTRYINFO:
                   /* Suppress. */
                   pnode_unlinksub(pn);
                   break;
           case NODE_REFMETA:
                 abort();                  abort();
                 break;                  break;
         case (NODE_REFNAME):          case NODE_REFNAME:
                 fputs(".Nm ", stdout);                  /* Suppress non-text children... */
                 pnode_printmacroline(p, pn);                  pnode_printmopen(p);
                   fputs("Nm", stdout);
                   p->newln = 0;
                   pnode_printmacrolinepart(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 return;                  break;
         case (NODE_REFNAMEDIV):          case NODE_REFNAMEDIV:
                   assert(p->newln);
                 puts(".Sh NAME");                  puts(".Sh NAME");
                 break;                  break;
         case (NODE_REFPURPOSE):          case NODE_REFPURPOSE:
                 fputs(".Nd ", stdout);                  assert(p->newln);
                 pnode_printmacroline(p, pn);                  pnode_printmopen(p);
                 pnode_unlinksub(pn);                  fputs("Nd", stdout);
                 return;                  break;
         case (NODE_REFSYNOPSISDIV):          case NODE_REFSYNOPSISDIV:
                   assert(p->newln);
                 pnode_printrefsynopsisdiv(p, pn);                  pnode_printrefsynopsisdiv(p, pn);
                   puts(".Sh SYNOPSIS");
                 break;                  break;
         case (NODE_REFSECT1):          case NODE_PREFACE:
           case NODE_SECTION:
           case NODE_NOTE:
           case NODE_TIP:
           case NODE_CAUTION:
           case NODE_WARNING:
                   assert(p->newln);
                 pnode_printrefsect(p, pn);                  pnode_printrefsect(p, pn);
                 break;                  break;
         case (NODE_STRUCTNAME):          case NODE_REPLACEABLE:
                 fputs(".Vt ", stdout);                  pnode_printmopen(p);
                 pnode_printmacroline(p, pn);                  fputs("Ar", stdout);
                   break;
           case NODE_SBR:
                   assert(p->newln);
                   puts(".br");
                   break;
           case NODE_SGMLTAG:
                   pnode_printmopen(p);
                   fputs("Li", stdout);
                   break;
           case NODE_STRUCTNAME:
                   pnode_printmopen(p);
                   fputs("Vt", stdout);
                   break;
           case NODE_TABLE:
           case NODE_INFORMALTABLE:
                   assert(p->newln);
                   pnode_printtable(p, pn);
                 pnode_unlinksub(pn);                  pnode_unlinksub(pn);
                 return;                  break;
         case (NODE_TEXT):          case NODE_TEXT:
                   if (0 == p->newln)
                           putchar(' ');
   
                 bufclear(p);                  bufclear(p);
                 bufappend(p, pn);                  bufappend(p, pn);
   
                   if (0 == p->bsz) {
                           assert(pn->real != pn->b);
                           break;
                   }
   
                 /*                  /*
                  * 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.
                  */                   */
                 for (last = '\n', cp = p->b; '\0' != *cp; ) {                  assert(p->bsz);
                   cp = p->b;
   
                   /*
                    * There's often a superfluous "-" in its <option> tags
                    * before the actual flags themselves.
                    * "Fl" does this for us, so remove it.
                    */
                   if (NULL != pn->parent &&
                           NODE_OPTION == pn->parent->node &&
                           '-' == *cp)
                           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 1036  pnode_print(struct parse *p, struct pnode *pn)
Line 1551  pnode_print(struct parse *p, struct pnode *pn)
                         if ('\\' == last)                          if ('\\' == last)
                                 putchar('e');                                  putchar('e');
                 }                  }
                 if ('\n' != last)                  p->newln = 0;
                         putchar('\n');  
                 break;                  break;
           case NODE_TITLE:
                   if (pn->parent->node == NODE_BOOKINFO) {
                           pnode_printmopen(p);
                           fputs("Nd", stdout);
                   }
                   break;
           case NODE_TYPE:
                   pnode_printmopen(p);
                   fputs("Vt", stdout);
                   break;
           case NODE_USERINPUT:
                   pnode_printmopen(p);
                   fputs("Li", stdout);
                   break;
           case NODE_VARIABLELIST:
                   assert(p->newln);
                   pnode_printvariablelist(p, pn);
                   pnode_unlinksub(pn);
                   break;
           case NODE_VARLISTENTRY:
                   assert(p->newln);
                   pnode_printvarlistentry(p, pn);
                   break;
           case NODE_VARNAME:
                   pnode_printmopen(p);
                   fputs("Va", stdout);
                   break;
         default:          default:
                 break;                  break;
         }          }
Line 1047  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_PROGRAMLISTING):          case NODE_INFORMALEQUATION:
                   if ( ! p->newln)
                           putchar('\n');
                   puts(".EN");
                   p->newln = 1;
                   break;
           case NODE_INLINEEQUATION:
                   fputs("$ ", stdout);
                   p->newln = sv;
                   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_APPLICATION:
           case NODE_ARG:
           case NODE_AUTHOR:
           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);
                   break;
           case NODE_QUOTE:
                   pnode_printmclose(p, sv);
                   sv = p->newln;
                   pnode_printmopen(p);
                   fputs("Qc", stdout);
                   pnode_printmclose(p, sv);
                   break;
           case NODE_REFNAME:
                   /*
                    * If we're in the NAME macro and we have multiple
                    * <refname> macros in sequence, then print out a
                    * trailing comma before the newline.
                    */
                   if (NULL != pn->parent &&
                           NODE_REFNAMEDIV == pn->parent->node &&
                           NULL != TAILQ_NEXT(pn, child) &&
                           NODE_REFNAME == TAILQ_NEXT(pn, child)->node)
                           fputs(" ,", stdout);
                   pnode_printmclose(p, sv);
                   break;
           case NODE_PREFACE:
           case NODE_SECTION:
           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);
                 puts(".Ed");                  puts(".Ed");
                   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 1060  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 1070  readfile(XML_Parser xp, int fd, 
Line 1694  readfile(XML_Parser xp, int fd, 
         memset(&p, 0, sizeof(struct parse));          memset(&p, 0, sizeof(struct parse));
   
         p.b = malloc(p.bsz = p.mbsz = 1024);          p.b = malloc(p.bsz = p.mbsz = 1024);
           p.fname = fn;
           p.xml = xp;
   
         XML_SetCharacterDataHandler(xp, xml_char);          XML_SetCharacterDataHandler(xp, xml_char);
         XML_SetElementHandler(xp, xml_elem_start, xml_elem_end);          XML_SetElementHandler(xp, xml_elem_start, xml_elem_end);
Line 1077  readfile(XML_Parser xp, int fd, 
Line 1703  readfile(XML_Parser xp, int fd, 
   
         while ((ssz = read(fd, b, bsz)) >= 0) {          while ((ssz = read(fd, b, bsz)) >= 0) {
                 if (0 == (rc = XML_Parse(xp, b, ssz, 0 == ssz)))                  if (0 == (rc = XML_Parse(xp, b, ssz, 0 == ssz)))
                         fprintf(stderr, "%s: %s\n", fn,                          fprintf(stderr, "%s:%zu:%zu: %s\n", fn,
                                   XML_GetCurrentLineNumber(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.
                  */                   */
                   p.newln = 1;
                 pnode_printprologue(&p, p.root);                  pnode_printprologue(&p, p.root);
                 pnode_print(&p, p.root);                  pnode_print(&p, p.root);
                 pnode_free(p.root);                  pnode_free(p.root);
Line 1106  main(int argc, char *argv[])
Line 1735  main(int argc, char *argv[])
         XML_Parser       xp;          XML_Parser       xp;
         const char      *fname;          const char      *fname;
         char            *buf;          char            *buf;
         int              fd, rc;          int              fd, rc, ch;
           const char      *progname;
   
           progname = strrchr(argv[0], '/');
           if (progname == NULL)
                   progname = argv[0];
           else
                   ++progname;
   
         fname = "-";          fname = "-";
         xp = NULL;          xp = NULL;
         buf = NULL;          buf = NULL;
         rc = 0;          rc = 0;
   
         if (-1 != getopt(argc, argv, ""))          while (-1 != (ch = getopt(argc, argv, "W")))
                 return(EXIT_FAILURE);                  switch (ch) {
                   case 'W':
                           warn = 1;
                           break;
                   default:
                           goto usage;
                   }
   
         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 1148  main(int argc, char *argv[])
Line 1791  main(int argc, char *argv[])
         if (STDIN_FILENO != fd)          if (STDIN_FILENO != fd)
                 close(fd);                  close(fd);
         return(rc ? EXIT_SUCCESS : EXIT_FAILURE);          return(rc ? EXIT_SUCCESS : EXIT_FAILURE);
   
   usage:
           fprintf(stderr, "usage: %s [-W] [input_filename]\n", progname);
           return(EXIT_FAILURE);
 }  }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.62
CVSweb