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

Annotation of mandoc/tbl_html.c, Revision 1.23

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

CVSweb