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

Diff for /mandoc/Attic/mlg.c between version 1.7 and 1.17

version 1.7, 2008/12/04 19:31:57 version 1.17, 2008/12/07 14:38:57
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>
Line 51  struct md_mlg {
Line 52  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  char            *mlg_literal(int);
   static  char            *mlg_At_literal(const char *);
   static  char            *mlg_fmt(int);
   static  char            *mlg_St_literal(int);
 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 *, const struct tm *,  static  int              mlg_roffhead(void *, const struct tm *,
Line 73  static int   mlg_roffdata(void *, int, 
Line 76  static int   mlg_roffdata(void *, 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 *, 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 **, char **);
 static  int              mlg_roffblkheadin(void *, int,  static  int              mlg_roffblkheadin(void *, int,
                                 int *, char **);                                  int *, char **);
 static  int              mlg_roffblkheadout(void *, int);  static  int              mlg_roffblkheadout(void *, int);
Line 82  static int   mlg_roffblkbodyin(void *, int, 
Line 86  static int   mlg_roffblkbodyin(void *, int, 
                                 int *, char **);                                  int *, char **);
 static  int              mlg_roffblkbodyout(void *, int);  static  int              mlg_roffblkbodyout(void *, int);
   
 static  int              mlg_beginblk(struct md_mlg *, enum md_ns, int,  
                                 int *, char **);  
 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);
Line 94  static void   mlg_mode(struct md_mlg *, enum md_tok);
Line 95  static void   mlg_mode(struct md_mlg *, enum md_tok);
 static  int              mlg_data(struct md_mlg *, int,  static  int              mlg_data(struct md_mlg *, int,
                                 const char *, char *);                                  const char *, char *);
 static  void             mlg_err(struct md_mlg *, const char *,  static  void             mlg_err(struct md_mlg *, const char *,
                                 const char *, char *);                                  const char *, const char *, ...);
 static  void             mlg_warn(struct md_mlg *, const char *,  static  void             mlg_warn(struct md_mlg *, const char *,
                                 const char *, char *);                                  const char *, const char *, ...);
 static  void             mlg_msg(struct md_mlg *, enum roffmsg,  static  void             mlg_msg(struct md_mlg *, enum roffmsg,
                                 const char *, const char *, char *);                                  const char *, const char *, char *);
   static  void             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 106  extern size_t   strlcpy(char *, const char *, size_t);
Line 110  extern size_t   strlcpy(char *, const char *, size_t);
 #endif  #endif
   
   
 static int  static char *
 mlg_beginblk(struct md_mlg *p, enum md_ns ns, int tok,  mlg_St_literal(int argc)
                 int *argc, char **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++;          switch (argc) {
         mlg_mode(p, MD_BLK_IN);          case(ROFF_p1003_1_88):
                   return("IEEE Std 1003.1-1988 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1_90):
                   return("IEEE Std 1003.1-1990 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1_96):
                   return("ISO/IEC 9945-1:1996 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1_2001):
                   return("IEEE Std 1003.1-2001 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1_2004):
                   return("IEEE Std 1003.1-2004 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1):
                   return("IEEE Std 1003.1 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1b):
                   return("IEEE Std 1003.1b (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1b_93):
                   return("IEEE Std 1003.1b-1993 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1c_95):
                   return("IEEE Std 1003.1c-1995 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_1g_2000):
                   return("IEEE Std 1003.1g-2000 (&#8220;POSIX&#8221;)");
           case(ROFF_p1003_2_92):
                   return("IEEE Std 1003.2-1992 (&#8220;POSIX.2&#8221;)");
           case(ROFF_p1387_2_95):
                   return("IEEE Std 1387.2-1995 (&#8220;POSIX.7.2&#8221;)");
           case(ROFF_p1003_2):
                   return("IEEE Std 1003.2 (&#8220;POSIX.2&#8221;)");
           case(ROFF_p1387_2):
                   return("IEEE Std 1387.2 (&#8220;POSIX.7.2&#8221;)");
           case(ROFF_isoC_90):
                   return("ISO/IEC 9899:1990 (&#8220;ISO C90&#8221;)");
           case(ROFF_isoC_amd1):
                   return("ISO/IEC 9899/AMD1:1995 (&#8220;ISO C90&#8221;)");
           case(ROFF_isoC_tcor1):
                   return("ISO/IEC 9899/TCOR1:1994 (&#8220;ISO C90&#8221;)");
           case(ROFF_isoC_tcor2):
                   return("ISO/IEC 9899/TCOR2:1995 (&#8220;ISO C90&#8221;)");
           case(ROFF_isoC_99):
                   return("ISO/IEC 9899:1999 (&#8220;ISO C99&#8221;)");
           case(ROFF_ansiC):
                   return("ANSI X3.159-1989 (&#8220;ANSI C&#8221;)");
           case(ROFF_ansiC_89):
                   return("ANSI X3.159-1989 (&#8220;ANSI C&#8221;)");
           case(ROFF_ansiC_99):
                   return("ANSI/ISO/IEC 9899-1999 (&#8220;ANSI C99&#8221;)");
           case(ROFF_ieee754):
                   return("IEEE Std 754-1985");
           case(ROFF_iso8802_3):
                   return("ISO 8802-3: 1989");
           case(ROFF_xpg3):
                   return("X/Open Portability Guide Issue 3 (&#8220;XPG3&#8221;)");
           case(ROFF_xpg4):
                   return("X/Open Portability Guide Issue 4 (&#8220;XPG4&#8221;)");
           case(ROFF_xpg4_2):
                   return("X/Open Portability Guide Issue 4.2 (&#8220;XPG4.2&#8221;)");
           case(ROFF_xpg4_3):
                   return("X/Open Portability Guide Issue 4.3 (&#8220;XPG4.3&#8221;)");
           case(ROFF_xbd5):
                   return("X/Open System Interface Definitions Issue 5 (&#8220;XBD5&#8221;)");
           case(ROFF_xcu5):
                   return("X/Open Commands and Utilities Issue 5 (&#8220;XCU5&#8221;)");
           case(ROFF_xsh5):
                   return("X/Open System Interfaces and Headers Issue 5 (&#8220;XSH5&#8221;)");
           case(ROFF_xns5):
                   return("X/Open Networking Services Issue 5 (&#8220;XNS5&#8221;)");
           case(ROFF_xns5_2d2_0):
                   return("X/Open Networking Services Issue 5.2 Draft 2.0 (&#8220;XNS5.2D2.0&#8221;)");
           case(ROFF_xcurses4_2):
                   return("X/Open Curses Issue 4 Version 2 (&#8220;XCURSES4.2&#8221;)");
           case(ROFF_susv2):
                   return("Version 2 of the Single UNIX Specification");
           case(ROFF_susv3):
                   return("Version 3 of the Single UNIX Specification");
           case(ROFF_svid4):
                   return("System V Interface Definition, Fourth Edition (&#8220;SVID4&#8221;)");
           default:
                   break;
           }
   
         if ( ! mlg_begintag(p, ns, tok, argc, argv))          abort();
                 return(0);          /* NOTREACHED */
         return(mlg_newline(p));  
 }  }
   
   
 static int  static char *
 mlg_endblk(struct md_mlg *p, enum md_ns ns, int tok)  mlg_At_literal(const char *p)
 {  {
   
         p->indent--;          if (NULL == p)
                   return("AT&amp;T UNIX");
           if (0 == strcmp(p, "v6"))
                   return("Version 6 AT&amp;T UNIX");
           else if (0 == strcmp(p, "v7"))
                   return("Version 7 AT&amp;T UNIX");
           else if (0 == strcmp(p, "32v"))
                   return("Version 32v AT&amp;T UNIX");
           else if (0 == strcmp(p, "V.1"))
                   return("AT&amp;T System V.1 UNIX");
           else if (0 == strcmp(p, "V.4"))
                   return("AT&amp;T System V.4 UNIX");
   
         if (0 != p->pos) {          abort();
                 if ( ! mlg_newline(p))          /* NOTREACHED */
                         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))  static char *
                 return(0);  mlg_fmt(int tok)
         return(mlg_newline(p));  {
   
           switch (tok) {
           case (ROFF_Ex):
                   return ("The %s utility exits 0 on success, and "
                                   "&gt;0 if an error occurs.");
           case (ROFF_Rv):
                   return ("The %s() function returns the value 0 if "
                                   "successful; otherwise the value -1 "
                                   "is returned and the global variable "
                                   "<span class=\"inline-Va\">errno</span> "
                                   "is set to indicate the error.");
           default:
                   break;
           }
   
           abort();
           /* NOTREACHED */
 }  }
   
   
   static char *
   mlg_literal(int tok)
   {
   
           switch (tok) {
           case (ROFF_Bt):
                   return("is currently in beta test.");
           case (ROFF_Ud):
                   return("currently under development.");
           case (ROFF_Fx):
                   return("FreeBSD");
           case (ROFF_Nx):
                   return("NetBSD");
           case (ROFF_Ox):
                   return("OpenBSD");
           case (ROFF_Ux):
                   return("UNIX");
           case (ROFF_Bx):
                   return("BSD");
           case (ROFF_Bsx):
                   return("BSDI BSD/OS");
           default:
                   break;
           }
           abort();
           /* NOTREACHED */
   }
   
   
 static int  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);
   
         res = (*p->begintag)(p->mbuf, p->args, ns, tok,          res = (*p->cbs.ml_begintag)(p->mbuf, p->data, p->args, ns, tok,
                         argc, (const char **)argv);                          argc, (const char **)argv);
         if (-1 == res)          if (-1 == res)
                 return(0);                  return(0);
Line 167  mlg_begintag(struct md_mlg *p, enum md_ns ns, int tok,
Line 321  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 178  mlg_endtag(struct md_mlg *p, enum md_ns ns, int tok)
Line 342  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);
 }  }
   
   
Line 201  mlg_indent(struct md_mlg *p)
Line 390  mlg_indent(struct md_mlg *p)
 {  {
         size_t           count;          size_t           count;
   
         count = p->indent > MAXINDENT ? (size_t)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 212  mlg_indent(struct md_mlg *p)
Line 402  mlg_indent(struct md_mlg *p)
 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 234  static int
Line 421  static int
 mlg_data(struct md_mlg *p, int space, const char *start, 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;          int              c;
   
         assert(p->mbuf);          assert(p->mbuf);
Line 244  mlg_data(struct md_mlg *p, int space, const char *star
Line 430  mlg_data(struct md_mlg *p, int space, const char *star
                         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)  
                         *buf++ = 0;  
   
                 sz = strlen(bufp);  
   
                 if (0 == p->pos) {  
                         if ( ! mlg_indent(p))  
                                 return(0);  
   
                         c = ml_nputstring(p->mbuf, bufp, sz, &p->pos);  
                         if (0 == c) {  
                                 mlg_err(p, start, bufp, "invalid "  
                                                 "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)  
                                 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))  
                                 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);  
                 if (0 == c) {                  if (0 == c) {
                         mlg_err(p, start, bufp, "invalid "                          mlg_err(p, start, buf, "bad char sequence");
                                         "character sequence");  
                         return(0);                          return(0);
                 } else if (c > 1) {                  } else if (c > 1) {
                         mlg_warn(p, start, bufp, "bogus "                          mlg_warn(p, start, buf, "bogus char sequence");
                                         "character sequence");  
                         return(0);                          return(0);
                 } else if (-1 == c)                  } else if (-1 == c)
                         return(0);                          return(0);
   
                 if ( ! (ML_OVERRIDE_ALL & p->flags))                  if (p->indent * INDENT + sz >= COLUMNS)
                         space = 1;                          if ( ! mlg_newline(p))
                                   return(0);
   
                   return(1);
         }          }
   
           if (space && sz + p->pos >= COLUMNS) {
                   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 329  mlg_exit(struct md_mlg *p, int flush)
Line 494  mlg_exit(struct md_mlg *p, int flush)
   
         c = roff_free(p->tree, flush);          c = roff_free(p->tree, flush);
         free(p);          free(p);
   
           (*p->cbs.ml_free)(p->data);
   
         return(c);          return(c);
 }  }
   
Line 337  struct md_mlg *
Line 505  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 363  mlg_alloc(const struct md_args *args, 
Line 530  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);
 }  }
   
   
Line 387  mlg_roffhead(void *arg, const struct tm *tm, const cha
Line 554  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 403  mlg_rofftail(void *arg)
Line 571  mlg_rofftail(void *arg)
         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))
                 return(0);                  return(0);
   
         mlg_mode(p, MD_BLK_OUT);          mlg_mode(p, MD_BLK_OUT);
         if ( ! (*p->end)(p->mbuf, p->args))  
                 return(0);  
   
         return(mlg_newline(p));          return(mlg_newline(p));
 }  }
Line 416  mlg_rofftail(void *arg)
Line 586  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,
                   const int *argc, const char **argv, char **more)
 {  {
         struct md_mlg   *p;          struct md_mlg   *p;
           char             buf[256];
   
         assert(arg);          assert(arg);
         p = (struct md_mlg *)arg;          p = (struct md_mlg *)arg;
   
           /*
            * First handle macros without content.
            */
   
         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);
         default:          default:
                 break;                  break;
         }          }
   
         return(1);          if ( ! mlg_begintag(p, MD_NS_INLINE, tok, NULL, more))
                   return(0);
   
           switch (tok) {
           case (ROFF_St):
                   assert(NULL == *argv);
                   assert(ROFF_ARGMAX != *argc);
                   if ( ! ml_puts(p->mbuf, mlg_St_literal(*argc),
                                           &p->pos))
                           return(0);
                   while (*more) {
                           if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
                                   return(0);
                           if ( ! ml_putstring(p->mbuf, *more++, &p->pos))
                                   return(0);
                   }
                   break;
   
           case (ROFF_Xr):
                   if ( ! *more) {
                           mlg_err(p, start, start, "missing argument");
                           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 ( ! ml_puts(p->mbuf, *more++, &p->pos))
                                   return(0);
                           if ( ! ml_nputs(p->mbuf, ")", 1, &p->pos))
                                   return(0);
                   }
                   if (*more) {
                           mlg_err(p, start, start, "too many arguments");
                           return(0);
                   }
                   break;
           case (ROFF_Sx):
                   /* FALLTHROUGH */
           case (ROFF_Nm):
                   assert(*more);
                   if ( ! ml_puts(p->mbuf, *more++, &p->pos))
                           return(0);
                   assert(NULL == *more);
                   break;
   
           case (ROFF_Ex):
                   /* NOTREACHED */
           case (ROFF_Rv):
                   assert(*more);
                   (void)snprintf(buf, sizeof(buf),
                                   mlg_fmt(tok), *more++);
                   if ( ! ml_puts(p->mbuf, buf, &p->pos))
                           return(0);
                   assert(NULL == *more);
                   break;
           case (ROFF_At):
                   if ( ! ml_puts(p->mbuf, mlg_At_literal(*more), &p->pos))
                           return(0);
                   break;
           case (ROFF_Bx):
                   /* FALLTHROUGH */
           case (ROFF_Bsx):
                   /* FALLTHROUGH */
           case (ROFF_Fx):
                   /* FALLTHROUGH */
           case (ROFF_Nx):
                   /* FALLTHROUGH */
           case (ROFF_Ox):
                   if ( ! ml_puts(p->mbuf, mlg_literal(tok), &p->pos))
                           return(0);
                   while (*more) {
                           if ( ! ml_nputs(p->mbuf, " ", 1, &p->pos))
                                   return(0);
                           if ( ! ml_putstring(p->mbuf, *more++, &p->pos))
                                   return(0);
                   }
                   break;
           case (ROFF_Bt):
                   /* FALLTHROUGH */
           case (ROFF_Ud):
                   /* FALLTHROUGH */
           case (ROFF_Ux):
                   assert(NULL == *more);
                   if ( ! ml_puts(p->mbuf, mlg_literal(tok), &p->pos))
                           return(0);
                   break;
           default:
                   mlg_err(p, start, start, "`%s' not yet supported",
                                   toknames[tok]);
                   return(0);
           }
   
           return(mlg_endtag(p, MD_NS_INLINE, tok));
 }  }
   
   
