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

Diff for /mandoc/mdoc_macro.c between version 1.104 and 1.110

version 1.104, 2011/03/20 16:02:05 version 1.110, 2011/08/10 14:07:23
Line 26 
Line 26 
 #include <string.h>  #include <string.h>
 #include <time.h>  #include <time.h>
   
   #include "mdoc.h"
 #include "mandoc.h"  #include "mandoc.h"
 #include "libmdoc.h"  #include "libmdoc.h"
 #include "libmandoc.h"  #include "libmandoc.h"
Line 50  static int    in_line(MACRO_PROT_ARGS);
Line 51  static int    in_line(MACRO_PROT_ARGS);
 static  int             obsolete(MACRO_PROT_ARGS);  static  int             obsolete(MACRO_PROT_ARGS);
 static  int             phrase_ta(MACRO_PROT_ARGS);  static  int             phrase_ta(MACRO_PROT_ARGS);
   
   static  int             dword(struct mdoc *, int, int,
                                   const char *, enum mdelim);
 static  int             append_delims(struct mdoc *,  static  int             append_delims(struct mdoc *,
                                 int, int *, char *);                                  int, int *, char *);
 static  enum mdoct      lookup(enum mdoct, const char *);  static  enum mdoct      lookup(enum mdoct, const char *);
