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

Diff for /mandoc/roff.c between version 1.32 and 1.35

version 1.32, 2008/12/02 00:15:41 version 1.35, 2008/12/03 19:21:58
Line 17 
Line 17 
  * PERFORMANCE OF THIS SOFTWARE.   * PERFORMANCE OF THIS SOFTWARE.
  */   */
 #include <sys/param.h>  #include <sys/param.h>
   #include <sys/types.h>
   
 #include <assert.h>  #include <assert.h>
 #include <ctype.h>  #include <ctype.h>
Line 30 
Line 31 
 #include "libmdocml.h"  #include "libmdocml.h"
 #include "private.h"  #include "private.h"
   
   /* FIXME: First letters of quoted-text interpreted in rofffindtok. */
   /* FIXME: `No' not implemented. */
 /* TODO: warn if Pp occurs before/after Sh etc. (see mdoc.samples). */  /* TODO: warn if Pp occurs before/after Sh etc. (see mdoc.samples). */
 /* TODO: warn about "X section only" macros. */  /* TODO: warn about "X section only" macros. */
 /* TODO: warn about empty lists. */  /* TODO: warn about empty lists. */
Line 104  static int    roff_Dd(ROFFCALL_ARGS);
Line 107  static int    roff_Dd(ROFFCALL_ARGS);
 static  int               roff_Dt(ROFFCALL_ARGS);  static  int               roff_Dt(ROFFCALL_ARGS);
 static  int               roff_Os(ROFFCALL_ARGS);  static  int               roff_Os(ROFFCALL_ARGS);
 static  int               roff_Ns(ROFFCALL_ARGS);  static  int               roff_Ns(ROFFCALL_ARGS);
   static  int               roff_Sm(ROFFCALL_ARGS);
 static  int               roff_layout(ROFFCALL_ARGS);  static  int               roff_layout(ROFFCALL_ARGS);
 static  int               roff_text(ROFFCALL_ARGS);  static  int               roff_text(ROFFCALL_ARGS);
 static  int               roff_noop(ROFFCALL_ARGS);  static  int               roff_noop(ROFFCALL_ARGS);
Line 126  static int    roffnextopt(const struct rofftree *,
Line 130  static int    roffnextopt(const struct rofftree *,
                                 int, char ***, char **);                                  int, char ***, char **);
 static  int               roffparseopts(struct rofftree *, int,  static  int               roffparseopts(struct rofftree *, int,
                                 char ***, int *, char **);                                  char ***, int *, char **);
   static  int               roffcall(struct rofftree *, int, char **);
 static  int               roffparse(struct rofftree *, char *);  static  int               roffparse(struct rofftree *, char *);
 static  int               textparse(const struct rofftree *, char *);  static  int               textparse(const struct rofftree *, char *);
   
   #ifdef __linux__
   extern  size_t            strlcat(char *, const char *, size_t);
   extern  size_t            strlcpy(char *, const char *, size_t);
   extern  int               vsnprintf(char *, size_t,
                                   const char *, va_list);
   extern  char             *strptime(const char *, const char *,
                                   struct tm *);
   #endif
   
   
 static  const int roffarg_An[] = { ROFF_Split, ROFF_Nosplit, ROFF_ARGMAX };  static  const int roffarg_An[] = { ROFF_Split, ROFF_Nosplit, ROFF_ARGMAX };
 static  const int roffarg_Bd[] = { ROFF_Ragged, ROFF_Unfilled, ROFF_Literal,  static  const int roffarg_Bd[] = { ROFF_Ragged, ROFF_Unfilled, ROFF_Literal,
         ROFF_File, ROFF_Offset, ROFF_Filled, ROFF_Compact, ROFF_ARGMAX };          ROFF_File, ROFF_Offset, ROFF_Filled, ROFF_Compact, ROFF_ARGMAX };
