1 /* $Id: tbl_term.c,v 1.68 2019/02/09 21:02:47 schwarze Exp $ */
3 * Copyright (c) 2009, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4 * Copyright (c) 2011-2019 Ingo Schwarze <schwarze@openbsd.org>
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.
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.
20 #include <sys/types.h>
33 #define IS_HORIZ(cp) ((cp)->pos == TBL_CELL_HORIZ || \
34 (cp)->pos == TBL_CELL_DHORIZ)
37 static size_t term_tbl_len(size_t, void *);
38 static size_t term_tbl_strlen(const char *, void *);
39 static size_t term_tbl_sulen(const struct roffsu
*, void *);
40 static void tbl_data(struct termp
*, const struct tbl_opts
*,
41 const struct tbl_cell
*,
42 const struct tbl_dat
*,
43 const struct roffcol
*);
44 static void tbl_direct_border(struct termp
*, int, size_t);
45 static void tbl_fill_border(struct termp
*, int, size_t);
46 static void tbl_fill_char(struct termp
*, char, size_t);
47 static void tbl_fill_string(struct termp
*, const char *, size_t);
48 static void tbl_hrule(struct termp
*, const struct tbl_span
*,
49 const struct tbl_span
*, int);
50 static void tbl_literal(struct termp
*, const struct tbl_dat
*,
51 const struct roffcol
*);
52 static void tbl_number(struct termp
*, const struct tbl_opts
*,
53 const struct tbl_dat
*,
54 const struct roffcol
*);
55 static void tbl_word(struct termp
*, const struct tbl_dat
*);
59 * The following border-character tables are indexed
60 * by ternary (3-based) numbers, as opposed to binary or decimal.
61 * Each ternary digit describes the line width in one direction:
62 * 0 means no line, 1 single or light line, 2 double or heavy line.
65 /* Positional values of the four directions. */
69 #define BUP (3 * 3 * 3)
70 #define BHORIZ (BLEFT + BRIGHT)
72 /* Code points to use for each combination of widths. */
73 static const int borders_utf8
[81] = {
74 0x0020, 0x2576, 0x257a, /* 000 right */
75 0x2577, 0x250c, 0x250d, /* 001 down */
76 0x257b, 0x250e, 0x250f, /* 002 */
77 0x2574, 0x2500, 0x257c, /* 010 left */
78 0x2510, 0x252c, 0x252e, /* 011 left down */
79 0x2512, 0x2530, 0x2532, /* 012 */
80 0x2578, 0x257e, 0x2501, /* 020 left */
81 0x2511, 0x252d, 0x252f, /* 021 left down */
82 0x2513, 0x2531, 0x2533, /* 022 */
83 0x2575, 0x2514, 0x2515, /* 100 up */
84 0x2502, 0x251c, 0x251d, /* 101 up down */
85 0x257d, 0x251f, 0x2522, /* 102 */
86 0x2518, 0x2534, 0x2536, /* 110 up left */
87 0x2524, 0x253c, 0x253e, /* 111 all */
88 0x2527, 0x2541, 0x2546, /* 112 */
89 0x2519, 0x2535, 0x2537, /* 120 up left */
90 0x2525, 0x253d, 0x253f, /* 121 all */
91 0x252a, 0x2545, 0x2548, /* 122 */
92 0x2579, 0x2516, 0x2517, /* 200 up */
93 0x257f, 0x251e, 0x2521, /* 201 up down */
94 0x2503, 0x2520, 0x2523, /* 202 */
95 0x251a, 0x2538, 0x253a, /* 210 up left */
96 0x2526, 0x2540, 0x2544, /* 211 all */
97 0x2528, 0x2542, 0x254a, /* 212 */
98 0x251b, 0x2539, 0x253b, /* 220 up left */
99 0x2529, 0x2543, 0x2547, /* 221 all */
100 0x252b, 0x2549, 0x254b, /* 222 */
103 /* ASCII approximations for these code points, compatible with groff. */
104 static const int borders_ascii
[81] = {
105 ' ', '-', '=', /* 000 right */
106 '|', '+', '+', /* 001 down */
107 '|', '+', '+', /* 002 */
108 '-', '-', '=', /* 010 left */
109 '+', '+', '+', /* 011 left down */
110 '+', '+', '+', /* 012 */
111 '=', '=', '=', /* 020 left */
112 '+', '+', '+', /* 021 left down */
113 '+', '+', '+', /* 022 */
114 '|', '+', '+', /* 100 up */
115 '|', '+', '+', /* 101 up down */
116 '|', '+', '+', /* 102 */
117 '+', '+', '+', /* 110 up left */
118 '+', '+', '+', /* 111 all */
119 '+', '+', '+', /* 112 */
120 '+', '+', '+', /* 120 up left */
121 '+', '+', '+', /* 121 all */
122 '+', '+', '+', /* 122 */
123 '|', '+', '+', /* 200 up */
124 '|', '+', '+', /* 201 up down */
125 '|', '+', '+', /* 202 */
126 '+', '+', '+', /* 210 up left */
127 '+', '+', '+', /* 211 all */
128 '+', '+', '+', /* 212 */
129 '+', '+', '+', /* 220 up left */
130 '+', '+', '+', /* 221 all */
131 '+', '+', '+', /* 222 */
134 /* Either of the above according to the selected output encoding. */
135 static const int *borders_locale
;
139 term_tbl_sulen(const struct roffsu
*su
, void *arg
)
143 i
= term_hen((const struct termp
*)arg
, su
);
144 return i
> 0 ? i
: 0;
148 term_tbl_strlen(const char *p
, void *arg
)
150 return term_strlen((const struct termp
*)arg
, p
);
154 term_tbl_len(size_t sz
, void *arg
)
156 return term_len((const struct termp
*)arg
, sz
);
161 term_tbl(struct termp
*tp
, const struct tbl_span
*sp
)
163 const struct tbl_cell
*cp
, *cpn
, *cpp
, *cps
;
164 const struct tbl_dat
*dp
;
165 static size_t offset
;
168 int hspans
, ic
, more
;
169 int dvert
, fc
, horiz
, lhori
, rhori
, uvert
;
171 /* Inhibit printing of spaces: we do padding ourselves. */
173 tp
->flags
|= TERMP_NOSPACE
| TERMP_NONOSPACE
;
174 save_offset
= tp
->tcol
->offset
;
177 * The first time we're invoked for a given table block,
178 * calculate the table widths and decimal positions.
181 if (tp
->tbl
.cols
== NULL
) {
182 borders_locale
= tp
->enc
== TERMENC_UTF8
?
183 borders_utf8
: borders_ascii
;
185 tp
->tbl
.len
= term_tbl_len
;
186 tp
->tbl
.slen
= term_tbl_strlen
;
187 tp
->tbl
.sulen
= term_tbl_sulen
;
190 tblcalc(&tp
->tbl
, sp
, tp
->tcol
->offset
, tp
->tcol
->rmargin
);
192 /* Tables leak .ta settings to subsequent text. */
194 term_tab_set(tp
, NULL
);
195 coloff
= sp
->opts
->opts
& (TBL_OPT_BOX
| TBL_OPT_DBOX
) ||
197 for (ic
= 0; ic
< sp
->opts
->cols
; ic
++) {
198 coloff
+= tp
->tbl
.cols
[ic
].width
;
199 term_tab_iset(coloff
);
200 coloff
+= tp
->tbl
.cols
[ic
].spacing
;
203 /* Center the table as a whole. */
205 offset
= tp
->tcol
->offset
;
206 if (sp
->opts
->opts
& TBL_OPT_CENTRE
) {
207 tsz
= sp
->opts
->opts
& (TBL_OPT_BOX
| TBL_OPT_DBOX
)
208 ? 2 : !!sp
->opts
->lvert
+ !!sp
->opts
->rvert
;
209 for (ic
= 0; ic
+ 1 < sp
->opts
->cols
; ic
++)
210 tsz
+= tp
->tbl
.cols
[ic
].width
+
211 tp
->tbl
.cols
[ic
].spacing
;
213 tsz
+= tp
->tbl
.cols
[sp
->opts
->cols
- 1].width
;
214 if (offset
+ tsz
> tp
->tcol
->rmargin
)
216 offset
= offset
+ tp
->tcol
->rmargin
> tsz
?
217 (offset
+ tp
->tcol
->rmargin
- tsz
) / 2 : 0;
218 tp
->tcol
->offset
= offset
;
221 /* Horizontal frame at the start of boxed tables. */
223 if (tp
->enc
== TERMENC_ASCII
&&
224 sp
->opts
->opts
& TBL_OPT_DBOX
)
225 tbl_hrule(tp
, NULL
, sp
, TBL_OPT_DBOX
);
226 if (sp
->opts
->opts
& (TBL_OPT_DBOX
| TBL_OPT_BOX
))
227 tbl_hrule(tp
, NULL
, sp
, TBL_OPT_BOX
);
230 /* Set up the columns. */
232 tp
->flags
|= TERMP_MULTICOL
;
233 tp
->tcol
->offset
= offset
;
237 case TBL_SPAN_DHORIZ
:
242 term_setcol(tp
, sp
->opts
->cols
+ 2);
243 coloff
= tp
->tcol
->offset
;
245 /* Set up a column for a left vertical frame. */
247 if (sp
->opts
->opts
& (TBL_OPT_BOX
| TBL_OPT_DBOX
) ||
250 tp
->tcol
->rmargin
= coloff
;
252 /* Set up the data columns. */
256 for (ic
= 0; ic
< sp
->opts
->cols
; ic
++) {
259 tp
->tcol
->offset
= coloff
;
261 coloff
+= tp
->tbl
.cols
[ic
].width
;
262 tp
->tcol
->rmargin
= coloff
;
263 if (ic
+ 1 < sp
->opts
->cols
)
264 coloff
+= tp
->tbl
.cols
[ic
].spacing
;
272 if (ic
|| sp
->layout
->first
->pos
!= TBL_CELL_SPAN
)
276 /* Set up a column for a right vertical frame. */
279 tp
->tcol
->offset
= coloff
+ 1;
280 tp
->tcol
->rmargin
= tp
->maxrmargin
;
282 /* Spans may have reduced the number of columns. */
284 tp
->lasttcol
= tp
->tcol
- tp
->tcols
;
286 /* Fill the buffers for all data columns. */
288 tp
->tcol
= tp
->tcols
;
289 cp
= cpn
= sp
->layout
->first
;
292 for (ic
= 0; ic
< sp
->opts
->cols
; ic
++) {
303 tbl_data(tp
, sp
->opts
, cp
, dp
, tp
->tbl
.cols
+ ic
);
307 if (cp
->pos
!= TBL_CELL_SPAN
)
314 /* Print the vertical frame at the start of each row. */
316 tp
->tcol
= tp
->tcols
;
317 uvert
= dvert
= sp
->opts
->opts
& TBL_OPT_DBOX
? 2 :
318 sp
->opts
->opts
& TBL_OPT_BOX
? 1 : 0;
319 if (sp
->pos
== TBL_SPAN_DATA
&& uvert
< sp
->layout
->vert
)
320 uvert
= dvert
= sp
->layout
->vert
;
321 if (sp
->next
!= NULL
&& sp
->next
->pos
== TBL_SPAN_DATA
&&
322 dvert
< sp
->next
->layout
->vert
)
323 dvert
= sp
->next
->layout
->vert
;
324 if (sp
->prev
!= NULL
&& uvert
< sp
->prev
->layout
->vert
&&
325 (horiz
|| (IS_HORIZ(sp
->layout
->first
) &&
326 !IS_HORIZ(sp
->prev
->layout
->first
))))
327 uvert
= sp
->prev
->layout
->vert
;
328 rhori
= sp
->pos
== TBL_SPAN_DHORIZ
||
329 (sp
->first
!= NULL
&& sp
->first
->pos
== TBL_DATA_DHORIZ
) ||
330 sp
->layout
->first
->pos
== TBL_CELL_DHORIZ
? 2 :
331 sp
->pos
== TBL_SPAN_HORIZ
||
332 (sp
->first
!= NULL
&& sp
->first
->pos
== TBL_DATA_HORIZ
) ||
333 sp
->layout
->first
->pos
== TBL_CELL_HORIZ
? 1 : 0;
334 fc
= BUP
* uvert
+ BDOWN
* dvert
+ BRIGHT
* rhori
;
335 if (uvert
> 0 || dvert
> 0 || (horiz
&& sp
->opts
->lvert
)) {
336 (*tp
->advance
)(tp
, tp
->tcols
->offset
);
337 tp
->viscol
= tp
->tcol
->offset
;
338 tbl_direct_border(tp
, fc
, 1);
341 /* Print the data cells. */
345 tbl_hrule(tp
, sp
->prev
, sp
, 0);
347 cp
= sp
->layout
->first
;
348 cpn
= sp
->next
== NULL
? NULL
:
349 sp
->next
->layout
->first
;
350 cpp
= sp
->prev
== NULL
? NULL
:
351 sp
->prev
->layout
->first
;
354 for (ic
= 0; ic
< sp
->opts
->cols
; ic
++) {
357 * Figure out whether to print a
358 * vertical line after this cell
359 * and advance to next layout cell.
362 uvert
= dvert
= fc
= 0;
365 while (cps
->next
!= NULL
&&
366 cps
->next
->pos
== TBL_CELL_SPAN
)
368 if (sp
->pos
== TBL_SPAN_DATA
)
369 uvert
= dvert
= cps
->vert
;
374 case TBL_CELL_DHORIZ
:
382 if (uvert
< cpp
->vert
&&
388 IS_HORIZ(cp
->next
) &&
389 !IS_HORIZ(cpp
->next
))))
393 if (sp
->opts
->opts
& TBL_OPT_ALLBOX
) {
401 (dvert
< cpn
->vert
&&
402 tp
->enc
== TERMENC_UTF8
))
407 lhori
= (cp
!= NULL
&&
408 cp
->pos
== TBL_CELL_DHORIZ
) ||
410 dp
->pos
== TBL_DATA_DHORIZ
) ? 2 :
412 cp
->pos
== TBL_CELL_HORIZ
) ||
414 dp
->pos
== TBL_DATA_HORIZ
) ? 1 : 0;
417 * Skip later cells in a span,
418 * figure out whether to start a span,
419 * and advance to next data cell.
429 if (ic
|| sp
->layout
->first
->pos
435 * Print one line of text in the cell
436 * and remember whether there is more.
440 if (tp
->tcol
->col
< tp
->tcol
->lastcol
)
442 if (tp
->tcol
->col
< tp
->tcol
->lastcol
)
446 * Vertical frames between data cells,
447 * but not after the last column.
451 ((uvert
== 0 && dvert
== 0 &&
452 cp
!= NULL
&& (cp
->next
== NULL
||
453 !IS_HORIZ(cp
->next
))) ||
455 tp
->tcols
+ tp
->lasttcol
)) {
461 if (tp
->viscol
< tp
->tcol
->rmargin
) {
462 (*tp
->advance
)(tp
, tp
->tcol
->rmargin
464 tp
->viscol
= tp
->tcol
->rmargin
;
466 while (tp
->viscol
< tp
->tcol
->rmargin
+
467 tp
->tbl
.cols
[ic
].spacing
/ 2)
468 tbl_direct_border(tp
,
471 if (tp
->tcol
+ 1 == tp
->tcols
+ tp
->lasttcol
)
477 rhori
= (cp
!= NULL
&&
478 cp
->pos
== TBL_CELL_DHORIZ
) ||
480 dp
->pos
== TBL_DATA_DHORIZ
) ? 2 :
482 cp
->pos
== TBL_CELL_HORIZ
) ||
484 dp
->pos
== TBL_DATA_HORIZ
) ? 1 : 0;
486 if (tp
->tbl
.cols
[ic
].spacing
)
487 tbl_direct_border(tp
,
488 BLEFT
* lhori
+ BRIGHT
* rhori
+
489 BUP
* uvert
+ BDOWN
* dvert
, 1);
491 if (tp
->enc
== TERMENC_UTF8
)
494 if (tp
->tbl
.cols
[ic
].spacing
> 2 &&
495 (uvert
> 1 || dvert
> 1 || rhori
))
496 tbl_direct_border(tp
,
499 BDOWN
* (dvert
> 1), 1);
503 /* Print the vertical frame at the end of each row. */
505 uvert
= dvert
= sp
->opts
->opts
& TBL_OPT_DBOX
? 2 :
506 sp
->opts
->opts
& TBL_OPT_BOX
? 1 : 0;
507 if (sp
->pos
== TBL_SPAN_DATA
&&
508 uvert
< sp
->layout
->last
->vert
&&
509 sp
->layout
->last
->col
+ 1 == sp
->opts
->cols
)
510 uvert
= dvert
= sp
->layout
->last
->vert
;
511 if (sp
->next
!= NULL
&&
512 dvert
< sp
->next
->layout
->last
->vert
&&
513 sp
->next
->layout
->last
->col
+ 1 == sp
->opts
->cols
)
514 dvert
= sp
->next
->layout
->last
->vert
;
515 if (sp
->prev
!= NULL
&&
516 uvert
< sp
->prev
->layout
->last
->vert
&&
517 sp
->prev
->layout
->last
->col
+ 1 == sp
->opts
->cols
&&
518 (horiz
|| (IS_HORIZ(sp
->layout
->last
) &&
519 !IS_HORIZ(sp
->prev
->layout
->last
))))
520 uvert
= sp
->prev
->layout
->last
->vert
;
521 lhori
= sp
->pos
== TBL_SPAN_DHORIZ
||
523 sp
->last
->pos
== TBL_DATA_DHORIZ
&&
524 sp
->last
->layout
->col
+ 1 == sp
->opts
->cols
) ||
525 (sp
->layout
->last
->pos
== TBL_CELL_DHORIZ
&&
526 sp
->layout
->last
->col
+ 1 == sp
->opts
->cols
) ? 2 :
527 sp
->pos
== TBL_SPAN_HORIZ
||
529 sp
->last
->pos
== TBL_DATA_HORIZ
&&
530 sp
->last
->layout
->col
+ 1 == sp
->opts
->cols
) ||
531 (sp
->layout
->last
->pos
== TBL_CELL_HORIZ
&&
532 sp
->layout
->last
->col
+ 1 == sp
->opts
->cols
) ? 1 : 0;
533 fc
= BUP
* uvert
+ BDOWN
* dvert
+ BLEFT
* lhori
;
534 if (uvert
> 0 || dvert
> 0 || (horiz
&& sp
->opts
->rvert
)) {
535 if (horiz
== 0 && (IS_HORIZ(sp
->layout
->last
) == 0 ||
536 sp
->layout
->last
->col
+ 1 < sp
->opts
->cols
)) {
539 tbl_direct_border(tp
,
541 } while (tp
->viscol
< tp
->tcol
->offset
);
543 tbl_direct_border(tp
, fc
, 1);
550 * Clean up after this row. If it is the last line
551 * of the table, print the box line and clean up
552 * column data; otherwise, print the allbox line.
556 tp
->flags
&= ~TERMP_MULTICOL
;
557 tp
->tcol
->rmargin
= tp
->maxrmargin
;
558 if (sp
->next
== NULL
) {
559 if (sp
->opts
->opts
& (TBL_OPT_DBOX
| TBL_OPT_BOX
)) {
560 tbl_hrule(tp
, sp
, NULL
, TBL_OPT_BOX
);
563 if (tp
->enc
== TERMENC_ASCII
&&
564 sp
->opts
->opts
& TBL_OPT_DBOX
) {
565 tbl_hrule(tp
, sp
, NULL
, TBL_OPT_DBOX
);
568 assert(tp
->tbl
.cols
);
571 } else if (horiz
== 0 && sp
->opts
->opts
& TBL_OPT_ALLBOX
&&
572 (sp
->next
== NULL
|| sp
->next
->pos
== TBL_SPAN_DATA
||
573 sp
->next
->next
!= NULL
))
574 tbl_hrule(tp
, sp
, sp
->next
, TBL_OPT_ALLBOX
);
576 tp
->tcol
->offset
= save_offset
;
577 tp
->flags
&= ~TERMP_NONOSPACE
;
581 tbl_hrule(struct termp
*tp
, const struct tbl_span
*spp
,
582 const struct tbl_span
*spn
, int flags
)
584 const struct tbl_cell
*cpp
; /* Layout cell above this line. */
585 const struct tbl_cell
*cpn
; /* Layout cell below this line. */
586 const struct tbl_dat
*dpn
; /* Data cell below this line. */
587 const struct roffcol
*col
; /* Contains width and spacing. */
588 int opts
; /* For the table as a whole. */
589 int bw
; /* Box line width. */
590 int hw
; /* Horizontal line width. */
591 int lw
, rw
; /* Left and right line widths. */
592 int uw
, dw
; /* Vertical line widths. */
594 cpp
= spp
== NULL
? NULL
: spp
->layout
->first
;
595 cpn
= spn
== NULL
? NULL
: spn
->layout
->first
;
598 if (spn
->pos
== TBL_SPAN_DATA
)
600 else if (spn
->next
!= NULL
)
601 dpn
= spn
->next
->first
;
603 opts
= spn
== NULL
? spp
->opts
->opts
: spn
->opts
->opts
;
604 bw
= opts
& TBL_OPT_DBOX
? (tp
->enc
== TERMENC_UTF8
? 2 : 1) :
605 opts
& (TBL_OPT_BOX
| TBL_OPT_ALLBOX
) ? 1 : 0;
606 hw
= flags
== TBL_OPT_DBOX
|| flags
== TBL_OPT_BOX
? bw
:
607 spn
->pos
== TBL_SPAN_DHORIZ
? 2 : 1;
609 /* Print the left end of the line. */
611 if (tp
->viscol
== 0) {
612 (*tp
->advance
)(tp
, tp
->tcols
->offset
);
613 tp
->viscol
= tp
->tcols
->offset
;
616 tbl_direct_border(tp
,
617 (spp
== NULL
? 0 : BUP
* bw
) +
618 (spn
== NULL
? 0 : BDOWN
* bw
) +
619 (spp
== NULL
|| cpn
== NULL
||
620 cpn
->pos
!= TBL_CELL_DOWN
? BRIGHT
* hw
: 0), 1);
623 col
= tp
->tbl
.cols
+ (cpn
== NULL
? cpp
->col
: cpn
->col
);
625 /* Print the horizontal line inside this column. */
627 lw
= cpp
== NULL
|| cpn
== NULL
||
628 (cpn
->pos
!= TBL_CELL_DOWN
&&
629 (dpn
== NULL
|| strcmp(dpn
->string
, "\\^") != 0))
631 tbl_direct_border(tp
, BHORIZ
* lw
,
632 col
->width
+ col
->spacing
/ 2);
635 * Figure out whether a vertical line is crossing
636 * at the end of this column,
637 * and advance to the next column.
642 if (flags
!= TBL_OPT_DBOX
) {
644 if (uw
== 0 && opts
& TBL_OPT_ALLBOX
)
650 if (flags
!= TBL_OPT_DBOX
) {
652 if (dw
== 0 && opts
& TBL_OPT_ALLBOX
)
656 while (dpn
!= NULL
&& dpn
->layout
!= cpn
)
659 if (cpp
== NULL
&& cpn
== NULL
)
662 /* Vertical lines do not cross spanned cells. */
664 if (cpp
!= NULL
&& cpp
->pos
== TBL_CELL_SPAN
)
666 if (cpn
!= NULL
&& cpn
->pos
== TBL_CELL_SPAN
)
669 /* The horizontal line inside the next column. */
671 rw
= cpp
== NULL
|| cpn
== NULL
||
672 (cpn
->pos
!= TBL_CELL_DOWN
&&
673 (dpn
== NULL
|| strcmp(dpn
->string
, "\\^") != 0))
676 /* The line crossing at the end of this column. */
679 tbl_direct_border(tp
, BLEFT
* lw
+
680 BRIGHT
* rw
+ BUP
* uw
+ BDOWN
* dw
, 1);
683 * In ASCII output, a crossing may print two characters.
686 if (tp
->enc
!= TERMENC_ASCII
|| (uw
< 2 && dw
< 2))
688 if (col
->spacing
> 2)
689 tbl_direct_border(tp
,
690 BHORIZ
* rw
+ BUP
* uw
+ BDOWN
* dw
, 1);
692 /* Padding before the start of the next column. */
694 if (col
->spacing
> 4)
695 tbl_direct_border(tp
,
696 BHORIZ
* rw
, (col
->spacing
- 3) / 2);
699 /* Print the right end of the line. */
702 tbl_direct_border(tp
,
703 (spp
== NULL
? 0 : BUP
* bw
) +
704 (spn
== NULL
? 0 : BDOWN
* bw
) +
705 (spp
== NULL
|| spn
== NULL
||
706 spn
->layout
->last
->pos
!= TBL_CELL_DOWN
?
714 tbl_data(struct termp
*tp
, const struct tbl_opts
*opts
,
715 const struct tbl_cell
*cp
, const struct tbl_dat
*dp
,
716 const struct roffcol
*col
)
720 tbl_fill_border(tp
, BHORIZ
, col
->width
);
722 case TBL_CELL_DHORIZ
:
723 tbl_fill_border(tp
, BHORIZ
* 2, col
->width
);
736 case TBL_DATA_NHORIZ
:
737 tbl_fill_border(tp
, BHORIZ
, col
->width
);
739 case TBL_DATA_NDHORIZ
:
740 case TBL_DATA_DHORIZ
:
741 tbl_fill_border(tp
, BHORIZ
* 2, col
->width
);
749 case TBL_CELL_CENTRE
:
752 tbl_literal(tp
, dp
, col
);
754 case TBL_CELL_NUMBER
:
755 tbl_number(tp
, opts
, dp
, col
);
766 tbl_fill_string(struct termp
*tp
, const char *cp
, size_t len
)
770 sz
= term_strlen(tp
, cp
);
771 for (i
= 0; i
< len
; i
+= sz
)
776 tbl_fill_char(struct termp
*tp
, char c
, size_t len
)
782 tbl_fill_string(tp
, cp
, len
);
786 tbl_fill_border(struct termp
*tp
, int c
, size_t len
)
790 if ((c
= borders_locale
[c
]) > 127) {
791 (void)snprintf(buf
, sizeof(buf
), "\\[u%04x]", c
);
792 tbl_fill_string(tp
, buf
, len
);
794 tbl_fill_char(tp
, c
, len
);
798 tbl_direct_border(struct termp
*tp
, int c
, size_t len
)
802 c
= borders_locale
[c
];
803 sz
= (*tp
->width
)(tp
, c
);
804 for (i
= 0; i
< len
; i
+= sz
) {
805 (*tp
->letter
)(tp
, c
);
811 tbl_literal(struct termp
*tp
, const struct tbl_dat
*dp
,
812 const struct roffcol
*col
)
814 size_t len
, padl
, padr
, width
;
818 len
= term_strlen(tp
, dp
->string
);
820 ic
= dp
->layout
->col
;
823 width
+= tp
->tbl
.cols
[++ic
].width
+ 3;
825 padr
= width
> len
? width
- len
: 0;
828 switch (dp
->layout
->pos
) {
830 padl
= term_len(tp
, 1);
831 padr
= padr
> padl
? padr
- padl
: 0;
833 case TBL_CELL_CENTRE
:
847 tbl_fill_char(tp
, ASCII_NBRSP
, padl
);
849 tbl_fill_char(tp
, ASCII_NBRSP
, padr
);
853 tbl_number(struct termp
*tp
, const struct tbl_opts
*opts
,
854 const struct tbl_dat
*dp
,
855 const struct roffcol
*col
)
857 const char *cp
, *lastdigit
, *lastpoint
;
858 size_t intsz
, padl
, totsz
;
862 * Almost the same code as in tblcalc_number():
863 * First find the position of the decimal point.
867 lastdigit
= lastpoint
= NULL
;
868 for (cp
= dp
->string
; cp
[0] != '\0'; cp
++) {
869 if (cp
[0] == '\\' && cp
[1] == '&') {
870 lastdigit
= lastpoint
= cp
;
872 } else if (cp
[0] == opts
->decimal
&&
873 (isdigit((unsigned char)cp
[1]) ||
874 (cp
> dp
->string
&& isdigit((unsigned char)cp
[-1]))))
876 else if (isdigit((unsigned char)cp
[0]))
880 /* Then measure both widths. */
883 totsz
= term_strlen(tp
, dp
->string
);
884 if (lastdigit
!= NULL
) {
885 if (lastpoint
== NULL
)
886 lastpoint
= lastdigit
+ 1;
889 for (cp
= dp
->string
; cp
< lastpoint
; cp
++) {
891 intsz
+= term_strlen(tp
, buf
);
895 * Pad left to match the decimal position,
896 * but avoid exceeding the total column width.
899 if (col
->decimal
> intsz
&& col
->width
> totsz
) {
900 padl
= col
->decimal
- intsz
;
901 if (padl
+ totsz
> col
->width
)
902 padl
= col
->width
- totsz
;
905 /* If it is not a number, simply center the string. */
907 } else if (col
->width
> totsz
)
908 padl
= (col
->width
- totsz
) / 2;
910 tbl_fill_char(tp
, ASCII_NBRSP
, padl
);
913 /* Pad right to fill the column. */
915 if (col
->width
> padl
+ totsz
)
916 tbl_fill_char(tp
, ASCII_NBRSP
, col
->width
- padl
- totsz
);
920 tbl_word(struct termp
*tp
, const struct tbl_dat
*dp
)
924 prev_font
= tp
->fonti
;
925 if (dp
->layout
->flags
& TBL_CELL_BOLD
)
926 term_fontpush(tp
, TERMFONT_BOLD
);
927 else if (dp
->layout
->flags
& TBL_CELL_ITALIC
)
928 term_fontpush(tp
, TERMFONT_UNDER
);
930 term_word(tp
, dp
->string
);
932 term_fontpopq(tp
, prev_font
);