1 |
|
|
/* $OpenBSD: tbl_html.c,v 1.18 2017/07/31 16:14:04 schwarze Exp $ */ |
2 |
|
|
/* |
3 |
|
|
* Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
4 |
|
|
* Copyright (c) 2014, 2015, 2017 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 "out.h" |
27 |
|
|
#include "html.h" |
28 |
|
|
|
29 |
|
|
static void html_tblopen(struct html *, const struct tbl_span *); |
30 |
|
|
static size_t html_tbl_len(size_t, void *); |
31 |
|
|
static size_t html_tbl_strlen(const char *, void *); |
32 |
|
|
static size_t html_tbl_sulen(const struct roffsu *, void *); |
33 |
|
|
|
34 |
|
|
|
35 |
|
|
static size_t |
36 |
|
|
html_tbl_len(size_t sz, void *arg) |
37 |
|
|
{ |
38 |
|
|
return sz; |
39 |
|
|
} |
40 |
|
|
|
41 |
|
|
static size_t |
42 |
|
|
html_tbl_strlen(const char *p, void *arg) |
43 |
|
|
{ |
44 |
|
|
return strlen(p); |
45 |
|
|
} |
46 |
|
|
|
47 |
|
|
static size_t |
48 |
|
|
html_tbl_sulen(const struct roffsu *su, void *arg) |
49 |
|
|
{ |
50 |
|
|
if (su->scale < 0.0) |
51 |
|
|
return 0; |
52 |
|
|
|
53 |
|
|
switch (su->unit) { |
54 |
|
|
case SCALE_FS: /* 2^16 basic units */ |
55 |
|
|
return su->scale * 65536.0 / 24.0; |
56 |
|
|
case SCALE_IN: /* 10 characters per inch */ |
57 |
|
|
return su->scale * 10.0; |
58 |
|
|
case SCALE_CM: /* 2.54 cm per inch */ |
59 |
|
|
return su->scale * 10.0 / 2.54; |
60 |
|
|
case SCALE_PC: /* 6 pica per inch */ |
61 |
|
|
case SCALE_VS: |
62 |
|
|
return su->scale * 10.0 / 6.0; |
63 |
|
|
case SCALE_EN: |
64 |
|
|
case SCALE_EM: |
65 |
|
|
return su->scale; |
66 |
|
|
case SCALE_PT: /* 12 points per pica */ |
67 |
|
|
return su->scale * 10.0 / 6.0 / 12.0; |
68 |
|
|
case SCALE_BU: /* 24 basic units per character */ |
69 |
|
|
return su->scale / 24.0; |
70 |
|
|
case SCALE_MM: /* 1/1000 inch */ |
71 |
|
|
return su->scale / 100.0; |
72 |
|
|
default: |
73 |
|
|
abort(); |
74 |
|
|
} |
75 |
|
|
} |
76 |
|
|
|
77 |
|
|
static void |
78 |
|
|
html_tblopen(struct html *h, const struct tbl_span *sp) |
79 |
|
|
{ |
80 |
|
|
struct tag *t; |
81 |
|
|
int ic; |
82 |
|
|
|
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 |
|
|
|
90 |
|
|
assert(NULL == h->tblt); |
91 |
|
|
h->tblt = print_otag(h, TAG_TABLE, "c", "tbl"); |
92 |
|
|
|
93 |
|
|
t = print_otag(h, TAG_COLGROUP, ""); |
94 |
|
|
for (ic = 0; ic < sp->opts->cols; ic++) |
95 |
|
|
print_otag(h, TAG_COL, "shw", h->tbl.cols[ic].width); |
96 |
|
|
print_tagq(h, t); |
97 |
|
|
} |
98 |
|
|
|
99 |
|
|
void |
100 |
|
|
print_tblclose(struct html *h) |
101 |
|
|
{ |
102 |
|
|
|
103 |
|
|
assert(h->tblt); |
104 |
|
|
print_tagq(h, h->tblt); |
105 |
|
|
h->tblt = NULL; |
106 |
|
|
} |
107 |
|
|
|
108 |
|
|
void |
109 |
|
|
print_tbl(struct html *h, const struct tbl_span *sp) |
110 |
|
|
{ |
111 |
|
|
const struct tbl_dat *dp; |
112 |
|
|
struct tag *tt; |
113 |
|
|
int ic; |
114 |
|
|
|
115 |
|
|
/* Inhibit printing of spaces: we do padding ourselves. */ |
116 |
|
|
|
117 |
|
|
if (h->tblt == NULL) |
118 |
|
|
html_tblopen(h, sp); |
119 |
|
|
|
120 |
|
|
assert(h->tblt); |
121 |
|
|
|
122 |
|
|
h->flags |= HTML_NONOSPACE; |
123 |
|
|
h->flags |= HTML_NOSPACE; |
124 |
|
|
|
125 |
|
|
tt = print_otag(h, TAG_TR, ""); |
126 |
|
|
|
127 |
|
|
switch (sp->pos) { |
128 |
|
|
case TBL_SPAN_HORIZ: |
129 |
|
|
case TBL_SPAN_DHORIZ: |
130 |
|
|
print_otag(h, TAG_TD, "?", "colspan", "0"); |
131 |
|
|
break; |
132 |
|
|
default: |
133 |
|
|
dp = sp->first; |
134 |
|
|
for (ic = 0; ic < sp->opts->cols; ic++) { |
135 |
|
|
print_stagq(h, tt); |
136 |
|
|
print_otag(h, TAG_TD, ""); |
137 |
|
|
|
138 |
|
|
if (dp == NULL || dp->layout->col > ic) |
139 |
|
|
continue; |
140 |
|
|
if (dp->layout->pos != TBL_CELL_DOWN) |
141 |
|
|
if (dp->string != NULL) |
142 |
|
|
print_text(h, dp->string); |
143 |
|
|
dp = dp->next; |
144 |
|
|
} |
145 |
|
|
break; |
146 |
|
|
} |
147 |
|
|
|
148 |
|
|
print_tagq(h, tt); |
149 |
|
|
|
150 |
|
|
h->flags &= ~HTML_NONOSPACE; |
151 |
|
|
|
152 |
|
|
if (sp->next == NULL) { |
153 |
|
|
assert(h->tbl.cols); |
154 |
|
|
free(h->tbl.cols); |
155 |
|
|
h->tbl.cols = NULL; |
156 |
|
|
print_tblclose(h); |
157 |
|
|
} |
158 |
|
|
|
159 |
|
|
} |