Line 252  static const struct rofftok tokens[ROFF_MAX] = {
Line 266  static const struct rofftok tokens[ROFF_MAX] = {
         {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Sc */          {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Sc */
         {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* So */          {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* So */
         {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE | ROFF_LSCOPE }, /* Sq */          {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE | ROFF_LSCOPE }, /* Sq */
         {        NULL, NULL, NULL, NULL, 0, ROFF_SPECIAL, 0 }, /* Sm */          {     roff_Sm, NULL, NULL, NULL, 0, ROFF_TEXT, 0 }, /* Sm */
         {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Sx */          {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Sx */
         {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Sy */          {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Sy */
         {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Tn */          {   roff_text, NULL, NULL, NULL, 0, ROFF_TEXT, ROFF_PARSED | ROFF_CALLABLE }, /* Tn */
Line 818  roffnode_free(struct rofftree *tree)
Line 832  roffnode_free(struct rofftree *tree)
   
   
 static int  static int
   roffcall(struct rofftree *tree, int tok, char **argv)
   {
   
           if (NULL == tokens[tok].cb) {
                   roff_err(tree, *argv, "unsupported macro `%s'",
                                   toknames[tok]);
                   return(0);
           }
           if ( ! (*tokens[tok].cb)(tok, tree, argv, ROFF_ENTER))
                   return(0);
           return(1);
   }
   
   
   static int
 roffnextopt(const struct rofftree *tree, int tok,  roffnextopt(const struct rofftree *tree, int tok,
                 char ***in, char **val)                  char ***in, char **val)
 {  {
Line 835  roffnextopt(const struct rofftree *tree, int tok, 
Line 864  roffnextopt(const struct rofftree *tree, int tok, 
   
         if (ROFF_ARGMAX == (v = rofffindarg(arg + 1))) {          if (ROFF_ARGMAX == (v = rofffindarg(arg + 1))) {
                 roff_warn(tree, arg, "argument-like parameter `%s' to "                  roff_warn(tree, arg, "argument-like parameter `%s' to "
                                 "`%s'", &arg[1], toknames[tok]);                                  "`%s'", arg, toknames[tok]);
                 return(-1);                  return(-1);
         }          }
   
Line 1053  roff_Dt(ROFFCALL_ARGS)
Line 1082  roff_Dt(ROFFCALL_ARGS)
   
 /* ARGSUSED */  /* ARGSUSED */
 static  int  static  int
 roff_Ns(ROFFCALL_ARGS)  roff_Sm(ROFFCALL_ARGS)
 {  {
         int              j, c, first;          int              argcp[1];
           char            *argvp[1], *morep[1], *p;
   
         first = (*argv == tree->cur);          p = *argv++;
   
         argv++;          argcp[0] = ROFF_ARGMAX;
           argvp[0] = NULL;
           if (NULL == (morep[0] = *argv++)) {
                   roff_err(tree, p, "`Sm' expects an argument");
                   return(0);
           } else if (0 != strcmp(morep[0], "on") &&
                           0 != strcmp(morep[0], "off")) {
                   roff_err(tree, p, "`Sm' has invalid argument");
                   return(0);
           }
   
         if (ROFF_MAX != (c = rofffindcallable(*argv))) {          if (*argv)
                 if (NULL == tokens[c].cb) {                  roff_warn(tree, *argv, "`Sm' shouldn't have arguments");
                         roff_err(tree, *argv, "unsupported macro `%s'",  
                                         toknames[c]);  
                         return(0);  
                 }  
                 if ( ! (*tree->cb.roffspecial)(tree->arg, tok))  
                         return(0);  
                 if ( ! (*tokens[c].cb)(c, tree, argv, ROFF_ENTER))  
                         return(0);  
                 if ( ! first)  
                         return(1);  
                 return(roffpurgepunct(tree, argv));  
         }  
   
         if ( ! (*tree->cb.roffdata)(tree->arg, 0, *argv++))          if ( ! (*tree->cb.roffspecial)(tree->arg,
                                   tok, argcp, argvp, morep))
                 return(0);                  return(0);
   
         while (*argv) {          while (*argv) {
                 if (ROFF_MAX == (c = rofffindcallable(*argv))) {                  if ((*tree->cb.roffdata)(tree->arg, 1, *argv++))
                         if ( ! roffispunct(*argv)) {                          continue;
                                 if ( ! (*tree->cb.roffdata)                  return(0);
                                                 (tree->arg, 1, *argv++))          }
                                         return(0);  
                                 continue;  
                         }  
   
                         /* FIXME: this is identical to that of  
                          * roff_text. */  
   
                         /* See if only punctuation remains. */          return(1);
   }
   
                         for (j = 0; argv[j]; j++)  
                                 if ( ! roffispunct(argv[j]))  
                                         break;  
   
                         if (argv[j]) {  /* ARGSUSED */
                                 if ( ! (*tree->cb.roffdata)  static  int
                                                 (tree->arg, 0, *argv++))  roff_Ns(ROFFCALL_ARGS)
                                         return(0);  {
                                 continue;          int              j, c, first;
                         }          int              argcp[1];
           char            *argvp[1], *morep[1];
   
                         /*  Only punctuation remains. */          first = (*argv++ == tree->cur);
   
           argcp[0] = ROFF_ARGMAX;
           argvp[0] = morep[0] = NULL;
   
           if ( ! (*tree->cb.roffspecial)(tree->arg,
                                   tok, argcp, argvp, morep))
                   return(0);
   
           while (*argv) {
                   if (ROFF_MAX != (c = rofffindcallable(*argv))) {
                           if ( ! roffcall(tree, c, argv))
                                   return(0);
                         break;                          break;
                 }                  }
                 if (NULL == tokens[c].cb) {  
                         roff_err(tree, *argv, "unsupported macro `%s'",                  if ( ! roffispunct(*argv)) {
                                         toknames[c]);                          if ((*tree->cb.roffdata)(tree->arg, 1, *argv++))
                                   continue;
                         return(0);                          return(0);
                 }                  }
                 if ( ! (*tokens[c].cb)(c, tree, argv, ROFF_ENTER))                  for (j = 0; argv[j]; j++)
                           if ( ! roffispunct(argv[j]))
                                   break;
   
                   if (argv[j]) {
                           if ((*tree->cb.roffdata)(tree->arg, 0, *argv++))
                                   continue;
                         return(0);                          return(0);
                   }
   
                 break;                  break;
         }          }
   
         if ( ! first)          if ( ! first)
                 return(1);                  return(1);
   
         return(roffpurgepunct(tree, argv));          return(roffpurgepunct(tree, argv));
 }  }
   
Line 1185  roff_layout(ROFFCALL_ARGS) 
Line 1227  roff_layout(ROFFCALL_ARGS) 
                 return(0);                  return(0);
         } else if (ROFF_EXIT == type) {          } else if (ROFF_EXIT == type) {
                 roffnode_free(tree);                  roffnode_free(tree);
                   if ( ! (*tree->cb.roffblkbodyout)(tree->arg, tok))
                           return(0);
                 return((*tree->cb.roffblkout)(tree->arg, tok));                  return((*tree->cb.roffblkout)(tree->arg, tok));
         }          }
   
Line 1206  roff_layout(ROFFCALL_ARGS) 
Line 1250  roff_layout(ROFFCALL_ARGS) 
         if ( ! (*tree->cb.roffblkin)(tree->arg, tok, argcp, argvp))          if ( ! (*tree->cb.roffblkin)(tree->arg, tok, argcp, argvp))
                 return(0);                  return(0);
         if (NULL == *argv)          if (NULL == *argv)
                 return(1);                  return((*tree->cb.roffblkbodyin)
         if ( ! (*tree->cb.roffin)(tree->arg, tok, argcp, argvp))                                  (tree->arg, tok, argcp, argvp));
   
           if ( ! (*tree->cb.roffblkheadin)(tree->arg, tok, argcp, argvp))
                 return(0);                  return(0);
   
         /*          /*
Line 1222  roff_layout(ROFFCALL_ARGS) 
Line 1268  roff_layout(ROFFCALL_ARGS) 
                                 return(0);                                  return(0);
                         i = 1;                          i = 1;
                 }                  }
                 return((*tree->cb.roffout)(tree->arg, tok));                  if ( ! (*tree->cb.roffblkheadout)(tree->arg, tok))
                           return(0);
                   return((*tree->cb.roffblkbodyin)
                                   (tree->arg, tok, argcp, argvp));
         }          }
   
         /*          /*
Line 1240  roff_layout(ROFFCALL_ARGS) 
Line 1289  roff_layout(ROFFCALL_ARGS) 
                         i = 1;                          i = 1;
                         continue;                          continue;
                 }                  }
                   if ( ! roffcall(tree, c, argv))
                 if (NULL == tokens[c].cb) {  
                         roff_err(tree, *argv, "unsupported macro `%s'",  
                                         toknames[c]);  
                         return(0);                          return(0);
                 }  
   
                 if ( ! (*tokens[c].cb)(c, tree, argv, ROFF_ENTER))  
                         return(0);  
   
                 break;                  break;
         }          }
   
Line 1259  roff_layout(ROFFCALL_ARGS) 
Line 1300  roff_layout(ROFFCALL_ARGS) 
          * macro.           * macro.
          */           */
   
         if (NULL == *argv)          if (NULL == *argv) {
                 return((*tree->cb.roffout)(tree->arg, tok));                  if ( ! (*tree->cb.roffblkheadout)(tree->arg, tok))
                           return(0);
                   return((*tree->cb.roffblkbodyin)
                                   (tree->arg, tok, argcp, argvp));
           }
   
         /*          /*
          * Expensive.  Scan to the end of line then work backwards until           * Expensive.  Scan to the end of line then work backwards until
Line 1270  roff_layout(ROFFCALL_ARGS) 
Line 1315  roff_layout(ROFFCALL_ARGS) 
         if ( ! roffpurgepunct(tree, argv))          if ( ! roffpurgepunct(tree, argv))
                 return(0);                  return(0);
   
         return((*tree->cb.roffout)(tree->arg, tok));          if ( ! (*tree->cb.roffblkheadout)(tree->arg, tok))
                   return(0);
           return((*tree->cb.roffblkbodyin)
                           (tree->arg, tok, argcp, argvp));
 }  }
   
   
Line 1316  roff_text(ROFFCALL_ARGS) 
Line 1364  roff_text(ROFFCALL_ARGS) 
   
         i = 0;          i = 0;
         while (*argv) {          while (*argv) {
                 if (ROFF_MAX == (c = rofffindcallable(*argv))) {                  if (ROFF_MAX != (c = rofffindcallable(*argv))) {
                         if ( ! roffispunct(*argv)) {                          if ( ! (ROFF_LSCOPE & tokens[tok].flags))
                                 if ( ! (*tree->cb.roffdata)                                  if ( ! (*tree->cb.roffout)(tree->arg, tok))
                                                 (tree->arg, i, *argv++))  
                                         return(0);                                          return(0);
                                 i = 1;  
                                 continue;                          if ( ! roffcall(tree, c, argv))
                         }                                  return(0);
   
                         /* See if only punctuation remains. */                          if (ROFF_LSCOPE & tokens[tok].flags)
                                   if ( ! (*tree->cb.roffout)(tree->arg, tok))
                         i = 1;  
                         for (j = 0; argv[j]; j++)  
                                 if ( ! roffispunct(argv[j]))  
                                         break;  
   
                         if (argv[j]) {  
                                 if ( ! (*tree->cb.roffdata)  
                                                 (tree->arg, 0, *argv++))  
                                         return(0);                                          return(0);
                                 continue;  
                         }                          break;
                   }
   
                         /*  Only punctuation remains. */                  if ( ! roffispunct(*argv)) {
                           if ( ! (*tree->cb.roffdata)(tree->arg, i, *argv++))
                         if ( ! (*tree->cb.roffout)(tree->arg, tok))  
                                 return(0);                                  return(0);
                         break;                          i = 1;
                           continue;
                 }                  }
   
                 /*                  i = 1;
                  * A sub-command has been found.  Execute it and                  for (j = 0; argv[j]; j++)
                  * discontinue parsing for arguments.  If we're                          if ( ! roffispunct(argv[j]))
                  * line-scoped, then close out after it returns; if we                                  break;
                  * aren't, then close out before.  
                  */  
   
                 if (NULL == tokens[c].cb) {                  if (argv[j]) {
                         roff_err(tree, *argv, "unsupported macro `%s'",                          if ( ! (*tree->cb.roffdata)(tree->arg, 0, *argv++))
                                         toknames[c]);  
                         return(0);  
                 }  
   
                 if ( ! (ROFF_LSCOPE & tokens[tok].flags))  
                         if ( ! (*tree->cb.roffout)(tree->arg, tok))  
                                 return(0);                                  return(0);
                           continue;
                 if ( ! (*tokens[c].cb)(c, tree, argv, ROFF_ENTER))                  }
                         return(0);  
   
                 if (ROFF_LSCOPE & tokens[tok].flags)                  if ( ! (*tree->cb.roffout)(tree->arg, tok))
                         if ( ! (*tree->cb.roffout)(tree->arg, tok))                          return(0);
                                 return(0);  
   
                 break;                  break;
         }          }
   
Line 1429  roff_err(const struct rofftree *tree, const char *pos,
Line 1458  roff_err(const struct rofftree *tree, const char *pos,
         (*tree->cb.roffmsg)(tree->arg,          (*tree->cb.roffmsg)(tree->arg,
                         ROFF_ERROR, tree->cur, pos, buf);                          ROFF_ERROR, tree->cur, pos, buf);
 }  }
   
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.35
CVSweb