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

Annotation of mandoc/tree.c, Revision 1.59

1.59    ! schwarze    1: /*     $Id: tree.c,v 1.58 2014/10/10 15:26:29 schwarze Exp $ */
1.1       kristaps    2: /*
1.58      schwarze    3:  * Copyright (c) 2008, 2009, 2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
1.51      schwarze    4:  * Copyright (c) 2013, 2014 Ingo Schwarze <schwarze@openbsd.org>
1.1       kristaps    5:  *
                      6:  * Permission to use, copy, modify, and distribute this software for any
1.12      kristaps    7:  * purpose with or without fee is hereby granted, provided that the above
                      8:  * copyright notice and this permission notice appear in all copies.
1.1       kristaps    9:  *
1.12      kristaps   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.
1.1       kristaps   17:  */
1.19      kristaps   18: #include "config.h"
1.54      schwarze   19:
                     20: #include <sys/types.h>
1.19      kristaps   21:
1.8       kristaps   22: #include <assert.h>
1.43      kristaps   23: #include <limits.h>
1.8       kristaps   24: #include <stdio.h>
1.1       kristaps   25: #include <stdlib.h>
1.17      kristaps   26: #include <time.h>
1.1       kristaps   27:
1.20      kristaps   28: #include "mandoc.h"
1.1       kristaps   29: #include "mdoc.h"
1.10      kristaps   30: #include "man.h"
1.16      kristaps   31: #include "main.h"
1.1       kristaps   32:
1.38      kristaps   33: static void    print_box(const struct eqn_box *, int);
                     34: static void    print_man(const struct man_node *, int);
1.11      kristaps   35: static void    print_mdoc(const struct mdoc_node *, int);
1.30      kristaps   36: static void    print_span(const struct tbl_span *, int);
1.8       kristaps   37:
                     38:
1.15      kristaps   39: void
1.11      kristaps   40: tree_mdoc(void *arg, const struct mdoc *mdoc)
1.8       kristaps   41: {
                     42:
1.11      kristaps   43:        print_mdoc(mdoc_node(mdoc), 0);
                     44: }
                     45:
1.15      kristaps   46: void
1.11      kristaps   47: tree_man(void *arg, const struct man *man)
                     48: {
                     49:
                     50:        print_man(man_node(man), 0);
1.8       kristaps   51: }
1.2       kristaps   52:
1.1       kristaps   53: static void
1.11      kristaps   54: print_mdoc(const struct mdoc_node *n, int indent)
1.1       kristaps   55: {
                     56:        const char       *p, *t;
                     57:        int               i, j;
1.48      schwarze   58:        size_t            argc;
1.8       kristaps   59:        struct mdoc_argv *argv;
1.1       kristaps   60:
                     61:        argv = NULL;
1.48      schwarze   62:        argc = 0;
1.38      kristaps   63:        t = p = NULL;
1.1       kristaps   64:
1.2       kristaps   65:        switch (n->type) {
1.52      schwarze   66:        case MDOC_ROOT:
1.2       kristaps   67:                t = "root";
                     68:                break;
1.52      schwarze   69:        case MDOC_BLOCK:
1.2       kristaps   70:                t = "block";
                     71:                break;
1.52      schwarze   72:        case MDOC_HEAD:
1.2       kristaps   73:                t = "block-head";
                     74:                break;
1.52      schwarze   75:        case MDOC_BODY:
1.23      schwarze   76:                if (n->end)
                     77:                        t = "body-end";
                     78:                else
                     79:                        t = "block-body";
1.2       kristaps   80:                break;
1.52      schwarze   81:        case MDOC_TAIL:
1.2       kristaps   82:                t = "block-tail";
                     83:                break;
1.52      schwarze   84:        case MDOC_ELEM:
1.2       kristaps   85:                t = "elem";
                     86:                break;
1.52      schwarze   87:        case MDOC_TEXT:
1.2       kristaps   88:                t = "text";
                     89:                break;
1.52      schwarze   90:        case MDOC_TBL:
1.59    ! schwarze   91:                break;
1.52      schwarze   92:        case MDOC_EQN:
1.59    ! schwarze   93:                t = "eqn";
1.33      kristaps   94:                break;
1.2       kristaps   95:        default:
                     96:                abort();
                     97:                /* NOTREACHED */
                     98:        }
1.1       kristaps   99:
                    100:        switch (n->type) {
1.52      schwarze  101:        case MDOC_TEXT:
1.8       kristaps  102:                p = n->string;
1.1       kristaps  103:                break;
1.52      schwarze  104:        case MDOC_BODY:
1.1       kristaps  105:                p = mdoc_macronames[n->tok];
                    106:                break;
1.52      schwarze  107:        case MDOC_HEAD:
1.1       kristaps  108:                p = mdoc_macronames[n->tok];
                    109:                break;
1.52      schwarze  110:        case MDOC_TAIL:
1.1       kristaps  111:                p = mdoc_macronames[n->tok];
                    112:                break;
1.52      schwarze  113:        case MDOC_ELEM:
1.1       kristaps  114:                p = mdoc_macronames[n->tok];
1.8       kristaps  115:                if (n->args) {
                    116:                        argv = n->args->argv;
                    117:                        argc = n->args->argc;
                    118:                }
1.1       kristaps  119:                break;
1.52      schwarze  120:        case MDOC_BLOCK:
1.1       kristaps  121:                p = mdoc_macronames[n->tok];
1.8       kristaps  122:                if (n->args) {
                    123:                        argv = n->args->argv;
                    124:                        argc = n->args->argc;
                    125:                }
1.1       kristaps  126:                break;
1.52      schwarze  127:        case MDOC_TBL:
1.59    ! schwarze  128:                break;
1.52      schwarze  129:        case MDOC_EQN:
1.59    ! schwarze  130:                p = "EQ";
1.33      kristaps  131:                break;
1.52      schwarze  132:        case MDOC_ROOT:
1.1       kristaps  133:                p = "root";
                    134:                break;
                    135:        default:
                    136:                abort();
                    137:                /* NOTREACHED */
                    138:        }
                    139:
1.26      kristaps  140:        if (n->span) {
1.38      kristaps  141:                assert(NULL == p && NULL == t);
1.30      kristaps  142:                print_span(n->span, indent);
1.26      kristaps  143:        } else {
1.30      kristaps  144:                for (i = 0; i < indent; i++)
                    145:                        putchar('\t');
                    146:
1.26      kristaps  147:                printf("%s (%s)", p, t);
                    148:
                    149:                for (i = 0; i < (int)argc; i++) {
                    150:                        printf(" -%s", mdoc_argnames[argv[i].arg]);
                    151:                        if (argv[i].sz > 0)
                    152:                                printf(" [");
                    153:                        for (j = 0; j < (int)argv[i].sz; j++)
                    154:                                printf(" [%s]", argv[i].value[j]);
                    155:                        if (argv[i].sz > 0)
                    156:                                printf(" ]");
                    157:                }
1.49      schwarze  158:
                    159:                putchar(' ');
                    160:                if (MDOC_LINE & n->flags)
                    161:                        putchar('*');
1.53      schwarze  162:                printf("%d:%d", n->line, n->pos + 1);
1.50      schwarze  163:                if (n->lastline != n->line)
                    164:                        printf("-%d", n->lastline);
                    165:                putchar('\n');
1.1       kristaps  166:        }
                    167:
1.59    ! schwarze  168:        if (n->eqn)
        !           169:                print_box(n->eqn->root->first, indent + 1);
1.1       kristaps  170:        if (n->child)
1.11      kristaps  171:                print_mdoc(n->child, indent + 1);
1.1       kristaps  172:        if (n->next)
1.11      kristaps  173:                print_mdoc(n->next, indent);
1.1       kristaps  174: }
1.2       kristaps  175:
1.10      kristaps  176: static void
1.11      kristaps  177: print_man(const struct man_node *n, int indent)
1.10      kristaps  178: {
                    179:        const char       *p, *t;
                    180:        int               i;
                    181:
1.38      kristaps  182:        t = p = NULL;
                    183:
1.10      kristaps  184:        switch (n->type) {
1.52      schwarze  185:        case MAN_ROOT:
1.10      kristaps  186:                t = "root";
                    187:                break;
1.52      schwarze  188:        case MAN_ELEM:
1.10      kristaps  189:                t = "elem";
                    190:                break;
1.52      schwarze  191:        case MAN_TEXT:
1.10      kristaps  192:                t = "text";
                    193:                break;
1.52      schwarze  194:        case MAN_BLOCK:
1.14      kristaps  195:                t = "block";
                    196:                break;
1.52      schwarze  197:        case MAN_HEAD:
1.14      kristaps  198:                t = "block-head";
                    199:                break;
1.52      schwarze  200:        case MAN_BODY:
1.14      kristaps  201:                t = "block-body";
                    202:                break;
1.52      schwarze  203:        case MAN_TAIL:
1.37      kristaps  204:                t = "block-tail";
                    205:                break;
1.52      schwarze  206:        case MAN_TBL:
1.59    ! schwarze  207:                break;
1.52      schwarze  208:        case MAN_EQN:
1.59    ! schwarze  209:                t = "eqn";
1.33      kristaps  210:                break;
1.10      kristaps  211:        default:
                    212:                abort();
                    213:                /* NOTREACHED */
                    214:        }
                    215:
                    216:        switch (n->type) {
1.52      schwarze  217:        case MAN_TEXT:
1.10      kristaps  218:                p = n->string;
                    219:                break;
1.52      schwarze  220:        case MAN_ELEM:
1.14      kristaps  221:                /* FALLTHROUGH */
1.52      schwarze  222:        case MAN_BLOCK:
1.14      kristaps  223:                /* FALLTHROUGH */
1.52      schwarze  224:        case MAN_HEAD:
1.37      kristaps  225:                /* FALLTHROUGH */
1.52      schwarze  226:        case MAN_TAIL:
1.14      kristaps  227:                /* FALLTHROUGH */
1.52      schwarze  228:        case MAN_BODY:
1.10      kristaps  229:                p = man_macronames[n->tok];
                    230:                break;
1.52      schwarze  231:        case MAN_ROOT:
1.10      kristaps  232:                p = "root";
1.25      kristaps  233:                break;
1.52      schwarze  234:        case MAN_TBL:
1.59    ! schwarze  235:                break;
1.52      schwarze  236:        case MAN_EQN:
1.59    ! schwarze  237:                p = "EQ";
1.10      kristaps  238:                break;
                    239:        default:
                    240:                abort();
                    241:                /* NOTREACHED */
                    242:        }
                    243:
1.26      kristaps  244:        if (n->span) {
1.38      kristaps  245:                assert(NULL == p && NULL == t);
1.30      kristaps  246:                print_span(n->span, indent);
                    247:        } else {
                    248:                for (i = 0; i < indent; i++)
                    249:                        putchar('\t');
1.51      schwarze  250:                printf("%s (%s) ", p, t);
                    251:                if (MAN_LINE & n->flags)
                    252:                        putchar('*');
1.53      schwarze  253:                printf("%d:%d\n", n->line, n->pos + 1);
1.30      kristaps  254:        }
1.26      kristaps  255:
1.59    ! schwarze  256:        if (n->eqn)
        !           257:                print_box(n->eqn->root->first, indent + 1);
1.10      kristaps  258:        if (n->child)
1.11      kristaps  259:                print_man(n->child, indent + 1);
1.10      kristaps  260:        if (n->next)
1.11      kristaps  261:                print_man(n->next, indent);
1.28      kristaps  262: }
                    263:
                    264: static void