Line 446  static int
Line 716  static int
 mlg_roffblkin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkin(void *arg, int tok, int *argc, 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 455  static int
Line 725  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));
 }  }
   
   
Line 463  static int
Line 733  static int
 mlg_roffblkbodyin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkbodyin(void *arg, int tok, int *argc, 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 472  static int
Line 742  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));
 }  }
   
   
Line 480  static int
Line 750  static int
 mlg_roffblkheadin(void *arg, int tok, int *argc, char **argv)  mlg_roffblkheadin(void *arg, int tok, int *argc, 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 489  static int
Line 759  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, 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));  
 }  }
   
   
Line 561  mlg_roffdata(void *arg, int space, const char *start, 
Line 801  mlg_roffdata(void *arg, int space, const char *start, 
                 return(0);                  return(0);
   
         mlg_mode(p, MD_TEXT);          mlg_mode(p, MD_TEXT);
   
         return(1);          return(1);
 }  }
   
   
 static void  static void
 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);
           mlg_msg(p, lvl, start, pos, buf);
 }  }
   
   
 static void  static void
 mlg_warn(struct md_mlg *p, const char *buf, const char *pos, char *msg)  mlg_warn(struct md_mlg *p, const char *start,
                   const char *pos, const char *fmt, ...)
 {  {
           va_list          ap;
   
         mlg_msg(p, ROFF_WARN, buf, pos, msg);          va_start(ap, fmt);
           mlg_vmsg(p, ROFF_WARN, start, pos, fmt, ap);
           va_end(ap);
 }  }
   
   
 static void  static void
   mlg_err(struct md_mlg *p, const char *start,
                   const char *pos, const char *fmt, ...)
   {
           va_list          ap;
   
           va_start(ap, fmt);
           mlg_vmsg(p, ROFF_ERROR, start, pos, fmt, ap);
           va_end(ap);
   }
   
   
   static void
 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, char *msg)
 {  {
Line 607  mlg_msg(struct md_mlg *p, enum roffmsg lvl, 
Line 867  mlg_msg(struct md_mlg *p, enum roffmsg lvl, 
         else          else
                 (void)fprintf(stderr, "%s: %s: %s\n",                  (void)fprintf(stderr, "%s: %s: %s\n",
                                 p->rbuf->name, level, msg);                                  p->rbuf->name, level, msg);
   
 }  }
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.17
CVSweb