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

Annotation of mandoc/tree.c, Revision 1.51

1.51    ! schwarze    1: /*     $Id: tree.c,v 1.50 2013/12/24 19:11:46 schwarze Exp $ */
1.1       kristaps    2: /*
1.47      schwarze    3:  * Copyright (c) 2008, 2009, 2011 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: #ifdef HAVE_CONFIG_H
                     19: #include "config.h"
                     20: #endif
                     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.9       kristaps   39: /* ARGSUSED */
1.15      kristaps   40: void
1.11      kristaps   41: tree_mdoc(void *arg, const struct mdoc *mdoc)
1.8       kristaps   42: {
                     43:
1.11      kristaps   44:        print_mdoc(mdoc_node(mdoc), 0);
                     45: }
                     46:
                     47:
                     48: /* ARGSUSED */
1.15      kristaps   49: void
1.11      kristaps   50: tree_man(void *arg, const struct man *man)
                     51: {
                     52:
                     53:        print_man(man_node(man), 0);
1.8       kristaps   54: }
1.2       kristaps   55:
1.1       kristaps   56:
                     57: static void
1.11      kristaps   58: print_mdoc(const struct mdoc_node *n, int indent)
1.1       kristaps   59: {
                     60:        const char       *p, *t;
                     61:        int               i, j;
1.48      schwarze   62:        size_t            argc;
1.8       kristaps   63:        struct mdoc_argv *argv;
1.1       kristaps   64:
                     65:        argv = NULL;
1.48      schwarze   66:        argc = 0;
1.38      kristaps   67:        t = p = NULL;
1.1       kristaps   68:
1.2       kristaps   69:        switch (n->type) {
                     70:        case (MDOC_ROOT):
                     71:                t = "root";
                     72:                break;
                     73:        case (MDOC_BLOCK):
                     74:                t = "block";
                     75:                break;
                     76:        case (MDOC_HEAD):
                     77:                t = "block-head";
                     78:                break;
                     79:        case (MDOC_BODY):
1.23      schwarze   80:                if (n->end)
                     81:                        t = "body-end";
                     82:                else
                     83:                        t = "block-body";
1.2       kristaps   84:                break;
                     85:        case (MDOC_TAIL):
                     86:                t = "block-tail";
                     87:                break;
                     88:        case (MDOC_ELEM):
                     89:                t = "elem";
                     90:                break;
                     91:        case (MDOC_TEXT):
                     92:                t = "text";
                     93:                break;
1.25      kristaps   94:        case (MDOC_TBL):
1.38      kristaps   95:                /* FALLTHROUGH */
1.33      kristaps   96:        case (MDOC_EQN):
                     97:                break;
1.2       kristaps   98:        default:
                     99:                abort();
                    100:                /* NOTREACHED */
                    101:        }
1.1       kristaps  102:
                    103:        switch (n->type) {
                    104:        case (MDOC_TEXT):
1.8       kristaps  105:                p = n->string;
1.1       kristaps  106:                break;
                    107:        case (MDOC_BODY):
                    108:                p = mdoc_macronames[n->tok];
                    109:                break;
                    110:        case (MDOC_HEAD):
                    111:                p = mdoc_macronames[n->tok];
                    112:                break;
                    113:        case (MDOC_TAIL):
                    114:                p = mdoc_macronames[n->tok];
                    115:                break;
                    116:        case (MDOC_ELEM):
                    117:                p = mdoc_macronames[n->tok];
1.8       kristaps  118:                if (n->args) {
                    119:                        argv = n->args->argv;
                    120:                        argc = n->args->argc;
                    121:                }
1.1       kristaps  122:                break;
                    123:        case (MDOC_BLOCK):
                    124:                p = mdoc_macronames[n->tok];
1.8       kristaps  125:                if (n->args) {
                    126:                        argv = n->args->argv;
                    127:                        argc = n->args->argc;
                    128:                }
1.1       kristaps  129:                break;
1.25      kristaps  130:        case (MDOC_TBL):
1.38      kristaps  131:                /* FALLTHROUGH */
1.33      kristaps  132:        case (MDOC_EQN):
                    133:                break;
1.1       kristaps  134:        case (MDOC_ROOT):
                    135:                p = "root";
                    136:                break;
                    137:        default:
                    138:                abort();
                    139:                /* NOTREACHED */
                    140:        }
                    141:
1.26      kristaps  142:        if (n->span) {
1.38      kristaps  143:                assert(NULL == p && NULL == t);
1.30      kristaps  144:                print_span(n->span, indent);
1.38      kristaps  145:        } else if (n->eqn) {
                    146:                assert(NULL == p && NULL == t);
                    147:                print_box(n->eqn->root, indent);
1.26      kristaps  148:        } else {
1.30      kristaps  149:                for (i = 0; i < indent; i++)
                    150:                        putchar('\t');
                    151:
1.26      kristaps  152:                printf("%s (%s)", p, t);
                    153:
                    154:                for (i = 0; i < (int)argc; i++) {
                    155:                        printf(" -%s", mdoc_argnames[argv[i].arg]);
                    156:                        if (argv[i].sz > 0)
                    157:                                printf(" [");
                    158:                        for (j = 0; j < (int)argv[i].sz; j++)
                    159:                                printf(" [%s]", argv[i].value[j]);
                    160:                        if (argv[i].sz > 0)
                    161:                                printf(" ]");
                    162:                }
1.49      schwarze  163:
                    164:                putchar(' ');
                    165:                if (MDOC_LINE & n->flags)
                    166:                        putchar('*');
1.50      schwarze  167:                printf("%d:%d", n->line, n->pos);
                    168:                if (n->lastline != n->line)
                    169:                        printf("-%d", n->lastline);
                    170:                putchar('\n');
1.1       kristaps  171:        }
                    172:
                    173:        if (n->child)
1.11      kristaps  174:                print_mdoc(n->child, indent + 1);
1.1       kristaps  175:        if (n->next)
1.11      kristaps  176:                print_mdoc(n->next, indent);
1.1       kristaps  177: }
1.2       kristaps  178:
1.10      kristaps  179:
                    180: static void
