[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.22 and 1.23

version 1.22, 2009/07/06 11:14:03 version 1.23, 2009/07/06 13:04:52
Line 24 
Line 24 
   
 #include "libmdoc.h"  #include "libmdoc.h"
   
 enum    merr {  
         EBADDATE,  
         ENOWIDTH,  
         EBADSEC,  
         ETOOLONG,  
         EMALLOC,  
         EUTSNAME,  
         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 42  struct actions {
Line 32  struct actions {
         int     (*post)(POST_ARGS);          int     (*post)(POST_ARGS);
 };  };
   
 static  int       perr(struct mdoc *, int, int, enum merr, int);  
 static  int       concat(struct mdoc *, const struct mdoc_node *,  static  int       concat(struct mdoc *, const struct mdoc_node *,
                         char *, size_t);                          char *, size_t);
   
Line 64  static int   post_std(POST_ARGS);
Line 53  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 vwarn(m, t) perr((m), (m)->last->line, (m)->last->pos, (t), 0)  
 #define verr(m, t) perr((m), (m)->last->line, (m)->last->pos, (t), 1)  
 #define nerr(m, n, t) perr((m), (n)->line, (n)->pos, (t), 1)  
   
 const   struct actions mdoc_actions[MDOC_MAX] = {  const   struct actions mdoc_actions[MDOC_MAX] = {
         { NULL, NULL }, /* Ap */          { NULL, NULL }, /* Ap */
         { NULL, post_dd }, /* Dd */          { NULL, post_dd }, /* Dd */
Line 245  concat(struct mdoc *m, const struct mdoc_node *n, 
Line 230  concat(struct mdoc *m, const struct mdoc_node *n, 
         for ( ; n; n = n->next) {          for ( ; n; n = n->next) {
                 assert(MDOC_TEXT == n->type);                  assert(MDOC_TEXT == n->type);
                 if (strlcat(buf, n->string, sz) >= sz)                  if (strlcat(buf, n->string, sz) >= sz)
                         return(nerr(m, n, ETOOLONG));                          return(mdoc_nerr(m, n, ETOOLONG));
                 if (NULL == n->next)                  if (NULL == n->next)
                         continue;                          continue;
                 if (strlcat(buf, " ", sz) >= sz)                  if (strlcat(buf, " ", sz) >= sz)
                         return(nerr(m, n, ETOOLONG));                          return(mdoc_nerr(m, n, ETOOLONG));
         }          }
   
         return(1);          return(1);
Line 257  concat(struct mdoc *m, const struct mdoc_node *n, 
Line 242  concat(struct mdoc *m, const struct mdoc_node *n, 
   
   
 static int  static int
 perr(struct mdoc *m, int line, int pos, enum merr type, int iserr)  
 {  
         char            *p;  
   
         p = NULL;  
   
         switch (type) {  
         case (ENUMFMT):  
                 p = "bad number format";  
                 break;  
         case (ETOOLONG):  
                 p = "argument text too long";  
                 break;  
         case (EUTSNAME):  
                 p = "utsname";  
                 break;  
         case (EMALLOC):  
                 p = "memory exhausted";  
                 break;  
         case (EBADSEC):  
                 p = "inappropriate document section in manual section";  
                 break;  
         case (ENOWIDTH):  
                 p = "cannot determine default width";  
                 break;  
         case (EBADDATE):  
                 p = "malformed date syntax";  
                 break;  
         }  
   
         assert(p);  
         if (iserr)  
                 return(mdoc_perr(m, line, pos, p));  
   
         return(mdoc_pwarn(m, line, pos, p));  
 }  
   
   
 static int  
 post_std(POST_ARGS)  post_std(POST_ARGS)
 {  {
   
Line 313  post_std(POST_ARGS)
Line 259  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)
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         m->last->args->argv[0].sz = 1;          m->last->args->argv[0].sz = 1;
         m->last->args->argv[0].value[0] = strdup(m->meta.name);          m->last->args->argv[0].value[0] = strdup(m->meta.name);
         if (NULL == m->last->args->argv[0].value[0])          if (NULL == m->last->args->argv[0].value[0])
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         return(1);          return(1);
 }  }
Line 337  post_nm(POST_ARGS)
Line 283  post_nm(POST_ARGS)
                 return(0);                  return(0);
   
         if (NULL == (m->meta.name = strdup(buf)))          if (NULL == (m->meta.name = strdup(buf)))
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         return(1);          return(1);
 }  }
Line 376  post_sh(POST_ARGS)
Line 322  post_sh(POST_ARGS)
                 case (9):                  case (9):
                         break;                          break;
                 default:                  default:
                         return(vwarn(m, EBADSEC));                          return(mdoc_nwarn(m, m->last, EBADSEC));
                 }                  }
                 break;                  break;
         default:          default:
Line 410  post_dt(POST_ARGS)
Line 356  post_dt(POST_ARGS)
   
         if (NULL == (n = m->last->child)) {          if (NULL == (n = m->last->child)) {
                 if (NULL == (m->meta.title = strdup("unknown")))                  if (NULL == (m->meta.title = strdup("unknown")))
                         return(verr(m, EMALLOC));                          return(mdoc_nerr(m, m->last, EMALLOC));
                 if (NULL == (m->meta.vol = strdup("local")))                  if (NULL == (m->meta.vol = strdup("local")))
                         return(verr(m, EMALLOC));                          return(mdoc_nerr(m, m->last, EMALLOC));
                 return(post_prol(m));                  return(post_prol(m));
         }          }
   
Line 421  post_dt(POST_ARGS)
Line 367  post_dt(POST_ARGS)
          */           */
   
         if (NULL == (m->meta.title = strdup(n->string)))          if (NULL == (m->meta.title = strdup(n->string)))
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         if (NULL == (n = n->next)) {          if (NULL == (n = n->next)) {
                 if (NULL == (m->meta.vol = strdup("local")))                  if (NULL == (m->meta.vol = strdup("local")))
                         return(verr(m, EMALLOC));                          return(mdoc_nerr(m, m->last, EMALLOC));
                 return(post_prol(m));                  return(post_prol(m));
         }          }
   
Line 439  post_dt(POST_ARGS)
Line 385  post_dt(POST_ARGS)
         cp = mdoc_a2msec(n->string);          cp = mdoc_a2msec(n->string);
         if (cp) {          if (cp) {
                 if (NULL == (m->meta.vol = strdup(cp)))                  if (NULL == (m->meta.vol = strdup(cp)))
                         return(verr(m, EMALLOC));                          return(mdoc_nerr(m, m->last, 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 if (NULL == (m->meta.vol = strdup(n->string)))          } else if (NULL == (m->meta.vol = strdup(n->string)))
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         if (NULL == (n = n->next))          if (NULL == (n = n->next))
                 return(post_prol(m));                  return(post_prol(m));
Line 461  post_dt(POST_ARGS)
Line 407  post_dt(POST_ARGS)
         if (cp) {          if (cp) {
                 free(m->meta.vol);                  free(m->meta.vol);
                 if (NULL == (m->meta.vol = strdup(cp)))                  if (NULL == (m->meta.vol = strdup(cp)))
                         return(verr(m, EMALLOC));                          return(mdoc_nerr(m, m->last, 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);
                         if (NULL == (m->meta.vol = strdup(n->string)))                          if (NULL == (m->meta.vol = strdup(n->string)))
                                 return(verr(m, EMALLOC));                                  return(mdoc_nerr(m, m->last, EMALLOC));
                 } else if (NULL == (m->meta.arch = strdup(cp)))                  } else if (NULL == (m->meta.arch = strdup(cp)))
                         return(verr(m, EMALLOC));                          return(mdoc_nerr(m, m->last, EMALLOC));
         }          }
   
         /* Ignore any subsequent parameters... */          /* Ignore any subsequent parameters... */
Line 494  post_os(POST_ARGS)
Line 440  post_os(POST_ARGS)
   
         if (0 == buf[0]) {          if (0 == buf[0]) {
                 if (-1 == uname(&utsname))                  if (-1 == uname(&utsname))
                         return(verr(m, EUTSNAME));                          return(mdoc_nerr(m, m->last, EUTSNAME));
                 if (strlcat(buf, utsname.sysname, 64) >= 64)                  if (strlcat(buf, utsname.sysname, 64) >= 64)
                         return(verr(m, ETOOLONG));                          return(mdoc_nerr(m, m->last, ETOOLONG));
                 if (strlcat(buf, " ", 64) >= 64)                  if (strlcat(buf, " ", 64) >= 64)
                         return(verr(m, ETOOLONG));                          return(mdoc_nerr(m, m->last, ETOOLONG));
                 if (strlcat(buf, utsname.release, 64) >= 64)                  if (strlcat(buf, utsname.release, 64) >= 64)
                         return(verr(m, ETOOLONG));                          return(mdoc_nerr(m, m->last, ETOOLONG));
         }          }
   
         if (NULL == (m->meta.os = strdup(buf)))          if (NULL == (m->meta.os = strdup(buf)))
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         m->flags |= MDOC_PBODY;          m->flags |= MDOC_PBODY;
         return(post_prol(m));          return(post_prol(m));
Line 539  post_bl_tagwidth(struct mdoc *m)
Line 485  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 ( ! vwarn(m, ENOWIDTH))                                  if ( ! mdoc_nwarn(m, m->last, ENOWIDTH))
                                         return(0);                                          return(0);
                 } else                  } else
                         sz = (int)strlen(n->string) + 1;                          sz = (int)strlen(n->string) + 1;
         }          }
   
         if (-1 == snprintf(buf, sizeof(buf), "%dn", sz))          if (-1 == snprintf(buf, sizeof(buf), "%dn", sz))
                 return(verr(m, ENUMFMT));                  return(mdoc_nerr(m, m->last, 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 561  post_bl_tagwidth(struct mdoc *m)
Line 507  post_bl_tagwidth(struct mdoc *m)
                         n->args->argc * sizeof(struct mdoc_argv));                          n->args->argc * sizeof(struct mdoc_argv));
   
         if (NULL == n->args->argv)          if (NULL == n->args->argv)
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, 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;
Line 570  post_bl_tagwidth(struct mdoc *m)
Line 516  post_bl_tagwidth(struct mdoc *m)
         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)
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
         if (NULL == (n->args->argv[sz].value[0] = strdup(buf)))          if (NULL == (n->args->argv[sz].value[0] = strdup(buf)))
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         return(1);          return(1);
 }  }
