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

Diff for /mandoc/Attic/mdoc_action.c between version 1.1 and 1.42

version 1.1, 2009/03/25 15:36:05 version 1.42, 2009/10/22 17:54:24
Line 1 
Line 1 
 /* $Id$ */  /*      $Id$ */
 /*  /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@openbsd.org>   * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *   *
  * 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   * purpose with or without fee is hereby granted, provided that the above
  * above copyright notice and this permission notice appear in all   * copyright notice and this permission notice appear in all copies.
  * copies.  
  *   *
  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL   * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED   * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE   * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL   * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR   * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER   * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR   * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  * PERFORMANCE OF THIS SOFTWARE.  
  */   */
 #include <sys/utsname.h>  #include <sys/utsname.h>
   
 #include <assert.h>  #include <assert.h>
 #include <err.h>  
 #include <errno.h>  #include <errno.h>
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
Line 27 
Line 24 
   
 #include "libmdoc.h"  #include "libmdoc.h"
   
 /*  #define POST_ARGS struct mdoc *m, struct mdoc_node *n
  * Actions are executed on macros after they've been post-validated: in  
  * other words, a macro will not be "acted upon" until all of its  
  * children have been filled in (post-fix order).  
  */  
   
 enum    mwarn {  
         WBADSEC,  
         WNOWIDTH,  
         WBADDATE  
 };  
   
 #define PRE_ARGS  struct mdoc *m, const struct mdoc_node *n  #define PRE_ARGS  struct mdoc *m, const struct mdoc_node *n
 #define POST_ARGS struct mdoc *m  
   
 struct  actions {  struct  actions {
         int     (*pre)(PRE_ARGS);          int     (*pre)(PRE_ARGS);
         int     (*post)(POST_ARGS);          int     (*post)(POST_ARGS);
 };  };
   
 static  int       pwarn(struct mdoc *, int, int, enum mwarn);  static  int       concat(struct mdoc *,
                           const struct mdoc_node *,
                           char *, size_t);
   static  inline int order_rs(int);
   
   #ifdef __linux__
   extern  size_t    strlcat(char *, const char *, size_t);
   #endif
   
 static  int       post_ar(POST_ARGS);  static  int       post_ar(POST_ARGS);
   static  int       post_at(POST_ARGS);
 static  int       post_bl(POST_ARGS);  static  int       post_bl(POST_ARGS);
 static  int       post_bl_width(POST_ARGS);  static  int       post_bl_head(POST_ARGS);
 static  int       post_bl_tagwidth(POST_ARGS);  static  int       post_bl_tagwidth(POST_ARGS);
   static  int       post_bl_width(POST_ARGS);
 static  int       post_dd(POST_ARGS);  static  int       post_dd(POST_ARGS);
 static  int       post_display(POST_ARGS);  static  int       post_display(POST_ARGS);
 static  int       post_dt(POST_ARGS);  static  int       post_dt(POST_ARGS);
   static  int       post_lb(POST_ARGS);
 static  int       post_nm(POST_ARGS);  static  int       post_nm(POST_ARGS);
 static  int       post_os(POST_ARGS);  static  int       post_os(POST_ARGS);
 static  int       post_prol(POST_ARGS);  static  int       post_prol(POST_ARGS);
   static  int       post_rs(POST_ARGS);
 static  int       post_sh(POST_ARGS);  static  int       post_sh(POST_ARGS);
   static  int       post_st(POST_ARGS);
 static  int       post_std(POST_ARGS);  static  int       post_std(POST_ARGS);
   static  int       post_tilde(POST_ARGS);
   
 static  int       pre_bd(PRE_ARGS);  static  int       pre_bd(PRE_ARGS);
   static  int       pre_bl(PRE_ARGS);
 static  int       pre_dl(PRE_ARGS);  static  int       pre_dl(PRE_ARGS);
   static  int       pre_offset(PRE_ARGS);
   
 #define mwarn(m, t) pwarn((m), (m)->last->line, (m)->last->pos, (t))  static  const struct actions mdoc_actions[MDOC_MAX] = {
           { NULL, NULL }, /* Ap */
 const   struct actions mdoc_actions[MDOC_MAX] = {  
         { NULL, NULL }, /* \" */  
         { NULL, post_dd }, /* Dd */          { NULL, post_dd }, /* Dd */
         { NULL, post_dt }, /* Dt */          { NULL, post_dt }, /* Dt */
         { NULL, post_os }, /* Os */          { NULL, post_os }, /* Os */
Line 79  const struct actions mdoc_actions[MDOC_MAX] = {
Line 77  const struct actions mdoc_actions[MDOC_MAX] = {
         { pre_dl, post_display }, /* Dl */          { pre_dl, post_display }, /* Dl */
         { pre_bd, post_display }, /* Bd */          { pre_bd, post_display }, /* Bd */
         { NULL, NULL }, /* Ed */          { NULL, NULL }, /* Ed */
         { NULL, post_bl }, /* Bl */          { pre_bl, post_bl }, /* Bl */
         { NULL, NULL }, /* El */          { NULL, NULL }, /* El */
         { NULL, NULL }, /* It */          { NULL, NULL }, /* It */
         { NULL, NULL }, /* Ad */          { NULL, NULL }, /* Ad */
Line 103  const struct actions mdoc_actions[MDOC_MAX] = {
Line 101  const struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, post_nm }, /* Nm */          { NULL, post_nm }, /* Nm */
         { NULL, NULL }, /* Op */          { NULL, NULL }, /* Op */
         { NULL, NULL }, /* Ot */          { NULL, NULL }, /* Ot */
         { NULL, NULL }, /* Pa */          { NULL, post_tilde }, /* Pa */
         { NULL, post_std }, /* Rv */          { NULL, post_std }, /* Rv */
         { NULL, NULL }, /* St */          { NULL, post_st }, /* St */
         { NULL, NULL }, /* Va */          { NULL, NULL }, /* Va */
         { NULL, NULL }, /* Vt */          { NULL, NULL }, /* Vt */
         { NULL, NULL }, /* Xr */          { NULL, NULL }, /* Xr */
Line 123  const struct actions mdoc_actions[MDOC_MAX] = {
Line 121  const struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, NULL }, /* Ac */          { NULL, NULL }, /* Ac */
         { NULL, NULL }, /* Ao */          { NULL, NULL }, /* Ao */
         { NULL, NULL }, /* Aq */          { NULL, NULL }, /* Aq */
         { NULL, NULL }, /* At */          { NULL, post_at }, /* At */
         { NULL, NULL }, /* Bc */          { NULL, NULL }, /* Bc */
         { NULL, NULL }, /* Bf */          { NULL, NULL }, /* Bf */
         { NULL, NULL }, /* Bo */          { NULL, NULL }, /* Bo */
Line 153  const struct actions mdoc_actions[MDOC_MAX] = {
Line 151  const struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, NULL }, /* Qo */          { NULL, NULL }, /* Qo */
         { NULL, NULL }, /* Qq */          { NULL, NULL }, /* Qq */
         { NULL, NULL }, /* Re */          { NULL, NULL }, /* Re */
         { NULL, NULL }, /* Rs */          { NULL, post_rs }, /* Rs */
         { NULL, NULL }, /* Sc */          { NULL, NULL }, /* Sc */
         { NULL, NULL }, /* So */          { NULL, NULL }, /* So */
         { NULL, NULL }, /* Sq */          { NULL, NULL }, /* Sq */
Line 174  const struct actions mdoc_actions[MDOC_MAX] = {
Line 172  const struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, NULL }, /* Hf */          { NULL, NULL }, /* Hf */
         { NULL, NULL }, /* Fr */          { NULL, NULL }, /* Fr */
         { NULL, NULL }, /* Ud */          { NULL, NULL }, /* Ud */
         { NULL, NULL }, /* Lb */          { NULL, post_lb }, /* Lb */
         { NULL, NULL }, /* Ap */  
         { NULL, NULL }, /* Lp */          { NULL, NULL }, /* Lp */
         { NULL, NULL }, /* Lk */          { NULL, post_tilde }, /* Lk */
         { NULL, NULL }, /* Mt */          { NULL, NULL }, /* Mt */
         { NULL, NULL }, /* Brq */          { NULL, NULL }, /* Brq */
         { NULL, NULL }, /* Bro */          { NULL, NULL }, /* Bro */
Line 187  const struct actions mdoc_actions[MDOC_MAX] = {
Line 184  const struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, NULL }, /* En */          { NULL, NULL }, /* En */
         { NULL, NULL }, /* Dx */          { NULL, NULL }, /* Dx */
         { NULL, NULL }, /* %Q */          { NULL, NULL }, /* %Q */
           { NULL, NULL }, /* br */
           { NULL, NULL }, /* sp */
 };  };
   
   #define RSORD_MAX 13
   
   static  const int rsord[RSORD_MAX] = {
           MDOC__A,
           MDOC__T,
           MDOC__B,
           MDOC__I,
           MDOC__J,
           MDOC__R,
           MDOC__N,
           MDOC__V,
           MDOC__P,
           MDOC__Q,
           MDOC__D,
           MDOC__O,
           MDOC__C
   };
   
   
 int  int
 mdoc_action_pre(struct mdoc *m, const struct mdoc_node *n)  mdoc_action_pre(struct mdoc *m, const struct mdoc_node *n)
 {  {
   
         switch (n->type) {          switch (n->type) {
         case (MDOC_ROOT):          case (MDOC_ROOT):
                 break;                  /* FALLTHROUGH */
         case (MDOC_TEXT):          case (MDOC_TEXT):
                 break;                  return(1);
         default:          default:
                 if (NULL == mdoc_actions[m->last->tok].pre)                  break;
                         break;  
                 return((*mdoc_actions[m->last->tok].pre)(m, n));  
         }          }
         return(1);  
           if (NULL == mdoc_actions[n->tok].pre)
                   return(1);
           return((*mdoc_actions[n->tok].pre)(m, n));
 }  }
   
   
Line 218  mdoc_action_post(struct mdoc *m)
Line 236  mdoc_action_post(struct mdoc *m)
   
         switch (m->last->type) {          switch (m->last->type) {
         case (MDOC_TEXT):          case (MDOC_TEXT):
                 break;                  /* FALLTHROUGH */
         case (MDOC_ROOT):          case (MDOC_ROOT):
                 break;                  return(1);
         default:          default:
                 if (NULL == mdoc_actions[m->last->tok].post)                  break;
                         break;  
                 return((*mdoc_actions[m->last->tok].post)(m));  
         }          }
         return(1);  
           if (NULL == mdoc_actions[m->last->tok].post)
                   return(1);
           return((*mdoc_actions[m->last->tok].post)(m, m->last));
 }  }
   
   
 static int  static int
 pwarn(struct mdoc *m, int line, int pos, enum mwarn type)  concat(struct mdoc *m, const struct mdoc_node *n,
                   char *buf, size_t sz)
 {  {
         char            *p;  
         int              c;  
   
         p = NULL;          for ( ; n; n = n->next) {
         c = WARN_SYNTAX;                  assert(MDOC_TEXT == n->type);
                   if (strlcat(buf, n->string, sz) >= sz)
         switch (type) {                          return(mdoc_nerr(m, n, ETOOLONG));
         case (WBADSEC):                  if (NULL == n->next)
                 p = "inappropriate document section in manual section";                          continue;
                 c = WARN_COMPAT;                  if (strlcat(buf, " ", sz) >= sz)
                 break;                          return(mdoc_nerr(m, n, ETOOLONG));
         case (WNOWIDTH):  
                 p = "cannot determine default width";  
                 break;  
         case (WBADDATE):  
                 p = "malformed date syntax";  
                 break;  
         }          }
   
         assert(p);          return(1);
         return(mdoc_pwarn(m, line, pos, c, p));  
 }  }
   
   
 static int  static int
 post_std(POST_ARGS)  post_std(POST_ARGS)
 {  {
           struct mdoc_node        *nn;
   
         /*          if (n->child)
          * If '-std' is invoked without an argument, fill it in with our  
          * name (if it's been set).  
          */  
   
         if (NULL == m->last->args)  
                 return(1);                  return(1);
         if (m->last->args->argv[0].sz)  
                 return(1);          nn = n;
           m->next = MDOC_NEXT_CHILD;
         assert(m->meta.name);          assert(m->meta.name);
           if ( ! mdoc_word_alloc(m, n->line, n->pos, m->meta.name))
                   return(0);
           m->last = nn;
   
         m->last->args->argv[0].value = calloc(1, sizeof(char *));  
         if (NULL == m->last->args->argv[0].value)  
                 err(1, "calloc");  
   
         m->last->args->argv[0].sz = 1;  
         m->last->args->argv[0].value[0] = xstrdup(m->meta.name);  
         return(1);          return(1);
 }  }
   