1.38      kristaps  265: print_box(const struct eqn_box *ep, int indent)
                    266: {
                    267:        int              i;
1.46      kristaps  268:        const char      *t;
1.38      kristaps  269:
1.57      schwarze  270:        static const char *posnames[] = {
                    271:            NULL, "sup", "subsup", "sub",
                    272:            "to", "from", "fromto",
                    273:            "over", "sqrt", NULL };
                    274:
1.38      kristaps  275:        if (NULL == ep)
                    276:                return;
                    277:        for (i = 0; i < indent; i++)
                    278:                putchar('\t');
                    279:
1.46      kristaps  280:        t = NULL;
1.38      kristaps  281:        switch (ep->type) {
1.52      schwarze  282:        case EQN_ROOT:
1.46      kristaps  283:                t = "eqn-root";
1.45      kristaps  284:                break;
1.56      kristaps  285:        case EQN_LISTONE:
1.52      schwarze  286:        case EQN_LIST:
1.46      kristaps  287:                t = "eqn-list";
1.39      kristaps  288:                break;
1.52      schwarze  289:        case EQN_SUBEXPR:
1.46      kristaps  290:                t = "eqn-expr";
1.39      kristaps  291:                break;
1.52      schwarze  292:        case EQN_TEXT:
1.46      kristaps  293:                t = "eqn-text";
1.39      kristaps  294:                break;
1.56      kristaps  295:        case EQN_PILE:
                    296:                t = "eqn-pile";
                    297:                break;
1.52      schwarze  298:        case EQN_MATRIX:
1.46      kristaps  299:                t = "eqn-matrix";
1.38      kristaps  300:                break;
                    301:        }
1.39      kristaps  302:
1.57      schwarze  303:        fputs(t, stdout);
                    304:        if (ep->pos)
                    305:                printf(" pos=%s", posnames[ep->pos]);
                    306:        if (ep->left)
                    307:                printf(" left=\"%s\"", ep->left);
                    308:        if (ep->right)
                    309:                printf(" right=\"%s\"", ep->right);
                    310:        if (ep->top)
                    311:                printf(" top=\"%s\"", ep->top);
                    312:        if (ep->bottom)
                    313:                printf(" bottom=\"%s\"", ep->bottom);
                    314:        if (ep->text)
                    315:                printf(" text=\"%s\"", ep->text);
                    316:        if (ep->font)
                    317:                printf(" font=%d", ep->font);
                    318:        if (ep->size != EQN_DEFSIZE)
                    319:                printf(" size=%d", ep->size);
                    320:        if (ep->expectargs != UINT_MAX && ep->expectargs != ep->args)
                    321:                printf(" badargs=%zu(%zu)", ep->args, ep->expectargs);
                    322:        else if (ep->args)
                    323:                printf(" args=%zu", ep->args);
                    324:        putchar('\n');
1.46      kristaps  325:
                    326:        print_box(ep->first, indent + 1);
1.39      kristaps  327:        print_box(ep->next, indent);
1.38      kristaps  328: }
                    329:
                    330: static void
