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

Diff for /mandoc/Attic/mlg.c between version 1.6 and 1.27

version 1.6, 2008/12/04 16:34:59 version 1.27, 2008/12/10 12:09:47
Line 19 
Line 19 
 #include <assert.h>  #include <assert.h>
 #include <ctype.h>  #include <ctype.h>
 #include <err.h>  #include <err.h>
   #include <stdarg.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <stdio.h>  #include <stdio.h>
 #include <string.h>  #include <string.h>
   
 #include "libmdocml.h"  
 #include "private.h"  
 #include "ml.h"  #include "ml.h"
   
 /* TODO: literal tokens. */  /* TODO: literal tokens. */
   
 #define COLUMNS           72  
 #define INDENT            4  
 #define MAXINDENT         10  
   
 enum    md_tok {  enum    md_tok {
         MD_TEXT,          MD_TEXT,
         MD_INLINE_IN,          MD_INLINE_IN,
         MD_INLINE_OUT,          MD_INLINE_OUT,
         MD_BLK_IN,          MD_BLK_IN,
         MD_BLK_OUT,          MD_BLK_OUT
 };  };
   
 struct  md_mlg {  struct  md_mlg {
Line 51  struct md_mlg {
Line 46  struct md_mlg {
         size_t            pos;          size_t            pos;
         enum md_tok       last;          enum md_tok       last;
         void             *arg;          void             *arg;
         ml_begintag       begintag;          struct ml_cbs     cbs;
         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)
           void             *data;
 };  };
   
   static  int              mlg_roffmsg(void *arg,
 static  void             mlg_roffmsg(void *arg, enum roffmsg,                                  enum roffmsg, const char *,
                                 const char *, const char *, char *);                                  const char *, const char *);
 static  int              mlg_roffhead(void *, const struct tm *,  static  int              mlg_roffhead(void *, const struct tm *,
                                 const char *, const char *,                                  const char *, const char *,
                                 const char *, const char *);                                  enum roffmsec, enum roffvol);
 static  int              mlg_rofftail(void *);  static  int              mlg_rofftail(void *, const struct tm *,
 static  int              mlg_roffin(void *, int, int *, char **);                                  const char *, const char *,
                                   enum roffmsec, enum roffvol);
   static  int              mlg_roffin(void *, int,
                                   int *, const char **);
 static  int              mlg_roffdata(void *, int,  static  int              mlg_roffdata(void *, int,
                                 const char *, char *);                                  const char *, const char *);
 static  int              mlg_rofftoken(void *, int, int);  
 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 *,
                                   const char **);
 static  int              mlg_roffblkout(void *, int);  static  int              mlg_roffblkout(void *, int);
 static  int              mlg_roffspecial(void *, int, int *,  static  int              mlg_roffspecial(void *, int,
                                 char **, char **);                                  const char *, const int *,
                                   const char **, const char **);
 static  int              mlg_roffblkheadin(void *, int,  static  int              mlg_roffblkheadin(void *, int,
                                 int *, char **);                                  int *, const char **);
 static  int              mlg_roffblkheadout(void *, int);  static  int              mlg_roffblkheadout(void *, int);
 static  int              mlg_roffblkbodyin(void *, int,  static  int              mlg_roffblkbodyin(void *, int,
                                 int *, char **);                                  int *, const char **);
 static  int              mlg_roffblkbodyout(void *, int);  static  int              mlg_roffblkbodyout(void *, int);
   
 static  int              mlg_beginblk(struct md_mlg *, enum md_ns, int,  static  int              mlg_ref_special(struct md_mlg *, int,
                                 int *, char **);                                  const char *, const char **);
 static  int              mlg_endblk(struct md_mlg *, enum md_ns, int);  static  int              mlg_formatted_special(struct md_mlg *,
                                   int, const char *, const int *,
                                   const char **, const char **);
   static  int              mlg_literal_special(struct md_mlg *,
                                   int,  const char *, const int *,
                                   const char **, const char **);
   static  int              mlg_function_special(struct md_mlg *,
                                   const char *, const char **);
   static  int              mlg_atom_special(struct md_mlg *, int,
                                   const char *, const char **);
   
 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 *, const 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_nstring(struct md_mlg *,
                                   const char *, const char *, size_t);
   static  int              mlg_string(struct md_mlg *,
                                   const char *, const char *);
 static  int              mlg_data(struct md_mlg *, int,  static  int              mlg_data(struct md_mlg *, int,
                                 const char *, char *);                                  const char *, const char *);
 static  void             mlg_err(struct md_mlg *, const char *,  static  int              mlg_err(struct md_mlg *, const char *,
                                 const char *, char *);                                  const char *, const char *, ...);
 static  void             mlg_warn(struct md_mlg *, const char *,  static  int              mlg_msg(struct md_mlg *,
                                 const char *, char *);                                  enum roffmsg, const char *,
 static  void             mlg_msg(struct md_mlg *, enum roffmsg,                                  const char *, const char *);
                                 const char *, const char *, char *);  static  int              mlg_vmsg(struct md_mlg *, enum roffmsg,
                                   const char *, const char *,
                                   const char *, va_list);
   
 #ifdef __linux__  #ifdef __linux__
 extern  size_t           strlcat(char *, const char *, size_t);  extern  size_t           strlcat(char *, const char *, size_t);