Line 291  post_nm(POST_ARGS)
Line 295  post_nm(POST_ARGS)
         if (m->meta.name)          if (m->meta.name)
                 return(1);                  return(1);
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));          buf[0] = 0;
         m->meta.name = xstrdup(buf);          if ( ! concat(m, n->child, buf, sizeof(buf)))
                   return(0);
           if (NULL == (m->meta.name = strdup(buf)))
                   return(mdoc_nerr(m, n, EMALLOC));
   
         return(1);          return(1);
 }  }
   
   
 static int  static int
   post_lb(POST_ARGS)
   {
           const char      *p;
           char            *buf;
           size_t           sz;
   
           assert(MDOC_TEXT == n->child->type);
           p = mdoc_a2lib(n->child->string);
           if (NULL == p) {
                   sz = strlen(n->child->string) +
                           2 + strlen("\\(lqlibrary\\(rq");
                   buf = malloc(sz);
                   if (NULL == buf)
                           return(mdoc_nerr(m, n, EMALLOC));
                   (void)snprintf(buf, sz, "library \\(lq%s\\(rq",
                                   n->child->string);
                   free(n->child->string);
                   n->child->string = buf;
                   return(1);
           }
   
           free(n->child->string);
           n->child->string = strdup(p);
           if (NULL == n->child->string)
                   return(mdoc_nerr(m, n, EMALLOC));
   
           return(1);
   }
   
   
   static int
   post_st(POST_ARGS)
   {
           const char      *p;
   
           assert(MDOC_TEXT == n->child->type);
           p = mdoc_a2st(n->child->string);
           assert(p);
           free(n->child->string);
           n->child->string = strdup(p);
           if (NULL == n->child->string)
                   return(mdoc_nerr(m, n, EMALLOC));
   
           return(1);
   }
   
   
   static int
   post_at(POST_ARGS)
   {
           struct mdoc_node        *nn;
           const char              *p;
   
           if (n->child) {
                   assert(MDOC_TEXT == n->child->type);
                   p = mdoc_a2att(n->child->string);
                   assert(p);
                   free(n->child->string);
                   n->child->string = strdup(p);
                   if (NULL == n->child->string)
                           return(mdoc_nerr(m, n, EMALLOC));
                   return(1);
           }
   
           nn = n;
           m->next = MDOC_NEXT_CHILD;
   
           if ( ! mdoc_word_alloc(m, nn->line, nn->pos, "AT&T UNIX"))
                   return(0);
           m->last = nn;
   
           return(1);
   }
   
   
   static int
 post_sh(POST_ARGS)  post_sh(POST_ARGS)
 {  {
         enum mdoc_sec    sec;          enum mdoc_sec    sec;
Line 310  post_sh(POST_ARGS)
Line 393  post_sh(POST_ARGS)
          * check ordering.           * check ordering.
          */           */
   
         if (MDOC_HEAD != m->last->type)          if (MDOC_HEAD != n->type)
                 return(1);                  return(1);
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));          buf[0] = 0;
           if ( ! concat(m, n->child, buf, sizeof(buf)))
                   return(0);
         if (SEC_CUSTOM != (sec = mdoc_atosec(buf)))          if (SEC_CUSTOM != (sec = mdoc_atosec(buf)))
                 m->lastnamed = sec;                  m->lastnamed = sec;
   
