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

Diff for /mandoc/html.c between version 1.18 and 1.19

version 1.18, 2008/12/09 19:57:26 version 1.19, 2008/12/10 00:52:46
Line 27 
Line 27 
 #include <string.h>  #include <string.h>
 #include <unistd.h>  #include <unistd.h>
   
 #include "private.h"  #include "html.h"
 #include "ml.h"  #include "ml.h"
   
 #define TAG_HTML        "<html>"  
 #define TAG_HTML_END    "</html>"  
 #define TAG_BODY        "<body>"  
 #define TAG_BODY_END    "</body>"  
 #define TAG_DIV_MDOC    "<div class=\"mdoc\">"  
 #define TAG_DIV_END     "</div>"  
 #define TAG_STYLE_CSS   "<style type=\"text/css\"><!--"  
 #define TAG_STYLE_END   "--></style>"  
 #define TAG_HEAD        "<head>"  
 #define TAG_HEAD_END    "</head>"  
 #define TAG_TITLE       "<title>"  
 #define TAG_TITLE_END   "</title>"  
 #define TAG_LINK_CSS    "<link rel=\"stylesheet\" " \  
                         "type=\"text/css\" href=\"%s\">"  
 #define TAG_DOCTYPE     "<!DOCTYPE HTML PUBLIC " \  
                         "\"-//W3C//DTD HTML 4.01//EN\" " \  
                         "\"http://www.w3.org/TR/html4/strict.dtd\">"  
 #define TAG_RESTYPE     "<meta name=\"resource-type\" " \  
                         "content=\"document\">"  
 #define TAG_CONTTYPE    "<meta http-equiv=\"Content-Type\" " \  
                         "content=\"text/html;charset=utf-8\">"  
   
 /* TODO: allow head/tail-less invocations (just "div" start). */  /* TODO: allow head/tail-less invocations (just "div" start). */
   
 struct  htmlnode {  struct  htmlnode {
Line 62  struct htmlnode {
Line 40  struct htmlnode {
         struct htmlnode *parent;          struct htmlnode *parent;
 };  };
   
   
 struct  htmlq {  struct  htmlq {
         struct htmlnode *last;          struct htmlnode *last;
 };  };
   
   
 static  int             html_loadcss(struct md_mbuf *, const char *);  static  int             html_loadcss(struct md_mbuf *,
                                   const char *);
 static  int             html_alloc(void **);  static  int             html_alloc(void **);
 static  void            html_free(void *);  static  void            html_free(void *);
 static  ssize_t         html_endtag(struct md_mbuf *, void *,  static  ssize_t         html_endtag(struct md_mbuf *, void *,
Line 139  static int  html_It_headtagname(struct md_mbuf *, 
Line 116  static int  html_It_headtagname(struct md_mbuf *, 
 static  int             html_It_bodytagname(struct md_mbuf *,  static  int             html_It_bodytagname(struct md_mbuf *,
                                 struct htmlq *, const int *,                                  struct htmlq *, const int *,
                                 const char **, size_t *);                                  const char **, size_t *);
   static  int             html_tputln(struct md_mbuf *,
                                   enum ml_scope, int, enum html_tag);
   static  int             html_aputln(struct md_mbuf *, enum ml_scope,
                                   int, enum html_tag,
                                   int, const struct html_pair *);
   
   
 /* ARGSUSED */  /* ARGSUSED */
Line 160  html_It_headtagname(struct md_mbuf *mbuf, struct htmlq
Line 142  html_It_headtagname(struct md_mbuf *mbuf, struct htmlq
                         i < ROFF_MAXLINEARG; i++) {                          i < ROFF_MAXLINEARG; i++) {
                 switch (n->argc[i]) {                  switch (n->argc[i]) {
                 case (ROFF_Ohang):                  case (ROFF_Ohang):
                         return(ml_nputs(mbuf, "div", 3, res));                          return(html_stput(mbuf, HTML_TAG_DIV, res));
                 case (ROFF_Tag):                  case (ROFF_Tag):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Column):                  case (ROFF_Column):
                         return(ml_nputs(mbuf, "td", 2, res));                          return(html_stput(mbuf, HTML_TAG_TD, res));
                 default:                  default:
                         break;                          break;
                 }                  }
Line 209  html_It_bodytagname(struct md_mbuf *mbuf, struct htmlq
Line 191  html_It_bodytagname(struct md_mbuf *mbuf, struct htmlq
                 case (ROFF_Ohang):                  case (ROFF_Ohang):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Inset):                  case (ROFF_Inset):
                         return(ml_nputs(mbuf, "div", 3, res));                          return(html_stput(mbuf, HTML_TAG_DIV, res));
                 case (ROFF_Tag):                  case (ROFF_Tag):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Column):                  case (ROFF_Column):
                         return(ml_nputs(mbuf, "td", 2, res));                          return(html_stput(mbuf, HTML_TAG_TD, res));
                 default:                  default:
                         break;                          break;
                 }                  }
Line 235  html_Bl_bodytagname(struct md_mbuf *mbuf, struct htmlq
Line 217  html_Bl_bodytagname(struct md_mbuf *mbuf, struct htmlq
                         && i < ROFF_MAXLINEARG; i++) {                          && i < ROFF_MAXLINEARG; i++) {
                 switch (argc[i]) {                  switch (argc[i]) {
                 case (ROFF_Enum):                  case (ROFF_Enum):
                         return(ml_nputs(mbuf, "ol", 2, res));                          return(html_stput(mbuf, HTML_TAG_OL, res));
                 case (ROFF_Bullet):                  case (ROFF_Bullet):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Dash):                  case (ROFF_Dash):
Line 251  html_Bl_bodytagname(struct md_mbuf *mbuf, struct htmlq
Line 233  html_Bl_bodytagname(struct md_mbuf *mbuf, struct htmlq
                 case (ROFF_Ohang):                  case (ROFF_Ohang):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Inset):                  case (ROFF_Inset):
                         return(ml_nputs(mbuf, "ul", 2, res));                          return(html_stput(mbuf, HTML_TAG_UL, res));
                 case (ROFF_Tag):                  case (ROFF_Tag):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Column):                  case (ROFF_Column):
                         return(ml_nputs(mbuf, "table", 5, res));                          return(html_stput(mbuf, HTML_TAG_TABLE, res));
                 default:                  default:
                         break;                          break;
                 }                  }
Line 301  html_It_blocktagname(struct md_mbuf *mbuf, struct html
Line 283  html_It_blocktagname(struct md_mbuf *mbuf, struct html
                 case (ROFF_Ohang):                  case (ROFF_Ohang):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Inset):                  case (ROFF_Inset):
                         return(ml_nputs(mbuf, "li", 2, res));                          return(html_stput(mbuf, HTML_TAG_LI, res));
                 case (ROFF_Tag):                  case (ROFF_Tag):
                         /* FALLTHROUGH */                          /* FALLTHROUGH */
                 case (ROFF_Column):                  case (ROFF_Column):
                         return(ml_nputs(mbuf, "tr", 2, res));                          return(html_stput(mbuf, HTML_TAG_TR, res));
                 default:                  default:
                         break;                          break;
                 }                  }
Line 371  out:
Line 353  out:
   
   
 static int  static int
 html_putline(struct md_mbuf *mbuf, size_t indent,  html_tputln(struct md_mbuf *mbuf, enum ml_scope scope,
                 const char *p, size_t *res)                  int i, enum html_tag tag)
 {  {
   
         /* FIXME: use INDENT macro for this. */          if ( ! ml_putchars(mbuf, ' ', INDENT(i) * INDENT_SZ, NULL))
         if ( ! ml_putchars(mbuf, ' ', indent * 4, res))  
                 return(0);                  return(0);
         if ( ! ml_puts(mbuf, p, res))          if ( ! html_tput(mbuf, scope, tag, NULL))
                 return(0);                  return(0);
         return(ml_nputs(mbuf, "\n", 1, res));          return(ml_nputs(mbuf, "\n", 1, NULL));
 }  }
   
   
 static int  static int
 html_putlinestart(struct md_mbuf *mbuf, size_t indent,  html_aputln(struct md_mbuf *mbuf, enum ml_scope scope, int i,
                 const char *p, size_t *res)                  enum html_tag tag, int sz, const struct html_pair *p)
 {  {
   
         if ( ! ml_putchars(mbuf, ' ', indent * 4, res))          if ( ! ml_putchars(mbuf, ' ', INDENT(i) * INDENT_SZ, NULL))
                 return(0);                  return(0);
         return(ml_puts(mbuf, p, res));          if ( ! html_aput(mbuf, scope, tag, NULL, sz, p))
                   return(0);
           return(ml_nputs(mbuf, "\n", 1, NULL));
 }  }
   
   
Line 399  html_putlinestart(struct md_mbuf *mbuf, size_t indent,
Line 382  html_putlinestart(struct md_mbuf *mbuf, size_t indent,
 static int  static int
 html_begin(struct md_mbuf *mbuf, const struct md_args *args,  html_begin(struct md_mbuf *mbuf, const struct md_args *args,
                 const struct tm *tm, const char *os,                  const struct tm *tm, const char *os,
                 const char *title, enum roffmsec section,                  const char *name, enum roffmsec msec, const char *vol)
                 const char *vol)  
 {  {
         char             mtitle[128], css[128];          struct html_pair attr[4];
         size_t           i;          char             ts[32];
           int              i;
   
         (void)snprintf(mtitle, sizeof(mtitle),          (void)snprintf(ts, sizeof(ts), "%s(%s)",
                         "Manual Page for %s(%s)",                          name, roff_msecname(msec));
                         title, roff_msecname(section));  
         (void)snprintf(css, sizeof(css),  
                         TAG_LINK_CSS, args->params.html.css);  
   
         i = 0;          i = 0;
   
         if ( ! html_putline(mbuf, i, TAG_DOCTYPE, NULL))          if ( ! html_typeput(mbuf, HTML_TYPE_4_01_STRICT, NULL))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i, TAG_HTML, NULL))          if ( ! html_tputln(mbuf, ML_OPEN, i, HTML_TAG_HTML))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i++, TAG_HEAD, NULL))          if ( ! html_tputln(mbuf, ML_OPEN, i++, HTML_TAG_HEAD))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i, TAG_CONTTYPE, NULL))  
           attr[0].attr = HTML_ATTR_HTTP_EQUIV;
           attr[0].val = "content-type";
           attr[1].attr = HTML_ATTR_CONTENT;
           attr[1].val = "text/html;charset=utf-8";
   
           if ( ! html_aputln(mbuf, ML_OPEN, i, HTML_TAG_META, 2, attr))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i, TAG_RESTYPE, NULL))  
           attr[0].attr = HTML_ATTR_NAME;
           attr[0].val = "resource-type";
           attr[1].attr = HTML_ATTR_CONTENT;
           attr[1].val = "document";
   
           if ( ! html_aputln(mbuf, ML_OPEN, i, HTML_TAG_META, 2, attr))
                 return(0);                  return(0);
         if ( ! html_putlinestart(mbuf, i, TAG_TITLE, NULL))  
           if ( ! html_tputln(mbuf, ML_OPEN, i, HTML_TAG_TITLE))
                 return(0);                  return(0);
         if ( ! ml_putstring(mbuf, mtitle, NULL))          if ( ! ml_putstring(mbuf, ts, NULL))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i, TAG_TITLE_END, NULL))          if ( ! html_tputln(mbuf, ML_CLOSE, i, HTML_TAG_TITLE))
                 return(0);                  return(0);
   
         if (HTML_CSS_EMBED & args->params.html.flags) {          if (HTML_CSS_EMBED & args->params.html.flags) {
                 if ( ! html_putline(mbuf, i, TAG_STYLE_CSS, NULL))                  attr[0].attr = HTML_ATTR_TYPE;
                   attr[0].val = "text/css";
   
                   if ( ! html_aputln(mbuf, ML_OPEN, i,
                                           HTML_TAG_STYLE, 1, attr))
                         return(0);                          return(0);
                   if ( ! html_commentput(mbuf, ML_OPEN, NULL))
                           return(NULL);
   
                 if ( ! html_loadcss(mbuf, args->params.html.css))                  if ( ! html_loadcss(mbuf, args->params.html.css))
                         return(0);                          return(0);
                 if ( ! html_putline(mbuf, i, TAG_STYLE_END, NULL))  
                   if ( ! html_commentput(mbuf, ML_CLOSE, NULL))
                           return(NULL);
                   if ( ! html_tputln(mbuf, ML_CLOSE, i, HTML_TAG_STYLE))
                         return(0);                          return(0);
         } else if ( ! html_putline(mbuf, i, css, NULL))          } else {
                 return(0);                  attr[0].attr = HTML_ATTR_REL;
                   attr[0].val = "stylesheet";
                   attr[1].attr = HTML_ATTR_TYPE;
                   attr[1].val = "text/css";
                   attr[2].attr = HTML_ATTR_HREF;
                   attr[2].val = args->params.html.css;
   
         if ( ! html_putline(mbuf, --i, TAG_HEAD_END, NULL))                  if ( ! html_aputln(mbuf, ML_OPEN, i,
                                           HTML_TAG_LINK, 3, attr))
                           return(0);
           }
   
           if ( ! html_tputln(mbuf, ML_CLOSE, --i, HTML_TAG_HEAD))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i, TAG_BODY, NULL))          if ( ! html_tputln(mbuf, ML_OPEN, i, HTML_TAG_BODY))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i, TAG_DIV_MDOC, NULL))  
           attr[0].attr = HTML_ATTR_CLASS;
           attr[0].val = "mdoc";
   
           if ( ! html_aputln(mbuf, ML_OPEN, i, HTML_TAG_DIV, 1, attr))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i++, "<table width=\"100%\">", NULL))  
           attr[0].attr = HTML_ATTR_WIDTH;
           attr[0].val = "100%";
   
           if ( ! html_aputln(mbuf, ML_OPEN, i++, HTML_TAG_TABLE, 1, attr))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i++, "<tr>", NULL))          if ( ! html_tputln(mbuf, ML_OPEN, i++, HTML_TAG_TR))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i++, "<td align=\"left\">", NULL))  
           if ( ! html_tputln(mbuf, ML_OPEN, i, HTML_TAG_TD))
                 return(0);                  return(0);
         if ( ! ml_putstring(mbuf, title, NULL))          if ( ! ml_putstring(mbuf, ts, NULL))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, --i, "</td>", NULL))          if ( ! html_tputln(mbuf, ML_CLOSE, i, HTML_TAG_TD))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i++, "<td align=\"center\">", NULL))  
           if ( ! html_tputln(mbuf, ML_OPEN, i, HTML_TAG_TD))
                 return(0);                  return(0);
         if ( ! ml_putstring(mbuf, "Hello, world.", NULL))          /* TODO: middle. */
           if ( ! html_tputln(mbuf, ML_CLOSE, i, HTML_TAG_TD))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, --i, "</td>", NULL))  
           if ( ! html_tputln(mbuf, ML_OPEN, i, HTML_TAG_TD))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, i++, "<td align=\"right\">", NULL))          if ( ! ml_putstring(mbuf, ts, NULL))
                 return(0);                  return(0);
         if ( ! ml_putstring(mbuf, title, NULL))          if ( ! html_tputln(mbuf, ML_CLOSE, i, HTML_TAG_TD))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, --i, "</td>", NULL))  
           if ( ! html_tputln(mbuf, ML_CLOSE, --i, HTML_TAG_TR))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, --i, "</tr>", NULL))          return(html_tputln(mbuf, ML_CLOSE, --i, HTML_TAG_TABLE));
                 return(0);  
         if ( ! html_putline(mbuf, --i, "</table>", NULL))  
                 return(0);  
         return(1);  
 }  }
   
   