1.11      kristaps  181: print_man(const struct man_node *n, int indent)
1.10      kristaps  182: {
                    183:        const char       *p, *t;
                    184:        int               i;
                    185:
1.38      kristaps  186:        t = p = NULL;
                    187:
1.10      kristaps  188:        switch (n->type) {
                    189:        case (MAN_ROOT):
                    190:                t = "root";
                    191:                break;
                    192:        case (MAN_ELEM):
                    193:                t = "elem";
                    194:                break;
                    195:        case (MAN_TEXT):
                    196:                t = "text";
                    197:                break;
1.14      kristaps  198:        case (MAN_BLOCK):
                    199:                t = "block";
                    200:                break;
                    201:        case (MAN_HEAD):
                    202:                t = "block-head";
                    203:                break;
                    204:        case (MAN_BODY):
                    205:                t = "block-body";
                    206:                break;
1.37      kristaps  207:        case (MAN_TAIL):
                    208:                t = "block-tail";
                    209:                break;
1.25      kristaps  210:        case (MAN_TBL):
1.38      kristaps  211:                /* FALLTHROUGH */
1.33      kristaps  212:        case (MAN_EQN):
                    213:                break;
1.10      kristaps  214:        default:
                    215:                abort();
                    216:                /* NOTREACHED */
                    217:        }
                    218:
                    219:        switch (n->type) {
                    220:        case (MAN_TEXT):
                    221:                p = n->string;
                    222:                break;
                    223:        case (MAN_ELEM):
1.14      kristaps  224:                /* FALLTHROUGH */
                    225:        case (MAN_BLOCK):
                    226:                /* FALLTHROUGH */
                    227:        case (MAN_HEAD):
1.37      kristaps  228:                /* FALLTHROUGH */
                    229:        case (MAN_TAIL):
1.14      kristaps  230:                /* FALLTHROUGH */
                    231:        case (MAN_BODY):
1.10      kristaps  232:                p = man_macronames[n->tok];
                    233:                break;
                    234:        case (MAN_ROOT):
                    235:                p = "root";
1.25      kristaps  236:                break;
                    237:        case (MAN_TBL):
1.38      kristaps  238:                /* FALLTHROUGH */
1.33      kristaps  239:        case (MAN_EQN):
1.10      kristaps  240:                break;
                    241:        default:
                    242:                abort();
                    243:                /* NOTREACHED */
                    244:        }
                    245:
1.26      kristaps  246:        if (n->span) {
1.38      kristaps  247:                assert(NULL == p && NULL == t);
1.30      kristaps  248:                print_span(n->span, indent);
1.38      kristaps  249:        } else if (n->eqn) {
                    250:                assert(NULL == p && NULL == t);
                    251:                print_box(n->eqn->root, indent);
1.30      kristaps  252:        } else {
                    253:                for (i = 0; i < indent; i++)
                    254:                        putchar('\t');
1.51    ! schwarze  255:                printf("%s (%s) ", p, t);
        !           256:                if (MAN_LINE & n->flags)
        !           257:                        putchar('*');
        !           258:                printf("%d:%d\n", n->line, n->pos);
1.30      kristaps  259:        }
1.26      kristaps  260:
1.10      kristaps  261:        if (n->child)
1.11      kristaps  262:                print_man(n->child, indent + 1);
1.10      kristaps  263:        if (n->next)
1.11      kristaps  264:                print_man(n->next, indent);
1.28      kristaps  265: }
                    266:
                    267: static void
