[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.2

version 1.1, 2009/03/25 15:36:05 version 1.2, 2009/03/31 13:50:19
Line 19 
Line 19 
 #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 26 
   
 #include "libmdoc.h"  #include "libmdoc.h"
   
 /*  
  * 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 {  enum    mwarn {
         WBADSEC,          WBADSEC,
         WNOWIDTH,          WNOWIDTH,
         WBADDATE          WBADDATE
 };  };
   
   enum    merr {
           ETOOLONG,
           EMALLOC,
           ENUMFMT
   };
   
 #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  #define POST_ARGS struct mdoc *m
   
Line 48  struct actions {
Line 47  struct actions {
 };  };
   
 static  int       pwarn(struct mdoc *, int, int, enum mwarn);  static  int       pwarn(struct mdoc *, int, int, enum mwarn);
   static  int       perr(struct mdoc *, int, int, enum merr);
   static  int       concat(struct mdoc *, const struct mdoc_node *,
                           char *, size_t);
   
 static  int       post_ar(POST_ARGS);  static  int       post_ar(POST_ARGS);
 static  int       post_bl(POST_ARGS);  static  int       post_bl(POST_ARGS);
Line 65  static int   post_std(POST_ARGS);
Line 67  static int   post_std(POST_ARGS);
 static  int       pre_bd(PRE_ARGS);  static  int       pre_bd(PRE_ARGS);
 static  int       pre_dl(PRE_ARGS);  static  int       pre_dl(PRE_ARGS);
   
 #define mwarn(m, t) pwarn((m), (m)->last->line, (m)->last->pos, (t))  #define vwarn(m, t) pwarn((m), (m)->last->line, (m)->last->pos, (t))
   #define verr(m, t) perr((m), (m)->last->line, (m)->last->pos, (t))
   #define nerr(m, n, t) perr((m), (n)->line, (n)->pos, (t))
   
 const   struct actions mdoc_actions[MDOC_MAX] = {  const   struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, NULL }, /* \" */          { NULL, NULL }, /* \" */
Line 190  const struct actions mdoc_actions[MDOC_MAX] = {
Line 194  const struct actions mdoc_actions[MDOC_MAX] = {
 };  };
   
   
   #ifdef __linux__
   extern  size_t  strlcpy(char *, const char *, size_t);
   extern  size_t  strlcat(char *, const char *, size_t);
   #endif
   
   
 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[m->last->tok].pre)
                   return(1);
           return((*mdoc_actions[m->last->tok].pre)(m, n));
 }  }
   
   
