1 /* $OpenBSD: tbl_html.c,v 1.30 2021/05/16 23:16:22 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 <sys/types.h> 19 20 #include <assert.h> 21 #include <stdio.h> 22 #include <stdlib.h> 23 #include <string.h> 24 25 #include "mandoc.h" 26 #include "roff.h" 27 #include "tbl.h" 28 #include "out.h" 29 #include "html.h" 30 31 static void html_tblopen(struct html *, const struct tbl_span *); 32 static size_t html_tbl_len(size_t, void *); 33 static size_t html_tbl_strlen(const char *, void *); 34 static size_t html_tbl_sulen(const struct roffsu *, void *); 35 36 37 static size_t 38 html_tbl_len(size_t sz, void *arg) 39 { 40 return sz; 41 } 42 43 static size_t 44 html_tbl_strlen(const char *p, void *arg) 45 { 46 return strlen(p); 47 } 48 49 static size_t 50 html_tbl_sulen(const struct roffsu *su, void *arg) 51 { 52 if (su->scale < 0.0) 53 return 0; 54 55 switch (su->unit) { 56 case SCALE_FS: /* 2^16 basic units */ 57 return su->scale * 65536.0 / 24.0; 58 case SCALE_IN: /* 10 characters per inch */ 59 return su->scale * 10.0; 60 case SCALE_CM: /* 2.54 cm per inch */ 61 return su->scale * 10.0 / 2.54; 62 case SCALE_PC: /* 6 pica per inch */ 63 case SCALE_VS: 64 return su->scale * 10.0 / 6.0; 65 case SCALE_EN: 66 case SCALE_EM: 67 return su->scale; 68 case SCALE_PT: /* 12 points per pica */ 69 return su->scale * 10.0 / 6.0 / 12.0; 70 case SCALE_BU: /* 24 basic units per character */ 71 return su->scale / 24.0; 72 case SCALE_MM: /* 1/1000 inch */ 73 return su->scale / 100.0; 74 default: 75 abort(); 76 } 77 } 78 79 static void 80 html_tblopen(struct html *h, const struct tbl_span *sp) 81 { 82 html_close_paragraph(h); 83 if (h->tbl.cols == NULL) { 84 h->tbl.len = html_tbl_len; 85 h->tbl.slen = html_tbl_strlen; 86 h->tbl.sulen = html_tbl_sulen; 87 tblcalc(&h->tbl, sp, 0, 0); 88 } 89 assert(NULL == h->tblt); 90 h->tblt = print_otag(h, TAG_TABLE, "c?ss", "tbl", 91 "border", 92 sp->opts->opts & TBL_OPT_ALLBOX ? "1" : NULL, 93 "border-style", 94 sp->opts->opts & TBL_OPT_DBOX ? "double" : 95 sp->opts->opts & TBL_OPT_BOX ? "solid" : NULL, 96 "border-top-style", 97 sp->pos == TBL_SPAN_DHORIZ ? "double" : 98 sp->pos == TBL_SPAN_HORIZ ? "solid" : NULL); 99 } 100 101 void 102 print_tblclose(struct html *h) 103 { 104 105 assert(h->tblt); 106 print_tagq(h, h->tblt); 107 h->tblt = NULL; 108 } 109 110 void 111 print_tbl(struct html *h, const struct tbl_span *sp) 112 { 113 const struct tbl_dat *dp; 114 const struct tbl_cell *cp; 115 const struct tbl_span *psp; 116 struct tag *tt; 117 const char *hspans, *vspans, *halign, *valign; 118 const char *bborder, *lborder, *rborder; 119 char hbuf[4], vbuf[4]; 120 enum mandoc_esc save_font; 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 save_font = h->metac; 244 if (dp->layout->flags & TBL_CELL_BOLD) 245 html_setfont(h, ESCAPE_FONTBOLD); 246 else if (dp->layout->flags & TBL_CELL_ITALIC) 247 html_setfont(h, ESCAPE_FONTITALIC); 248 if (dp->layout->pos == TBL_CELL_LONG) 249 print_text(h, "\\[u2003]"); /* em space */ 250 print_text(h, dp->string); 251 html_setfont(h, save_font); 252 } 253 } 254 255 print_tagq(h, tt); 256 257 h->flags &= ~HTML_NONOSPACE; 258 259 if (sp->next == NULL) { 260 assert(h->tbl.cols); 261 free(h->tbl.cols); 262 h->tbl.cols = NULL; 263 print_tblclose(h); 264 } 265 } 266