Line 481  static int 
Line 503  static int 
 html_end(struct md_mbuf *mbuf, const struct md_args *args)  html_end(struct md_mbuf *mbuf, const struct md_args *args)
 {  {
   
         if ( ! html_putline(mbuf, 0, TAG_DIV_END, NULL))          if ( ! html_tputln(mbuf, ML_CLOSE, 0, HTML_TAG_DIV))
                 return(0);                  return(0);
         if ( ! html_putline(mbuf, 0, TAG_BODY_END, NULL))          if ( ! html_tputln(mbuf, ML_CLOSE, 0, HTML_TAG_BODY))
                 return(0);                  return(0);
         return(html_putline(mbuf, 0, TAG_HTML_END, NULL));          return(html_tputln(mbuf, ML_CLOSE, 0, HTML_TAG_HTML));
 }  }
   
   
Line 500  html_bodytagname(struct md_mbuf *mbuf, 
Line 522  html_bodytagname(struct md_mbuf *mbuf, 
         case (ROFF_Bl):          case (ROFF_Bl):
                 return(html_Bl_bodytagname(mbuf, q, argc, argv, res));                  return(html_Bl_bodytagname(mbuf, q, argc, argv, res));
         case (ROFF_Fo):          case (ROFF_Fo):
                 return(ml_nputs(mbuf, "span", 4, res));                  return(html_stput(mbuf, HTML_TAG_SPAN, res));
         case (ROFF_It):          case (ROFF_It):
                 return(html_It_bodytagname(mbuf, q, argc, argv, res));                  return(html_It_bodytagname(mbuf, q, argc, argv, res));
         case (ROFF_Oo):          case (ROFF_Oo):
                 return(ml_nputs(mbuf, "span", 4, res));                  return(html_stput(mbuf, HTML_TAG_SPAN, res));
         default:          default:
                 break;                  break;
         }          }
   
         return(ml_puts(mbuf, "div", res));          return(html_stput(mbuf, HTML_TAG_DIV, res));
 }  }
   
   