Line 108  extern size_t   strlcpy(char *, const char *, size_t);
Line 121  extern size_t   strlcpy(char *, const char *, size_t);
   
   
 static int  static int
 mlg_beginblk(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, const char **argv)
 {  {
         if (0 != p->pos) {          ssize_t          res;
                 if ( ! mlg_newline(p))  
                         return(0);  
                 if ( ! mlg_indent(p))  
                         return(0);  
         } else if ( ! mlg_indent(p))  
                 return(0);  
   
         p->indent++;          assert(MD_NS_DEFAULT != ns);
         mlg_mode(p, MD_BLK_IN);  
   
         if ( ! mlg_begintag(p, ns, tok, argc, argv))          switch (ns) {
                 return(0);          case (MD_NS_INLINE):
         return(mlg_newline(p));                  if ( ! (ML_OVERRIDE_ONE & p->flags) &&
 }                                  ! (ML_OVERRIDE_ALL & p->flags) &&
                                   p->pos + 11 >= COLUMNS)
                           if ( ! mlg_newline(p))
 static int                                  return(0);
 mlg_endblk(struct md_mlg *p, enum md_ns ns, int tok)                  if (0 != p->pos && (MD_TEXT == p->last ||
 {                                          MD_INLINE_OUT == p->last)
                                   && ! (ML_OVERRIDE_ONE & p->flags)
         p->indent--;                                  && ! (ML_OVERRIDE_ALL & p->flags))
                           if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
         if (0 != p->pos) {                                  return(0);
                 if ( ! mlg_newline(p))                  if (0 == p->pos && ! mlg_indent(p))
                         return(0);                          return(0);
                 if ( ! mlg_indent(p))                  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);                          return(0);
         } else if ( ! mlg_indent(p))                  p->indent++;
                 return(0);                  mlg_mode(p, MD_BLK_IN);
                   break;
           }
   
         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,  
                 int *argc, char **argv)  
 {  
         ssize_t          res;  
   
         /* TODO: extra rules for block/inline. */  
   
         if ( ! ml_nputs(p->mbuf, "<", 1, &p->pos))          if ( ! ml_nputs(p->mbuf, "<", 1, &p->pos))
                 return(0);                  return(0);
   
         res = (*p->begintag)(p->mbuf, p->args, ns, tok,          res = (*p->cbs.ml_begintag)(p->mbuf, p->data,
                         argc, (const char **)argv);                          p->args, ns, tok, argc, argv);
         if (-1 == res)          if (-1 == res)
                 return(0);                  return(0);
   
         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 179  mlg_endtag(struct md_mlg *p, enum md_ns ns, int tok)
Line 190  mlg_endtag(struct md_mlg *p, enum md_ns ns, int tok)
 {  {
         ssize_t          res;          ssize_t          res;
   
         /* TODO: extra rules for block/inline. */          assert(MD_NS_DEFAULT != ns);
   
           switch (ns) {
           case (MD_NS_INLINE):
                   break;
           default:
                   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);
                   break;
           }
   
         if ( ! ml_nputs(p->mbuf, "</", 2, &p->pos))          if ( ! ml_nputs(p->mbuf, "</", 2, &p->pos))
                 return(0);                  return(0);
   
         res = (*p->endtag)(p->mbuf, p->args, ns, tok);          res = (*p->cbs.ml_endtag)(p->mbuf, p->data, p->args, ns, tok);
         if (-1 == res)          if (-1 == res)
                 return(0);                  return(0);
   
         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);
   
           switch (ns) {
           case (MD_NS_INLINE):
                   mlg_mode(p, MD_INLINE_OUT);
                   break;
           default:
                   mlg_mode(p, MD_BLK_OUT);
                   break;
           }
   
         return(ml_nputs(p->mbuf, ">", 1, &p->pos));          return(1);
 }  }
   
   
 static int  static int
 mlg_indent(struct md_mlg *p)  mlg_indent(struct md_mlg *p)
 {  {
         size_t           count;  
   
         count = p->indent > MAXINDENT ? (size_t)MAXINDENT : p->indent;  
         count *= INDENT;  
   
         assert(0 == p->pos);          assert(0 == p->pos);
         return(ml_putchars(p->mbuf, ' ', count, &p->pos));          return(ml_putchars(p->mbuf, ' ', INDENT_SZ *
                                   INDENT(p->indent), &p->pos));
 }  }
   
   
 static int  static int
 mlg_newline(struct md_mlg *p)  mlg_newline(struct md_mlg *p)
 {  {
         size_t           dummy;  
   
         if ( ! ml_nputs(p->mbuf, "\n", 1, &dummy))  
                 return(0);  
         p->pos = 0;          p->pos = 0;
         return(1);          return(ml_nputs(p->mbuf, "\n", 1, NULL));
 }  }
   
   
