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

Annotation of mandoc/tbl_layout.c, Revision 1.32

1.32    ! schwarze    1: /*     $Id: tbl_layout.c,v 1.31 2015/01/14 22:44:55 schwarze Exp $ */
1.1       kristaps    2: /*
1.22      schwarze    3:  * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
1.32    ! schwarze    4:  * Copyright (c) 2012, 2014, 2015 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:  */
1.18      kristaps   18: #include "config.h"
1.27      schwarze   19:
                     20: #include <sys/types.h>
1.18      kristaps   21:
1.1       kristaps   22: #include <ctype.h>
                     23: #include <stdlib.h>
                     24: #include <string.h>
1.4       kristaps   25: #include <time.h>
1.1       kristaps   26:
                     27: #include "mandoc.h"
1.24      schwarze   28: #include "mandoc_aux.h"
1.1       kristaps   29: #include "libmandoc.h"
                     30: #include "libroff.h"
                     31:
                     32: struct tbl_phrase {
                     33:        char             name;
                     34:        enum tbl_cellt   key;
                     35: };
                     36:
1.32    ! schwarze   37: static const struct tbl_phrase keys[] = {
1.1       kristaps   38:        { 'c',           TBL_CELL_CENTRE },
                     39:        { 'r',           TBL_CELL_RIGHT },
                     40:        { 'l',           TBL_CELL_LEFT },
                     41:        { 'n',           TBL_CELL_NUMBER },
                     42:        { 's',           TBL_CELL_SPAN },
                     43:        { 'a',           TBL_CELL_LONG },
                     44:        { '^',           TBL_CELL_DOWN },
                     45:        { '-',           TBL_CELL_HORIZ },
                     46:        { '_',           TBL_CELL_HORIZ },
1.23      schwarze   47:        { '=',           TBL_CELL_DHORIZ }
1.1       kristaps   48: };
                     49:
1.32    ! schwarze   50: #define KEYS_MAX ((int)(sizeof(keys)/sizeof(keys[0])))
        !            51:
        !            52: static void             mods(struct tbl_node *, struct tbl_cell *,
1.5       kristaps   53:                                int, const char *, int *);
1.32    ! schwarze   54: static void             cell(struct tbl_node *, struct tbl_row *,
1.5       kristaps   55:                                int, const char *, int *);
1.23      schwarze   56: static struct tbl_cell *cell_alloc(struct tbl_node *, struct tbl_row *,
                     57:                                enum tbl_cellt, int vert);