Line 329  post_sh(POST_ARGS)
Line 414  post_sh(POST_ARGS)
                 case (9):                  case (9):
                         break;                          break;
                 default:                  default:
                         return(mwarn(m, WBADSEC));                          return(mdoc_nwarn(m, n, EBADSEC));
                 }                  }
                 break;                  break;
         default:          default:
Line 342  post_sh(POST_ARGS)
Line 427  post_sh(POST_ARGS)
 static int  static int
 post_dt(POST_ARGS)  post_dt(POST_ARGS)
 {  {
         struct mdoc_node *n;          struct mdoc_node *nn;
         const char       *cp;          const char       *cp;
         char             *ep;          char             *ep;
         long              lval;          long              lval;
Line 361  post_dt(POST_ARGS)
Line 446  post_dt(POST_ARGS)
          *   --> title = unknown, volume = local, msec = 0, arch = NULL           *   --> title = unknown, volume = local, msec = 0, arch = NULL
          */           */
   
         if (NULL == (n = m->last->child)) {          if (NULL == (nn = n->child)) {
                 m->meta.title = xstrdup("unknown");                  if (NULL == (m->meta.title = strdup("unknown")))
                 m->meta.vol = xstrdup("local");                          return(mdoc_nerr(m, n, EMALLOC));
                 return(post_prol(m));                  if (NULL == (m->meta.vol = strdup("local")))
                           return(mdoc_nerr(m, n, EMALLOC));
                   return(post_prol(m, n));
         }          }
   
         /* Handles: `.Dt TITLE'          /* Handles: `.Dt TITLE'
          *   --> title = TITLE, volume = local, msec = 0, arch = NULL           *   --> title = TITLE, volume = local, msec = 0, arch = NULL
          */           */
   
         m->meta.title = xstrdup(n->string);          if (NULL == (m->meta.title = strdup(nn->string)))
                   return(mdoc_nerr(m, n, EMALLOC));
   
         if (NULL == (n = n->next)) {          if (NULL == (nn = nn->next)) {
                 m->meta.vol = xstrdup("local");                  if (NULL == (m->meta.vol = strdup("local")))
                 return(post_prol(m));                          return(mdoc_nerr(m, n, EMALLOC));
                   return(post_prol(m, n));
         }          }
   
         /* Handles: `.Dt TITLE SEC'          /* Handles: `.Dt TITLE SEC'
Line 385  post_dt(POST_ARGS)
Line 474  post_dt(POST_ARGS)
          *       arch = NULL           *       arch = NULL
          */           */
   
         cp = mdoc_a2msec(n->string);          cp = mdoc_a2msec(nn->string);
         if (cp) {          if (cp) {
                 m->meta.vol = xstrdup(cp);                  if (NULL == (m->meta.vol = strdup(cp)))
                           return(mdoc_nerr(m, n, EMALLOC));
                 errno = 0;                  errno = 0;
                 lval = strtol(n->string, &ep, 10);                  lval = strtol(nn->string, &ep, 10);
                 if (n->string[0] != '\0' && *ep == '\0')                  if (nn->string[0] != '\0' && *ep == '\0')
                         m->meta.msec = (int)lval;                          m->meta.msec = (int)lval;
         } else          } else if (NULL == (m->meta.vol = strdup(nn->string)))
                 m->meta.vol = xstrdup(n->string);                  return(mdoc_nerr(m, n, EMALLOC));
   
         if (NULL == (n = n->next))          if (NULL == (nn = nn->next))
                 return(post_prol(m));                  return(post_prol(m, n));
   
         /* Handles: `.Dt TITLE SEC VOL'          /* Handles: `.Dt TITLE SEC VOL'
          *   --> title = TITLE, volume = VOL is vol ?           *   --> title = TITLE, volume = VOL is vol ?
Line 405  post_dt(POST_ARGS)
Line 495  post_dt(POST_ARGS)
          *               VOL           *               VOL
          */           */
   
         cp = mdoc_a2vol(n->string);          cp = mdoc_a2vol(nn->string);
         if (cp) {          if (cp) {
                 free(m->meta.vol);                  free(m->meta.vol);
                 m->meta.vol = xstrdup(cp);                  if (NULL == (m->meta.vol = strdup(cp)))
                 n = n->next;                          return(mdoc_nerr(m, n, EMALLOC));
         } else {          } else {
                 cp = mdoc_a2arch(n->string);                  cp = mdoc_a2arch(nn->string);
                 if (NULL == cp) {                  if (NULL == cp) {
                         free(m->meta.vol);                          free(m->meta.vol);
                         m->meta.vol = xstrdup(n->string);                          if (NULL == (m->meta.vol = strdup(nn->string)))
                 } else                                  return(mdoc_nerr(m, n, EMALLOC));
                         m->meta.arch = xstrdup(cp);                  } else if (NULL == (m->meta.arch = strdup(cp)))
                           return(mdoc_nerr(m, n, EMALLOC));
         }          }
   
         /* Ignore any subsequent parameters... */          /* Ignore any subsequent parameters... */
   
         return(post_prol(m));          return(post_prol(m, n));
 }  }
   
   
