[BACK]Return to tbl_html.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / mandoc

Annotation of mandoc/tbl_html.c, Revision 1.41

1.41    ! schwarze    1: /* $Id: tbl_html.c,v 1.40 2022/04/14 16:43:44 schwarze Exp $ */
1.1       kristaps    2: /*
1.41    ! schwarze    3:  * Copyright (c) 2014, 2015, 2017, 2018, 2021, 2022
        !             4:  *               Ingo Schwarze <schwarze@openbsd.org>
1.9       schwarze    5:  * Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
1.1       kristaps    6:  *
                      7:  * Permission to use, copy, modify, and distribute this software for any
                      8:  * purpose with or without fee is hereby granted, provided that the above
                      9:  * copyright notice and this permission notice appear in all copies.
                     10:  *
                     11:  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
                     12:  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
                     13:  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
                     14:  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
                     15:  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
                     16:  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
                     17:  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
                     18:  */
                     19: #include "config.h"
1.12      schwarze   20:
                     21: #include <sys/types.h>
1.1       kristaps   22:
                     23: #include <assert.h>
                     24: #include <stdio.h>
                     25: #include <stdlib.h>
                     26: #include <string.h>
                     27:
1.40      schwarze   28: #if DEBUG_MEMORY
                     29: #include "mandoc_dbg.h"
                     30: #endif
1.31      schwarze   31: #include "mandoc.h"
1.33      schwarze   32: #include "roff.h"
1.30      schwarze   33: #include "tbl.h"
1.1       kristaps   34: #include "out.h"
                     35: #include "html.h"
                     36:
1.7       kristaps   37: static void     html_tblopen(struct html *, const struct tbl_span *);
1.4       kristaps   38: static size_t   html_tbl_len(size_t, void *);
                     39: static size_t   html_tbl_strlen(const char *, void *);
1.21      schwarze   40: static size_t   html_tbl_sulen(const struct roffsu *, void *);
1.4       kristaps   41:
1.11      schwarze   42:
1.4       kristaps   43: static size_t
                     44: html_tbl_len(size_t sz, void *arg)
                     45: {
1.17      schwarze   46:        return sz;
1.4       kristaps   47: }
                     48:
                     49: static size_t
                     50: html_tbl_strlen(const char *p, void *arg)
                     51: {
1.21      schwarze   52:        return strlen(p);
                     53: }
1.4       kristaps   54:
1.21      schwarze   55: static size_t
                     56: html_tbl_sulen(const struct roffsu *su, void *arg)
                     57: {
1.23      schwarze   58:        if (su->scale < 0.0)
                     59:                return 0;
                     60:
1.21      schwarze   61:        switch (su->unit) {
                     62:        case SCALE_FS:  /* 2^16 basic units */
                     63:                return su->scale * 65536.0 / 24.0;
                     64:        case SCALE_IN:  /* 10 characters per inch */
                     65:                return su->scale * 10.0;
                     66:        case SCALE_CM:  /* 2.54 cm per inch */
                     67:                return su->scale * 10.0 / 2.54;
                     68:        case SCALE_PC:  /* 6 pica per inch */
                     69:        case SCALE_VS:
                     70:                return su->scale * 10.0 / 6.0;
                     71:        case SCALE_EN:
                     72:        case SCALE_EM:
                     73:                return su->scale;
                     74:        case SCALE_PT:  /* 12 points per pica */
                     75:                return su->scale * 10.0 / 6.0 / 12.0;
                     76:        case SCALE_BU:  /* 24 basic units per character */
                     77:                return su->scale / 24.0;
                     78:        case SCALE_MM:  /* 1/1000 inch */
                     79:                return su->scale / 100.0;
                     80:        default:
                     81:                abort();
                     82:        }
1.4       kristaps   83: }
                     84:
1.7       kristaps   85: static void
                     86: html_tblopen(struct html *h, const struct tbl_span *sp)
                     87: {
1.32      schwarze   88:        html_close_paragraph(h);
1.16      schwarze   89:        if (h->tbl.cols == NULL) {
1.7       kristaps   90:                h->tbl.len = html_tbl_len;
                     91:                h->tbl.slen = html_tbl_strlen;
1.21      schwarze   92:                h->tbl.sulen = html_tbl_sulen;
1.22      schwarze   93:                tblcalc(&h->tbl, sp, 0, 0);
1.7       kristaps   94:        }
                     95:        assert(NULL == h->tblt);
1.29      schwarze   96:        h->tblt = print_otag(h, TAG_TABLE, "c?ss", "tbl",
                     97:            "border",
                     98:                sp->opts->opts & TBL_OPT_ALLBOX ? "1" : NULL,
                     99:            "border-style",
                    100:                sp->opts->opts & TBL_OPT_DBOX ? "double" :
                    101:                sp->opts->opts & TBL_OPT_BOX ? "solid" : NULL,
                    102:            "border-top-style",
                    103:                sp->pos == TBL_SPAN_DHORIZ ? "double" :
                    104:                sp->pos == TBL_SPAN_HORIZ ? "solid" : NULL);
1.7       kristaps  105: }
                    106:
                    107: void
                    108: print_tblclose(struct html *h)
                    109: {
                    110:
                    111:        assert(h->tblt);
                    112:        print_tagq(h, h->tblt);
                    113:        h->tblt = NULL;
                    114: }
                    115:
1.1       kristaps  116: void
                    117: print_tbl(struct html *h, const struct tbl_span *sp)
                    118: {
1.26      schwarze  119:        const struct tbl_dat    *dp;
1.29      schwarze  120:        const struct tbl_cell   *cp;
                    121:        const struct tbl_span   *psp;
1.38      schwarze  122:        const struct roffcol    *col;
1.26      schwarze  123:        struct tag              *tt;
                    124:        const char              *hspans, *vspans, *halign, *valign;
1.29      schwarze  125:        const char              *bborder, *lborder, *rborder;
1.38      schwarze  126:        const char              *ccp;
1.26      schwarze  127:        char                     hbuf[4], vbuf[4];
1.38      schwarze  128:        size_t                   sz;
1.34      schwarze  129:        enum mandoc_esc          save_font;
1.29      schwarze  130:        int                      i;
1.1       kristaps  131:
1.14      schwarze  132:        if (h->tblt == NULL)
1.7       kristaps  133:                html_tblopen(h, sp);
                    134:
1.29      schwarze  135:        /*
                    136:         * Horizontal lines spanning the whole table
                    137:         * are handled by previous or following table rows.
                    138:         */
                    139:
                    140:        if (sp->pos != TBL_SPAN_DATA)
1.41    ! schwarze  141:                goto out;
1.29      schwarze  142:
                    143:        /* Inhibit printing of spaces: we do padding ourselves. */
1.7       kristaps  144:
1.1       kristaps  145:        h->flags |= HTML_NONOSPACE;
                    146:        h->flags |= HTML_NOSPACE;
                    147:
1.29      schwarze  148:        /* Draw a vertical line left of this row? */
1.4       kristaps  149:
1.29      schwarze  150:        switch (sp->layout->vert) {
                    151:        case 2:
                    152:                lborder = "double";
                    153:                break;
                    154:        case 1:
                    155:                lborder = "solid";
1.5       kristaps  156:                break;
                    157:        default:
1.29      schwarze  158:                lborder = NULL;
                    159:                break;
                    160:        }
1.27      schwarze  161:
1.29      schwarze  162:        /* Draw a horizontal line below this row? */
                    163:
                    164:        bborder = NULL;
                    165:        if ((psp = sp->next) != NULL) {
                    166:                switch (psp->pos) {
                    167:                case TBL_SPAN_DHORIZ:
                    168:                        bborder = "double";
                    169:                        break;
                    170:                case TBL_SPAN_HORIZ:
                    171:                        bborder = "solid";
                    172:                        break;
                    173:                default:
                    174:                        break;
                    175:                }
                    176:        }
                    177:
                    178:        tt = print_otag(h, TAG_TR, "ss",
                    179:            "border-left-style", lborder,
                    180:            "border-bottom-style", bborder);
                    181:
                    182:        for (dp = sp->first; dp != NULL; dp = dp->next) {
                    183:                print_stagq(h, tt);
                    184:
                    185:                /*
                    186:                 * Do not generate <td> elements for continuations
                    187:                 * of spanned cells.  Larger <td> elements covering
                    188:                 * this space were already generated earlier.
                    189:                 */
                    190:
                    191:                cp = dp->layout;
                    192:                if (cp->pos == TBL_CELL_SPAN || cp->pos == TBL_CELL_DOWN ||
                    193:                    (dp->string != NULL && strcmp(dp->string, "\\^") == 0))
                    194:                        continue;
                    195:
                    196:                /* Determine the attribute values. */
                    197:
                    198:                if (dp->hspans > 0) {
                    199:                        (void)snprintf(hbuf, sizeof(hbuf),
                    200:                            "%d", dp->hspans + 1);
                    201:                        hspans = hbuf;
                    202:                } else
                    203:                        hspans = NULL;
                    204:                if (dp->vspans > 0) {
                    205:                        (void)snprintf(vbuf, sizeof(vbuf),
                    206:                            "%d", dp->vspans + 1);
                    207:                        vspans = vbuf;
                    208:                } else
                    209:                        vspans = NULL;
                    210:
                    211:                switch (cp->pos) {
                    212:                case TBL_CELL_CENTRE:
                    213:                        halign = "center";
                    214:                        break;
                    215:                case TBL_CELL_RIGHT:
                    216:                case TBL_CELL_NUMBER:
                    217:                        halign = "right";
                    218:                        break;
                    219:                default:
                    220:                        halign = NULL;
                    221:                        break;
1.1       kristaps  222:                }
1.29      schwarze  223:                if (cp->flags & TBL_CELL_TALIGN)
                    224:                        valign = "top";
                    225:                else if (cp->flags & TBL_CELL_BALIGN)
                    226:                        valign = "bottom";
                    227:                else
                    228:                        valign = NULL;
                    229:
                    230:                for (i = dp->hspans; i > 0; i--)
                    231:                        cp = cp->next;
                    232:                switch (cp->vert) {
                    233:                case 2:
                    234:                        rborder = "double";
                    235:                        break;
                    236:                case 1:
                    237:                        rborder = "solid";
                    238:                        break;
                    239:                default:
                    240:                        rborder = NULL;
                    241:                        break;
                    242:                }
                    243:
                    244:                /* Print the element and the attributes. */
                    245:
                    246:                print_otag(h, TAG_TD, "??sss",
                    247:                    "colspan", hspans, "rowspan", vspans,
                    248:                    "vertical-align", valign,
                    249:                    "text-align", halign,
                    250:                    "border-right-style", rborder);
1.37      schwarze  251:                if (dp->layout->pos == TBL_CELL_HORIZ ||
                    252:                    dp->layout->pos == TBL_CELL_DHORIZ ||
                    253:                    dp->pos == TBL_DATA_HORIZ ||
1.39      schwarze  254:                    dp->pos == TBL_DATA_NHORIZ ||
                    255:                    dp->pos == TBL_DATA_DHORIZ ||
                    256:                    dp->pos == TBL_DATA_NDHORIZ)
1.37      schwarze  257:                        print_otag(h, TAG_HR, "");
                    258:                else if (dp->string != NULL) {
1.34      schwarze  259:                        save_font = h->metac;
1.36      schwarze  260:                        html_setfont(h, dp->layout->font);
1.35      schwarze  261:                        if (dp->layout->pos == TBL_CELL_LONG)
                    262:                                print_text(h, "\\[u2003]");  /* em space */
1.29      schwarze  263:                        print_text(h, dp->string);
1.38      schwarze  264:                        if (dp->layout->pos == TBL_CELL_NUMBER) {
                    265:                                col = h->tbl.cols + dp->layout->col;
                    266:                                if (col->decimal < col->nwidth) {
                    267:                                        if ((ccp = strrchr(dp->string,
                    268:                                            sp->opts->decimal)) == NULL) {
                    269:                                                /* Punctuation space. */
                    270:                                                print_text(h, "\\[u2008]");
                    271:                                                ccp = strchr(dp->string, '\0');
                    272:                                        } else
                    273:                                                ccp++;
                    274:                                        sz = col->nwidth - col->decimal;
                    275:                                        while (--sz > 0) {
                    276:                                                if (*ccp == '\0')
                    277:                                                        /* Figure space. */
                    278:                                                        print_text(h,
                    279:                                                            "\\[u2007]");
                    280:                                                else
                    281:                                                        ccp++;
                    282:                                        }
                    283:                                }
                    284:                        }
1.34      schwarze  285:                        html_setfont(h, save_font);
                    286:                }
1.5       kristaps  287:        }
1.4       kristaps  288:
1.7       kristaps  289:        print_tagq(h, tt);
                    290:
1.1       kristaps  291:        h->flags &= ~HTML_NONOSPACE;
1.4       kristaps  292:
1.41    ! schwarze  293: out:
1.16      schwarze  294:        if (sp->next == NULL) {
1.4       kristaps  295:                assert(h->tbl.cols);
                    296:                free(h->tbl.cols);
                    297:                h->tbl.cols = NULL;
1.7       kristaps  298:                print_tblclose(h);
1.4       kristaps  299:        }
1.1       kristaps  300: }

CVSweb