Line 232  mlg_mode(struct md_mlg *p, enum md_tok ns)
Line 262  mlg_mode(struct md_mlg *p, enum md_tok ns)
   
   
 static int  static int
 mlg_data(struct md_mlg *p, int space, const char *start, char *buf)  mlg_string(struct md_mlg *p, const char *start, const char *buf)
 {  {
         size_t           sz;  
         char            *bufp;          return(mlg_nstring(p, start, buf, strlen(buf)));
   }
   
   
   static int
   mlg_nstring(struct md_mlg *p, const char *start,
                   const char *buf, size_t sz)
   {
         int              c;          int              c;
           ssize_t          res;
   
         assert(p->mbuf);          assert(p->mbuf);
         assert(0 != p->indent);          assert(0 != p->indent);
   
         if (ML_OVERRIDE_ONE & p->flags ||          res = (*p->cbs.ml_beginstring)(p->mbuf, p->args, buf, sz);
                         ML_OVERRIDE_ALL & p->flags)          if (-1 == res)
                 space = 0;                  return(0);
   
         while (*buf) {          if (0 == (c = ml_nputstring(p->mbuf, buf, sz, &p->pos)))
                 while (*buf && isspace(*buf))                  return(mlg_err(p, start, buf, "bad string "
                         buf++;                                          "encoding: `%s'", buf));
           else if (-1 == c)
                   return(0);
   
                 if (0 == *buf)          res = (*p->cbs.ml_endstring)(p->mbuf, p->args, buf, sz);
                         break;          if (-1 == res)
                   return(0);
   
                 bufp = buf;          return(1);
                 while (*buf && ! isspace(*buf))  }
                         buf++;  
   
                 if (0 != *buf)  
                         *buf++ = 0;  
   
                 sz = strlen(bufp);  static int
   mlg_data(struct md_mlg *p, int space,
                   const char *start, const char *buf)
   {
           size_t           sz;
   
                 if (0 == p->pos) {          assert(p->mbuf);
                         if ( ! mlg_indent(p))          assert(0 != p->indent);
                                 return(0);  
   
                         c = ml_nputstring(p->mbuf, bufp, sz, &p->pos);          if (ML_OVERRIDE_ONE & p->flags ||
                         if (0 == c) {                          ML_OVERRIDE_ALL & p->flags)
                                 mlg_err(p, start, bufp, "invalid "                  space = 0;
                                                 "character sequence");  
                                 return(0);  
                         } else if (c > 1) {  
                                 mlg_warn(p, start, bufp, "bogus "  
                                                 "character sequence");  
                                 return(0);  
                         } else if (-1 == c)  
                                 return(0);  
   
                         if (p->indent * INDENT + sz >= COLUMNS)          sz = strlen(buf);
                                 if ( ! mlg_newline(p))  
                                         return(0);  
                         if ( ! (ML_OVERRIDE_ALL & p->flags))  
                                 space = 1;  
                         continue;  
                 }  
   
                 if (space && sz + p->pos >= COLUMNS) {          if (0 == p->pos) {
                   if ( ! mlg_indent(p))
                           return(0);
                   if ( ! mlg_nstring(p, start, buf, sz))
                           return(0);
   
                   if (INDENT(p->indent) * INDENT_SZ + sz >= 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);  
                 }  
   
                 c = ml_nputstring(p->mbuf, bufp, sz, &p->pos);                  return(1);
                 if (0 == c) {          }
                         mlg_err(p, start, bufp, "invalid "  
                                         "character sequence");          if (space && sz + p->pos >= COLUMNS) {
                   if ( ! mlg_newline(p))
                         return(0);                          return(0);
                 } else if (c > 1) {                  if ( ! mlg_indent(p))
                         mlg_warn(p, start, bufp, "bogus "  
                                         "character sequence");  
                         return(0);                          return(0);
                 } else if (-1 == c)          } else if (space) {
                   if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
                         return(0);                          return(0);
   
                 if ( ! (ML_OVERRIDE_ALL & p->flags))  
                         space = 1;  
         }          }
   
         return(1);          return(mlg_nstring(p, start, buf, sz));
 }  }
   
   
