contrib/mdocml/tbl_html.c

   1 /*      $Id: tbl_html.c,v 1.32 2019/01/06 04:55:09 schwarze Exp $ */
   2 /*
   3  * Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
   4  * Copyright (c) 2014, 2015, 2017, 2018 Ingo Schwarze <schwarze@openbsd.org>
   5  *
   6  * Permission to use, copy, modify, and distribute this software for any
   7  * purpose with or without fee is hereby granted, provided that the above
   8  * copyright notice and this permission notice appear in all copies.
   9  *
  10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  14  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  15  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  16  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  17  */
  18 #include "config.h"
  19
  20 #include <sys/types.h>
  21
  22 #include <assert.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26
  27 #include "mandoc.h"
  28 #include "tbl.h"
  29 #include "out.h"
  30 #include "html.h"
  31
  32 static  void     html_tblopen(struct html *, const struct tbl_span *);
  33 static  size_t   html_tbl_len(size_t, void *);
  34 static  size_t   html_tbl_strlen(const char *, void *);
  35 static  size_t   html_tbl_sulen(const struct roffsu *, void *);
  36
  37
  38 static size_t
  39 html_tbl_len(size_t sz, void *arg)
  40 {
  41         return sz;
  42 }
  43
  44 static size_t
  45 html_tbl_strlen(const char *p, void *arg)
  46 {
  47         return strlen(p);
  48 }
  49
  50 static size_t
  51 html_tbl_sulen(const struct roffsu *su, void *arg)
  52 {
  53         if (su->scale < 0.0)
  54                 return 0;
  55
  56         switch (su->unit) {
  57         case SCALE_FS:  /* 2^16 basic units */
  58                 return su->scale * 65536.0 / 24.0;
  59         case SCALE_IN:  /* 10 characters per inch */
  60                 return su->scale * 10.0;
  61         case SCALE_CM:  /* 2.54 cm per inch */
  62                 return su->scale * 10.0 / 2.54;
  63         case SCALE_PC:  /* 6 pica per inch */
  64         case SCALE_VS:
  65                 return su->scale * 10.0 / 6.0;
  66         case SCALE_EN:
  67         case SCALE_EM:
  68                 return su->scale;
  69         case SCALE_PT:  /* 12 points per pica */
  70                 return su->scale * 10.0 / 6.0 / 12.0;
  71         case SCALE_BU:  /* 24 basic units per character */
  72                 return su->scale / 24.0;
  73         case SCALE_MM:  /* 1/1000 inch */
  74                 return su->scale / 100.0;
  75         default:
  76                 abort();
  77         }
  78 }
  79
  80 static void
  81 html_tblopen(struct html *h, const struct tbl_span *sp)
  82 {
  83         html_close_paragraph(h);
  84         if (h->tbl.cols == NULL) {
  85                 h->tbl.len = html_tbl_len;
  86                 h->tbl.slen = html_tbl_strlen;
  87                 h->tbl.sulen = html_tbl_sulen;
  88                 tblcalc(&h->tbl, sp, 0, 0);
  89         }
  90         assert(NULL == h->tblt);
  91         h->tblt = print_otag(h, TAG_TABLE, "c?ss", "tbl",
  92             "border",
  93                 sp->opts->opts & TBL_OPT_ALLBOX ? "1" : NULL,
  94             "border-style",
  95                 sp->opts->opts & TBL_OPT_DBOX ? "double" :
  96                 sp->opts->opts & TBL_OPT_BOX ? "solid" : NULL,
  97             "border-top-style",
  98                 sp->pos == TBL_SPAN_DHORIZ ? "double" :
  99                 sp->pos == TBL_SPAN_HORIZ ? "solid" : NULL);
 100 }
 101
 102 void
 103 print_tblclose(struct html *h)
 104 {
 105
 106         assert(h->tblt);
 107         print_tagq(h, h->tblt);
 108         h->tblt = NULL;
 109 }
 110
 111 void
 112 print_tbl(struct html *h, const struct tbl_span *sp)
 113 {
 114         const struct tbl_dat    *dp;
 115         const struct tbl_cell   *cp;
 116         const struct tbl_span   *psp;
 117         struct tag              *tt;
 118         const char              *hspans, *vspans, *halign, *valign;
 119         const char              *bborder, *lborder, *rborder;
 120         char                     hbuf[4], vbuf[4];
 121         int                      i;
 122
 123         if (h->tblt == NULL)
 124                 html_tblopen(h, sp);
 125
 126         /*
 127          * Horizontal lines spanning the whole table
 128          * are handled by previous or following table rows.
 129          */
 130
 131         if (sp->pos != TBL_SPAN_DATA)
 132                 return;
 133
 134         /* Inhibit printing of spaces: we do padding ourselves. */
 135
 136         h->flags |= HTML_NONOSPACE;
 137         h->flags |= HTML_NOSPACE;
 138
 139         /* Draw a vertical line left of this row? */
 140
 141         switch (sp->layout->vert) {
 142         case 2:
 143                 lborder = "double";
 144                 break;
 145         case 1:
 146                 lborder = "solid";
 147                 break;
 148         default:
 149                 lborder = NULL;
 150                 break;
 151         }
 152
 153         /* Draw a horizontal line below this row? */
 154
 155         bborder = NULL;
 156         if ((psp = sp->next) != NULL) {
 157                 switch (psp->pos) {
 158                 case TBL_SPAN_DHORIZ:
 159                         bborder = "double";
 160                         break;
 161                 case TBL_SPAN_HORIZ:
 162                         bborder = "solid";
 163                         break;
 164                 default:
 165                         break;
 166                 }
 167         }
 168
 169         tt = print_otag(h, TAG_TR, "ss",
 170             "border-left-style", lborder,
 171             "border-bottom-style", bborder);
 172
 173         for (dp = sp->first; dp != NULL; dp = dp->next) {
 174                 print_stagq(h, tt);
 175
 176                 /*
 177                  * Do not generate <td> elements for continuations
 178                  * of spanned cells.  Larger <td> elements covering
 179                  * this space were already generated earlier.
 180                  */
 181
 182                 cp = dp->layout;
 183                 if (cp->pos == TBL_CELL_SPAN || cp->pos == TBL_CELL_DOWN ||
 184                     (dp->string != NULL && strcmp(dp->string, "\\^") == 0))
 185                         continue;
 186
 187                 /* Determine the attribute values. */
 188
 189                 if (dp->hspans > 0) {
 190                         (void)snprintf(hbuf, sizeof(hbuf),
 191                             "%d", dp->hspans + 1);
 192                         hspans = hbuf;
 193                 } else
 194                         hspans = NULL;
 195                 if (dp->vspans > 0) {
 196                         (void)snprintf(vbuf, sizeof(vbuf),
 197                             "%d", dp->vspans + 1);
 198                         vspans = vbuf;
 199                 } else
 200                         vspans = NULL;
 201
 202                 switch (cp->pos) {
 203                 case TBL_CELL_CENTRE:
 204                         halign = "center";
 205                         break;
 206                 case TBL_CELL_RIGHT:
 207                 case TBL_CELL_NUMBER:
 208                         halign = "right";
 209                         break;
 210                 default:
 211                         halign = NULL;
 212                         break;
 213                 }
 214                 if (cp->flags & TBL_CELL_TALIGN)
 215                         valign = "top";
 216                 else if (cp->flags & TBL_CELL_BALIGN)
 217                         valign = "bottom";
 218                 else
 219                         valign = NULL;
 220
 221                 for (i = dp->hspans; i > 0; i--)
 222                         cp = cp->next;
 223                 switch (cp->vert) {
 224                 case 2:
 225                         rborder = "double";
 226                         break;
 227                 case 1:
 228                         rborder = "solid";
 229                         break;
 230                 default:
 231                         rborder = NULL;
 232                         break;
 233                 }
 234
 235                 /* Print the element and the attributes. */
 236
 237                 print_otag(h, TAG_TD, "??sss",
 238                     "colspan", hspans, "rowspan", vspans,
 239                     "vertical-align", valign,
 240                     "text-align", halign,
 241                     "border-right-style", rborder);
 242                 if (dp->string != NULL)
 243                         print_text(h, dp->string);
 244         }
 245
 246         print_tagq(h, tt);
 247
 248         h->flags &= ~HTML_NONOSPACE;
 249
 250         if (sp->next == NULL) {
 251                 assert(h->tbl.cols);
 252                 free(h->tbl.cols);
 253                 h->tbl.cols = NULL;
 254                 print_tblclose(h);
 255         }
 256 }