1.30      kristaps  331: print_span(const struct tbl_span *sp, int indent)
1.28      kristaps  332: {
                    333:        const struct tbl_dat *dp;
1.30      kristaps  334:        int              i;
                    335:
                    336:        for (i = 0; i < indent; i++)
                    337:                putchar('\t');
1.28      kristaps  338:
                    339:        switch (sp->pos) {
1.52      schwarze  340:        case TBL_SPAN_HORIZ:
1.28      kristaps  341:                putchar('-');
                    342:                return;
1.52      schwarze  343:        case TBL_SPAN_DHORIZ:
1.28      kristaps  344:                putchar('=');
                    345:                return;
                    346:        default:
                    347:                break;
                    348:        }
                    349:
                    350:        for (dp = sp->first; dp; dp = dp->next) {
                    351:                switch (dp->pos) {
1.52      schwarze  352:                case TBL_DATA_HORIZ:
1.28      kristaps  353:                        /* FALLTHROUGH */
1.52      schwarze  354:                case TBL_DATA_NHORIZ:
1.28      kristaps  355:                        putchar('-');
                    356:                        continue;
1.52      schwarze  357:                case TBL_DATA_DHORIZ:
1.28      kristaps  358:                        /* FALLTHROUGH */
1.52      schwarze  359:                case TBL_DATA_NDHORIZ:
1.28      kristaps  360:                        putchar('=');
                    361:                        continue;
                    362:                default:
                    363:                        break;
                    364:                }
1.32      kristaps  365:                printf("[\"%s\"", dp->string ? dp->string : "");
                    366:                if (dp->spans)
                    367:                        printf("(%d)", dp->spans);
                    368:                if (NULL == dp->layout)
                    369:                        putchar('*');
                    370:                putchar(']');
1.34      kristaps  371:                putchar(' ');
1.28      kristaps  372:        }
1.34      kristaps  373:
1.38      kristaps  374:        printf("(tbl) %d:1\n", sp->line);
1.10      kristaps  375: }

CVSweb