Line 524  html_headtagname(struct md_mbuf *mbuf, 
Line 546  html_headtagname(struct md_mbuf *mbuf, 
         case (ROFF_It):          case (ROFF_It):
                 return(html_It_headtagname(mbuf, q, argc, argv, res));                  return(html_It_headtagname(mbuf, q, argc, argv, res));
         case (ROFF_Fo):          case (ROFF_Fo):
                 return(ml_nputs(mbuf, "span", 4, res));                  /* FALLTHROUGH */
         case (ROFF_Oo):          case (ROFF_Oo):
                 return(ml_nputs(mbuf, "span", 4, res));                  return(html_stput(mbuf, HTML_TAG_SPAN, res));
         case (ROFF_Sh):          case (ROFF_Sh):
                 return(ml_nputs(mbuf, "h1", 2, res));                  return(html_stput(mbuf, HTML_TAG_H1, res));
         case (ROFF_Ss):          case (ROFF_Ss):
                 return(ml_nputs(mbuf, "h2", 2, res));                  return(html_stput(mbuf, HTML_TAG_H2, res));
         default:          default:
                 break;                  break;
         }          }
   
         return(ml_nputs(mbuf, "div", 3, res));          return(html_stput(mbuf, HTML_TAG_DIV, res));
 }  }
   
   