Line 218  mdoc_action_post(struct mdoc *m)
Line 229  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));  
         }          }
   
           if (NULL == mdoc_actions[m->last->tok].post)
                   return(1);
           return((*mdoc_actions[m->last->tok].post)(m));
   }
   
   
   static int
   concat(struct mdoc *m, const struct mdoc_node *n,
                   char *buf, size_t sz)
   {
   
           for ( ; n; n = n->next) {
                   assert(MDOC_TEXT == n->type);
                   if (strlcat(buf, n->string, sz) >= sz)
                           return(nerr(m, n, ETOOLONG));
                   if (NULL == n->next)
                           continue;
                   if (strlcat(buf, " ", sz) >= sz)
                           return(nerr(m, n, ETOOLONG));
           }
   
         return(1);          return(1);
 }  }
   
   
 static int  static int
   perr(struct mdoc *m, int line, int pos, enum merr type)
   {
           char            *p;
   
           p = NULL;
           switch (type) {
           case (ENUMFMT):
                   p = "bad number format";
                   break;
           case (ETOOLONG):
                   p = "argument text too long";
                   break;
           case (EMALLOC):
                   p = "memory exhausted";
                   break;
           }
           assert(p);
           return(mdoc_perr(m, line, pos, p));
   }
   
   
   static int
 pwarn(struct mdoc *m, int line, int pos, enum mwarn type)  pwarn(struct mdoc *m, int line, int pos, enum mwarn type)
 {  {
         char            *p;          char            *p;
Line 238  pwarn(struct mdoc *m, int line, int pos, enum mwarn ty
Line 291  pwarn(struct mdoc *m, int line, int pos, enum mwarn ty
   
         p = NULL;          p = NULL;
         c = WARN_SYNTAX;          c = WARN_SYNTAX;
   
         switch (type) {          switch (type) {
         case (WBADSEC):          case (WBADSEC):
                 p = "inappropriate document section in manual section";                  p = "inappropriate document section in manual section";
Line 251  pwarn(struct mdoc *m, int line, int pos, enum mwarn ty
Line 303  pwarn(struct mdoc *m, int line, int pos, enum mwarn ty
                 p = "malformed date syntax";                  p = "malformed date syntax";
                 break;                  break;
         }          }
   
         assert(p);          assert(p);
         return(mdoc_pwarn(m, line, pos, c, p));          return(mdoc_pwarn(m, line, pos, c, p));
 }  }
Line 275  post_std(POST_ARGS)
Line 326  post_std(POST_ARGS)
   
         m->last->args->argv[0].value = calloc(1, sizeof(char *));          m->last->args->argv[0].value = calloc(1, sizeof(char *));
         if (NULL == m->last->args->argv[0].value)          if (NULL == m->last->args->argv[0].value)
                 err(1, "calloc");                  return(verr(m, EMALLOC));
   
         m->last->args->argv[0].sz = 1;          m->last->args->argv[0].sz = 1;
         m->last->args->argv[0].value[0] = xstrdup(m->meta.name);          m->last->args->argv[0].value[0] = strdup(m->meta.name);
           if (NULL == m->last->args->argv[0].value[0])
                   return(verr(m, EMALLOC));
   
         return(1);          return(1);
 }  }
   
Line 290  post_nm(POST_ARGS)
Line 344  post_nm(POST_ARGS)
   
         if (m->meta.name)          if (m->meta.name)
                 return(1);                  return(1);
           if ( ! concat(m, m->last->child, buf, sizeof(buf)))
                   return(0);
           if (NULL == (m->meta.name = strdup(buf)))
                   return(verr(m, EMALLOC));
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));  
         m->meta.name = xstrdup(buf);  
   
         return(1);          return(1);
 }  }
   
Line 312  post_sh(POST_ARGS)
Line 367  post_sh(POST_ARGS)
   
         if (MDOC_HEAD != m->last->type)          if (MDOC_HEAD != m->last->type)
                 return(1);                  return(1);
           if ( ! concat(m, m->last->child, buf, sizeof(buf)))
         (void)xstrlcpys(buf, m->last->child, 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 384  post_sh(POST_ARGS)
                 case (9):                  case (9):
                         break;                          break;
                 default:                  default:
                         return(mwarn(m, WBADSEC));                          return(vwarn(m, WBADSEC));
                 }                  }
                 break;                  break;
         default:          default:
Line 362  post_dt(POST_ARGS)
Line 417  post_dt(POST_ARGS)
          */           */
   
         if (NULL == (n = m->last->child)) {          if (NULL == (n = m->last->child)) {
                 m->meta.title = xstrdup("unknown");                  if (NULL == (m->meta.title = strdup("unknown")))
                 m->meta.vol = xstrdup("local");                          return(verr(m, EMALLOC));
                   if (NULL == (m->meta.vol = strdup("local")))
                           return(verr(m, EMALLOC));
                 return(post_prol(m));                  return(post_prol(m));
         }          }
   
Line 371  post_dt(POST_ARGS)
Line 428  post_dt(POST_ARGS)
          *   --> 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(n->string)))
                   return(verr(m, EMALLOC));
   
         if (NULL == (n = n->next)) {          if (NULL == (n = n->next)) {
                 m->meta.vol = xstrdup("local");                  if (NULL == (m->meta.vol = strdup("local")))
                           return(verr(m, EMALLOC));
                 return(post_prol(m));                  return(post_prol(m));
         }          }
   
