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

Diff for /mandoc/roff.c between version 1.352 and 1.355

version 1.352, 2018/12/15 19:30:26 version 1.355, 2018/12/21 17:15:19
Line 38 
Line 38 
 #include "tbl_parse.h"  #include "tbl_parse.h"
 #include "eqn_parse.h"  #include "eqn_parse.h"
   
   /*
    * ASCII_ESC is used to signal from roff_getarg() to roff_expand()
    * that an escape sequence resulted from copy-in processing and
    * needs to be checked or interpolated.  As it is used nowhere
    * else, it is defined here rather than in a header file.
    */
   #define ASCII_ESC       27
   
 /* Maximum number of string expansions per line, to break infinite loops. */  /* Maximum number of string expansions per line, to break infinite loops. */
 #define EXPAND_LIMIT    1000  #define EXPAND_LIMIT    1000
   
Line 191  static int   roff_evalnum(struct roff *, int,
Line 199  static int   roff_evalnum(struct roff *, int,
 static  int              roff_evalpar(struct roff *, int,  static  int              roff_evalpar(struct roff *, int,
                                 const char *, int *, int *, int);                                  const char *, int *, int *, int);
 static  int              roff_evalstrcond(const char *, int *);  static  int              roff_evalstrcond(const char *, int *);
   static  int              roff_expand(struct roff *, struct buf *,
                                   int, int, char);
 static  void             roff_free1(struct roff *);  static  void             roff_free1(struct roff *);
 static  void             roff_freereg(struct roffreg *);  static  void             roff_freereg(struct roffreg *);
 static  void             roff_freestr(struct roffkv *);  static  void             roff_freestr(struct roffkv *);
Line 219  static enum roff_tok  roff_parse(struct roff *, char *
Line 229  static enum roff_tok  roff_parse(struct roff *, char *
 static  int              roff_parsetext(struct roff *, struct buf *,  static  int              roff_parsetext(struct roff *, struct buf *,
                                 int, int *);                                  int, int *);
 static  int              roff_renamed(ROFF_ARGS);  static  int              roff_renamed(ROFF_ARGS);
 static  int              roff_res(struct roff *, struct buf *, int, int);  
 static  int              roff_return(ROFF_ARGS);  static  int              roff_return(ROFF_ARGS);
 static  int              roff_rm(ROFF_ARGS);  static  int              roff_rm(ROFF_ARGS);
 static  int              roff_rn(ROFF_ARGS);  static  int              roff_rn(ROFF_ARGS);
Line 1142  deroff(char **dest, const struct roff_node *n)
Line 1151  deroff(char **dest, const struct roff_node *n)
 /* --- main functions of the roff parser ---------------------------------- */  /* --- main functions of the roff parser ---------------------------------- */
   
 /*  /*
  * In the current line, expand escape sequences that tend to get   * In the current line, expand escape sequences that produce parsable
  * used in numerical expressions and conditional requests.   * input text.  Also check the syntax of the remaining escape sequences,
  * Also check the syntax of the remaining escape sequences.   * which typically produce output glyphs or change formatter state.
  */   */
 static int  static int
 roff_res(struct roff *r, struct buf *buf, int ln, int pos)  roff_expand(struct roff *r, struct buf *buf, int ln, int pos, char newesc)
 {  {
         struct mctx     *ctx;   /* current macro call context */          struct mctx     *ctx;   /* current macro call context */
         char             ubuf[24]; /* buffer to print the number */          char             ubuf[24]; /* buffer to print the number */
Line 1181  roff_res(struct roff *r, struct buf *buf, int ln, int 
Line 1190  roff_res(struct roff *r, struct buf *buf, int ln, int 
         done = 0;          done = 0;
         start = buf->buf + pos;          start = buf->buf + pos;
         for (stesc = buf->buf + pos; *stesc != '\0'; stesc++) {          for (stesc = buf->buf + pos; *stesc != '\0'; stesc++) {
                 if (stesc[0] != r->escape || stesc[1] == '\0')                  if (stesc[0] != newesc || stesc[1] == '\0')
                         continue;                          continue;
                 stesc++;                  stesc++;
                 if (*stesc != '"' && *stesc != '#')                  if (*stesc != '"' && *stesc != '#')
Line 1223  roff_res(struct roff *r, struct buf *buf, int ln, int 
Line 1232  roff_res(struct roff *r, struct buf *buf, int ln, int 
                  * in the syntax tree.                   * in the syntax tree.
                  */                   */
   
                 if (r->format == 0) {                  if (newesc != ASCII_ESC && r->format == 0) {
                         while (*ep == ' ' || *ep == '\t')                          while (*ep == ' ' || *ep == '\t')
                                 ep--;                                  ep--;
                         ep[1] = '\0';                          ep[1] = '\0';
Line 1264  roff_res(struct roff *r, struct buf *buf, int ln, int 
Line 1273  roff_res(struct roff *r, struct buf *buf, int ln, int 
   
         expand_count = 0;          expand_count = 0;
         while (stesc >= start) {          while (stesc >= start) {
                   if (*stesc != newesc) {
   
                 /* Search backwards for the next backslash. */                          /*
                            * If we have a non-standard escape character,
                            * escape literal backslashes because all
                            * processing in subsequent functions uses
                            * the standard escaping rules.
                            */
   
                 if (*stesc != r->escape) {                          if (newesc != ASCII_ESC && *stesc == '\\') {
                         if (*stesc == '\\') {  
                                 *stesc = '\0';                                  *stesc = '\0';
                                 buf->sz = mandoc_asprintf(&nbuf, "%s\\e%s",                                  buf->sz = mandoc_asprintf(&nbuf, "%s\\e%s",
                                     buf->buf, stesc + 1) + 1;                                      buf->buf, stesc + 1) + 1;
Line 1277  roff_res(struct roff *r, struct buf *buf, int ln, int 
Line 1291  roff_res(struct roff *r, struct buf *buf, int ln, int 
                                 free(buf->buf);                                  free(buf->buf);
                                 buf->buf = nbuf;                                  buf->buf = nbuf;
                         }                          }
   
                           /* Search backwards for the next escape. */
   
                         stesc--;                          stesc--;
                         continue;                          continue;
                 }                  }
Line 1547  roff_res(struct roff *r, struct buf *buf, int ln, int 
Line 1564  roff_res(struct roff *r, struct buf *buf, int ln, int 
 }  }
   
 /*  /*
    * Parse a quoted or unquoted roff-style request or macro argument.
    * Return a pointer to the parsed argument, which is either the original
    * pointer or advanced by one byte in case the argument is quoted.
    * NUL-terminate the argument in place.
    * Collapse pairs of quotes inside quoted arguments.
    * Advance the argument pointer to the next argument,
    * or to the NUL byte terminating the argument line.
    */
   char *
   roff_getarg(struct roff *r, char **cpp, int ln, int *pos)
   {
           struct buf       buf;
           char            *cp, *start;
           int              newesc, pairs, quoted, white;
   
           /* Quoting can only start with a new word. */
           start = *cpp;
           quoted = 0;
           if ('"' == *start) {
                   quoted = 1;
                   start++;
           }
   
           newesc = pairs = white = 0;
           for (cp = start; '\0' != *cp; cp++) {
   
                   /*
                    * Move the following text left
                    * after quoted quotes and after "\\" and "\t".
                    */
                   if (pairs)
                           cp[-pairs] = cp[0];
   
                   if ('\\' == cp[0]) {
                           /*
                            * In copy mode, translate double to single
                            * backslashes and backslash-t to literal tabs.
                            */
                           switch (cp[1]) {
                           case 'a':
                           case 't':
                                   cp[-pairs] = '\t';
                                   pairs++;
                                   cp++;
                                   break;
                           case '\\':
                                   newesc = 1;
                                   cp[-pairs] = ASCII_ESC;
                                   pairs++;
                                   cp++;
                                   break;
                           case ' ':
                                   /* Skip escaped blanks. */
                                   if (0 == quoted)
                                           cp++;
                                   break;
                           default:
                                   break;
                           }
                   } else if (0 == quoted) {
                           if (' ' == cp[0]) {
                                   /* Unescaped blanks end unquoted args. */
                                   white = 1;
                                   break;
                           }
                   } else if ('"' == cp[0]) {
                           if ('"' == cp[1]) {
                                   /* Quoted quotes collapse. */
                                   pairs++;
                                   cp++;
                           } else {
                                   /* Unquoted quotes end quoted args. */
                                   quoted = 2;
                                   break;
                           }
                   }
           }
   
           /* Quoted argument without a closing quote. */
           if (1 == quoted)
                   mandoc_msg(MANDOCERR_ARG_QUOTE, ln, *pos, NULL);
   
           /* NUL-terminate this argument and move to the next one. */
           if (pairs)
                   cp[-pairs] = '\0';
           if ('\0' != *cp) {
                   *cp++ = '\0';
                   while (' ' == *cp)
                           cp++;
           }
           *pos += (int)(cp - start) + (quoted ? 1 : 0);
           *cpp = cp;
   
           if ('\0' == *cp && (white || ' ' == cp[-1]))
                   mandoc_msg(MANDOCERR_SPACE_EOL, ln, *pos, NULL);
   
           start = mandoc_strdup(start);
           if (newesc == 0)
                   return start;
   
           buf.buf = start;
           buf.sz = strlen(start) + 1;
           buf.next = NULL;
           if (roff_expand(r, &buf, ln, 0, ASCII_ESC) & ROFF_IGN) {
                   free(buf.buf);
                   buf.buf = mandoc_strdup("");
           }
           return buf.buf;
   }
   
   
   /*
  * Process text streams.   * Process text streams.
  */   */
 static int  static int
Line 1640  roff_parseln(struct roff *r, int ln, struct buf *buf, 
Line 1769  roff_parseln(struct roff *r, int ln, struct buf *buf, 
   
         /* Expand some escape sequences. */          /* Expand some escape sequences. */
   
         e = roff_res(r, buf, ln, pos);          e = roff_expand(r, buf, ln, pos, r->escape);
         if ((e & ROFF_MASK) == ROFF_IGN)          if ((e & ROFF_MASK) == ROFF_IGN)
                 return e;                  return e;
         assert(e == ROFF_CONT);          assert(e == ROFF_CONT);
Line 3674  roff_userdef(ROFF_ARGS)
Line 3803  roff_userdef(ROFF_ARGS)
                         ctx->argv = mandoc_reallocarray(ctx->argv,                          ctx->argv = mandoc_reallocarray(ctx->argv,
                             ctx->argsz, sizeof(*ctx->argv));                              ctx->argsz, sizeof(*ctx->argv));
                 }                  }
                 arg = mandoc_getarg(&src, ln, &pos);                  arg = roff_getarg(r, &src, ln, &pos);
                 sz = 1;  /* For the terminating NUL. */                  sz = 1;  /* For the terminating NUL. */
                 for (ap = arg; *ap != '\0'; ap++)                  for (ap = arg; *ap != '\0'; ap++)
                         sz += *ap == '"' ? 4 : 1;                          sz += *ap == '"' ? 4 : 1;
Line 3687  roff_userdef(ROFF_ARGS)
Line 3816  roff_userdef(ROFF_ARGS)
                                 *dst++ = *ap;                                  *dst++ = *ap;
                 }                  }
                 *dst = '\0';                  *dst = '\0';
                   free(arg);
         }          }
   
         /* Replace the macro invocation by the macro definition. */          /* Replace the macro invocation by the macro definition. */
Line 4036  roff_strdup(const struct roff *r, const char *p)
Line 4166  roff_strdup(const struct roff *r, const char *p)
                 /*                  /*
                  * We bail out on bad escapes.                   * We bail out on bad escapes.
                  * No need to warn: we already did so when                   * No need to warn: we already did so when
                  * roff_res() was called.                   * roff_expand() was called.
                  */                   */
                 sz = (int)(p - pp);                  sz = (int)(p - pp);
                 res = mandoc_realloc(res, ssz + sz + 1);                  res = mandoc_realloc(res, ssz + sz + 1);
Legend:
Removed from v.1.352  
changed lines
  Added in v.1.355
CVSweb