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

Diff for /mandoc/mdoc.c between version 1.115 and 1.121

version 1.115, 2010/01/07 10:05:24 version 1.121, 2010/04/06 11:33:00
Line 26 
Line 26 
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
   #include <time.h>
   
 #include "libmdoc.h"  #include "libmdoc.h"
 #include "libmandoc.h"  #include "libmandoc.h"
Line 140  const char *const __mdoc_argnames[MDOC_ARG_MAX] = {   
Line 141  const char *const __mdoc_argnames[MDOC_ARG_MAX] = {   
 const   char * const *mdoc_macronames = __mdoc_macronames;  const   char * const *mdoc_macronames = __mdoc_macronames;
 const   char * const *mdoc_argnames = __mdoc_argnames;  const   char * const *mdoc_argnames = __mdoc_argnames;
   
   static  void              mdoc_node_free(struct mdoc_node *);
   static  void              mdoc_node_unlink(struct mdoc *,
                                   struct mdoc_node *);
 static  void              mdoc_free1(struct mdoc *);  static  void              mdoc_free1(struct mdoc *);
 static  void              mdoc_alloc1(struct mdoc *);  static  void              mdoc_alloc1(struct mdoc *);
 static  struct mdoc_node *node_alloc(struct mdoc *, int, int,  static  struct mdoc_node *node_alloc(struct mdoc *, int, int,
                                 int, enum mdoc_type);                                  enum mdoct, enum mdoc_type);
 static  int               node_append(struct mdoc *,  static  int               node_append(struct mdoc *,
                                 struct mdoc_node *);                                  struct mdoc_node *);
 static  int               parsetext(struct mdoc *, int, char *);  static  int               parsetext(struct mdoc *, int, char *);
Line 176  mdoc_free1(struct mdoc *mdoc)
Line 180  mdoc_free1(struct mdoc *mdoc)
 {  {
   
         if (mdoc->first)          if (mdoc->first)
                 mdoc_node_freelist(mdoc->first);                  mdoc_node_delete(mdoc, mdoc->first);
         if (mdoc->meta.title)          if (mdoc->meta.title)
                 free(mdoc->meta.title);                  free(mdoc->meta.title);
         if (mdoc->meta.os)          if (mdoc->meta.os)
Line 341  mdoc_err(struct mdoc *m, int line, int pos, int iserr,
Line 345  mdoc_err(struct mdoc *m, int line, int pos, int iserr,
   
   
 int  int
 mdoc_macro(struct mdoc *m, int tok,  mdoc_macro(struct mdoc *m, enum mdoct tok,
                 int ln, int pp, int *pos, char *buf)                  int ln, int pp, int *pos, char *buf)
 {  {
   
           assert(tok < MDOC_MAX);
         /*          /*
          * If we're in the prologue, deny "body" macros.  Similarly, if           * If we're in the prologue, deny "body" macros.  Similarly, if
          * we're in the body, deny prologue calls.           * we're in the body, deny prologue calls.
          */           */
         if (MDOC_PROLOGUE & mdoc_macros[tok].flags &&          if (MDOC_PROLOGUE & mdoc_macros[tok].flags &&
                         MDOC_PBODY & m->flags)                          MDOC_PBODY & m->flags) {
                 return(mdoc_perr(m, ln, pp, EPROLBODY));                  if ( ! mdoc_pwarn(m, ln, pp, EBODYPROL))
                           return(0);
                   /*
                    * FIXME: do this in mdoc_action.c.
                    */
                   if (NULL == m->meta.title)
                           m->meta.title = mandoc_strdup("unknown");
                   if (NULL == m->meta.vol)
                           m->meta.vol = mandoc_strdup("local");
                   if (NULL == m->meta.os)
                           m->meta.os = mandoc_strdup("local");
                   if (0 == m->meta.date)
                           m->meta.date = time(NULL);
                   m->flags |= MDOC_PBODY;
           }
         if ( ! (MDOC_PROLOGUE & mdoc_macros[tok].flags) &&          if ( ! (MDOC_PROLOGUE & mdoc_macros[tok].flags) &&
                         ! (MDOC_PBODY & m->flags))                          ! (MDOC_PBODY & m->flags))
                 return(mdoc_perr(m, ln, pp, EBODYPROL));                  return(mdoc_perr(m, ln, pp, EBODYPROL));
Line 424  node_append(struct mdoc *mdoc, struct mdoc_node *p)
Line 444  node_append(struct mdoc *mdoc, struct mdoc_node *p)
   
   
 static struct mdoc_node *  static struct mdoc_node *
 node_alloc(struct mdoc *m, int line,  node_alloc(struct mdoc *m, int line, int pos,
                 int pos, int tok, enum mdoc_type type)                  enum mdoct tok, enum mdoc_type type)
 {  {
         struct mdoc_node *p;          struct mdoc_node *p;
   
Line 434  node_alloc(struct mdoc *m, int line, 
Line 454  node_alloc(struct mdoc *m, int line, 
         p->line = line;          p->line = line;
         p->pos = pos;          p->pos = pos;
         p->tok = tok;          p->tok = tok;
         if (MDOC_TEXT != (p->type = type))          p->type = type;
                 assert(p->tok >= 0);  
   
         return(p);          return(p);
 }  }
   
   
 int  int
 mdoc_tail_alloc(struct mdoc *m, int line, int pos, int tok)  mdoc_tail_alloc(struct mdoc *m, int line, int pos, enum mdoct tok)
 {  {
         struct mdoc_node *p;          struct mdoc_node *p;
   
Line 455  mdoc_tail_alloc(struct mdoc *m, int line, int pos, int
Line 474  mdoc_tail_alloc(struct mdoc *m, int line, int pos, int
   
   
 int  int
 mdoc_head_alloc(struct mdoc *m, int line, int pos, int tok)  mdoc_head_alloc(struct mdoc *m, int line, int pos, enum mdoct tok)
 {  {
         struct mdoc_node *p;          struct mdoc_node *p;
   
Line 471  mdoc_head_alloc(struct mdoc *m, int line, int pos, int
Line 490  mdoc_head_alloc(struct mdoc *m, int line, int pos, int
   
   
 int  int
 mdoc_body_alloc(struct mdoc *m, int line, int pos, int tok)  mdoc_body_alloc(struct mdoc *m, int line, int pos, enum mdoct tok)
 {  {
         struct mdoc_node *p;          struct mdoc_node *p;
   
Line 485  mdoc_body_alloc(struct mdoc *m, int line, int pos, int
Line 504  mdoc_body_alloc(struct mdoc *m, int line, int pos, int
   
 int  int
 mdoc_block_alloc(struct mdoc *m, int line, int pos,  mdoc_block_alloc(struct mdoc *m, int line, int pos,
                 int tok, struct mdoc_arg *args)                  enum mdoct tok, struct mdoc_arg *args)
 {  {
         struct mdoc_node *p;          struct mdoc_node *p;
   
Line 502  mdoc_block_alloc(struct mdoc *m, int line, int pos, 
Line 521  mdoc_block_alloc(struct mdoc *m, int line, int pos, 
   
 int  int
 mdoc_elem_alloc(struct mdoc *m, int line, int pos,  mdoc_elem_alloc(struct mdoc *m, int line, int pos,
                 int tok, struct mdoc_arg *args)                  enum mdoct tok, struct mdoc_arg *args)
 {  {
         struct mdoc_node *p;          struct mdoc_node *p;
   
Line 549  void
Line 568  void
 mdoc_node_free(struct mdoc_node *p)  mdoc_node_free(struct mdoc_node *p)
 {  {
   
         if (p->parent)  
                 p->parent->nchild--;  
         if (p->string)          if (p->string)
                 free(p->string);                  free(p->string);
         if (p->args)          if (p->args)
Line 559  mdoc_node_free(struct mdoc_node *p)
Line 576  mdoc_node_free(struct mdoc_node *p)
 }  }
   
   
 void  static void
 mdoc_node_freelist(struct mdoc_node *p)  mdoc_node_unlink(struct mdoc *m, struct mdoc_node *n)
 {  {
   
         if (p->child)          /* Adjust siblings. */
                 mdoc_node_freelist(p->child);  
         if (p->next)  
                 mdoc_node_freelist(p->next);  
   
           if (n->prev)
                   n->prev->next = n->next;
           if (n->next)
                   n->next->prev = n->prev;
   
           /* Adjust parent. */
   
           if (n->parent) {
                   n->parent->nchild--;
                   if (n->parent->child == n)
                           n->parent->child = n->prev ? n->prev : n->next;
           }
   
           /* Adjust parse point, if applicable. */
   
           if (m && m->last == n) {
                   if (n->prev) {
                           m->last = n->prev;
                           m->next = MDOC_NEXT_SIBLING;
                   } else {
                           m->last = n->parent;
                           m->next = MDOC_NEXT_CHILD;
                   }
           }
   
           if (m && m->first == n)
                   m->first = NULL;
   }
   
   
   void
   mdoc_node_delete(struct mdoc *m, struct mdoc_node *p)
   {
   
           while (p->child) {
                   assert(p->nchild);
                   mdoc_node_delete(m, p->child);
           }
         assert(0 == p->nchild);          assert(0 == p->nchild);
   
           mdoc_node_unlink(m, p);
         mdoc_node_free(p);          mdoc_node_free(p);
 }  }
   
Line 581  static int
Line 635  static int
 parsetext(struct mdoc *m, int line, char *buf)  parsetext(struct mdoc *m, int line, char *buf)
 {  {
         int              i, j;          int              i, j;
           char             sv;
   
         if (SEC_NONE == m->lastnamed)          if (SEC_NONE == m->lastnamed)
                 return(mdoc_perr(m, line, 0, ETEXTPROL));                  return(mdoc_perr(m, line, 0, ETEXTPROL));
Line 598  parsetext(struct mdoc *m, int line, char *buf)
Line 653  parsetext(struct mdoc *m, int line, char *buf)
         for (i = 0; ' ' == buf[i]; i++)          for (i = 0; ' ' == buf[i]; i++)
                 /* Skip leading whitespace. */ ;                  /* Skip leading whitespace. */ ;
   
         if ('\0' == buf[i])          if ('\0' == buf[i]) {
                 return(mdoc_perr(m, line, 0, ENOBLANK));                  if ( ! mdoc_pwarn(m, line, 0, ENOBLANK))
                           return(0);
                   /*
                    * Assume that a `Pp' should be inserted in the case of
                    * a blank line.  Technically, blank lines aren't
                    * allowed, but enough manuals assume this behaviour
                    * that we want to work around it.
                    */
                   if ( ! mdoc_elem_alloc(m, line, 0, MDOC_Pp, NULL))
                           return(0);
           }
   
         /*          /*
          * Break apart a free-form line into tokens.  Spaces are           * Break apart a free-form line into tokens.  Spaces are
Line 614  parsetext(struct mdoc *m, int line, char *buf)
Line 679  parsetext(struct mdoc *m, int line, char *buf)
                 if (i && ' ' == buf[i] && '\\' == buf[i - 1])                  if (i && ' ' == buf[i] && '\\' == buf[i - 1])
                         continue;                          continue;
   
                   sv = buf[i];
                 buf[i++] = '\0';                  buf[i++] = '\0';
   
                 if ( ! pstring(m, line, j, &buf[j], (size_t)(i - j)))                  if ( ! pstring(m, line, j, &buf[j], (size_t)(i - j)))
                         return(0);                          return(0);
   
                   /* Trailing whitespace?  Check at overwritten byte. */
   
                   if (' ' == sv && '\0' == buf[i])
                           if ( ! mdoc_pwarn(m, line, i - 1, ETAILWS))
                                   return(0);
   
                 for ( ; ' ' == buf[i]; i++)                  for ( ; ' ' == buf[i]; i++)
                         /* Skip trailing whitespace. */ ;                          /* Skip trailing whitespace. */ ;
   
                 j = i;                  j = i;
   
                   /* Trailing whitespace? */
   
                   if (' ' == buf[i - 1] && '\0' == buf[i])
                           if ( ! mdoc_pwarn(m, line, i - 1, ETAILWS))
                                   return(0);
   
                 if ('\0' == buf[i])                  if ('\0' == buf[i])
                         break;                          break;
         }          }
Legend:
Removed from v.1.115  
changed lines
  Added in v.1.121
CVSweb