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

Diff for /mandoc/man.c between version 1.178 and 1.185

version 1.178, 2018/08/23 19:33:27 version 1.185, 2018/12/31 08:38:21
Line 35 
Line 35 
 #include "roff_int.h"  #include "roff_int.h"
 #include "libman.h"  #include "libman.h"
   
 static  void             man_descope(struct roff_man *, int, int);  static  char            *man_hasc(char *);
 static  int              man_ptext(struct roff_man *, int, char *, int);  static  int              man_ptext(struct roff_man *, int, char *, int);
 static  int              man_pmacro(struct roff_man *, int, char *, int);  static  int              man_pmacro(struct roff_man *, int, char *, int);
   
Line 52  man_parseln(struct roff_man *man, int ln, char *buf, i
Line 52  man_parseln(struct roff_man *man, int ln, char *buf, i
             man_ptext(man, ln, buf, offs);              man_ptext(man, ln, buf, offs);
 }  }
   
 static void  /*
 man_descope(struct roff_man *man, int line, int offs)   * If the string ends with \c, return a pointer to the backslash.
    * Otherwise, return NULL.
    */
   static char *
   man_hasc(char *start)
 {  {
           char    *cp, *ep;
   
           ep = strchr(start, '\0') - 2;
           if (ep < start || ep[0] != '\\' || ep[1] != 'c')
                   return NULL;
           for (cp = ep; cp > start; cp--)
                   if (cp[-1] != '\\')
                           break;
           return (ep - cp) % 2 ? NULL : ep;
   }
   
   void
   man_descope(struct roff_man *man, int line, int offs, char *start)
   {
           /* Trailing \c keeps next-line scope open. */
   
           if (start != NULL && man_hasc(start) != NULL)
                   return;
   
         /*          /*
          * Co-ordinate what happens with having a next-line scope open:           * Co-ordinate what happens with having a next-line scope open:
          * first close out the element scope (if applicable), then close           * first close out the element scopes (if applicable),
          * out the block scope (also if applicable).           * then close out the block scope (also if applicable).
          */           */
   
         if (man->flags & MAN_ELINE) {          if (man->flags & MAN_ELINE) {
                   while (man->last->parent->type != ROFFT_ROOT &&
                       man_macro(man->last->parent->tok)->flags & MAN_ESCOPED)
                           man_unscope(man, man->last->parent);
                 man->flags &= ~MAN_ELINE;                  man->flags &= ~MAN_ELINE;
                 man_unscope(man, man->last->parent);  
         }          }
         if ( ! (man->flags & MAN_BLINE))          if ( ! (man->flags & MAN_BLINE))
                 return;                  return;
Line 76  static int
Line 101  static int
 man_ptext(struct roff_man *man, int line, char *buf, int offs)  man_ptext(struct roff_man *man, int line, char *buf, int offs)
 {  {
         int              i;          int              i;
         const char      *cp, *sp;  
         char            *ep;          char            *ep;
   
         /* Literal free-form text whitespace is preserved. */          /* In no-fill mode, whitespace is preserved on text lines. */
   
         if (man->flags & MAN_LITERAL) {          if (man->flags & ROFF_NOFILL) {
                 roff_word_alloc(man, line, offs, buf + offs);                  roff_word_alloc(man, line, offs, buf + offs);
                 man_descope(man, line, offs);                  man_descope(man, line, offs, buf + offs);
                 return 1;                  return 1;
         }          }
   
Line 98  man_ptext(struct roff_man *man, int line, char *buf, i
Line 122  man_ptext(struct roff_man *man, int line, char *buf, i
   
         if (buf[i] == '\0') {          if (buf[i] == '\0') {
                 if (man->flags & (MAN_ELINE | MAN_BLINE)) {                  if (man->flags & (MAN_ELINE | MAN_BLINE)) {
                         mandoc_msg(MANDOCERR_BLK_BLANK, man->parse,                          mandoc_msg(MANDOCERR_BLK_BLANK, line, 0, NULL);
                             line, 0, NULL);  
                         return 1;                          return 1;
                 }                  }
                 if (man->last->tok == MAN_SH || man->last->tok == MAN_SS)                  if (man->last->tok == MAN_SH || man->last->tok == MAN_SS)
                         return 1;                          return 1;
                 switch (man->last->type) {                  if (man->last->type == ROFFT_TEXT &&
                 case ROFFT_TEXT:                      ((ep = man_hasc(man->last->string)) != NULL)) {
                         sp = man->last->string;  
                         cp = ep = strchr(sp, '\0') - 2;  
                         if (cp < sp || cp[0] != '\\' || cp[1] != 'c')  
                                 break;  
                         while (cp > sp && cp[-1] == '\\')  
                                 cp--;  
                         if ((ep - cp) % 2)  
                                 break;  
                         *ep = '\0';                          *ep = '\0';
                         return 1;                          return 1;
                 default:  
                         break;  
                 }                  }
                 roff_elem_alloc(man, line, offs, ROFF_sp);                  roff_elem_alloc(man, line, offs, ROFF_sp);
                 man->next = ROFF_NEXT_SIBLING;                  man->next = ROFF_NEXT_SIBLING;
Line 134  man_ptext(struct roff_man *man, int line, char *buf, i
Line 147  man_ptext(struct roff_man *man, int line, char *buf, i
   
         if (' ' == buf[i - 1] || '\t' == buf[i - 1]) {          if (' ' == buf[i - 1] || '\t' == buf[i - 1]) {
                 if (i > 1 && '\\' != buf[i - 2])                  if (i > 1 && '\\' != buf[i - 2])
                         mandoc_msg(MANDOCERR_SPACE_EOL, man->parse,                          mandoc_msg(MANDOCERR_SPACE_EOL, line, i - 1, NULL);
                             line, i - 1, NULL);  
   
                 for (--i; i && ' ' == buf[i]; i--)                  for (--i; i && ' ' == buf[i]; i--)
                         /* Spin back to non-space. */ ;                          /* Spin back to non-space. */ ;
Line 157  man_ptext(struct roff_man *man, int line, char *buf, i
Line 169  man_ptext(struct roff_man *man, int line, char *buf, i
         if (mandoc_eos(buf, (size_t)i))          if (mandoc_eos(buf, (size_t)i))
                 man->last->flags |= NODE_EOS;                  man->last->flags |= NODE_EOS;
   
         man_descope(man, line, offs);          man_descope(man, line, offs, buf + offs);
         return 1;          return 1;
 }  }
   
Line 180  man_pmacro(struct roff_man *man, int ln, char *buf, in
Line 192  man_pmacro(struct roff_man *man, int ln, char *buf, in
         if (sz > 0 && sz < 4)          if (sz > 0 && sz < 4)
                 tok = roffhash_find(man->manmac, buf + ppos, sz);                  tok = roffhash_find(man->manmac, buf + ppos, sz);
         if (tok == TOKEN_NONE) {          if (tok == TOKEN_NONE) {
                 mandoc_msg(MANDOCERR_MACRO, man->parse,                  mandoc_msg(MANDOCERR_MACRO, ln, ppos, "%s", buf + ppos - 1);
                     ln, ppos, buf + ppos - 1);  
                 return 1;                  return 1;
         }          }
   
Line 211  man_pmacro(struct roff_man *man, int ln, char *buf, in
Line 222  man_pmacro(struct roff_man *man, int ln, char *buf, in
          */           */
   
         if (buf[offs] == '\0' && buf[offs - 1] == ' ')          if (buf[offs] == '\0' && buf[offs - 1] == ' ')
                 mandoc_msg(MANDOCERR_SPACE_EOL, man->parse,                  mandoc_msg(MANDOCERR_SPACE_EOL, ln, offs - 1, NULL);
                     ln, offs - 1, NULL);  
   
         /*          /*
          * Some macros break next-line scopes; otherwise, remember           * Some macros break next-line scopes; otherwise, remember
Line 230  man_pmacro(struct roff_man *man, int ln, char *buf, in
Line 240  man_pmacro(struct roff_man *man, int ln, char *buf, in
          * page, that's very likely what the author intended.           * page, that's very likely what the author intended.
          */           */
   
         if (bline) {          if (bline && man_hasc(buf + offs))
                 cp = strchr(buf + offs, '\0') - 2;                  bline = 0;
                 if (cp >= buf && cp[0] == '\\' && cp[1] == 'c')  
                         bline = 0;  
         }  
   
         /* Call to handler... */          /* Call to handler... */
   
         assert(man_macro(tok)->fp != NULL);  
         (*man_macro(tok)->fp)(man, tok, ln, ppos, &offs, buf);          (*man_macro(tok)->fp)(man, tok, ln, ppos, &offs, buf);
   
         /* In quick mode (for mandocdb), abort after the NAME section. */          /* In quick mode (for mandocdb), abort after the NAME section. */
Line 256  man_pmacro(struct roff_man *man, int ln, char *buf, in
Line 262  man_pmacro(struct roff_man *man, int ln, char *buf, in
          * unless the next-line scope is allowed to continue.           * unless the next-line scope is allowed to continue.
          */           */
   
         if ( ! bline || man->flags & MAN_ELINE ||          if (bline == 0 ||
               (man->flags & MAN_BLINE) == 0 ||
               man->flags & MAN_ELINE ||
             man_macro(tok)->flags & MAN_NSCOPED)              man_macro(tok)->flags & MAN_NSCOPED)
                 return 1;                  return 1;
   
         assert(man->flags & MAN_BLINE);  
         man->flags &= ~MAN_BLINE;          man->flags &= ~MAN_BLINE;
   
         man_unscope(man, man->last->parent);          man_unscope(man, man->last->parent);
         roff_body_alloc(man, ln, ppos, man->last->tok);          roff_body_alloc(man, ln, ppos, man->last->tok);
         return 1;          return 1;
Line 285  man_breakscope(struct roff_man *man, int tok)
Line 291  man_breakscope(struct roff_man *man, int tok)
                 if (n->type == ROFFT_TEXT)                  if (n->type == ROFFT_TEXT)
                         n = n->parent;                          n = n->parent;
                 if (n->tok < MAN_TH ||                  if (n->tok < MAN_TH ||
                     man_macro(n->tok)->flags & MAN_NSCOPED)                      (man_macro(n->tok)->flags & (MAN_NSCOPED | MAN_ESCOPED))
                        == MAN_NSCOPED)
                         n = n->parent;                          n = n->parent;
   
                 mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse,                  mandoc_msg(MANDOCERR_BLK_LINE, n->line, n->pos,
                     n->line, n->pos, "%s breaks %s",                      "%s breaks %s", roff_name[tok], roff_name[n->tok]);
                     roff_name[tok], roff_name[n->tok]);  
   
                 roff_node_delete(man, n);                  roff_node_delete(man, n);
                 man->flags &= ~MAN_ELINE;                  man->flags &= ~MAN_ELINE;
Line 302  man_breakscope(struct roff_man *man, int tok)
Line 308  man_breakscope(struct roff_man *man, int tok)
          */           */
   
         if (man->flags & MAN_BLINE &&          if (man->flags & MAN_BLINE &&
             (tok == MAN_nf || tok == MAN_fi) &&              (tok == ROFF_nf || tok == ROFF_fi) &&
             (man->last->tok == MAN_SH || man->last->tok == MAN_SS)) {              (man->last->tok == MAN_SH || man->last->tok == MAN_SS)) {
                 n = man->last;                  n = man->last;
                 man_unscope(man, n);                  man_unscope(man, n);
Line 316  man_breakscope(struct roff_man *man, int tok)
Line 322  man_breakscope(struct roff_man *man, int tok)
          * Delete the block that is being broken.           * Delete the block that is being broken.
          */           */
   
         if (man->flags & MAN_BLINE && (tok < MAN_TH ||          if (man->flags & MAN_BLINE && tok != ROFF_nf && tok != ROFF_fi &&
             man_macro(tok)->flags & MAN_BSCOPE)) {              (tok < MAN_TH || man_macro(tok)->flags & MAN_XSCOPE)) {
                 n = man->last;                  n = man->last;
                 if (n->type == ROFFT_TEXT)                  if (n->type == ROFFT_TEXT)
                         n = n->parent;                          n = n->parent;
                 if (n->tok < MAN_TH ||                  if (n->tok < MAN_TH ||
                     (man_macro(n->tok)->flags & MAN_BSCOPE) == 0)                      (man_macro(n->tok)->flags & MAN_XSCOPE) == 0)
                         n = n->parent;                          n = n->parent;
   
                 assert(n->type == ROFFT_HEAD);                  assert(n->type == ROFFT_HEAD);
                 n = n->parent;                  n = n->parent;
                 assert(n->type == ROFFT_BLOCK);                  assert(n->type == ROFFT_BLOCK);
                 assert(man_macro(n->tok)->flags & MAN_SCOPED);                  assert(man_macro(n->tok)->flags & MAN_BSCOPED);
   
                 mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse,                  mandoc_msg(MANDOCERR_BLK_LINE, n->line, n->pos,
                     n->line, n->pos, "%s breaks %s",                      "%s breaks %s", roff_name[tok], roff_name[n->tok]);
                     roff_name[tok], roff_name[n->tok]);  
   
                 roff_node_delete(man, n);                  roff_node_delete(man, n);
                 man->flags &= ~MAN_BLINE;                  man->flags &= ~MAN_BLINE;
Line 344  man_state(struct roff_man *man, struct roff_node *n)
Line 349  man_state(struct roff_man *man, struct roff_node *n)
 {  {
   
         switch(n->tok) {          switch(n->tok) {
         case MAN_nf:          case ROFF_nf:
         case MAN_EX:          case MAN_EX:
                 if (man->flags & MAN_LITERAL && ! (n->flags & NODE_VALID))                  man->flags |= ROFF_NOFILL;
                         mandoc_msg(MANDOCERR_NF_SKIP, man->parse,  
                             n->line, n->pos, "nf");  
                 man->flags |= MAN_LITERAL;  
                 break;                  break;
         case MAN_fi:          case ROFF_fi:
         case MAN_EE:          case MAN_EE:
                 if ( ! (man->flags & MAN_LITERAL) &&                  man->flags &= ~ROFF_NOFILL;
                      ! (n->flags & NODE_VALID))  
                         mandoc_msg(MANDOCERR_FI_SKIP, man->parse,  
                             n->line, n->pos, "fi");  
                 man->flags &= ~MAN_LITERAL;  
                 break;                  break;
         default:          default:
                 break;                  break;
         }          }
         man->last->flags |= NODE_VALID;          man->last->flags |= NODE_VALID;
 }  
   
 void  
 man_validate(struct roff_man *man)  
 {  
   
         man->last = man->first;  
         man_node_validate(man);  
         man->flags &= ~MAN_LITERAL;  
 }  }
Legend:
Removed from v.1.178  
changed lines
  Added in v.1.185
CVSweb