Line 429  static int
Line 520  static int
 post_os(POST_ARGS)  post_os(POST_ARGS)
 {  {
         char              buf[64];          char              buf[64];
   #ifndef OSNAME
         struct utsname    utsname;          struct utsname    utsname;
   #endif
   
           /*
            * Setting OSNAME to be the name of the target operating system,
            * e.g., "OpenBSD 4.4", will result in the compile-time constant
            * by supplied instead of the value in uname().
            */
   
         if (m->meta.os)          if (m->meta.os)
                 free(m->meta.os);                  free(m->meta.os);
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));          buf[0] = 0;
           if ( ! concat(m, n->child, buf, sizeof(buf)))
                   return(0);
   
         if (0 == buf[0]) {          if (0 == buf[0]) {
   #ifdef  OSNAME
                   if (strlcat(buf, OSNAME, 64) >= 64)
                           return(mdoc_nerr(m, n, EUTSNAME));
   #else
                 if (-1 == uname(&utsname))                  if (-1 == uname(&utsname))
                         return(mdoc_err(m, "utsname"));                          return(mdoc_nerr(m, n, EUTSNAME));
                 (void)xstrlcpy(buf, utsname.sysname, sizeof(buf));                  if (strlcat(buf, utsname.sysname, 64) >= 64)
                 (void)xstrlcat(buf, " ", sizeof(buf));                          return(mdoc_nerr(m, n, ETOOLONG));
                 (void)xstrlcat(buf, utsname.release, sizeof(buf));                  if (strlcat(buf, " ", 64) >= 64)
                           return(mdoc_nerr(m, n, ETOOLONG));
                   if (strlcat(buf, utsname.release, 64) >= 64)
                           return(mdoc_nerr(m, n, ETOOLONG));
   #endif
         }          }
   
         m->meta.os = xstrdup(buf);          if (NULL == (m->meta.os = strdup(buf)))
         m->lastnamed = m->lastsec = SEC_BODY;                  return(mdoc_nerr(m, n, EMALLOC));
   
         return(post_prol(m));          return(post_prol(m, n));
 }  }
   
   
