contrib/mdocml/tbl_html.c

   1 /*      $Id: tbl_html.c,v 1.38 2021/09/09 16:52:52 schwarze Exp $ */
   2 /*
   3  * Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
   4  * Copyright (c) 2014,2015,2017,2018,2021 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 "roff.h"
  29 #include "tbl.h"
  30 #include "out.h"
  31 #include "html.h"
  32
  33 static  void     html_tblopen(struct html *, const struct tbl_span *);
  34 static  size_t   html_tbl_len(size_t, void *);
  35 static  size_t   html_tbl_strlen(const char *, void *);
  36 static  size_t   html_tbl_sulen(const struct roffsu *, void *);
  37
  38
  39 static size_t
  40 html_tbl_len(size_t sz, void *arg)
  41 {
  42         return sz;
  43 }
  44
  45 static size_t
  46 html_tbl_strlen(const char *p, void *arg)
  47 {
  48         return strlen(p);
  49 }
  50
  51 static size_t
  52 html_tbl_sulen(const struct roffsu *su, void *arg)
  53 {
  54         if (su->scale < 0.0)
  55                 return 0;
  56
  57         switch (su->unit) {
  58         case SCALE_FS:  /* 2^16 basic units */
  59                 return su->scale * 65536.0 / 24.0;
  60         case SCALE_IN:  /* 10 characters per inch */
  61                 return su->scale * 10.0;
  62         case SCALE_CM:  /* 2.54 cm per inch */
  63                 return su->scale * 10.0 / 2.54;
  64         case SCALE_PC:  /* 6 pica per inch */
  65         case SCALE_VS:
  66                 return su->scale * 10.0 / 6.0;
  67         case SCALE_EN:
  68         case SCALE_EM:
  69                 return su->scale;
  70         case SCALE_PT:  /* 12 points per pica */
  71                 return su->scale * 10.0 / 6.0 / 12.0;
  72         case SCALE_BU:  /* 24 basic units per character */
  73                 return su->scale / 24.0;
  74         case SCALE_MM:  /* 1/1000 inch */
  75                 return su->scale / 100.0;
  76         default:
  77                 abort();
  78         }
  79 }
  80
  81 static void
  82 html_tblopen(struct html *h, const struct tbl_span *sp)
  83 {
  84         html_close_paragraph(h);
  85         if (h->tbl.cols == NULL) {
  86                 h->tbl.len = html_tbl_len;
  87                 h->tbl.slen = html_tbl_strlen;
  88                 h->tbl.sulen = html_tbl_sulen;
  89                 tblcalc(&h->tbl, sp, 0, 0);
  90         }
  91         assert(NULL == h->tblt);
  92         h->tblt = print_otag(h, TAG_TABLE, "c?ss", "tbl",
  93             "border",
  94                 sp->opts->opts & TBL_OPT_ALLBOX ? "1" : NULL,
  95             "border-style",
  96                 sp->opts->opts & TBL_OPT_DBOX ? "double" :
  97                 sp->opts->opts & TBL_OPT_BOX ? "solid" : NULL,
  98             "border-top-style",
  99                 sp->pos == TBL_SPAN_DHORIZ ? "double" :
 100                 sp->pos == TBL_SPAN_HORIZ ? "solid" : NULL);
 101 }
 102
 103 void
 104 print_tblclose(struct html *h)
 105 {
 106
 107         assert(h->tblt);
 108         print_tagq(h, h->tblt);
 109         h->tblt = NULL;
 110 }
 111
 112 void
 113 print_tbl(struct html *h, const struct tbl_span *sp)
 114 {
 115         const struct tbl_dat    *dp;
 116         const struct tbl_cell   *cp;
 117         const struct tbl_span   *psp;
 118         const struct roffcol    *col;
 119         struct tag              *tt;
 120         const char              *hspans, *vspans, *halign, *valign;
 121         const char              *bborder, *lborder, *rborder;
 122         const char              *ccp;
 123         char                     hbuf[4], vbuf[4];
 124         size_t                   sz;
 125         enum mandoc_esc          save_font;
 126         int                      i;
 127
 128         if (h->tblt == NULL)
 129                 html_tblopen(h, sp);
 130
 131         /*
 132          * Horizontal lines spanning the whole table
 133          * are handled by previous or following table rows.
 134          */
 135
 136         if (sp->pos != TBL_SPAN_DATA)
 137                 return;
 138
 139         /* Inhibit printing of spaces: we do padding ourselves. */
 140
 141         h->flags |= HTML_NONOSPACE;
 142         h->flags |= HTML_NOSPACE;
 143
 144         /* Draw a vertical line left of this row? */
 145
 146         switch (sp->layout->vert) {
 147         case 2:
 148                 lborder = "double";
 149                 break;
 150         case 1:
 151                 lborder = "solid";
 152                 break;
 153         default:
 154                 lborder = NULL;
 155                 break;
 156         }
 157
 158         /* Draw a horizontal line below this row? */
 159
 160         bborder = NULL;
 161         if ((psp = sp->next) != NULL) {
 162                 switch (psp->pos) {
 163                 case TBL_SPAN_DHORIZ:
 164                         bborder = "double";
 165                         break;
 166                 case TBL_SPAN_HORIZ:
 167                         bborder = "solid";
 168                         break;
 169                 default:
 170                         break;
 171                 }
 172         }
 173
 174         tt = print_otag(h, TAG_TR, "ss",
 175             "border-left-style", lborder,
 176             "border-bottom-style", bborder);
 177
 178         for (dp = sp->first; dp != NULL; dp = dp->next) {
 179                 print_stagq(h, tt);
 180
 181                 /*
 182                  * Do not generate <td> elements for continuations
 183                  * of spanned cells.  Larger <td> elements covering
 184                  * this space were already generated earlier.
 185                  */
 186
 187                 cp = dp->layout;
 188                 if (cp->pos == TBL_CELL_SPAN || cp->pos == TBL_CELL_DOWN ||
 189                     (dp->string != NULL && strcmp(dp->string, "\\^") == 0))
 190                         continue;
 191
 192                 /* Determine the attribute values. */
 193
 194                 if (dp->hspans > 0) {
 195                         (void)snprintf(hbuf, sizeof(hbuf),
 196                             "%d", dp->hspans + 1);
 197                         hspans = hbuf;
 198                 } else
 199                         hspans = NULL;
 200                 if (dp->vspans > 0) {
 201                         (void)snprintf(vbuf, sizeof(vbuf),
 202                             "%d", dp->vspans + 1);
 203                         vspans = vbuf;
 204                 } else
 205                         vspans = NULL;
 206
 207                 switch (cp->pos) {
 208                 case TBL_CELL_CENTRE:
 209                         halign = "center";
 210                         break;
 211                 case TBL_CELL_RIGHT:
 212                 case TBL_CELL_NUMBER:
 213                         halign = "right";
 214                         break;
 215                 default:
 216                         halign = NULL;
 217                         break;
 218                 }
 219                 if (cp->flags & TBL_CELL_TALIGN)
 220                         valign = "top";
 221                 else if (cp->flags & TBL_CELL_BALIGN)
 222                         valign = "bottom";
 223                 else
 224                         valign = NULL;
 225
 226                 for (i = dp->hspans; i > 0; i--)
 227                         cp = cp->next;
 228                 switch (cp->vert) {
 229                 case 2:
 230                         rborder = "double";
 231                         break;
 232                 case 1:
 233                         rborder = "solid";
 234                         break;
 235                 default:
 236                         rborder = NULL;
 237                         break;
 238                 }
 239
 240                 /* Print the element and the attributes. */
 241
 242                 print_otag(h, TAG_TD, "??sss",
 243                     "colspan", hspans, "rowspan", vspans,
 244                     "vertical-align", valign,
 245                     "text-align", halign,
 246                     "border-right-style", rborder);
 247                 if (dp->layout->pos == TBL_CELL_HORIZ ||
 248                     dp->layout->pos == TBL_CELL_DHORIZ ||
 249                     dp->pos == TBL_DATA_HORIZ ||
 250                     dp->pos == TBL_DATA_DHORIZ)
 251                         print_otag(h, TAG_HR, "");
 252                 else if (dp->string != NULL) {
 253                         save_font = h->metac;
 254                         html_setfont(h, dp->layout->font);
 255                         if (dp->layout->pos == TBL_CELL_LONG)
 256                                 print_text(h, "\\[u2003]");  /* em space */
 257                         print_text(h, dp->string);
 258                         if (dp->layout->pos == TBL_CELL_NUMBER) {
 259                                 col = h->tbl.cols + dp->layout->col;
 260                                 if (col->decimal < col->nwidth) {
 261                                         if ((ccp = strrchr(dp->string,
 262                                             sp->opts->decimal)) == NULL) {
 263                                                 /* Punctuation space. */
 264                                                 print_text(h, "\\[u2008]");
 265                                                 ccp = strchr(dp->string, '\0');
 266                                         } else
 267                                                 ccp++;
 268                                         sz = col->nwidth - col->decimal;
 269                                         while (--sz > 0) {
 270                                                 if (*ccp == '\0')
 271                                                         /* Figure space. */
 272                                                         print_text(h,
 273                                                             "\\[u2007]");
 274                                                 else
 275                                                         ccp++;
 276                                         }
 277                                 }
 278                         }
 279                         html_setfont(h, save_font);
 280                 }
 281         }
 282
 283         print_tagq(h, tt);
 284
 285         h->flags &= ~HTML_NONOSPACE;
 286
 287         if (sp->next == NULL) {
 288                 assert(h->tbl.cols);
 289                 free(h->tbl.cols);
 290                 h->tbl.cols = NULL;
 291                 print_tblclose(h);
 292         }
 293 }