Line 387  post_dt(POST_ARGS)
Line 446  post_dt(POST_ARGS)
   
         cp = mdoc_a2msec(n->string);          cp = mdoc_a2msec(n->string);
         if (cp) {          if (cp) {
                 m->meta.vol = xstrdup(cp);                  if (NULL == (m->meta.vol = strdup(cp)))
                           return(verr(m, EMALLOC));
                 errno = 0;                  errno = 0;
                 lval = strtol(n->string, &ep, 10);                  lval = strtol(n->string, &ep, 10);
                 if (n->string[0] != '\0' && *ep == '\0')                  if (n->string[0] != '\0' && *ep == '\0')
                         m->meta.msec = (int)lval;                          m->meta.msec = (int)lval;
         } else          } else if (NULL == (m->meta.vol = strdup(n->string)))
                 m->meta.vol = xstrdup(n->string);                  return(verr(m, EMALLOC));
   
         if (NULL == (n = n->next))          if (NULL == (n = n->next))
                 return(post_prol(m));                  return(post_prol(m));
Line 408  post_dt(POST_ARGS)
Line 468  post_dt(POST_ARGS)
         cp = mdoc_a2vol(n->string);          cp = mdoc_a2vol(n->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)))
                           return(verr(m, EMALLOC));
                 n = n->next;                  n = n->next;
         } else {          } else {
                 cp = mdoc_a2arch(n->string);                  cp = mdoc_a2arch(n->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(n->string)))
                 } else                                  return(verr(m, EMALLOC));
                         m->meta.arch = xstrdup(cp);                  } else if (NULL == (m->meta.arch = strdup(cp)))
                           return(verr(m, EMALLOC));
         }          }
   
         /* Ignore any subsequent parameters... */          /* Ignore any subsequent parameters... */
Line 433  post_os(POST_ARGS)
Line 495  post_os(POST_ARGS)
   
         if (m->meta.os)          if (m->meta.os)
                 free(m->meta.os);                  free(m->meta.os);
           if ( ! concat(m, m->last->child, buf, sizeof(buf)))
                   return(0);
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));  
   
         if (0 == buf[0]) {          if (0 == buf[0]) {
                 if (-1 == uname(&utsname))                  if (-1 == uname(&utsname))
                         return(mdoc_err(m, "utsname"));                          return(mdoc_err(m, "utsname"));
                 (void)xstrlcpy(buf, utsname.sysname, sizeof(buf));                  if (strlcpy(buf, utsname.sysname, 64) >= 64)
                 (void)xstrlcat(buf, " ", sizeof(buf));                          return(verr(m, ETOOLONG));
                 (void)xstrlcat(buf, utsname.release, sizeof(buf));                  if (strlcat(buf, " ", 64) >= 64)
                           return(verr(m, ETOOLONG));
                   if (strlcat(buf, utsname.release, 64) >= 64)
                           return(verr(m, ETOOLONG));
         }          }
   
         m->meta.os = xstrdup(buf);          if (NULL == (m->meta.os = strdup(buf)))
                   return(verr(m, EMALLOC));
         m->lastnamed = m->lastsec = SEC_BODY;          m->lastnamed = m->lastsec = SEC_BODY;
   
         return(post_prol(m));          return(post_prol(m));