Line 71  const struct mdoc_macro __mdoc_macros[MDOC_MAX] = {
Line 74  const struct mdoc_macro __mdoc_macros[MDOC_MAX] = {
         { in_line_eoln, MDOC_PROLOGUE }, /* Dd */          { in_line_eoln, MDOC_PROLOGUE }, /* Dd */
         { in_line_eoln, MDOC_PROLOGUE }, /* Dt */          { in_line_eoln, MDOC_PROLOGUE }, /* Dt */
         { in_line_eoln, MDOC_PROLOGUE }, /* Os */          { in_line_eoln, MDOC_PROLOGUE }, /* Os */
         { blk_full, 0 }, /* Sh */          { blk_full, MDOC_PARSED }, /* Sh */
         { blk_full, 0 }, /* Ss */          { blk_full, MDOC_PARSED }, /* Ss */
         { in_line_eoln, 0 }, /* Pp */          { in_line_eoln, 0 }, /* Pp */
         { blk_part_imp, MDOC_PARSED }, /* D1 */          { blk_part_imp, MDOC_PARSED }, /* D1 */
         { blk_part_imp, MDOC_PARSED }, /* Dl */          { blk_part_imp, MDOC_PARSED }, /* Dl */
Line 580  rew_sub(enum mdoc_type t, struct mdoc *m, 
Line 583  rew_sub(enum mdoc_type t, struct mdoc *m, 
         return(1);          return(1);
 }  }
   
   /*
    * Allocate a word and check whether it's punctuation or not.
    * Punctuation consists of those tokens found in mdoc_isdelim().
    */
   static int
   dword(struct mdoc *m, int line,
                   int col, const char *p, enum mdelim d)
   {
   
           if (DELIM_MAX == d)
                   d = mdoc_isdelim(p);
   
           if ( ! mdoc_word_alloc(m, line, col, p))
                   return(0);
   
           if (DELIM_OPEN == d)
                   m->last->flags |= MDOC_DELIMO;
   
           /*
            * Closing delimiters only suppress the preceding space
            * when they follow something, not when they start a new
            * block or element, and not when they follow `No'.
            *
            * XXX  Explicitly special-casing MDOC_No here feels
            *      like a layering violation.  Find a better way
            *      and solve this in the code related to `No'!
            */
   
           else if (DELIM_CLOSE == d && m->last->prev &&
                           m->last->prev->tok != MDOC_No)
                   m->last->flags |= MDOC_DELIMC;
   
           return(1);
   }
   
 static int  static int
 append_delims(struct mdoc *m, int line, int *pos, char *buf)  append_delims(struct mdoc *m, int line, int *pos, char *buf)
 {  {
Line 593  append_delims(struct mdoc *m, int line, int *pos, char
Line 630  append_delims(struct mdoc *m, int line, int *pos, char
   
         for (;;) {          for (;;) {
                 la = *pos;                  la = *pos;
                 ac = mdoc_zargs(m, line, pos, buf, ARGS_NOWARN, &p);                  ac = mdoc_zargs(m, line, pos, buf, &p);
   
                 if (ARGS_ERROR == ac)                  if (ARGS_ERROR == ac)
                         return(0);                          return(0);
                 else if (ARGS_EOLN == ac)                  else if (ARGS_EOLN == ac)
                         break;                          break;
   
                 assert(DELIM_NONE != mandoc_isdelim(p));                  dword(m, line, la, p, DELIM_MAX);
                 if ( ! mdoc_word_alloc(m, line, la, p))  
                         return(0);  
   
                 /*                  /*
                  * If we encounter end-of-sentence symbols, then trigger                   * If we encounter end-of-sentence symbols, then trigger
                  * the double-space.                   * the double-space.
                  *                   *
                  * XXX: it's easy to allow this to propogate outward to                   * XXX: it's easy to allow this to propagate outward to
                  * the last symbol, such that `. )' will cause the                   * the last symbol, such that `. )' will cause the
                  * correct double-spacing.  However, (1) groff isn't                   * correct double-spacing.  However, (1) groff isn't
                  * smart enough to do this and (2) it would require                   * smart enough to do this and (2) it would require
                  * knowing which symbols break this behaviour, for                   * knowing which symbols break this behaviour, for
                  * example, `.  ;' shouldn't propogate the double-space.                   * example, `.  ;' shouldn't propagate the double-space.
                  */                   */
                 if (mandoc_eos(p, strlen(p), 0))                  if (mandoc_eos(p, strlen(p), 0))
                         m->last->flags |= MDOC_EOS;                          m->last->flags |= MDOC_EOS;
Line 746  blk_exp_close(MACRO_PROT_ARGS)
Line 781  blk_exp_close(MACRO_PROT_ARGS)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, lastarg, p))                          if ( ! dword(m, line, lastarg, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 870  in_line(MACRO_PROT_ARGS)
Line 905  in_line(MACRO_PROT_ARGS)
                  * the word.                   * the word.
                  */                   */
   
                 d = ARGS_QWORD == ac ? DELIM_NONE : mandoc_isdelim(p);                  d = ARGS_QWORD == ac ? DELIM_NONE : mdoc_isdelim(p);
   
                 if (DELIM_NONE != d) {                  if (DELIM_NONE != d) {
                         /*                          /*
Line 905  in_line(MACRO_PROT_ARGS)
Line 940  in_line(MACRO_PROT_ARGS)
   
                 if (DELIM_NONE == d)                  if (DELIM_NONE == d)
                         cnt++;                          cnt++;
                 if ( ! mdoc_word_alloc(m, line, la, p))  
                   if ( ! dword(m, line, la, p, d))
                         return(0);                          return(0);
   
                 /*                  /*
Line 971  blk_full(MACRO_PROT_ARGS)
Line 1007  blk_full(MACRO_PROT_ARGS)
         }          }
   
         /*          /*
          * This routine accomodates implicitly- and explicitly-scoped           * This routine accommodates implicitly- and explicitly-scoped
          * macro openings.  Implicit ones first close out prior scope           * macro openings.  Implicit ones first close out prior scope
          * (seen above).  Delay opening the head until necessary to           * (seen above).  Delay opening the head until necessary to
          * allow leading punctuation to print.  Special consideration           * allow leading punctuation to print.  Special consideration
Line 1060  blk_full(MACRO_PROT_ARGS)
Line 1096  blk_full(MACRO_PROT_ARGS)
                                 ARGS_PHRASE != ac &&                                  ARGS_PHRASE != ac &&
                                 ARGS_PPHRASE != ac &&                                  ARGS_PPHRASE != ac &&
                                 ARGS_QWORD != ac &&                                  ARGS_QWORD != ac &&
                                 DELIM_OPEN == mandoc_isdelim(p)) {                                  DELIM_OPEN == mdoc_isdelim(p)) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_OPEN))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1113  blk_full(MACRO_PROT_ARGS)
Line 1149  blk_full(MACRO_PROT_ARGS)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1223  blk_part_imp(MACRO_PROT_ARGS)
Line 1259  blk_part_imp(MACRO_PROT_ARGS)
                         break;                          break;
   
                 if (NULL == body && ARGS_QWORD != ac &&                  if (NULL == body && ARGS_QWORD != ac &&
                     DELIM_OPEN == mandoc_isdelim(p)) {                                  DELIM_OPEN == mdoc_isdelim(p)) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_OPEN))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1238  blk_part_imp(MACRO_PROT_ARGS)
Line 1274  blk_part_imp(MACRO_PROT_ARGS)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1268  blk_part_imp(MACRO_PROT_ARGS)
Line 1304  blk_part_imp(MACRO_PROT_ARGS)
                 if (mandoc_eos(n->string, strlen(n->string), 1))                  if (mandoc_eos(n->string, strlen(n->string), 1))
                         n->flags |= MDOC_EOS;                          n->flags |= MDOC_EOS;
   
         /* Up-propogate the end-of-space flag. */          /* Up-propagate the end-of-space flag. */
   
         if (n && (MDOC_EOS & n->flags)) {          if (n && (MDOC_EOS & n->flags)) {
                 body->flags |= MDOC_EOS;                  body->flags |= MDOC_EOS;
Line 1354  blk_part_exp(MACRO_PROT_ARGS)
Line 1390  blk_part_exp(MACRO_PROT_ARGS)
                 /* Flush out leading punctuation. */                  /* Flush out leading punctuation. */
   
                 if (NULL == head && ARGS_QWORD != ac &&                  if (NULL == head && ARGS_QWORD != ac &&
                     DELIM_OPEN == mandoc_isdelim(p)) {                                  DELIM_OPEN == mdoc_isdelim(p)) {
                         assert(NULL == body);                          assert(NULL == body);
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_OPEN))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1377  blk_part_exp(MACRO_PROT_ARGS)
Line 1413  blk_part_exp(MACRO_PROT_ARGS)
                         assert(head);                          assert(head);
                         /* No check whether it's a macro! */                          /* No check whether it's a macro! */
                         if (MDOC_Eo == tok)                          if (MDOC_Eo == tok)
                                 if ( ! mdoc_word_alloc(m, line, la, p))                                  if ( ! dword(m, line, la, p, DELIM_MAX))
                                         return(0);                                          return(0);
   
                         if ( ! rew_sub(MDOC_HEAD, m, tok, line, ppos))                          if ( ! rew_sub(MDOC_HEAD, m, tok, line, ppos))
Line 1395  blk_part_exp(MACRO_PROT_ARGS)
Line 1431  blk_part_exp(MACRO_PROT_ARGS)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1500  in_line_argn(MACRO_PROT_ARGS)
Line 1536  in_line_argn(MACRO_PROT_ARGS)
                         break;                          break;
   
                 if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) &&                  if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) &&
                                 ARGS_QWORD != ac &&                                  ARGS_QWORD != ac && 0 == j &&
                                 0 == j && DELIM_OPEN == mandoc_isdelim(p)) {                                  DELIM_OPEN == mdoc_isdelim(p)) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_OPEN))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 } else if (0 == j)                  } else if (0 == j)
Line 1530  in_line_argn(MACRO_PROT_ARGS)
Line 1566  in_line_argn(MACRO_PROT_ARGS)
                 if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) &&                  if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) &&
                                 ARGS_QWORD != ac &&                                  ARGS_QWORD != ac &&
                                 ! flushed &&                                  ! flushed &&
                                 DELIM_NONE != mandoc_isdelim(p)) {                                  DELIM_NONE != mdoc_isdelim(p)) {
                         if ( ! rew_elem(m, tok))                          if ( ! rew_elem(m, tok))
                                 return(0);                                  return(0);
                         flushed = 1;                          flushed = 1;
Line 1552  in_line_argn(MACRO_PROT_ARGS)
Line 1588  in_line_argn(MACRO_PROT_ARGS)
                 }                  }
 #endif  #endif
   
                 if ( ! mdoc_word_alloc(m, line, la, p))                  if ( ! dword(m, line, la, p, DELIM_MAX))
                         return(0);                          return(0);
                 j++;                  j++;
         }          }