Line 456  post_os(POST_ARGS)
Line 565  post_os(POST_ARGS)
  * Uses the first head macro.   * Uses the first head macro.
  */   */
 static int  static int
 post_bl_tagwidth(struct mdoc *m)  post_bl_tagwidth(POST_ARGS)
 {  {
         struct mdoc_node  *n;          struct mdoc_node  *nn;
         int                sz;          int                sz;
         char               buf[32];          char               buf[32];
   
Line 467  post_bl_tagwidth(struct mdoc *m)
Line 576  post_bl_tagwidth(struct mdoc *m)
          * width if a macro.           * width if a macro.
          */           */
   
         if ((n = m->last->body->child)) {          nn = n->body->child;
                 assert(MDOC_BLOCK == n->type);          if (nn) {
                 assert(MDOC_It == n->tok);                  assert(MDOC_BLOCK == nn->type);
                 n = n->head->child;                  assert(MDOC_It == nn->tok);
                   nn = nn->head->child;
         }          }
   
         sz = 10; /* Default size. */          sz = 10; /* Default size. */
   
         if (n) {          if (nn) {
                 if (MDOC_TEXT != n->type) {                  if (MDOC_TEXT != nn->type) {
                         if (0 == (sz = (int)mdoc_macro2len(n->tok)))                          if (0 == (sz = (int)mdoc_macro2len(nn->tok)))
                                 if ( ! mwarn(m, WNOWIDTH))                                  if ( ! mdoc_nwarn(m, n, ENOWIDTH))
                                         return(0);                                          return(0);
                 } else                  } else
                         sz = (int)strlen(n->string) + 1;                          sz = (int)strlen(nn->string) + 1;
         }          }
   
         (void)snprintf(buf, sizeof(buf), "%dn", sz);          if (-1 == snprintf(buf, sizeof(buf), "%dn", sz))
                   return(mdoc_nerr(m, n, ENUMFMT));
   
         /*          /*
          * We have to dynamically add this to the macro's argument list.           * We have to dynamically add this to the macro's argument list.
          * We're guaranteed that a MDOC_Width doesn't already exist.           * We're guaranteed that a MDOC_Width doesn't already exist.
          */           */
   
         n = m->last;          nn = n;
         assert(n->args);          assert(nn->args);
           sz = (int)(nn->args->argc)++;
   
         sz = (int)(n->args->argc)++;          nn->args->argv = realloc(nn->args->argv,
         n->args->argv = xrealloc(n->args->argv,                          nn->args->argc * sizeof(struct mdoc_argv));
                         n->args->argc * sizeof(struct mdoc_argv));  
   
         n->args->argv[sz].arg = MDOC_Width;          if (NULL == nn->args->argv)
         n->args->argv[sz].line = m->last->line;                  return(mdoc_nerr(m, n, EMALLOC));
         n->args->argv[sz].pos = m->last->pos;  
         n->args->argv[sz].sz = 1;  
         n->args->argv[sz].value = calloc(1, sizeof(char *));  
         if (NULL == n->args->argv[sz].value)  
                 err(1, "calloc");  
         n->args->argv[sz].value[0] = xstrdup(buf);  
   
           nn->args->argv[sz].arg = MDOC_Width;
           nn->args->argv[sz].line = n->line;
           nn->args->argv[sz].pos = n->pos;
           nn->args->argv[sz].sz = 1;
           nn->args->argv[sz].value = calloc(1, sizeof(char *));
   
           if (NULL == nn->args->argv[sz].value)
                   return(mdoc_nerr(m, n, EMALLOC));
           if (NULL == (nn->args->argv[sz].value[0] = strdup(buf)))
                   return(mdoc_nerr(m, n, EMALLOC));
   
         return(1);          return(1);
 }  }
   
   
 static int  static int
 post_bl_width(struct mdoc *m)  post_bl_width(POST_ARGS)
 {  {
         size_t            width;          size_t            width;
         int               i, tok;          int               i, tok;
         char              buf[32];          char              buf[32];
         char             *p;          char             *p;
   
         if (NULL == m->last->args)          if (NULL == n->args)
                 return(1);                  return(1);
   
         for (i = 0; i < (int)m->last->args->argc; i++)          for (i = 0; i < (int)n->args->argc; i++)
                 if (MDOC_Width == m->last->args->argv[i].arg)                  if (MDOC_Width == n->args->argv[i].arg)
                         break;                          break;
   
         if (i == (int)m->last->args->argc)          if (i == (int)n->args->argc)
                 return(1);                  return(1);
           p = n->args->argv[i].value[0];
   
         p = m->last->args->argv[i].value[0];  
   
         /*          /*
          * If the value to -width is a macro, then we re-write it to be           * If the value to -width is a macro, then we re-write it to be
          * the macro's width as set in share/tmac/mdoc/doc-common.           * the macro's width as set in share/tmac/mdoc/doc-common.
          */           */
   
         if (xstrcmp(p, "Ds"))          if (0 == strcmp(p, "Ds"))
                 width = 8;                  width = 6;
         else if (MDOC_MAX == (tok = mdoc_tokhash_find(m->htab, p)))          else if (MDOC_MAX == (tok = mdoc_hash_find(p)))
                 return(1);                  return(1);
         else if (0 == (width = mdoc_macro2len(tok)))          else if (0 == (width = mdoc_macro2len(tok)))
                 return(mwarn(m, WNOWIDTH));                  return(mdoc_nwarn(m, n, ENOWIDTH));
   
         /* The value already exists: free and reallocate it. */          /* The value already exists: free and reallocate it. */
   
         (void)snprintf(buf, sizeof(buf), "%zun", width);          if (-1 == snprintf(buf, sizeof(buf), "%zun", width))
                   return(mdoc_nerr(m, n, ENUMFMT));
   
         free(m->last->args->argv[i].value[0]);          free(n->args->argv[i].value[0]);
         m->last->args->argv[i].value[0] = xstrdup(buf);          n->args->argv[i].value[0] = strdup(buf);
           if (NULL == n->args->argv[i].value[0])
                   return(mdoc_nerr(m, n, EMALLOC));
   
         return(1);          return(1);
 }  }
   
   
   /* ARGSUSED */
 static int  static int
   post_bl_head(POST_ARGS)
   {
           int                      i, c;
           struct mdoc_node        *np, *nn, *nnp;
   
           if (NULL == n->child)
                   return(1);
   
           np = n->parent;
           assert(np->args);
   
           for (c = 0; c < (int)np->args->argc; c++)
                   if (MDOC_Column == np->args->argv[c].arg)
                           break;
   
           /* Only process -column. */
   
           if (c == (int)np->args->argc)
                   return(1);
   
           assert(0 == np->args->argv[c].sz);
   
           /*
            * Accomodate for new-style groff column syntax.  Shuffle the
            * child nodes, all of which must be TEXT, as arguments for the
            * column field.  Then, delete the head children.
            */
   
           np->args->argv[c].sz = (size_t)n->nchild;
           np->args->argv[c].value = malloc
                   ((size_t)n->nchild * sizeof(char *));
   
           for (i = 0, nn = n->child; nn; i++) {
                   np->args->argv[c].value[i] = nn->string;
                   nn->string = NULL;
                   nnp = nn;
                   nn = nn->next;
                   mdoc_node_free(nnp);
           }
   
           n->nchild = 0;
           n->child = NULL;
   
           return(1);
   }
   
   
   static int
 post_bl(POST_ARGS)  post_bl(POST_ARGS)
 {  {
         int               i, r, len;          int               i, r, len;
   
         if (MDOC_BLOCK != m->last->type)          if (MDOC_HEAD == n->type)
                   return(post_bl_head(m, n));
           if (MDOC_BLOCK != n->type)
                 return(1);                  return(1);
   
         /*          /*
Line 570  post_bl(POST_ARGS)
Line 739  post_bl(POST_ARGS)
          * rewritten into real lengths).           * rewritten into real lengths).
          */           */
   
         len = (int)(m->last->args ? m->last->args->argc : 0);          len = (int)(n->args ? n->args->argc : 0);
   
         for (r = i = 0; i < len; i++) {          for (r = i = 0; i < len; i++) {
                 if (MDOC_Tag == m->last->args->argv[i].arg)                  if (MDOC_Tag == n->args->argv[i].arg)
                         r |= 1 << 0;                          r |= 1 << 0;
                 if (MDOC_Width == m->last->args->argv[i].arg)                  if (MDOC_Width == n->args->argv[i].arg)
                         r |= 1 << 1;                          r |= 1 << 1;
         }          }
   
         if (r & (1 << 0) && ! (r & (1 << 1))) {          if (r & (1 << 0) && ! (r & (1 << 1))) {
                 if ( ! post_bl_tagwidth(m))                  if ( ! post_bl_tagwidth(m, n))
                         return(0);                          return(0);
         } else if (r & (1 << 1))          } else if (r & (1 << 1))
                 if ( ! post_bl_width(m))                  if ( ! post_bl_width(m, n))
                         return(0);                          return(0);
   
         return(1);          return(1);
Line 591  post_bl(POST_ARGS)
Line 760  post_bl(POST_ARGS)
   
   
 static int  static int
   post_tilde(POST_ARGS)
   {
           struct mdoc_node *np;
   
           if (n->child)
                   return(1);
   
           np = n;
           m->next = MDOC_NEXT_CHILD;
   
           /* XXX: not documented for `Lk'. */
           if ( ! mdoc_word_alloc(m, n->line, n->pos, "~"))
                   return(0);
           m->last = np;
   
           return(1);
   }
   
   
   static int
 post_ar(POST_ARGS)  post_ar(POST_ARGS)
 {  {
         struct mdoc_node *n;          struct mdoc_node *np;
   
         if (m->last->child)          if (n->child)
                 return(1);                  return(1);
   
         n = m->last;          np = n;
         m->next = MDOC_NEXT_CHILD;          m->next = MDOC_NEXT_CHILD;
         if ( ! mdoc_word_alloc(m, m->last->line,          if ( ! mdoc_word_alloc(m, n->line, n->pos, "file"))
                                 m->last->pos, "file"))  
                 return(0);                  return(0);
         m->next = MDOC_NEXT_SIBLING;          if ( ! mdoc_word_alloc(m, n->line, n->pos, "..."))
         if ( ! mdoc_word_alloc(m, m->last->line,  
                                 m->last->pos, "..."))  
                 return(0);                  return(0);
           m->last = np;
   
         m->last = n;  
         m->next = MDOC_NEXT_SIBLING;  
         return(1);          return(1);
 }  }
   
Line 619  post_dd(POST_ARGS)
Line 804  post_dd(POST_ARGS)
 {  {
         char              buf[64];          char              buf[64];
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));          buf[0] = 0;
           if ( ! concat(m, n->child, buf, sizeof(buf)))
                   return(0);
   
         if (0 == (m->meta.date = mdoc_atotime(buf))) {          if (0 == (m->meta.date = mdoc_atotime(buf))) {
                 if ( ! mwarn(m, WBADDATE))                  if ( ! mdoc_nwarn(m, n, EBADDATE))
                         return(0);                          return(0);
                 m->meta.date = time(NULL);                  m->meta.date = time(NULL);
         }          }
   
         return(post_prol(m));          return(post_prol(m, n));
 }  }
   
   
 static int  static int
 post_prol(POST_ARGS)  post_prol(POST_ARGS)
 {  {
         struct mdoc_node *n;          struct mdoc_node *np;
   
         /*          /* Remove prologue macros from AST.  */
          * The end document shouldn't have the prologue macros as part  
          * of the syntax tree (they encompass only meta-data).  
          */  
   
         if (m->last->parent->child == m->last)          if (n->parent->child == n)
                 m->last->parent->child = m->last->prev;                  n->parent->child = n->prev;
         if (m->last->prev)          if (n->prev)
                 m->last->prev->next = NULL;                  n->prev->next = NULL;
   
         n = m->last;          np = n;
         assert(NULL == m->last->next);          assert(NULL == n->next);
   
         if (m->last->prev) {          if (n->prev) {
                 m->last = m->last->prev;                  m->last = n->prev;
                 m->next = MDOC_NEXT_SIBLING;                  m->next = MDOC_NEXT_SIBLING;
         } else {          } else {
                 m->last = m->last->parent;                  m->last = n->parent;
                 m->next = MDOC_NEXT_CHILD;                  m->next = MDOC_NEXT_CHILD;
         }          }
   
         mdoc_node_freelist(n);          mdoc_node_freelist(np);
   
           if (m->meta.title && m->meta.date && m->meta.os)
                   m->flags |= MDOC_PBODY;
   
         return(1);          return(1);
 }  }
   
