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

Diff for /mandoc/tbl_html.c between version 1.4 and 1.32

version 1.4, 2011/01/06 11:55:39 version 1.32, 2019/01/06 04:55:09
Line 1 
Line 1 
 /*      $Id$ */  /*      $Id$ */
 /*  /*
  * Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>   * Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
    * Copyright (c) 2014, 2015, 2017, 2018 Ingo Schwarze <schwarze@openbsd.org>
  *   *
  * Permission to use, copy, modify, and distribute this software for any   * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above   * purpose with or without fee is hereby granted, provided that the above
Line 14 
Line 15 
  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF   * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.   * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  */   */
 #ifdef HAVE_CONFIG_H  
 #include "config.h"  #include "config.h"
 #endif  
   
   #include <sys/types.h>
   
 #include <assert.h>  #include <assert.h>
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
   
 #include "mandoc.h"  #include "mandoc.h"
   #include "tbl.h"
 #include "out.h"  #include "out.h"
 #include "html.h"  #include "html.h"
   
   static  void     html_tblopen(struct html *, const struct tbl_span *);
 static  size_t   html_tbl_len(size_t, void *);  static  size_t   html_tbl_len(size_t, void *);
 static  size_t   html_tbl_strlen(const char *, void *);  static  size_t   html_tbl_strlen(const char *, void *);
   static  size_t   html_tbl_sulen(const struct roffsu *, void *);
   
 /* ARGSUSED */  
 static size_t  static size_t
 html_tbl_len(size_t sz, void *arg)  html_tbl_len(size_t sz, void *arg)
 {  {
           return sz;
         return(sz);  
 }  }
   
 /* ARGSUSED */  
 static size_t  static size_t
 html_tbl_strlen(const char *p, void *arg)  html_tbl_strlen(const char *p, void *arg)
 {  {
           return strlen(p);
   }
   
         return(strlen(p));  static size_t
   html_tbl_sulen(const struct roffsu *su, void *arg)
   {
           if (su->scale < 0.0)
                   return 0;
   
           switch (su->unit) {
           case SCALE_FS:  /* 2^16 basic units */
                   return su->scale * 65536.0 / 24.0;
           case SCALE_IN:  /* 10 characters per inch */
                   return su->scale * 10.0;
           case SCALE_CM:  /* 2.54 cm per inch */
                   return su->scale * 10.0 / 2.54;
           case SCALE_PC:  /* 6 pica per inch */
           case SCALE_VS:
                   return su->scale * 10.0 / 6.0;
           case SCALE_EN:
           case SCALE_EM:
                   return su->scale;
           case SCALE_PT:  /* 12 points per pica */
                   return su->scale * 10.0 / 6.0 / 12.0;
           case SCALE_BU:  /* 24 basic units per character */
                   return su->scale / 24.0;
           case SCALE_MM:  /* 1/1000 inch */
                   return su->scale / 100.0;
           default:
                   abort();
           }
 }  }
   
   static void
   html_tblopen(struct html *h, const struct tbl_span *sp)
   {
           html_close_paragraph(h);
           if (h->tbl.cols == NULL) {
                   h->tbl.len = html_tbl_len;
                   h->tbl.slen = html_tbl_strlen;
                   h->tbl.sulen = html_tbl_sulen;
                   tblcalc(&h->tbl, sp, 0, 0);
           }
           assert(NULL == h->tblt);
           h->tblt = print_otag(h, TAG_TABLE, "c?ss", "tbl",
               "border",
                   sp->opts->opts & TBL_OPT_ALLBOX ? "1" : NULL,
               "border-style",
                   sp->opts->opts & TBL_OPT_DBOX ? "double" :
                   sp->opts->opts & TBL_OPT_BOX ? "solid" : NULL,
               "border-top-style",
                   sp->pos == TBL_SPAN_DHORIZ ? "double" :
                   sp->pos == TBL_SPAN_HORIZ ? "solid" : NULL);
   }
   
 void  void
   print_tblclose(struct html *h)
   {
   
           assert(h->tblt);
           print_tagq(h, h->tblt);
           h->tblt = NULL;
   }
   
   void
 print_tbl(struct html *h, const struct tbl_span *sp)  print_tbl(struct html *h, const struct tbl_span *sp)
 {  {
         const struct tbl_head *hp;          const struct tbl_dat    *dp;
         const struct tbl_dat *dp;          const struct tbl_cell   *cp;
         struct tag      *tt;          const struct tbl_span   *psp;
         struct htmlpair  tag;          struct tag              *tt;
         struct roffsu    su;          const char              *hspans, *vspans, *halign, *valign;
         struct roffcol  *col;          const char              *bborder, *lborder, *rborder;
           char                     hbuf[4], vbuf[4];
           int                      i;
   
         switch (sp->pos) {          if (h->tblt == NULL)
         case (TBL_SPAN_HORIZ):                  html_tblopen(h, sp);
                 /* FALLTHROUGH */  
         case (TBL_SPAN_DHORIZ):          /*
            * Horizontal lines spanning the whole table
            * are handled by previous or following table rows.
            */
   
           if (sp->pos != TBL_SPAN_DATA)
                 return;                  return;
         default:  
                 break;  
         }  
   
         /* Inhibit printing of spaces: we do padding ourselves. */          /* Inhibit printing of spaces: we do padding ourselves. */
   
         h->flags |= HTML_NONOSPACE;          h->flags |= HTML_NONOSPACE;
         h->flags |= HTML_NOSPACE;          h->flags |= HTML_NOSPACE;
   
         /* First pass: calculate widths. */          /* Draw a vertical line left of this row? */
   
         if (TBL_SPAN_FIRST & sp->flags) {          switch (sp->layout->vert) {
                 h->tbl.len = html_tbl_len;          case 2:
                 h->tbl.slen = html_tbl_strlen;                  lborder = "double";
                 tblcalc(&h->tbl, sp);                  break;
           case 1:
                   lborder = "solid";
                   break;
           default:
                   lborder = NULL;
                   break;
         }          }
   
         PAIR_CLASS_INIT(&tag, "tbl");          /* Draw a horizontal line below this row? */
   
         print_otag(h, TAG_TABLE, 1, &tag);          bborder = NULL;
         print_otag(h, TAG_TR, 0, NULL);          if ((psp = sp->next) != NULL) {
                   switch (psp->pos) {
         dp = sp->first;                  case TBL_SPAN_DHORIZ:
         for (hp = sp->head; hp; hp = hp->next) {                          bborder = "double";
                 switch (hp->pos) {  
                 case (TBL_HEAD_VERT):  
                         /* FALLTHROUGH */  
                 case (TBL_HEAD_DVERT):  
                         continue;  
                 case (TBL_HEAD_DATA):  
                         break;                          break;
                   case TBL_SPAN_HORIZ:
                           bborder = "solid";
                           break;
                   default:
                           break;
                 }                  }
           }
   
           tt = print_otag(h, TAG_TR, "ss",
               "border-left-style", lborder,
               "border-bottom-style", bborder);
   
           for (dp = sp->first; dp != NULL; dp = dp->next) {
                   print_stagq(h, tt);
   
                 /*                  /*
                  * For the time being, use the simplest possible table                   * Do not generate <td> elements for continuations
                  * styling: setting the widths of data columns.                   * of spanned cells.  Larger <td> elements covering
                    * this space were already generated earlier.
                  */                   */
   
                 col = &h->tbl.cols[hp->ident];                  cp = dp->layout;
                 SCALE_HS_INIT(&su, col->width);                  if (cp->pos == TBL_CELL_SPAN || cp->pos == TBL_CELL_DOWN ||
                 bufcat_su(h, "width", &su);                      (dp->string != NULL && strcmp(dp->string, "\\^") == 0))
                 PAIR_STYLE_INIT(&tag, h);                          continue;
                 tt = print_otag(h, TAG_TD, 1, &tag);  
                 if (dp) {                  /* Determine the attribute values. */
                         if (dp->string)  
                                 print_text(h, dp->string);                  if (dp->hspans > 0) {
                         dp = dp->next;                          (void)snprintf(hbuf, sizeof(hbuf),
                               "%d", dp->hspans + 1);
                           hspans = hbuf;
                   } else
                           hspans = NULL;
                   if (dp->vspans > 0) {
                           (void)snprintf(vbuf, sizeof(vbuf),
                               "%d", dp->vspans + 1);
                           vspans = vbuf;
                   } else
                           vspans = NULL;
   
                   switch (cp->pos) {
                   case TBL_CELL_CENTRE:
                           halign = "center";
                           break;
                   case TBL_CELL_RIGHT:
                   case TBL_CELL_NUMBER:
                           halign = "right";
                           break;
                   default:
                           halign = NULL;
                           break;
                 }                  }
                 print_tagq(h, tt);                  if (cp->flags & TBL_CELL_TALIGN)
                           valign = "top";
                   else if (cp->flags & TBL_CELL_BALIGN)
                           valign = "bottom";
                   else
                           valign = NULL;
   
                   for (i = dp->hspans; i > 0; i--)
                           cp = cp->next;
                   switch (cp->vert) {
                   case 2:
                           rborder = "double";
                           break;
                   case 1:
                           rborder = "solid";
                           break;
                   default:
                           rborder = NULL;
                           break;
                   }
   
                   /* Print the element and the attributes. */
   
                   print_otag(h, TAG_TD, "??sss",
                       "colspan", hspans, "rowspan", vspans,
                       "vertical-align", valign,
                       "text-align", halign,
                       "border-right-style", rborder);
                   if (dp->string != NULL)
                           print_text(h, dp->string);
         }          }
         h->flags &= ~HTML_NONOSPACE;  
   
         /* Close out column specifiers on the last span. */          print_tagq(h, tt);
   
         if (TBL_SPAN_LAST & sp->flags) {          h->flags &= ~HTML_NONOSPACE;
   
           if (sp->next == NULL) {
                 assert(h->tbl.cols);                  assert(h->tbl.cols);
                 free(h->tbl.cols);                  free(h->tbl.cols);
                 h->tbl.cols = NULL;                  h->tbl.cols = NULL;
                   print_tblclose(h);
         }          }
 }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.32

CVSweb