1.1       kristaps   58:
1.26      schwarze   59:
1.32    ! schwarze   60: static void
1.26      schwarze   61: mods(struct tbl_node *tbl, struct tbl_cell *cp,
1.1       kristaps   62:                int ln, const char *p, int *pos)
                     63: {
1.32    ! schwarze   64:        char            *endptr;
1.20      kristaps   65:
1.32    ! schwarze   66: mod:
        !            67:        while (p[*pos] == ' ' || p[*pos] == '\t')
        !            68:                (*pos)++;
1.20      kristaps   69:
1.32    ! schwarze   70:        /* Row delimiters and cell specifiers end modifier lists. */
1.1       kristaps   71:
1.32    ! schwarze   72:        if (strchr(".,-=^_ACLNRSaclnrs|", p[*pos]) != NULL)
        !            73:                return;
1.12      kristaps   74:
                     75:        /* Throw away parenthesised expression. */
                     76:
                     77:        if ('(' == p[*pos]) {
                     78:                (*pos)++;
                     79:                while (p[*pos] && ')' != p[*pos])
                     80:                        (*pos)++;
                     81:                if (')' == p[*pos]) {
                     82:                        (*pos)++;
                     83:                        goto mod;
                     84:                }
1.32    ! schwarze   85:                mandoc_msg(MANDOCERR_TBLLAYOUT_PAR, tbl->parse,
1.26      schwarze   86:                    ln, *pos, NULL);
1.32    ! schwarze   87:                return;
1.1       kristaps   88:        }
                     89:
                     90:        /* Parse numerical spacing from modifier string. */
                     91:
                     92:        if (isdigit((unsigned char)p[*pos])) {
1.32    ! schwarze   93:                cp->spacing = strtoull(p + *pos, &endptr, 10);
        !            94:                *pos = endptr - p;
1.1       kristaps   95:                goto mod;
1.26      schwarze   96:        }
1.1       kristaps   97:
1.13      joerg      98:        switch (tolower((unsigned char)p[(*pos)++])) {
1.32    ! schwarze   99:        case 'b':
        !           100:                /* FALLTHROUGH */
        !           101:        case 'i':
        !           102:                /* FALLTHROUGH */
        !           103:        case 'r':
        !           104:                (*pos)--;
        !           105:                break;
        !           106:        case 'd':
        !           107:                cp->flags |= TBL_CELL_BALIGN;
1.1       kristaps  108:                goto mod;
1.26      schwarze  109:        case 'e':
1.1       kristaps  110:                cp->flags |= TBL_CELL_EQUAL;
                    111:                goto mod;
1.32    ! schwarze  112:        case 'f':
        !           113:                break;
        !           114:        case 'm':
        !           115:                mandoc_msg(MANDOCERR_TBLLAYOUT_MOD, tbl->parse,
        !           116:                    ln, *pos, "m");
        !           117:                goto mod;
        !           118:        case 'p':
        !           119:                /* FALLTHROUGH */
        !           120:        case 'v':
        !           121:                if (p[*pos] == '-' || p[*pos] == '+')
        !           122:                        (*pos)++;
        !           123:                while (isdigit((unsigned char)p[*pos]))
        !           124:                        (*pos)++;
        !           125:                goto mod;
1.26      schwarze  126:        case 't':
1.1       kristaps  127:                cp->flags |= TBL_CELL_TALIGN;
                    128:                goto mod;
1.32    ! schwarze  129:        case 'u':
        !           130:                cp->flags |= TBL_CELL_UP;
1.10      schwarze  131:                goto mod;
1.26      schwarze  132:        case 'w':  /* XXX for now, ignore minimal column width */
1.29      schwarze  133:                goto mod;
                    134:        case 'x':
                    135:                cp->flags |= TBL_CELL_WMAX;
1.1       kristaps  136:                goto mod;
1.32    ! schwarze  137:        case 'z':
        !           138:                cp->flags |= TBL_CELL_WIGN;
        !           139:                goto mod;
1.1       kristaps  140:        default:
1.32    ! schwarze  141:                mandoc_vmsg(MANDOCERR_TBLLAYOUT_CHAR, tbl->parse,
        !           142:                    ln, *pos - 1, "%c", p[*pos - 1]);
        !           143:                goto mod;
1.1       kristaps  144:        }
                    145:
1.13      joerg     146:        switch (tolower((unsigned char)p[(*pos)++])) {
1.26      schwarze  147:        case '3':
1.21      kristaps  148:                /* FALLTHROUGH */
1.26      schwarze  149:        case 'b':
1.1       kristaps  150:                cp->flags |= TBL_CELL_BOLD;
                    151:                goto mod;
1.26      schwarze  152:        case '2':
1.21      kristaps  153:                /* FALLTHROUGH */
1.26      schwarze  154:        case 'i':
1.1       kristaps  155:                cp->flags |= TBL_CELL_ITALIC;
1.21      kristaps  156:                goto mod;
1.26      schwarze  157:        case '1':
1.21      kristaps  158:                /* FALLTHROUGH */
1.26      schwarze  159:        case 'r':
1.1       kristaps  160:                goto mod;
                    161:        default:
1.28      schwarze  162:                mandoc_vmsg(MANDOCERR_FT_BAD, tbl->parse,
                    163:                    ln, *pos - 1, "TS f%c", p[*pos - 1]);
                    164:                goto mod;
1.1       kristaps  165:        }
                    166: }
                    167:
1.32    ! schwarze  168: static void
1.26      schwarze  169: cell(struct tbl_node *tbl, struct tbl_row *rp,
1.1       kristaps  170:                int ln, const char *p, int *pos)
                    171: {
1.23      schwarze  172:        int              vert, i;
1.1       kristaps  173:        enum tbl_cellt   c;
                    174:
1.23      schwarze  175:        /* Handle vertical lines. */
                    176:
1.32    ! schwarze  177:        vert = 0;
        !           178: again:
        !           179:        while (p[*pos] == ' ' || p[*pos] == '\t' || p[*pos] == '|') {
        !           180:                if (p[*pos] == '|') {
        !           181:                        if (vert < 2)
        !           182:                                vert++;
        !           183:                        else
        !           184:                                mandoc_msg(MANDOCERR_TBLLAYOUT_VERT,
        !           185:                                    tbl->parse, ln, *pos, NULL);
        !           186:                }
1.23      schwarze  187:                (*pos)++;
1.32    ! schwarze  188:        }
1.25      schwarze  189:
                    190:        /* Handle trailing vertical lines */
                    191:
                    192:        if ('.' == p[*pos] || '\0' == p[*pos]) {
                    193:                rp->vert = vert;
1.32    ! schwarze  194:                return;
1.25      schwarze  195:        }
1.23      schwarze  196:
                    197:        /* Parse the column position (`c', `l', `r', ...). */
1.1       kristaps  198:
                    199:        for (i = 0; i < KEYS_MAX; i++)
1.13      joerg     200:                if (tolower((unsigned char)p[*pos]) == keys[i].name)
1.1       kristaps  201:                        break;
                    202:
1.32    ! schwarze  203:        if (i == KEYS_MAX) {
        !           204:                mandoc_vmsg(MANDOCERR_TBLLAYOUT_CHAR, tbl->parse,
        !           205:                    ln, *pos, "%c", p[*pos]);
        !           206:                (*pos)++;
        !           207:                goto again;
1.1       kristaps  208:        }
1.11      kristaps  209:        c = keys[i].key;
                    210:
1.32    ! schwarze  211:        /* Special cases of spanners. */
1.16      kristaps  212:
1.32    ! schwarze  213:        if (c == TBL_CELL_SPAN) {
        !           214:                if (rp->last == NULL)
        !           215:                        mandoc_msg(MANDOCERR_TBLLAYOUT_SPAN,
        !           216:                            tbl->parse, ln, *pos, NULL);
        !           217:                else if (rp->last->pos == TBL_CELL_HORIZ ||
        !           218:                    rp->last->pos == TBL_CELL_DHORIZ)
        !           219:                        c = rp->last->pos;
        !           220:        } else if (c == TBL_CELL_DOWN && rp == tbl->first_row)
        !           221:                mandoc_msg(MANDOCERR_TBLLAYOUT_DOWN,
        !           222:                    tbl->parse, ln, *pos, NULL);
1.11      kristaps  223:
1.1       kristaps  224:        (*pos)++;
                    225:
                    226:        /* Allocate cell then parse its modifiers. */
                    227:
1.32    ! schwarze  228:        mods(tbl, cell_alloc(tbl, rp, c, vert), ln, p, pos);
1.1       kristaps  229: }
                    230:
1.31      schwarze  231: void
1.30      schwarze  232: tbl_layout(struct tbl_node *tbl, int ln, const char *p)
1.1       kristaps  233: {
                    234:        struct tbl_row  *rp;
1.30      schwarze  235:        int              pos;
1.1       kristaps  236:
1.30      schwarze  237:        pos = 0;
                    238:        rp = NULL;
1.1       kristaps  239:
1.30      schwarze  240:        for (;;) {
                    241:                /* Skip whitespace before and after each cell. */
1.1       kristaps  242:
1.32    ! schwarze  243:                while (p[pos] == ' ' || p[pos] == '\t')
1.30      schwarze  244:                        pos++;
1.1       kristaps  245:
1.30      schwarze  246:                switch (p[pos]) {
                    247:                case ',':  /* Next row on this input line. */
                    248:                        pos++;
                    249:                        rp = NULL;
                    250:                        continue;
                    251:                case '\0':  /* Next row on next input line. */
1.31      schwarze  252:                        return;
1.30      schwarze  253:                case '.':  /* End of layout. */
                    254:                        pos++;
                    255:                        tbl->part = TBL_PART_DATA;
                    256:                        if (tbl->first_row != NULL)
1.31      schwarze  257:                                return;
1.32    ! schwarze  258:                        mandoc_msg(MANDOCERR_TBLLAYOUT_NONE,
1.30      schwarze  259:                            tbl->parse, ln, pos, NULL);
                    260:                        rp = mandoc_calloc(1, sizeof(*rp));
                    261:                        cell_alloc(tbl, rp, TBL_CELL_LEFT, 0);
                    262:                        tbl->first_row = tbl->last_row = rp;
1.31      schwarze  263:                        return;
1.30      schwarze  264:                default:  /* Cell. */
                    265:                        break;
                    266:                }
                    267:
                    268:                if (rp == NULL) {  /* First cell on this line. */
                    269:                        rp = mandoc_calloc(1, sizeof(*rp));
                    270:                        if (tbl->last_row)
                    271:                                tbl->last_row->next = rp;
                    272:                        else
                    273:                                tbl->first_row = rp;
                    274:                        tbl->last_row = rp;
                    275:                }
1.32    ! schwarze  276:                cell(tbl, rp, ln, p, &pos);
1.1       kristaps  277:        }
                    278: }
1.5       kristaps  279:
                    280: static struct tbl_cell *
1.23      schwarze  281: cell_alloc(struct tbl_node *tbl, struct tbl_row *rp, enum tbl_cellt pos,
                    282:                int vert)
1.5       kristaps  283: {
                    284:        struct tbl_cell *p, *pp;
                    285:        struct tbl_head *h, *hp;
                    286:
                    287:        p = mandoc_calloc(1, sizeof(struct tbl_cell));
                    288:
                    289:        if (NULL != (pp = rp->last)) {
1.23      schwarze  290:                pp->next = p;
                    291:                h = pp->head->next;
                    292:        } else {
                    293:                rp->first = p;
                    294:                h = tbl->first_head;
                    295:        }
                    296:        rp->last = p;
1.5       kristaps  297:
                    298:        p->pos = pos;
1.23      schwarze  299:        p->vert = vert;
1.5       kristaps  300:
1.23      schwarze  301:        /* Re-use header. */
1.5       kristaps  302:
                    303:        if (h) {
1.23      schwarze  304:                p->head = h;
                    305:                return(p);
1.5       kristaps  306:        }
                    307:
                    308:        hp = mandoc_calloc(1, sizeof(struct tbl_head));
1.9       kristaps  309:        hp->ident = tbl->opts.cols++;
1.23      schwarze  310:        hp->vert = vert;
1.5       kristaps  311:
                    312:        if (tbl->last_head) {
                    313:                hp->prev = tbl->last_head;
                    314:                tbl->last_head->next = hp;
                    315:        } else
1.23      schwarze  316:                tbl->first_head = hp;
                    317:        tbl->last_head = hp;
1.5       kristaps  318:
                    319:        p->head = hp;
                    320:        return(p);
                    321: }

CVSweb