Line 607  post_bl_width(struct mdoc *m)
Line 553  post_bl_width(struct mdoc *m)
         else if (MDOC_MAX == (tok = mdoc_hash_find(m->htab, p)))          else if (MDOC_MAX == (tok = mdoc_hash_find(m->htab, p)))
                 return(1);                  return(1);
         else if (0 == (width = mdoc_macro2len(tok)))          else if (0 == (width = mdoc_macro2len(tok)))
                 return(vwarn(m, ENOWIDTH));                  return(mdoc_nwarn(m, m->last, ENOWIDTH));
   
         /* The value already exists: free and reallocate it. */          /* The value already exists: free and reallocate it. */
   
         if (-1 == snprintf(buf, sizeof(buf), "%zun", width))          if (-1 == snprintf(buf, sizeof(buf), "%zun", width))
                 return(verr(m, ENUMFMT));                  return(mdoc_nerr(m, m->last, ENUMFMT));
   
         free(m->last->args->argv[i].value[0]);          free(m->last->args->argv[i].value[0]);
         m->last->args->argv[i].value[0] = strdup(buf);          m->last->args->argv[i].value[0] = strdup(buf);
         if (NULL == m->last->args->argv[i].value[0])          if (NULL == m->last->args->argv[i].value[0])
                 return(verr(m, EMALLOC));                  return(mdoc_nerr(m, m->last, EMALLOC));
   
         return(1);          return(1);
 }  }
Line 764  post_dd(POST_ARGS)
Line 710  post_dd(POST_ARGS)
                 return(0);                  return(0);
   
         if (0 == (m->meta.date = mdoc_atotime(buf))) {          if (0 == (m->meta.date = mdoc_atotime(buf))) {
                 if ( ! vwarn(m, EBADDATE))                  if ( ! mdoc_nwarn(m, m->last, EBADDATE))
                         return(0);                          return(0);
                 m->meta.date = time(NULL);                  m->meta.date = time(NULL);
         }          }
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
CVSweb