Line 329  mlg_exit(struct md_mlg *p, int flush)
Line 353  mlg_exit(struct md_mlg *p, int flush)
         int              c;          int              c;
   
         c = roff_free(p->tree, flush);          c = roff_free(p->tree, flush);
           (*p->cbs.ml_free)(p->data);
   
         free(p);          free(p);
   
         return(c);          return(c);
 }  }
   
Line 338  struct md_mlg *
Line 365  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,                  const struct ml_cbs *cbs)
                 ml_begin begin, ml_end end)  
 {  {
         struct roffcb    cb;          struct roffcb    cb;
         struct md_mlg   *p;          struct md_mlg   *p;
Line 357  mlg_alloc(const struct md_args *args, 
Line 383  mlg_alloc(const struct md_args *args, 
         cb.roffspecial = mlg_roffspecial;          cb.roffspecial = mlg_roffspecial;
         cb.roffmsg = mlg_roffmsg;          cb.roffmsg = mlg_roffmsg;
         cb.roffdata = mlg_roffdata;          cb.roffdata = mlg_roffdata;
         cb.rofftoken = mlg_rofftoken;  
   
         if (NULL == (p = calloc(1, sizeof(struct md_mlg))))          if (NULL == (p = calloc(1, sizeof(struct md_mlg))))
                 err(1, "calloc");                  err(1, "calloc");
Line 365  mlg_alloc(const struct md_args *args, 
Line 390  mlg_alloc(const struct md_args *args, 
         p->args = args;          p->args = args;
         p->mbuf = mbuf;          p->mbuf = mbuf;
         p->rbuf = rbuf;          p->rbuf = rbuf;
         p->begintag = begintag;  
         p->endtag = endtag;  
         p->begin = begin;  
         p->end = end;  
   
         if (NULL == (p->tree = roff_alloc(&cb, p))) {          (void)memcpy(&p->cbs, cbs, sizeof(struct ml_cbs));
   
           if (NULL == (p->tree = roff_alloc(&cb, p)))
                 free(p);                  free(p);
                 return(NULL);          else if ( ! (*p->cbs.ml_alloc)(&p->data))
         }                  free(p);
           else
                   return(p);
   
         return(p);          return(NULL);
 }  }
   
   
 static int  static int
 mlg_roffhead(void *arg, const struct tm *tm, const char *os,  mlg_roffhead(void *arg, const struct tm *tm, const char *os,
                 const char *title, const char *sec, const char *vol)                  const char *title, enum roffmsec sec, enum roffvol vol)
 {  {
         struct md_mlg   *p;          struct md_mlg   *p;
   
Line 389  mlg_roffhead(void *arg, const struct tm *tm, const cha
Line 414  mlg_roffhead(void *arg, const struct tm *tm, const cha
         p = (struct md_mlg *)arg;          p = (struct md_mlg *)arg;
   
         mlg_mode(p, MD_BLK_IN);          mlg_mode(p, MD_BLK_IN);
         if ( ! (*p->begin)(p->mbuf, p->args, tm, os, title, sec, vol))  
           if ( ! (*p->cbs.ml_begin)(p->mbuf, p->args,
                                   tm, os, title, sec, vol))
                 return(0);                  return(0);
   
         p->indent++;          p->indent++;
Line 398  mlg_roffhead(void *arg, const struct tm *tm, const cha
Line 425  mlg_roffhead(void *arg, const struct tm *tm, const cha
   
   
 static int  static int
 mlg_rofftail(void *arg)  mlg_rofftail(void *arg, const struct tm *tm, const char *os,
                   const char *title, enum roffmsec sec, enum roffvol vol)
 {  {
         struct md_mlg   *p;          struct md_mlg   *p;
   
         assert(arg);          assert(arg);
         p = (struct md_mlg *)arg;          p = (struct md_mlg *)arg;
   
         if (0 != p->pos && ! mlg_newline(p))          if (0 != p->pos)
                   if ( ! mlg_newline(p))
                           return(0);
   
           if ( ! (*p->cbs.ml_end)(p->mbuf, p->args,
                                   tm, os, title, sec, vol))
                 return(0);                  return(0);
   
         mlg_mode(p, MD_BLK_OUT);          mlg_mode(p, MD_BLK_OUT);
         if ( ! (*p->end)(p->mbuf, p->args))          return(mlg_newline(p));
   }
   
   
   static int
   mlg_literal_special(struct md_mlg *p, int tok, const char *start,
                   const int *argc, const char **argv, const char **more)
   {
           char             *lit;
   
           if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, more))
                 return(0);                  return(0);
   
         return(mlg_newline(p));          lit = roff_literal(tok, argc, argv, more);
           assert(lit);
   
           if ( ! mlg_string(p, start, lit))
                   return(0);
   
           while (*more) {
                   if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
                           return(0);
                   if ( ! mlg_string(p, start, *more++))
                           return(0);
           }
   
           return(mlg_endtag(p, MD_NS_INLINE, tok));
 }  }
   
   
   static int
   mlg_ref_special(struct md_mlg *p, int tok,
                   const char *start, const char **more)
   {
   
           if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, more))
                   return(0);
   
           assert(*more);
           if ( ! ml_puts(p->mbuf, *more++, &p->pos))
                   return(0);
   
           if (*more) {
                   if ( ! ml_nputs(p->mbuf, "(", 1, &p->pos))
                           return(0);
                   if ( ! mlg_string(p, start, *more++))
                           return(0);
                   if ( ! ml_nputs(p->mbuf, ")", 1, &p->pos))
                           return(0);
           }
   
           assert(NULL == *more);
           return(mlg_endtag(p, MD_NS_INLINE, tok));
   }
   
   
 /* ARGSUSED */  /* ARGSUSED */
 static int  static int
 mlg_roffspecial(void *arg, int tok, int *argc, char **argv, char **more)  mlg_formatted_special(struct md_mlg *p, int tok, const char *start,
                   const int *argc, const char **argv, const char **more)
 {  {
           char             buf[256], *lit;
   
           if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, more))
                   return(0);
   
           lit = roff_fmtstring(tok);
   
           assert(lit);
           assert(*more);
           (void)snprintf(buf, sizeof(buf), lit, *more++);
           assert(NULL == *more);
   
           if ( ! mlg_string(p, start, buf))
                   return(0);
   
           return(mlg_endtag(p, MD_NS_INLINE, tok));
   }
   
   
   static int
   mlg_atom_special(struct md_mlg *p, int tok,
                   const char *start, const char **more)
   {
   
           if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, more))
                   return(0);
   
           assert(*more);
           if ( ! mlg_string(p, start, *more++))
                   return(0);
   
           /*assert(NULL == *more);*/ /* FIXME: ROFF_Sx */
           return(mlg_endtag(p, MD_NS_INLINE, tok));
   }
   
   
   static int
   mlg_function_special(struct md_mlg *p,
                   const char *start, const char **more)
   {
   
           assert(*more);
   
           if ( ! mlg_begintag(p, MD_NS_INLINE, ROFF_Fn, NULL, more))
                   return(0);
           if ( ! mlg_string(p, start, *more++))
                   return(0);
           if ( ! mlg_endtag(p, MD_NS_INLINE, ROFF_Fn))
                   return(0);
   
           if (NULL == *more)
                   return(1);
   
           if ( ! ml_nputs(p->mbuf, "(", 1, &p->pos))
                   return(0);
   
           p->flags |= ML_OVERRIDE_ONE;
   
           if ( ! mlg_begintag(p, MD_NS_INLINE, ROFF_Fa, NULL, more))
                   return(0);
           if ( ! mlg_string(p, start, *more++))
                   return(0);
           if ( ! mlg_endtag(p, MD_NS_INLINE, ROFF_Fa))
                   return(0);
   
           while (*more) {
                   if ( ! ml_nputs(p->mbuf, ", ", 2, &p->pos))
                           return(0);
                   if ( ! mlg_begintag(p, MD_NS_INLINE, ROFF_Fa, NULL, more))
                           return(0);
                   if ( ! mlg_string(p, start, *more++))
                           return(0);
                   if ( ! mlg_endtag(p, MD_NS_INLINE, ROFF_Fa))
                           return(0);
           }
   
           return(ml_nputs(p->mbuf, ")", 1, &p->pos));
   }
   
   
   /* ARGSUSED */
   static int
   mlg_roffspecial(void *arg, int tok, const char *start,
                   const int *argc, const char **argv, const char **more)
   {
         struct md_mlg   *p;          struct md_mlg   *p;
   
         assert(arg);          assert(arg);
Line 428  mlg_roffspecial(void *arg, int tok, int *argc, char **
Line 596  mlg_roffspecial(void *arg, int tok, int *argc, char **
         switch (tok) {          switch (tok) {
         case (ROFF_Ns):          case (ROFF_Ns):
                 p->flags |= ML_OVERRIDE_ONE;                  p->flags |= ML_OVERRIDE_ONE;
                 break;                  return(1);
   
         case (ROFF_Sm):          case (ROFF_Sm):
                 assert(*more);                  assert(*more);
                 if (0 == strcmp(*more, "on"))                  if (0 == strcmp(*more, "on"))
                         p->flags |= ML_OVERRIDE_ALL;                          p->flags |= ML_OVERRIDE_ALL;
                 else                  else
                         p->flags &= ~ML_OVERRIDE_ALL;                          p->flags &= ~ML_OVERRIDE_ALL;
                 break;                  return(1);
   
           case (ROFF_Fn):
                   return(mlg_function_special(p, start, more));
   
           case (ROFF_Xr):
                   return(mlg_ref_special(p, tok, start, more));
   
           case (ROFF_Sx): /* FIXME */
                   /* FALLTHROUGH */
           case (ROFF_Nm):
                   return(mlg_atom_special(p, tok, start, more));
   
           case (ROFF_In):
                   /* NOTREACHED */
           case (ROFF_Ex):
                   /* NOTREACHED */
           case (ROFF_Rv):
                   return(mlg_formatted_special(p, tok, start,
                                           argc, argv, more));
   
           case (ROFF_At):
                   /* FALLTHROUGH */
           case (ROFF_Bt):
                   /* FALLTHROUGH */
           case (ROFF_Ud):
                   /* FALLTHROUGH */
           case (ROFF_Ux):
                   /* FALLTHROUGH */
           case (ROFF_Bx):
                   /* FALLTHROUGH */
           case (ROFF_Bsx):
                   /* FALLTHROUGH */
           case (ROFF_Fx):
                   /* FALLTHROUGH */
           case (ROFF_Nx):
                   /* FALLTHROUGH */
           case (ROFF_St):
                   /* FALLTHROUGH */
           case (ROFF_Ox):
                   return(mlg_literal_special(p, tok, start,
                                           argc, argv, more));
         default:          default:
                 break;                  break;
         }          }
   
         return(1);          return(mlg_err(p, start, start, "`%s' not yet supported",
                                   toknames[tok]));
 }  }
   
   
 static int  static int
 mlg_roffblkin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkin(void *arg, int tok,
                   int *argc, const char **argv)
 {  {
   
         return(mlg_beginblk((struct md_mlg *)arg,          return(mlg_begintag((struct md_mlg *)arg,
                                 MD_NS_BLOCK, tok, argc, argv));                                  MD_NS_BLOCK, tok, argc, argv));
 }  }
   
Line 457  static int
Line 669  static int
 mlg_roffblkout(void *arg, int tok)  mlg_roffblkout(void *arg, int tok)
 {  {
   
         return(mlg_endblk((struct md_mlg *)arg, MD_NS_BLOCK, tok));          return(mlg_endtag((struct md_mlg *)arg, MD_NS_BLOCK, tok));
 }  }
   
   
 static int  static int
 mlg_roffblkbodyin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkbodyin(void *arg, int tok,
                   int *argc, const char **argv)
 {  {
   
         return(mlg_beginblk((struct md_mlg *)arg,          return(mlg_begintag((struct md_mlg *)arg,
                                 MD_NS_BODY, tok, argc, argv));                                  MD_NS_BODY, tok, argc, argv));
 }  }
   
Line 474  static int
Line 687  static int
 mlg_roffblkbodyout(void *arg, int tok)  mlg_roffblkbodyout(void *arg, int tok)
 {  {
   
         return(mlg_endblk((struct md_mlg *)arg, MD_NS_BODY, tok));          return(mlg_endtag((struct md_mlg *)arg, MD_NS_BODY, tok));
 }  }
   
   
 static int  static int
 mlg_roffblkheadin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkheadin(void *arg, int tok,
                   int *argc, const char **argv)
 {  {
   
         return(mlg_beginblk((struct md_mlg *)arg,          return(mlg_begintag((struct md_mlg *)arg,
                                 MD_NS_HEAD, tok, argc, argv));                                  MD_NS_HEAD, tok, argc, argv));
 }  }
   
Line 491  static int
Line 705  static int
 mlg_roffblkheadout(void *arg, int tok)  mlg_roffblkheadout(void *arg, int tok)
 {  {
   
         return(mlg_endblk((struct md_mlg *)arg, MD_NS_HEAD, tok));          return(mlg_endtag((struct md_mlg *)arg, MD_NS_HEAD, tok));
 }  }
   
   
 static int  static int
 mlg_roffin(void *arg, int tok, int *argc, char **argv)  mlg_roffin(void *arg, int tok, int *argc, const char **argv)
 {  {
         struct md_mlg   *p;  
   
         assert(arg);          return(mlg_begintag((struct md_mlg *)arg,
         p = (struct md_mlg *)arg;                                  MD_NS_INLINE, tok, argc, argv));
   
         /* FIXME: this part. */  
   
         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);  
         return(mlg_begintag(p, MD_NS_INLINE, tok, argc, argv));  
 }  }
   
   
 static int  static int
 mlg_roffout(void *arg, int tok)  mlg_roffout(void *arg, int tok)
 {  {
         struct md_mlg   *p;  
   
         assert(arg);          return(mlg_endtag((struct md_mlg *)arg, MD_NS_INLINE, tok));
         p = (struct md_mlg *)arg;  
   
         if (0 == p->pos && ! mlg_indent(p))  
                 return(0);  
   
         mlg_mode(p, MD_INLINE_OUT);  
         return(mlg_endtag(p, MD_NS_INLINE, tok));  
 }  }
   
   
 static void  
 mlg_roffmsg(void *arg, enum roffmsg lvl,  
                 const char *buf, const char *pos, char *msg)  
 {  
   
         mlg_msg((struct md_mlg *)arg, lvl, buf, pos, msg);  
 }  
   
   
 static int  static int
 mlg_rofftoken(void *arg, int space, int value)  mlg_roffmsg(void *arg, enum roffmsg lvl, const char *buf,
                   const char *pos, const char *msg)
 {  {
         struct md_mlg   *p;  
         const char      *seq;  
         size_t           sz, res;  
   
         assert(arg);          return(mlg_msg((struct md_mlg *)arg, lvl, buf, pos, msg));
         p = (struct md_mlg *)arg;  
   
         switch (value) {  
         case (ROFFTok_Sp_A):  
                 seq = "\\a";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Sp_B):  
                 seq = "\\b";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Sp_F):  
                 seq = "\\f";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Sp_N):  
                 seq = "\\n";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Sp_R):  
                 seq = "\\r";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Sp_T):  
                 seq = "\\t";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Sp_V):  
                 seq = "\\v";  
                 sz = 2;  
                 break;  
         case (ROFFTok_Space):  
                 seq = "&nbsp;";  
                 sz = 6;  
                 break;  
         case (ROFFTok_Hyphen):  
                 seq = "&#8208;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Em):  
                 seq = "&#8212;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_En):  
                 seq = "&#8211;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Ge):  
                 seq = "&#8805;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Le):  
                 seq = "&#8804;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Rquote):  
                 seq = "&#8221;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Lquote):  
                 seq = "&#8220;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Uparrow):  
                 seq = "&#8593;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Acute):  
                 seq = "&#180;";  
                 sz = 6;  
                 break;  
         case (ROFFTok_Grave):  
                 seq = "&#96;";  
                 sz = 5;  
                 break;  
         case (ROFFTok_Pi):  
                 seq = "&#960;";  
                 sz = 6;  
                 break;  
         case (ROFFTok_Ne):  
                 seq = "&#8800;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Lt):  
                 seq = "&lt;";  
                 sz = 4;  
                 break;  
         case (ROFFTok_Gt):  
                 seq = "&gt;";  
                 sz = 4;  
                 break;  
         case (ROFFTok_Plusmin):  
                 seq = "&#177;";  
                 sz = 6;  
                 break;  
         case (ROFFTok_Infty):  
                 seq = "&#8734;";  
                 sz = 7;  
                 break;  
         case (ROFFTok_Bar):  
                 seq = "&#124;";  
                 sz = 6;  
                 break;  
         case (ROFFTok_Nan):  
                 seq = "Nan";  
                 sz = 3;  
                 break;  
         case (ROFFTok_Quote):  
                 seq = "&quot;";  
                 sz = 6;  
                 break;  
         default:  
                 /* TODO: print error. */  
                 return(0);  
         }  
   
         if (space && ! ml_nputs(p->mbuf, " ", 1, &res))  
                 return(0);  
         p->pos += res;  
   
         if ( ! ml_nputs(p->mbuf, seq, sz, &res))  
                 return(0);  
         p->pos += res;  
   
         return(1);  
 }  }
   
   
 static int  static int
 mlg_roffdata(void *arg, int space, const char *start, char *buf)  mlg_roffdata(void *arg, int space,
                   const char *start, const char *buf)
 {  {
         struct md_mlg   *p;          struct md_mlg   *p;
   
Line 703  mlg_roffdata(void *arg, int space, const char *start, 
Line 752  mlg_roffdata(void *arg, int space, const char *start, 
 }  }
   
   
 static void  static int
 mlg_err(struct md_mlg *p, const char *buf, const char *pos, char *msg)  mlg_vmsg(struct md_mlg *p, enum roffmsg lvl, const char *start,
                   const char *pos, const char *fmt, va_list ap)
 {  {
           char             buf[128];
   
         mlg_msg(p, ROFF_ERROR, buf, pos, msg);          (void)vsnprintf(buf, sizeof(buf), fmt, ap);
           return(mlg_msg(p, lvl, start, pos, buf));
 }  }
   
   
 static void  static int
 mlg_warn(struct md_mlg *p, const char *buf, const char *pos, char *msg)  mlg_err(struct md_mlg *p, const char *start,
                   const char *pos, const char *fmt, ...)
 {  {
           va_list          ap;
           int              c;
   
         mlg_msg(p, ROFF_WARN, buf, pos, msg);          va_start(ap, fmt);
           c = mlg_vmsg(p, ROFF_ERROR, start, pos, fmt, ap);
           va_end(ap);
           return(c);
 }  }
   
   
 static void  static int
 mlg_msg(struct md_mlg *p, enum roffmsg lvl,  mlg_msg(struct md_mlg *p, enum roffmsg lvl,
                 const char *buf, const char *pos, char *msg)                  const char *buf, const char *pos, const char *msg)
 {  {
         char            *level;          char            *level;
           char             b[256];
           int              i;
   
         switch (lvl) {          switch (lvl) {
         case (ROFF_WARN):          case (ROFF_WARN):
                 if ( ! (MD_WARN_ALL & p->args->warnings))  
                         return;  
                 level = "warning";                  level = "warning";
                   if ( ! (MD_WARN_ALL & p->args->warnings))
                           return(1);
                 break;                  break;
         case (ROFF_ERROR):          case (ROFF_ERROR):
                 level = "error";                  level = "error";
                 break;                  break;
         default:          default:
                 abort();                  abort();
                   /* NOTREACHED */
         }          }
   
         if (pos)          if (pos) {
                 (void)fprintf(stderr, "%s:%zu: %s: %s (column %zu)\n",                  assert(pos >= buf);
                                 p->rbuf->name, p->rbuf->line, level,                  if (0 < p->args->verbosity) {
                                 msg, pos - buf);                          (void)snprintf(b, sizeof(b),
         else                                          "%s:%zu: %s: %s\n",
                 (void)fprintf(stderr, "%s: %s: %s\n",                                          p->rbuf->name, p->rbuf->line,
                                           level, msg);
                           (void)strlcat(b, "Error at: ", sizeof(b));
                           (void)strlcat(b, p->rbuf->linebuf, sizeof(b));
   
                           (void)strlcat(b, "\n          ", sizeof(b));
                           for (i = 0; i < pos - buf; i++)
                                   (void)strlcat(b, " ", sizeof(b));
                           (void)strlcat(b, "^", sizeof(b));
   
                   } else
                           (void)snprintf(b, sizeof(b),
                                           "%s:%zu: %s: %s (col %zu)",
                                           p->rbuf->name, p->rbuf->line,
                                           level, msg, pos - buf);
           } else
                   (void)snprintf(b, sizeof(b), "%s: %s: %s",
                                 p->rbuf->name, level, msg);                                  p->rbuf->name, level, msg);
   
           (void)fprintf(stderr, "%s\n", b);
           return(lvl == ROFF_WARN ? 1 : 0);
 }  }
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.27
CVSweb