Line 666  static int
Line 854  static int
 pre_dl(PRE_ARGS)  pre_dl(PRE_ARGS)
 {  {
   
         if (MDOC_BODY != n->type)          if (MDOC_BODY == n->type)
                 return(1);                  m->flags |= MDOC_LITERAL;
         m->flags |= MDOC_LITERAL;  
         return(1);          return(1);
 }  }
   
   
 static int  static int
   pre_offset(PRE_ARGS)
   {
           int              i;
   
           /*
            * Make sure that an empty offset produces an 8n length space as
            * stipulated by mdoc.samples.
            */
   
           assert(n->args);
           for (i = 0; i < (int)n->args->argc; i++) {
                   if (MDOC_Offset != n->args->argv[i].arg)
                           continue;
                   if (n->args->argv[i].sz)
                           break;
                   assert(1 == n->args->refcnt);
                   /* If no value set, length of <string>. */
                   n->args->argv[i].value =
                   calloc(1, sizeof(char *));
                   if (NULL == n->args->argv[i].value)
                           return(mdoc_nerr(m, n, EMALLOC));
                   n->args->argv[i].sz++;
                   n->args->argv[i].value[0] = strdup("8n");
                   if (NULL == n->args->argv[i].value[0])
                           return(mdoc_nerr(m, n, EMALLOC));
                   break;
           }
   
           return(1);
   }
   
   
   static int
   pre_bl(PRE_ARGS)
   {
   
           return(MDOC_BLOCK == n->type ? pre_offset(m, n) : 1);
   }
   
   
   static int
 pre_bd(PRE_ARGS)  pre_bd(PRE_ARGS)
 {  {
         int              i;          int              i;
   
           if (MDOC_BLOCK == n->type)
                   return(pre_offset(m, n));
         if (MDOC_BODY != n->type)          if (MDOC_BODY != n->type)
                 return(1);                  return(1);
   
         /*          /* Enter literal context if `Bd -literal' or `-unfilled'. */
          * We ONLY enter a literal context if `Bd -literal' or `Bd  
          * -unfilled'.  
          */  
   
         n = n->parent;          for (n = n->parent, i = 0; i < (int)n->args->argc; i++)
   
         for (i = 0; i < (int)n->args->argc; i++)  
                 if (MDOC_Literal == n->args->argv[i].arg)                  if (MDOC_Literal == n->args->argv[i].arg)
                         break;                          m->flags |= MDOC_LITERAL;
                 else if (MDOC_Unfilled == n->args->argv[i].arg)                  else if (MDOC_Unfilled == n->args->argv[i].arg)
                         break;                          m->flags |= MDOC_LITERAL;
   
         if (i < (int)n->args->argc)  
                 m->flags |= MDOC_LITERAL;  
   
         return(1);          return(1);
 }  }
   
