1 /* $Id: tbl_term.c,v 1.40 2015/03/06 15:48:53 schwarze Exp $ */
3 * Copyright (c) 2009, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4 * Copyright (c) 2011, 2012, 2014, 2015 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>
31 static size_t term_tbl_len(size_t, void *);
32 static size_t term_tbl_strlen(const char *, void *);
33 static void tbl_char(struct termp *, char, size_t);
34 static void tbl_data(struct termp *, const struct tbl_opts *,
35 const struct tbl_dat *,
36 const struct roffcol *);
37 static void tbl_literal(struct termp *, const struct tbl_dat *,
38 const struct roffcol *);
39 static void tbl_number(struct termp *, const struct tbl_opts *,
40 const struct tbl_dat *,
41 const struct roffcol *);
42 static void tbl_hrule(struct termp *, const struct tbl_span *, int);
43 static void tbl_word(struct termp *, const struct tbl_dat *);
47 term_tbl_strlen(const char *p, void *arg)
50 return(term_strlen((const struct termp *)arg, p));
54 term_tbl_len(size_t sz, void *arg)
57 return(term_len((const struct termp *)arg, sz));
61 term_tbl(struct termp *tp, const struct tbl_span *sp)
63 const struct tbl_cell *cp;
64 const struct tbl_dat *dp;
66 size_t rmargin, maxrmargin, tsz;
67 int ic, horiz, spans, vert;
69 rmargin = tp->rmargin;
70 maxrmargin = tp->maxrmargin;
72 tp->rmargin = tp->maxrmargin = TERM_MAXMARGIN;
74 /* Inhibit printing of spaces: we do padding ourselves. */
76 tp->flags |= TERMP_NONOSPACE;
77 tp->flags |= TERMP_NOSPACE;
80 * The first time we're invoked for a given table block,
81 * calculate the table widths and decimal positions.
84 if (tp->tbl.cols == NULL) {
85 tp->tbl.len = term_tbl_len;
86 tp->tbl.slen = term_tbl_strlen;
89 tblcalc(&tp->tbl, sp, rmargin - tp->offset);
91 /* Center the table as a whole. */
94 if (sp->opts->opts & TBL_OPT_CENTRE) {
95 tsz = sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX)
96 ? 2 : !!sp->opts->lvert + !!sp->opts->rvert;
97 for (ic = 0; ic < sp->opts->cols; ic++)
98 tsz += tp->tbl.cols[ic].width + 3;
100 if (offset + tsz > rmargin)
102 tp->offset = (offset + rmargin > tsz) ?
103 (offset + rmargin - tsz) / 2 : 0;
106 /* Horizontal frame at the start of boxed tables. */
108 if (sp->opts->opts & TBL_OPT_DBOX)
109 tbl_hrule(tp, sp, 2);
110 if (sp->opts->opts & (TBL_OPT_DBOX | TBL_OPT_BOX))
111 tbl_hrule(tp, sp, 1);
114 /* Vertical frame at the start of each row. */
116 horiz = sp->pos == TBL_SPAN_HORIZ || sp->pos == TBL_SPAN_DHORIZ;
118 if (sp->layout->vert ||
119 (sp->prev != NULL && sp->prev->layout->vert) ||
120 sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX))
121 term_word(tp, horiz ? "+" : "|");
122 else if (sp->opts->lvert)
123 tbl_char(tp, horiz ? '-' : ASCII_NBRSP, 1);
126 * Now print the actual data itself depending on the span type.
127 * Match data cells to column numbers.
130 if (sp->pos == TBL_SPAN_DATA) {
131 cp = sp->layout->first;
134 for (ic = 0; ic < sp->opts->cols; ic++) {
137 * Remeber whether we need a vertical bar
141 vert = cp == NULL ? 0 : cp->vert;
144 * Print the data and advance to the next cell.
148 tbl_data(tp, sp->opts, dp, tp->tbl.cols + ic);
159 * Separate columns, except in the middle
160 * of spans and after the last cell.
163 if (ic + 1 == sp->opts->cols || spans)
166 tbl_char(tp, ASCII_NBRSP, 1);
168 tbl_char(tp, '|', vert);
170 tbl_char(tp, ASCII_NBRSP, 2 - vert);
173 tbl_hrule(tp, sp, 0);
175 /* Vertical frame at the end of each row. */
177 if (sp->layout->last->vert ||
178 (sp->prev != NULL && sp->prev->layout->last->vert) ||
179 (sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX)))
180 term_word(tp, horiz ? "+" : " |");
181 else if (sp->opts->rvert)
182 tbl_char(tp, horiz ? '-' : ASCII_NBRSP, 1);
186 * If we're the last row, clean up after ourselves: clear the
187 * existing table configuration and set it to NULL.
190 if (sp->next == NULL) {
191 if (sp->opts->opts & (TBL_OPT_DBOX | TBL_OPT_BOX)) {
192 tbl_hrule(tp, sp, 1);
195 if (sp->opts->opts & TBL_OPT_DBOX) {
196 tbl_hrule(tp, sp, 2);
199 assert(tp->tbl.cols);
205 tp->flags &= ~TERMP_NONOSPACE;
206 tp->rmargin = rmargin;
207 tp->maxrmargin = maxrmargin;
211 * Kinds of horizontal rulers:
212 * 0: inside the table (single or double line with crossings)
213 * 1: inner frame (single line with crossings and ends)
214 * 2: outer frame (single line without crossings with ends)
217 tbl_hrule(struct termp *tp, const struct tbl_span *sp, int kind)
219 const struct tbl_cell *c1, *c2;
223 line = (kind == 0 && TBL_SPAN_DHORIZ == sp->pos) ? '=' : '-';
224 cross = (kind < 2) ? '+' : '-';
228 c1 = sp->layout->first;
229 c2 = sp->prev == NULL ? NULL : sp->prev->layout->first;
233 tbl_char(tp, line, tp->tbl.cols[c1->col].width + 1);
235 if ((c1 = c1->next) == NULL)
243 tbl_char(tp, cross, vert);
245 tbl_char(tp, line, 2 - vert);
254 tbl_data(struct termp *tp, const struct tbl_opts *opts,
255 const struct tbl_dat *dp,
256 const struct roffcol *col)
260 tbl_char(tp, ASCII_NBRSP, col->width);
266 tbl_char(tp, ASCII_NBRSP, col->width);
270 case TBL_DATA_NHORIZ:
271 tbl_char(tp, '-', col->width);
273 case TBL_DATA_NDHORIZ:
275 case TBL_DATA_DHORIZ:
276 tbl_char(tp, '=', col->width);
282 switch (dp->layout->pos) {
284 tbl_char(tp, '-', col->width);
286 case TBL_CELL_DHORIZ:
287 tbl_char(tp, '=', col->width);
291 case TBL_CELL_CENTRE:
296 tbl_literal(tp, dp, col);
298 case TBL_CELL_NUMBER:
299 tbl_number(tp, opts, dp, col);
302 tbl_char(tp, ASCII_NBRSP, col->width);
311 tbl_char(struct termp *tp, char c, size_t len)
319 sz = term_strlen(tp, cp);
321 for (i = 0; i < len; i += sz)
326 tbl_literal(struct termp *tp, const struct tbl_dat *dp,
327 const struct roffcol *col)
329 size_t len, padl, padr, width;
333 len = term_strlen(tp, dp->string);
335 ic = dp->layout->col;
338 width += tp->tbl.cols[++ic].width + 3;
340 padr = width > len ? width - len : 0;
343 switch (dp->layout->pos) {
345 padl = term_len(tp, 1);
346 padr = padr > padl ? padr - padl : 0;
348 case TBL_CELL_CENTRE:
362 tbl_char(tp, ASCII_NBRSP, padl);
364 tbl_char(tp, ASCII_NBRSP, padr);
368 tbl_number(struct termp *tp, const struct tbl_opts *opts,
369 const struct tbl_dat *dp,
370 const struct roffcol *col)
374 size_t sz, psz, ssz, d, padl;
378 * See calc_data_number(). Left-pad by taking the offset of our
379 * and the maximum decimal; right-pad by the remaining amount.
384 sz = term_strlen(tp, dp->string);
386 buf[0] = opts->decimal;
389 psz = term_strlen(tp, buf);
391 if ((cp = strrchr(dp->string, opts->decimal)) != NULL) {
392 for (ssz = 0, i = 0; cp != &dp->string[i]; i++) {
393 buf[0] = dp->string[i];
394 ssz += term_strlen(tp, buf);
400 if (col->decimal > d && col->width > sz) {
401 padl = col->decimal - d;
402 if (padl + sz > col->width)
403 padl = col->width - sz;
404 tbl_char(tp, ASCII_NBRSP, padl);
408 if (col->width > sz + padl)
409 tbl_char(tp, ASCII_NBRSP, col->width - sz - padl);
413 tbl_word(struct termp *tp, const struct tbl_dat *dp)
417 prev_font = tp->fonti;
418 if (dp->layout->flags & TBL_CELL_BOLD)
419 term_fontpush(tp, TERMFONT_BOLD);
420 else if (dp->layout->flags & TBL_CELL_ITALIC)
421 term_fontpush(tp, TERMFONT_UNDER);
423 term_word(tp, dp->string);
425 term_fontpopq(tp, prev_font);