Line 1623  in_line_eoln(MACRO_PROT_ARGS)
Line 1659  in_line_eoln(MACRO_PROT_ARGS)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup(tok, p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1693  phrase(struct mdoc *m, int line, int ppos, char *buf)
Line 1729  phrase(struct mdoc *m, int line, int ppos, char *buf)
         for (pos = ppos; ; ) {          for (pos = ppos; ; ) {
                 la = pos;                  la = pos;
   
                 ac = mdoc_zargs(m, line, &pos, buf, 0, &p);                  ac = mdoc_zargs(m, line, &pos, buf, &p);
   
                 if (ARGS_ERROR == ac)                  if (ARGS_ERROR == ac)
                         return(0);                          return(0);
Line 1703  phrase(struct mdoc *m, int line, int ppos, char *buf)
Line 1739  phrase(struct mdoc *m, int line, int ppos, char *buf)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup_raw(p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup_raw(p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Line 1738  phrase_ta(MACRO_PROT_ARGS)
Line 1774  phrase_ta(MACRO_PROT_ARGS)
   
         for (;;) {          for (;;) {
                 la = *pos;                  la = *pos;
                 ac = mdoc_zargs(m, line, pos, buf, 0, &p);                  ac = mdoc_zargs(m, line, pos, buf, &p);
   
                 if (ARGS_ERROR == ac)                  if (ARGS_ERROR == ac)
                         return(0);                          return(0);
Line 1748  phrase_ta(MACRO_PROT_ARGS)
Line 1784  phrase_ta(MACRO_PROT_ARGS)
                 ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup_raw(p);                  ntok = ARGS_QWORD == ac ? MDOC_MAX : lookup_raw(p);
   
                 if (MDOC_MAX == ntok) {                  if (MDOC_MAX == ntok) {
                         if ( ! mdoc_word_alloc(m, line, la, p))                          if ( ! dword(m, line, la, p, DELIM_MAX))
                                 return(0);                                  return(0);
                         continue;                          continue;
                 }                  }
Legend:
Removed from v.1.104  
changed lines
  Added in v.1.110
CVSweb