Line 478  post_bl_tagwidth(struct mdoc *m)
Line 544  post_bl_tagwidth(struct mdoc *m)
         if (n) {          if (n) {
                 if (MDOC_TEXT != n->type) {                  if (MDOC_TEXT != n->type) {
                         if (0 == (sz = (int)mdoc_macro2len(n->tok)))                          if (0 == (sz = (int)mdoc_macro2len(n->tok)))
                                 if ( ! mwarn(m, WNOWIDTH))                                  if ( ! vwarn(m, WNOWIDTH))
                                         return(0);                                          return(0);
                 } else                  } else
                         sz = (int)strlen(n->string) + 1;                          sz = (int)strlen(n->string) + 1;
         }          }
   
         (void)snprintf(buf, sizeof(buf), "%dn", sz);          if (-1 == snprintf(buf, sizeof(buf), "%dn", sz))
                   return(verr(m, 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.
Line 493  post_bl_tagwidth(struct mdoc *m)
Line 560  post_bl_tagwidth(struct mdoc *m)
   
         n = m->last;          n = m->last;
         assert(n->args);          assert(n->args);
   
         sz = (int)(n->args->argc)++;          sz = (int)(n->args->argc)++;
         n->args->argv = xrealloc(n->args->argv,  
           n->args->argv = realloc(n->args->argv,
                         n->args->argc * sizeof(struct mdoc_argv));                          n->args->argc * sizeof(struct mdoc_argv));
   
           if (NULL == n->args->argv)
                   return(verr(m, EMALLOC));
   
         n->args->argv[sz].arg = MDOC_Width;          n->args->argv[sz].arg = MDOC_Width;
         n->args->argv[sz].line = m->last->line;          n->args->argv[sz].line = m->last->line;
         n->args->argv[sz].pos = m->last->pos;          n->args->argv[sz].pos = m->last->pos;
         n->args->argv[sz].sz = 1;          n->args->argv[sz].sz = 1;
         n->args->argv[sz].value = calloc(1, sizeof(char *));          n->args->argv[sz].value = calloc(1, sizeof(char *));
   
         if (NULL == n->args->argv[sz].value)          if (NULL == n->args->argv[sz].value)
                 err(1, "calloc");                  return(verr(m, EMALLOC));
         n->args->argv[sz].value[0] = xstrdup(buf);          if (NULL == (n->args->argv[sz].value[0] = strdup(buf)))
                   return(verr(m, EMALLOC));
   
         return(1);          return(1);
 }  }
Line 528  post_bl_width(struct mdoc *m)
Line 600  post_bl_width(struct mdoc *m)
   
         if (i == (int)m->last->args->argc)          if (i == (int)m->last->args->argc)
                 return(1);                  return(1);
   
         p = m->last->args->argv[i].value[0];          p = m->last->args->argv[i].value[0];
   
         /*          /*
Line 536  post_bl_width(struct mdoc *m)
Line 607  post_bl_width(struct mdoc *m)
          * 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 = 8;
         else if (MDOC_MAX == (tok = mdoc_tokhash_find(m->htab, p)))          else if (MDOC_MAX == (tok = mdoc_tokhash_find(m->htab, p)))
                 return(1);                  return(1);
         else if (0 == (width = mdoc_macro2len(tok)))          else if (0 == (width = mdoc_macro2len(tok)))
                 return(mwarn(m, WNOWIDTH));                  return(vwarn(m, WNOWIDTH));
   
         /* 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(verr(m, ENUMFMT));
   
         free(m->last->args->argv[i].value[0]);          free(m->last->args->argv[i].value[0]);
         m->last->args->argv[i].value[0] = xstrdup(buf);          m->last->args->argv[i].value[0] = strdup(buf);
           if (NULL == m->last->args->argv[i].value[0])
                   return(verr(m, EMALLOC));
   
         return(1);          return(1);
 }  }
Line 619  post_dd(POST_ARGS)
Line 693  post_dd(POST_ARGS)
 {  {
         char              buf[64];          char              buf[64];
   
         (void)xstrlcpys(buf, m->last->child, sizeof(buf));          if ( ! concat(m, m->last->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 ( ! vwarn(m, WBADDATE))
                         return(0);                          return(0);
                 m->meta.date = time(NULL);                  m->meta.date = time(NULL);
         }          }
Line 681  pre_bd(PRE_ARGS)
Line 756  pre_bd(PRE_ARGS)
         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;                          break;
                 else if (MDOC_Unfilled == n->args->argv[i].arg)                  else if (MDOC_Unfilled == n->args->argv[i].arg)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

CVSweb