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

Diff for /mandoc/Attic/macro.c between version 1.73 and 1.75

version 1.73, 2009/03/16 23:37:28 version 1.75, 2009/03/21 09:30:52
Line 406  rew_alt(int tok)
Line 406  rew_alt(int tok)
 }  }
   
   
 static int  /*
    * Rewind rules.  This indicates whether to stop rewinding
    * (REWIND_HALT) without touching our current scope, stop rewinding and
    * close our current scope (REWIND_REWIND), or continue (REWIND_NOHALT).
    * The scope-closing and so on occurs in the various rew_* routines.
    */
   static int
 rew_dohalt(int tok, enum mdoc_type type, const struct mdoc_node *p)  rew_dohalt(int tok, enum mdoc_type type, const struct mdoc_node *p)
 {  {
   
Line 416  rew_dohalt(int tok, enum mdoc_type type, const struct 
Line 422  rew_dohalt(int tok, enum mdoc_type type, const struct 
                 return(REWIND_NOHALT);                  return(REWIND_NOHALT);
   
         switch (tok) {          switch (tok) {
         /* One-liner implicit-scope. */  
         case (MDOC_Aq):          case (MDOC_Aq):
                 /* FALLTHROUGH */                  /* FALLTHROUGH */
         case (MDOC_Bq):          case (MDOC_Bq):
Line 443  rew_dohalt(int tok, enum mdoc_type type, const struct 
Line 448  rew_dohalt(int tok, enum mdoc_type type, const struct 
                 if (type == p->type && tok == p->tok)                  if (type == p->type && tok == p->tok)
                         return(REWIND_REWIND);                          return(REWIND_REWIND);
                 break;                  break;
   
         /* Multi-line implicit-scope. */  
         case (MDOC_It):          case (MDOC_It):
                 assert(MDOC_TAIL != type);                  assert(MDOC_TAIL != type);
                 if (type == p->type && tok == p->tok)                  if (type == p->type && tok == p->tok)
Line 463  rew_dohalt(int tok, enum mdoc_type type, const struct 
Line 466  rew_dohalt(int tok, enum mdoc_type type, const struct 
                 if (MDOC_BODY == p->type && MDOC_Sh == p->tok)                  if (MDOC_BODY == p->type && MDOC_Sh == p->tok)
                         return(REWIND_HALT);                          return(REWIND_HALT);
                 break;                  break;
   
         /* Multi-line explicit scope start. */  
         case (MDOC_Ao):          case (MDOC_Ao):
                 /* FALLTHROUGH */                  /* FALLTHROUGH */
         case (MDOC_Bd):          case (MDOC_Bd):
Line 544  rew_dohalt(int tok, enum mdoc_type type, const struct 
Line 545  rew_dohalt(int tok, enum mdoc_type type, const struct 
 }  }
   
   
   /*
    * See if we can break an encountered scope (the rew_dohalt has returned
    * REWIND_NOHALT).
    */
 static int  static int
 rew_dobreak(int tok, const struct mdoc_node *p)  rew_dobreak(int tok, const struct mdoc_node *p)
 {  {
Line 557  rew_dobreak(int tok, const struct mdoc_node *p)
Line 562  rew_dobreak(int tok, const struct mdoc_node *p)
                 return(1);                  return(1);
   
         switch (tok) {          switch (tok) {
         /* Implicit rules. */  
         case (MDOC_It):          case (MDOC_It):
                 return(MDOC_It == p->tok);                  return(MDOC_It == p->tok);
         case (MDOC_Ss):          case (MDOC_Ss):
Line 566  rew_dobreak(int tok, const struct mdoc_node *p)
Line 570  rew_dobreak(int tok, const struct mdoc_node *p)
                 if (MDOC_Ss == p->tok)                  if (MDOC_Ss == p->tok)
                         return(1);                          return(1);
                 return(MDOC_Sh == p->tok);                  return(MDOC_Sh == p->tok);
   
         /* Extra scope rules. */  
         case (MDOC_El):          case (MDOC_El):
                 if (MDOC_It == p->tok)                  if (MDOC_It == p->tok)
                         return(1);                          return(1);
                 break;                  break;
           case (MDOC_Oc):
                   /* XXX - experimental! */
                   if (MDOC_Op == p->tok)
                           return(1);
                   break;
         default:          default:
                 break;                  break;
         }          }
Line 995  static int
Line 1002  static int
 blk_part_imp(MACRO_PROT_ARGS)  blk_part_imp(MACRO_PROT_ARGS)
 {  {
         int               lastarg, c;          int               lastarg, c;
         char              *p;          char             *p;
           struct mdoc_node *blk, *body, *n;
   
         if ( ! mdoc_block_alloc(mdoc, line, ppos, tok, NULL))          if ( ! mdoc_block_alloc(mdoc, line, ppos, tok, NULL))
                 return(0);                  return(0);
         mdoc->next = MDOC_NEXT_CHILD;          mdoc->next = MDOC_NEXT_CHILD;
           blk = mdoc->last;
   
         if ( ! mdoc_head_alloc(mdoc, line, ppos, tok))          if ( ! mdoc_head_alloc(mdoc, line, ppos, tok))
                 return(0);                  return(0);
         mdoc->next = MDOC_NEXT_SIBLING;          mdoc->next = MDOC_NEXT_SIBLING;
   
         if ( ! mdoc_body_alloc(mdoc, line, ppos, tok))          if ( ! mdoc_body_alloc(mdoc, line, ppos, tok))
                 return(0);                  return(0);
         mdoc->next = MDOC_NEXT_CHILD;          mdoc->next = MDOC_NEXT_CHILD;
           body = mdoc->last;
   
         /* XXX - no known argument macros. */          /* XXX - no known argument macros. */
   
Line 1036  blk_part_imp(MACRO_PROT_ARGS)
Line 1047  blk_part_imp(MACRO_PROT_ARGS)
                 break;                  break;
         }          }
   
         if (1 == ppos) {          /*
                 if ( ! rew_subblock(MDOC_BODY, mdoc, tok, line, ppos))           * Since we know what our context is, we can rewind directly to
                         return(0);           * it.  This allows us to accomodate for our scope being
                 if ( ! append_delims(mdoc, line, pos, buf))           * violated by another token.
                         return(0);           */
         } else if ( ! rew_subblock(MDOC_BODY, mdoc, tok, line, ppos))  
           for (n = mdoc->last; n; n = n->parent)
                   if (body == n)
                           break;
   
           if (n && ! rew_last(mdoc, body))
                 return(0);                  return(0);
         return(rew_impblock(mdoc, tok, line, ppos));  
           if (1 == ppos && ! append_delims(mdoc, line, pos, buf))
                   return(0);
   
           if (n && ! rew_last(mdoc, blk))
                   return(0);
   
           return(1);
 }  }
   
   
Legend:
Removed from v.1.73  
changed lines
  Added in v.1.75
CVSweb