Line 705  static int
Line 927  static int
 post_display(POST_ARGS)  post_display(POST_ARGS)
 {  {
   
         if (MDOC_BODY == m->last->type)          if (MDOC_BODY == n->type)
                 m->flags &= ~MDOC_LITERAL;                  m->flags &= ~MDOC_LITERAL;
         return(1);          return(1);
 }  }
   
   
   static inline int
   order_rs(int t)
   {
           int             i;
   
           for (i = 0; i < RSORD_MAX; i++)
                   if (rsord[i] == t)
                           return(i);
   
           abort();
           /* NOTREACHED */
   }
   
   
   /* ARGSUSED */
   static int
   post_rs(POST_ARGS)
   {
           struct mdoc_node        *nn, *next, *prev;
           int                      o;
   
           if (MDOC_BLOCK != n->type)
                   return(1);
   
           assert(n->body->child);
           for (next = NULL, nn = n->body->child->next; nn; nn = next) {
                   o = order_rs(nn->tok);
   
                   /* Remove `nn' from the chain. */
                   next = nn->next;
                   if (next)
                           next->prev = nn->prev;
   
                   prev = nn->prev;
                   if (prev)
                           prev->next = nn->next;
   
                   nn->prev = nn->next = NULL;
   
                   /*
                    * Scan back until we reach a node that's ordered before
                    * us, then set ourselves as being the next.
                    */
                   for ( ; prev; prev = prev->prev)
                           if (order_rs(prev->tok) <= o)
                                   break;
   
                   nn->prev = prev;
                   if (prev) {
                           if (prev->next)
                                   prev->next->prev = nn;
                           nn->next = prev->next;
                           prev->next = nn;
                           continue;
                   }
   
                   n->body->child->prev = nn;
                   nn->next = n->body->child;
                   n->body->child = nn;
           }
           return(1);
   }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.42
CVSweb