1 /* $OpenBSD: tbl_html.c,v 1.28 2019/03/17 18:20:07 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 <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 int i; 121 122 if (h->tblt == NULL) 123 html_tblopen(h, sp); 124 125 /* 126 * Horizontal lines spanning the whole table 127 * are handled by previous or following table rows. 128 */ 129 130 if (sp->pos != TBL_SPAN_DATA) 131 return; 132 133 /* Inhibit printing of spaces: we do padding ourselves. */ 134 135 h->flags |= HTML_NONOSPACE; 136 h->flags |= HTML_NOSPACE; 137 138 /* Draw a vertical line left of this row? */ 139 140 switch (sp->layout->vert) { 141 case 2: 142 lborder = "double"; 143 break; 144 case 1: 145 lborder = "solid"; 146 break; 147 default: 148 lborder = NULL; 149 break; 150 } 151 152 /* Draw a horizontal line below this row? */ 153 154 bborder = NULL; 155 if ((psp = sp->next) != NULL) { 156 switch (psp->pos) { 157 case TBL_SPAN_DHORIZ: 158 bborder = "double"; 159 break; 160 case TBL_SPAN_HORIZ: 161 bborder = "solid"; 162 break; 163 default: 164 break; 165 } 166 } 167 168 tt = print_otag(h, TAG_TR, "ss", 169 "border-left-style", lborder, 170 "border-bottom-style", bborder); 171 172 for (dp = sp->first; dp != NULL; dp = dp->next) { 173 print_stagq(h, tt); 174 175 /* 176 * Do not generate <td> elements for continuations 177 * of spanned cells. Larger <td> elements covering 178 * this space were already generated earlier. 179 */ 180 181 cp = dp->layout; 182 if (cp->pos == TBL_CELL_SPAN || cp->pos == TBL_CELL_DOWN || 183 (dp->string != NULL && strcmp(dp->string, "\\^") == 0)) 184 continue; 185 186 /* Determine the attribute values. */ 187 188 if (dp->hspans > 0) { 189 (void)snprintf(hbuf, sizeof(hbuf), 190 "%d", dp->hspans + 1); 191 hspans = hbuf; 192 } else 193 hspans = NULL; 194 if (dp->vspans > 0) { 195 (void)snprintf(vbuf, sizeof(vbuf), 196 "%d", dp->vspans + 1); 197 vspans = vbuf; 198 } else 199 vspans = NULL; 200 201 switch (cp->pos) { 202 case TBL_CELL_CENTRE: 203 halign = "center"; 204 break; 205 case TBL_CELL_RIGHT: 206 case TBL_CELL_NUMBER: 207 halign = "right"; 208 break; 209 default: 210 halign = NULL; 211 break; 212 } 213 if (cp->flags & TBL_CELL_TALIGN) 214 valign = "top"; 215 else if (cp->flags & TBL_CELL_BALIGN) 216 valign = "bottom"; 217 else 218 valign = NULL; 219 220 for (i = dp->hspans; i > 0; i--) 221 cp = cp->next; 222 switch (cp->vert) { 223 case 2: 224 rborder = "double"; 225 break; 226 case 1: 227 rborder = "solid"; 228 break; 229 default: 230 rborder = NULL; 231 break; 232 } 233 234 /* Print the element and the attributes. */ 235 236 print_otag(h, TAG_TD, "??sss", 237 "colspan", hspans, "rowspan", vspans, 238 "vertical-align", valign, 239 "text-align", halign, 240 "border-right-style", rborder); 241 if (dp->string != NULL) 242 print_text(h, dp->string); 243 } 244 245 print_tagq(h, tt); 246 247 h->flags &= ~HTML_NONOSPACE; 248 249 if (sp->next == NULL) { 250 assert(h->tbl.cols); 251 free(h->tbl.cols); 252 h->tbl.cols = NULL; 253 print_tblclose(h); 254 } 255 } 256