1.38      kristaps  268: print_box(const struct eqn_box *ep, int indent)
                    269: {
                    270:        int              i;
1.46      kristaps  271:        const char      *t;
1.38      kristaps  272:
                    273:        if (NULL == ep)
                    274:                return;
                    275:        for (i = 0; i < indent; i++)
                    276:                putchar('\t');
                    277:
1.46      kristaps  278:        t = NULL;
1.38      kristaps  279:        switch (ep->type) {
                    280:        case (EQN_ROOT):
1.46      kristaps  281:                t = "eqn-root";
1.45      kristaps  282:                break;
                    283:        case (EQN_LIST):
1.46      kristaps  284:                t = "eqn-list";
1.39      kristaps  285:                break;
                    286:        case (EQN_SUBEXPR):
1.46      kristaps  287:                t = "eqn-expr";
1.39      kristaps  288:                break;
1.38      kristaps  289:        case (EQN_TEXT):
1.46      kristaps  290:                t = "eqn-text";
1.39      kristaps  291:                break;
1.46      kristaps  292:        case (EQN_MATRIX):
                    293:                t = "eqn-matrix";
1.38      kristaps  294:                break;
                    295:        }
1.39      kristaps  296:
1.46      kristaps  297:        assert(t);
                    298:        printf("%s(%d, %d, %d, %d, %d, \"%s\", \"%s\") %s\n",
                    299:                t, EQN_DEFSIZE == ep->size ? 0 : ep->size,
                    300:                ep->pos, ep->font, ep->mark, ep->pile,
                    301:                ep->left ? ep->left : "",
                    302:                ep->right ? ep->right : "",
                    303:                ep->text ? ep->text : "");
                    304:
                    305:        print_box(ep->first, indent + 1);
1.39      kristaps  306:        print_box(ep->next, indent);
1.38      kristaps  307: }
                    308:
                    309: static void
1.30      kristaps  310: print_span(const struct tbl_span *sp, int indent)
1.28      kristaps  311: {
                    312:        const struct tbl_dat *dp;
1.30      kristaps  313:        int              i;
                    314:
                    315:        for (i = 0; i < indent; i++)
                    316:                putchar('\t');
1.28      kristaps  317:
                    318:        switch (sp->pos) {
                    319:        case (TBL_SPAN_HORIZ):
                    320:                putchar('-');
                    321:                return;
                    322:        case (TBL_SPAN_DHORIZ):
                    323:                putchar('=');
                    324:                return;
                    325:        default:
                    326:                break;
                    327:        }
                    328:
                    329:        for (dp = sp->first; dp; dp = dp->next) {
                    330:                switch (dp->pos) {
                    331:                case (TBL_DATA_HORIZ):
                    332:                        /* FALLTHROUGH */
                    333:                case (TBL_DATA_NHORIZ):
                    334:                        putchar('-');
                    335:                        continue;
                    336:                case (TBL_DATA_DHORIZ):
                    337:                        /* FALLTHROUGH */
                    338:                case (TBL_DATA_NDHORIZ):
                    339:                        putchar('=');
                    340:                        continue;
                    341:                default:
                    342:                        break;
                    343:                }
1.32      kristaps  344:                printf("[\"%s\"", dp->string ? dp->string : "");
                    345:                if (dp->spans)
                    346:                        printf("(%d)", dp->spans);
                    347:                if (NULL == dp->layout)
                    348:                        putchar('*');
                    349:                putchar(']');
1.34      kristaps  350:                putchar(' ');
1.28      kristaps  351:        }
1.34      kristaps  352:
1.38      kristaps  353:        printf("(tbl) %d:1\n", sp->line);
1.10      kristaps  354: }

CVSweb