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

Diff for /mandoc/Attic/mlg.c between version 1.1 and 1.8

version 1.1, 2008/12/03 14:39:59 version 1.8, 2008/12/04 23:10:51
Line 31 
Line 31 
   
 #define COLUMNS           72  #define COLUMNS           72
 #define INDENT            4  #define INDENT            4
 #define MAXINDENT         8  #define MAXINDENT         10
   
 enum    md_tok {  enum    md_tok {
         MD_TEXT,          MD_TEXT,
Line 53  struct md_mlg {
Line 53  struct md_mlg {
         void             *arg;          void             *arg;
         ml_begintag       begintag;          ml_begintag       begintag;
         ml_endtag         endtag;          ml_endtag         endtag;
           ml_begin          begin;
           ml_end            end;
         int               flags;          int               flags;
 #define ML_OVERRIDE_ONE  (1 << 0)  #define ML_OVERRIDE_ONE  (1 << 0)
 #define ML_OVERRIDE_ALL  (1 << 1)  #define ML_OVERRIDE_ALL  (1 << 1)
Line 61  struct md_mlg {
Line 63  struct md_mlg {
   
 static  void             mlg_roffmsg(void *arg, enum roffmsg,  static  void             mlg_roffmsg(void *arg, enum roffmsg,
                                 const char *, const char *, char *);                                  const char *, const char *, char *);
 static  int              mlg_roffhead(void *);  static  int              mlg_roffhead(void *, const struct tm *,
                                   const char *, const char *,
                                   const char *, const char *);
 static  int              mlg_rofftail(void *);  static  int              mlg_rofftail(void *);
 static  int              mlg_roffin(void *, int, int *, char **);  static  int              mlg_roffin(void *, int, int *, char **);
 static  int              mlg_roffdata(void *, int, char *);  static  int              mlg_roffdata(void *, int,
                                   const char *, char *);
 static  int              mlg_roffout(void *, int);  static  int              mlg_roffout(void *, int);
 static  int              mlg_roffblkin(void *, int, int *, char **);  static  int              mlg_roffblkin(void *, int, int *, char **);
 static  int              mlg_roffblkout(void *, int);  static  int              mlg_roffblkout(void *, int);
 static  int              mlg_roffspecial(void *, int, int *, char **, char **);  static  int              mlg_roffspecial(void *, int,
                                   const char *, char **);
   static  int              mlg_roffblkheadin(void *, int,
                                   int *, char **);
   static  int              mlg_roffblkheadout(void *, int);
   static  int              mlg_roffblkbodyin(void *, int,
                                   int *, char **);
   static  int              mlg_roffblkbodyout(void *, int);
   
   static  int              mlg_endblk(struct md_mlg *, enum md_ns, int);
 static  int              mlg_begintag(struct md_mlg *, enum md_ns,  static  int              mlg_begintag(struct md_mlg *, enum md_ns,
                                 int, int *, char **);                                  int, int *, char **);
 static  int              mlg_endtag(struct md_mlg *, enum md_ns, int);  static  int              mlg_endtag(struct md_mlg *, enum md_ns, int);
 static  int              mlg_indent(struct md_mlg *);  static  int              mlg_indent(struct md_mlg *);
 static  int              mlg_newline(struct md_mlg *);  static  int              mlg_newline(struct md_mlg *);
 static  void             mlg_mode(struct md_mlg *, enum md_tok);  static  void             mlg_mode(struct md_mlg *, enum md_tok);
 static  int              mlg_data(struct md_mlg *, int, char *);  static  int              mlg_data(struct md_mlg *, int,
                                   const char *, char *);
   static  void             mlg_err(struct md_mlg *, const char *,
                                   const char *, char *);
   static  void             mlg_warn(struct md_mlg *, const char *,
                                   const char *, char *);
   static  void             mlg_msg(struct md_mlg *, enum roffmsg,
                                   const char *, const char *, char *);
   
 #ifdef __linux__  #ifdef __linux__
 extern  size_t           strlcat(char *, const char *, size_t);  extern  size_t           strlcat(char *, const char *, size_t);
Line 84  extern size_t   strlcpy(char *, const char *, size_t);
Line 105  extern size_t   strlcpy(char *, const char *, size_t);
   
   
 static int  static int
   mlg_endblk(struct md_mlg *p, enum md_ns ns, int tok)
   {
   
           p->indent--;
   
           if (0 != p->pos) {
                   if ( ! mlg_newline(p))
                           return(0);
                   if ( ! mlg_indent(p))
                           return(0);
           } else if ( ! mlg_indent(p))
                   return(0);
   
           mlg_mode(p, MD_BLK_OUT);
           if ( ! mlg_endtag(p, ns, tok))
                   return(0);
           return(mlg_newline(p));
   }
   
   
   static int
 mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,  mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
                 int *argc, char **argv)                  int *argc, char **argv)
 {  {
         ssize_t          res;          ssize_t          res;
   
         /* TODO: extra rules for block/inline. */          assert(MD_NS_DEFAULT != ns);
   
           switch (ns) {
           case (MD_NS_INLINE):
                   if ( ! (ML_OVERRIDE_ONE & p->flags) &&
                                   ! (ML_OVERRIDE_ALL & p->flags) &&
                                   p->pos + 11 > COLUMNS)
                           if ( ! mlg_newline(p))
                                   return(0);
                   if (0 != p->pos && (MD_TEXT == p->last ||
                                           MD_INLINE_OUT == p->last)
                                   && ! (ML_OVERRIDE_ONE & p->flags)
                                   && ! (ML_OVERRIDE_ALL & p->flags))
                           if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
                                   return(0);
                   if (0 == p->pos && ! mlg_indent(p))
                           return(0);
                   mlg_mode(p, MD_INLINE_IN);
                   break;
           default:
                   if (0 != p->pos) {
                           if ( ! mlg_newline(p))
                                   return(0);
                           if ( ! mlg_indent(p))
                                   return(0);
                   } else if ( ! mlg_indent(p))
                           return(0);
                   p->indent++;
                   mlg_mode(p, MD_BLK_IN);
                   break;
           }
   
         if ( ! ml_nputs(p->mbuf, "<", 1, &p->pos))          if ( ! ml_nputs(p->mbuf, "<", 1, &p->pos))
                 return(0);                  return(0);
   
Line 102  mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
Line 174  mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
         assert(res >= 0);          assert(res >= 0);
         p->pos += (size_t)res;          p->pos += (size_t)res;
   
         /* TODO: extra rules for block/inline. */          if ( ! ml_nputs(p->mbuf, ">", 1, &p->pos))
                   return(0);
   
         return(ml_nputs(p->mbuf, ">", 1, &p->pos));          switch (ns) {
           case (MD_NS_INLINE):
                   break;
           default:
                   if ( ! mlg_newline(p))
                           return(0);
                   break;
           }
   
           return(1);
 }  }
   
   
Line 136  mlg_indent(struct md_mlg *p)
Line 218  mlg_indent(struct md_mlg *p)
 {  {
         size_t           count;          size_t           count;
   
         count = p->indent > MAXINDENT ? MAXINDENT : p->indent;          count = p->indent > MAXINDENT ? (size_t)MAXINDENT : p->indent;
         count *= INDENT;          count *= INDENT;
   
         assert(0 == p->pos);          assert(0 == p->pos);
Line 159  mlg_newline(struct md_mlg *p)
Line 241  mlg_newline(struct md_mlg *p)
 static void  static void
 mlg_mode(struct md_mlg *p, enum md_tok ns)  mlg_mode(struct md_mlg *p, enum md_tok ns)
 {  {
   
         p->flags &= ~ML_OVERRIDE_ONE;          p->flags &= ~ML_OVERRIDE_ONE;
         p->last = ns;          p->last = ns;
 }  }
   
   
 static int  static int
 mlg_data(struct md_mlg *p, int space, char *buf)  mlg_data(struct md_mlg *p, int space, const char *start, char *buf)
 {  {
         size_t           sz;          size_t           sz;
         char            *bufp;          int              c;
   
         assert(p->mbuf);          assert(p->mbuf);
         assert(0 != p->indent);          assert(0 != p->indent);
Line 177  mlg_data(struct md_mlg *p, int space, char *buf)
Line 260  mlg_data(struct md_mlg *p, int space, char *buf)
                         ML_OVERRIDE_ALL & p->flags)                          ML_OVERRIDE_ALL & p->flags)
                 space = 0;                  space = 0;
   
         while (*buf) {          sz = strlen(buf);
                 while (*buf && isspace(*buf))  
                         buf++;  
   
                 if (0 == *buf)          if (0 == p->pos) {
                         break;                  if ( ! mlg_indent(p))
                           return(0);
   
                 bufp = buf;                  c = ml_nputstring(p->mbuf, buf, sz, &p->pos);
                 while (*buf && ! isspace(*buf))  
                         buf++;  
   
                 if (0 != *buf)                  if (0 == c) {
                         *buf++ = 0;                          mlg_err(p, start, buf, "bad char sequence");
                           return(0);
                   } else if (c > 1) {
                           mlg_warn(p, start, buf, "bogus char sequence");
                           return(0);
                   } else if (-1 == c)
                           return(0);
   
                 sz = strlen(bufp);                  if (p->indent * INDENT + sz >= COLUMNS)
   
                 if (0 == p->pos) {  
                         if ( ! mlg_indent(p))  
                                 return(0);  
                         if ( ! ml_nputstring(p->mbuf, bufp,  
                                                 sz, &p->pos))  
                                 return(0);  
                         if (p->indent * MAXINDENT + sz >= COLUMNS)  
                                 if ( ! mlg_newline(p))  
                                         return(0);  
                         if ( ! (ML_OVERRIDE_ALL & p->flags))  
                                 space = 1;  
                         continue;  
                 }  
   
                 if (space && sz + p->pos >= COLUMNS) {  
                         if ( ! mlg_newline(p))                          if ( ! mlg_newline(p))
                                 return(0);                                  return(0);
                         if ( ! mlg_indent(p))  
                                 return(0);  
                 } else if (space) {  
                         if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))  
                                 return(0);  
                 }  
   
                 if ( ! ml_nputstring(p->mbuf, bufp, sz, &p->pos))                  return(1);
                         return(0);          }
   
                 if ( ! (ML_OVERRIDE_ALL & p->flags))          if (space && sz + p->pos >= COLUMNS) {
                         space = 1;                  if ( ! mlg_newline(p))
                           return(0);
                   if ( ! mlg_indent(p))
                           return(0);
           } else if (space) {
                   if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
                           return(0);
         }          }
   
           c = ml_nputstring(p->mbuf, buf, sz, &p->pos);
   
           if (0 == c) {
                   mlg_err(p, start, buf, "bad char sequence");
                   return(0);
           } else if (c > 1) {
                   mlg_warn(p, start, buf, "bogus char sequence");
                   return(0);
           } else if (-1 == c)
                   return(0);
   
         return(1);          return(1);
 }  }
   
Line 251  struct md_mlg *
Line 332  struct md_mlg *
 mlg_alloc(const struct md_args *args,  mlg_alloc(const struct md_args *args,
                 const struct md_rbuf *rbuf,                  const struct md_rbuf *rbuf,
                 struct md_mbuf *mbuf,                  struct md_mbuf *mbuf,
                 ml_begintag begintag, ml_endtag endtag)                  ml_begintag begintag, ml_endtag endtag,
                   ml_begin begin, ml_end end)
 {  {
         struct roffcb    cb;          struct roffcb    cb;
         struct md_mlg   *p;          struct md_mlg   *p;
Line 261  mlg_alloc(const struct md_args *args, 
Line 343  mlg_alloc(const struct md_args *args, 
         cb.roffin = mlg_roffin;          cb.roffin = mlg_roffin;
         cb.roffout = mlg_roffout;          cb.roffout = mlg_roffout;
         cb.roffblkin = mlg_roffblkin;          cb.roffblkin = mlg_roffblkin;
           cb.roffblkheadin = mlg_roffblkheadin;
           cb.roffblkheadout = mlg_roffblkheadout;
           cb.roffblkbodyin = mlg_roffblkbodyin;
           cb.roffblkbodyout = mlg_roffblkbodyout;
         cb.roffblkout = mlg_roffblkout;          cb.roffblkout = mlg_roffblkout;
         cb.roffspecial = mlg_roffspecial;          cb.roffspecial = mlg_roffspecial;
         cb.roffmsg = mlg_roffmsg;          cb.roffmsg = mlg_roffmsg;
Line 274  mlg_alloc(const struct md_args *args, 
Line 360  mlg_alloc(const struct md_args *args, 
         p->rbuf = rbuf;          p->rbuf = rbuf;
         p->begintag = begintag;          p->begintag = begintag;
         p->endtag = endtag;          p->endtag = endtag;
           p->begin = begin;
           p->end = end;
   
         if (NULL == (p->tree = roff_alloc(&cb, p))) {          if (NULL == (p->tree = roff_alloc(&cb, p))) {
                 free(p);                  free(p);
Line 285  mlg_alloc(const struct md_args *args, 
Line 373  mlg_alloc(const struct md_args *args, 
   
   
 static int  static int
 mlg_roffhead(void *arg)  mlg_roffhead(void *arg, const struct tm *tm, const char *os,
                   const char *title, const char *sec, const char *vol)
 {  {
         struct md_mlg   *p;          struct md_mlg   *p;
   
Line 293  mlg_roffhead(void *arg)
Line 382  mlg_roffhead(void *arg)
         p = (struct md_mlg *)arg;          p = (struct md_mlg *)arg;
   
         mlg_mode(p, MD_BLK_IN);          mlg_mode(p, MD_BLK_IN);
         if ( ! mlg_begintag(p, MD_NS_DEFAULT, -1, NULL, NULL))          if ( ! (*p->begin)(p->mbuf, p->args, tm, os, title, sec, vol))
                 return(0);                  return(0);
   
         p->indent++;          p->indent++;
Line 313  mlg_rofftail(void *arg)
Line 402  mlg_rofftail(void *arg)
                 return(0);                  return(0);
   
         mlg_mode(p, MD_BLK_OUT);          mlg_mode(p, MD_BLK_OUT);
         if ( ! mlg_endtag(p, -1, MD_NS_DEFAULT))          if ( ! (*p->end)(p->mbuf, p->args))
                 return(0);                  return(0);
   
         return(mlg_newline(p));          return(mlg_newline(p));
Line 322  mlg_rofftail(void *arg)
Line 411  mlg_rofftail(void *arg)
   
 /* ARGSUSED */  /* ARGSUSED */
 static int  static int
 mlg_roffspecial(void *arg, int tok, int *argc, char **argv, char **more)  mlg_roffspecial(void *arg, int tok, const char *start, char **more)
 {  {
         struct md_mlg   *p;          struct md_mlg   *p;
   
Line 330  mlg_roffspecial(void *arg, int tok, int *argc, char **
Line 419  mlg_roffspecial(void *arg, int tok, int *argc, char **
         p = (struct md_mlg *)arg;          p = (struct md_mlg *)arg;
   
         switch (tok) {          switch (tok) {
           case (ROFF_Xr):
                   if ( ! *more) {
                           mlg_err(p, start, start,
                                           "missing required argument");
                           return(0);
                   }
                   if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, NULL))
                           return(0);
                   if ( ! ml_puts(p->mbuf, *more++, &p->pos))
                           return(0);
                   if (*more) {
                           if ( ! ml_nputs(p->mbuf, "(", 1, &p->pos))
                                   return(0);
                           if ( ! mlg_data(p, 0, start, *more++))
                                   return(0);
                           if ( ! ml_nputs(p->mbuf, ")", 1, &p->pos))
                                   return(0);
                   }
                   if (*more) {
                           mlg_err(p, start, start, "too many arguments");
                           return(0);
                   }
                   if ( ! mlg_endtag(p, MD_NS_INLINE, tok))
                           return(0);
                   mlg_mode(p, MD_INLINE_OUT);
                   break;
           case (ROFF_Fn):
                   break;
         case (ROFF_Ns):          case (ROFF_Ns):
                 p->flags |= ML_OVERRIDE_ONE;                  p->flags |= ML_OVERRIDE_ONE;
                 break;                  break;
Line 351  mlg_roffspecial(void *arg, int tok, int *argc, char **
Line 468  mlg_roffspecial(void *arg, int tok, int *argc, char **
 static int  static int
 mlg_roffblkin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkin(void *arg, int tok, int *argc, char **argv)
 {  {
         struct md_mlg   *p;  
   
         assert(arg);          return(mlg_begintag((struct md_mlg *)arg,
         p = (struct md_mlg *)arg;                                  MD_NS_BLOCK, tok, argc, argv));
   }
   
         if (0 != p->pos) {  
                 if ( ! mlg_newline(p))  
                         return(0);  
                 if ( ! mlg_indent(p))  
                         return(0);  
         } else if ( ! mlg_indent(p))  
                 return(0);  
   
         p->indent++;  static int
         mlg_mode(p, MD_BLK_IN);  mlg_roffblkout(void *arg, int tok)
   {
   
         if ( ! mlg_begintag(p, MD_NS_BLOCK, tok, argc, argv))          return(mlg_endblk((struct md_mlg *)arg, MD_NS_BLOCK, tok));
                 return(0);  
         return(mlg_newline(p));  
 }  }
   
   
 static int  static int
 mlg_roffblkout(void *arg, int tok)  mlg_roffblkbodyin(void *arg, int tok, int *argc, char **argv)
 {  {
         struct md_mlg   *p;  
   
         assert(arg);          return(mlg_begintag((struct md_mlg *)arg,
         p = (struct md_mlg *)arg;                                  MD_NS_BODY, tok, argc, argv));
   }
   
         p->indent--;  
   
         if (0 != p->pos) {  static int
                 if ( ! mlg_newline(p))  mlg_roffblkbodyout(void *arg, int tok)
                         return(0);  {
                 if ( ! mlg_indent(p))  
                         return(0);  
         } else if ( ! mlg_indent(p))  
                 return(0);  
   
         mlg_mode(p, MD_BLK_OUT);          return(mlg_endblk((struct md_mlg *)arg, MD_NS_BODY, tok));
         if ( ! mlg_endtag(p, MD_NS_BLOCK, tok))  
                 return(0);  
         return(mlg_newline(p));  
 }  }
   
   
 static int  static int
 mlg_roffin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkheadin(void *arg, int tok, int *argc, char **argv)
 {  {
         struct md_mlg   *p;  
   
         assert(arg);          return(mlg_begintag((struct md_mlg *)arg,
         p = (struct md_mlg *)arg;                                  MD_NS_HEAD, tok, argc, argv));
   }
   
         /* FIXME: this part. */  
   
         if ( ! (ML_OVERRIDE_ONE & p->flags) &&  static int
                         ! (ML_OVERRIDE_ALL & p->flags) &&  mlg_roffblkheadout(void *arg, int tok)
                         p->pos + 11 > COLUMNS)  {
                 if ( ! mlg_newline(p))  
                         return(0);  
   
         if (0 != p->pos && (MD_TEXT == p->last ||          return(mlg_endblk((struct md_mlg *)arg, MD_NS_HEAD, tok));
                                 MD_INLINE_OUT == p->last)  }
                         && ! (ML_OVERRIDE_ONE & p->flags)  
                         && ! (ML_OVERRIDE_ALL & p->flags))  
                 if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))  
                         return(0);  
   
         if (0 == p->pos && ! mlg_indent(p))  
                 return(0);  
   
         mlg_mode(p, MD_INLINE_IN);  static int
         return(mlg_begintag(p, MD_NS_INLINE, tok, argc, argv));  mlg_roffin(void *arg, int tok, int *argc, char **argv)
   {
   
           return(mlg_begintag((struct md_mlg *)arg,
                                   MD_NS_INLINE, tok, argc, argv));
 }  }
   
   
Line 449  static void
Line 545  static void
 mlg_roffmsg(void *arg, enum roffmsg lvl,  mlg_roffmsg(void *arg, enum roffmsg lvl,
                 const char *buf, const char *pos, char *msg)                  const char *buf, const char *pos, char *msg)
 {  {
         char            *level;  
           mlg_msg((struct md_mlg *)arg, lvl, buf, pos, msg);
   }
   
   
   static int
   mlg_roffdata(void *arg, int space, const char *start, char *buf)
   {
         struct md_mlg   *p;          struct md_mlg   *p;
   
         assert(arg);          assert(arg);
         p = (struct md_mlg *)arg;          p = (struct md_mlg *)arg;
   
           if ( ! mlg_data(p, space, start, buf))
                   return(0);
   
           mlg_mode(p, MD_TEXT);
           return(1);
   }
   
   
   static void
   mlg_err(struct md_mlg *p, const char *buf, const char *pos, char *msg)
   {
   
           mlg_msg(p, ROFF_ERROR, buf, pos, msg);
   }
   
   
   static void
   mlg_warn(struct md_mlg *p, const char *buf, const char *pos, char *msg)
   {
   
           mlg_msg(p, ROFF_WARN, buf, pos, msg);
   }
   
   
   static void
   mlg_msg(struct md_mlg *p, enum roffmsg lvl,
                   const char *buf, const char *pos, char *msg)
   {
           char            *level;
   
         switch (lvl) {          switch (lvl) {
         case (ROFF_WARN):          case (ROFF_WARN):
                 if ( ! (MD_WARN_ALL & p->args->warnings))                  if ( ! (MD_WARN_ALL & p->args->warnings))
Line 477  mlg_roffmsg(void *arg, enum roffmsg lvl, 
Line 610  mlg_roffmsg(void *arg, enum roffmsg lvl, 
                                 p->rbuf->name, level, msg);                                  p->rbuf->name, level, msg);
   
 }  }
   
   
 static int  
 mlg_roffdata(void *arg, int space, char *buf)  
 {  
         struct md_mlg   *p;  
   
         assert(arg);  
         p = (struct md_mlg *)arg;  
   
         if ( ! mlg_data(p, space, buf))  
                 return(0);  
   
         mlg_mode(p, MD_TEXT);  
         return(1);  
 }  
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.8
CVSweb