Line 548  html_blocktagname(struct md_mbuf *mbuf, const struct m
Line 570  html_blocktagname(struct md_mbuf *mbuf, const struct m
   
         switch (tok) {          switch (tok) {
         case (ROFF_Fo):          case (ROFF_Fo):
                 return(ml_nputs(mbuf, "span", 4, res));                  /* FALLTHROUGH */
         case (ROFF_Oo):          case (ROFF_Oo):
                 return(ml_nputs(mbuf, "span", 4, res));                  return(html_stput(mbuf, HTML_TAG_SPAN, res));
         case (ROFF_It):          case (ROFF_It):
                 return(html_It_blocktagname(mbuf, q, argc, argv, res));                  return(html_It_blocktagname(mbuf, q, argc, argv, res));
         default:          default:
                 break;                  break;
         }          }
   
         return(ml_puts(mbuf, "div", res));          return(html_stput(mbuf, HTML_TAG_DIV, res));
 }  }
   
   
Line 567  html_printargs(struct md_mbuf *mbuf, int tok, const ch
Line 589  html_printargs(struct md_mbuf *mbuf, int tok, const ch
                 const int *argc, const char **argv, size_t *res)                  const int *argc, const char **argv, size_t *res)
 {  {
   
           /* FIXME: use API in ml.h. */
   
         if ( ! ml_puts(mbuf, " class=\"", res))          if ( ! ml_puts(mbuf, " class=\"", res))
                 return(0);                  return(0);
         if ( ! ml_puts(mbuf, ns, res))          if ( ! ml_puts(mbuf, ns, res))
Line 624  html_inlinetagargs(struct md_mbuf *mbuf, 
Line 648  html_inlinetagargs(struct md_mbuf *mbuf, 
   
         switch (tok) {          switch (tok) {
         case (ROFF_Sx):          case (ROFF_Sx):
   
                   /* FIXME: use API in ml.h. */
   
                 assert(*argv);                  assert(*argv);
                 if ( ! ml_nputs(mbuf, " href=\"#", 8, res))                  if ( ! ml_nputs(mbuf, " href=\"#", 8, res))
                         return(0);                          return(0);
Line 648  html_inlinetagname(struct md_mbuf *mbuf, 
Line 675  html_inlinetagname(struct md_mbuf *mbuf, 
   
         switch (tok) {          switch (tok) {
         case (ROFF_Pp):          case (ROFF_Pp):
                 return(ml_nputs(mbuf, "div", 3, res));                  return(html_stput(mbuf, HTML_TAG_DIV, res));
         case (ROFF_Sx):          case (ROFF_Sx):
                 return(ml_nputs(mbuf, "a", 1, res));                  return(html_stput(mbuf, HTML_TAG_A, res));
         default:          default:
                 break;                  break;
         }          }
   
         return(ml_puts(mbuf, "span", res));          return(html_stput(mbuf, HTML_TAG_SPAN, res));
 }  }
   
   
Line 821  html_beginhttp(struct md_mbuf *mbuf, 
Line 848  html_beginhttp(struct md_mbuf *mbuf, 
                 const char *buf, size_t sz)                  const char *buf, size_t sz)
 {  {
         size_t           res;          size_t           res;
           struct html_pair pair;
   
         res = 0;          res = 0;
           pair.attr = HTML_ATTR_HREF;
           pair.val = (char *)buf;
   
         if ( ! ml_puts(mbuf, "<a href=\"", &res))          if ( ! html_aput(mbuf, ML_OPEN, HTML_TAG_A, &res, 1, &pair))
                 return(-1);                  return(-1);
         if (1 != ml_nputstring(mbuf, buf, sz, &res))  
                 return(-1);  
         if ( ! ml_puts(mbuf, "\">", &res))  
                 return(-1);  
   
         return((ssize_t)res);          return((ssize_t)res);
 }  }
   
Line 843  html_endhttp(struct md_mbuf *mbuf, 
Line 868  html_endhttp(struct md_mbuf *mbuf, 
         size_t           res;          size_t           res;
   
         res = 0;          res = 0;
           if ( ! html_tput(mbuf, ML_CLOSE, HTML_TAG_A, &res))
         if ( ! ml_puts(mbuf, "</a>", &res))  
                 return(-1);                  return(-1);
   
         return((ssize_t)res);          return((ssize_t)res);
 }  }
   
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
CVSweb