xref: /dragonfly/contrib/mdocml/tbl_html.c (revision 99db7d0e)
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
html_tbl_len(size_t sz,void * arg)40 html_tbl_len(size_t sz, void *arg)
41 {
42 	return sz;
43 }
44 
45 static size_t
html_tbl_strlen(const char * p,void * arg)46 html_tbl_strlen(const char *p, void *arg)
47 {
48 	return strlen(p);
49 }
50 
51 static size_t
html_tbl_sulen(const struct roffsu * su,void * arg)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
html_tblopen(struct html * h,const struct tbl_span * sp)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
print_tblclose(struct html * h)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
print_tbl(struct html * h,const struct tbl_span * sp)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 }
294