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

Annotation of mandoc/tree.c, Revision 1.46

1.46    ! kristaps    1: /*     $Id: tree.c,v 1.45 2011/07/22 09:57:04 kristaps Exp $ */
1.1       kristaps    2: /*
1.21      kristaps    3:  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@bsd.lv>
1.1       kristaps    4:  *
                      5:  * Permission to use, copy, modify, and distribute this software for any
1.12      kristaps    6:  * purpose with or without fee is hereby granted, provided that the above
                      7:  * copyright notice and this permission notice appear in all copies.
1.1       kristaps    8:  *
1.12      kristaps    9:  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
                     10:  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
                     11:  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
                     12:  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
                     13:  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
                     14:  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
                     15:  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
1.1       kristaps   16:  */
1.19      kristaps   17: #ifdef HAVE_CONFIG_H
                     18: #include "config.h"
                     19: #endif
                     20:
1.8       kristaps   21: #include <assert.h>
1.43      kristaps   22: #include <limits.h>
1.8       kristaps   23: #include <stdio.h>
1.1       kristaps   24: #include <stdlib.h>
1.17      kristaps   25: #include <time.h>
1.1       kristaps   26:
1.20      kristaps   27: #include "mandoc.h"
1.1       kristaps   28: #include "mdoc.h"
1.10      kristaps   29: #include "man.h"
1.16      kristaps   30: #include "main.h"
1.1       kristaps   31:
1.38      kristaps   32: static void    print_box(const struct eqn_box *, int);
                     33: static void    print_man(const struct man_node *, int);
1.11      kristaps   34: static void    print_mdoc(const struct mdoc_node *, int);
1.30      kristaps   35: static void    print_span(const struct tbl_span *, int);
1.8       kristaps   36:
                     37:
1.9       kristaps   38: /* ARGSUSED */
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:
                     46:
                     47: /* ARGSUSED */
1.15      kristaps   48: void
1.11      kristaps   49: tree_man(void *arg, const struct man *man)
                     50: {
                     51:
                     52:        print_man(man_node(man), 0);
1.8       kristaps   53: }
1.2       kristaps   54:
1.1       kristaps   55:
                     56: static void
1.11      kristaps   57: print_mdoc(const struct mdoc_node *n, int indent)
1.1       kristaps   58: {
                     59:        const char       *p, *t;
                     60:        int               i, j;
                     61:        size_t            argc, sz;
                     62:        char            **params;
1.8       kristaps   63:        struct mdoc_argv *argv;
1.1       kristaps   64:
                     65:        argv = NULL;
                     66:        argc = sz = 0;
                     67:        params = NULL;
1.38      kristaps   68:        t = p = NULL;
1.1       kristaps   69:
1.2       kristaps   70:        switch (n->type) {
                     71:        case (MDOC_ROOT):
                     72:                t = "root";
                     73:                break;
                     74:        case (MDOC_BLOCK):
                     75:                t = "block";
                     76:                break;
                     77:        case (MDOC_HEAD):
                     78:                t = "block-head";
                     79:                break;
                     80:        case (MDOC_BODY):
1.23      schwarze   81:                if (n->end)
                     82:                        t = "body-end";
                     83:                else
                     84:                        t = "block-body";
1.2       kristaps   85:                break;
                     86:        case (MDOC_TAIL):
                     87:                t = "block-tail";
                     88:                break;
                     89:        case (MDOC_ELEM):
                     90:                t = "elem";
                     91:                break;
                     92:        case (MDOC_TEXT):
                     93:                t = "text";
                     94:                break;
1.25      kristaps   95:        case (MDOC_TBL):
1.38      kristaps   96:                /* FALLTHROUGH */
1.33      kristaps   97:        case (MDOC_EQN):
                     98:                break;
1.2       kristaps   99:        default:
                    100:                abort();
                    101:                /* NOTREACHED */
                    102:        }
1.1       kristaps  103:
                    104:        switch (n->type) {
                    105:        case (MDOC_TEXT):
1.8       kristaps  106:                p = n->string;
1.1       kristaps  107:                break;
                    108:        case (MDOC_BODY):
                    109:                p = mdoc_macronames[n->tok];
                    110:                break;
                    111:        case (MDOC_HEAD):
                    112:                p = mdoc_macronames[n->tok];
                    113:                break;
                    114:        case (MDOC_TAIL):
                    115:                p = mdoc_macronames[n->tok];
                    116:                break;
                    117:        case (MDOC_ELEM):
                    118:                p = mdoc_macronames[n->tok];
1.8       kristaps  119:                if (n->args) {
                    120:                        argv = n->args->argv;
                    121:                        argc = n->args->argc;
                    122:                }
1.1       kristaps  123:                break;
                    124:        case (MDOC_BLOCK):
                    125:                p = mdoc_macronames[n->tok];
1.8       kristaps  126:                if (n->args) {
                    127:                        argv = n->args->argv;
                    128:                        argc = n->args->argc;
                    129:                }
1.1       kristaps  130:                break;
1.25      kristaps  131:        case (MDOC_TBL):
1.38      kristaps  132:                /* FALLTHROUGH */
1.33      kristaps  133:        case (MDOC_EQN):
                    134:                break;
1.1       kristaps  135:        case (MDOC_ROOT):
                    136:                p = "root";
                    137:                break;
                    138:        default:
                    139:                abort();
                    140:                /* NOTREACHED */
                    141:        }
                    142:
1.26      kristaps  143:        if (n->span) {
1.38      kristaps  144:                assert(NULL == p && NULL == t);
1.30      kristaps  145:                print_span(n->span, indent);
1.38      kristaps  146:        } else if (n->eqn) {
                    147:                assert(NULL == p && NULL == t);
                    148:                print_box(n->eqn->root, indent);
1.26      kristaps  149:        } else {
1.30      kristaps  150:                for (i = 0; i < indent; i++)
                    151:                        putchar('\t');
                    152:
1.26      kristaps  153:                printf("%s (%s)", p, t);
                    154:
                    155:                for (i = 0; i < (int)argc; i++) {
                    156:                        printf(" -%s", mdoc_argnames[argv[i].arg]);
                    157:                        if (argv[i].sz > 0)
                    158:                                printf(" [");
                    159:                        for (j = 0; j < (int)argv[i].sz; j++)
                    160:                                printf(" [%s]", argv[i].value[j]);
                    161:                        if (argv[i].sz > 0)
                    162:                                printf(" ]");
                    163:                }
                    164:
                    165:                for (i = 0; i < (int)sz; i++)
                    166:                        printf(" [%s]", params[i]);
1.1       kristaps  167:
1.38      kristaps  168:                printf(" %d:%d\n", n->line, n->pos);
1.1       kristaps  169:        }
                    170:
                    171:        if (n->child)
1.11      kristaps  172:                print_mdoc(n->child, indent + 1);
1.1       kristaps  173:        if (n->next)
1.11      kristaps  174:                print_mdoc(n->next, indent);
1.1       kristaps  175: }
1.2       kristaps  176:
1.10      kristaps  177:
                    178: static void
1.11      kristaps  179: print_man(const struct man_node *n, int indent)
1.10      kristaps  180: {
                    181:        const char       *p, *t;
                    182:        int               i;
                    183:
1.38      kristaps  184:        t = p = NULL;
                    185:
1.10      kristaps  186:        switch (n->type) {
                    187:        case (MAN_ROOT):
                    188:                t = "root";
                    189:                break;
                    190:        case (MAN_ELEM):
                    191:                t = "elem";
                    192:                break;
                    193:        case (MAN_TEXT):
                    194:                t = "text";
                    195:                break;
1.14      kristaps  196:        case (MAN_BLOCK):
                    197:                t = "block";
                    198:                break;
                    199:        case (MAN_HEAD):
                    200:                t = "block-head";
                    201:                break;
                    202:        case (MAN_BODY):
                    203:                t = "block-body";
                    204:                break;
1.37      kristaps  205:        case (MAN_TAIL):
                    206:                t = "block-tail";
                    207:                break;
1.25      kristaps  208:        case (MAN_TBL):
1.38      kristaps  209:                /* FALLTHROUGH */
1.33      kristaps  210:        case (MAN_EQN):
                    211:                break;
1.10      kristaps  212:        default:
                    213:                abort();
                    214:                /* NOTREACHED */
                    215:        }
                    216:
                    217:        switch (n->type) {
                    218:        case (MAN_TEXT):
                    219:                p = n->string;
                    220:                break;
                    221:        case (MAN_ELEM):
1.14      kristaps  222:                /* FALLTHROUGH */
                    223:        case (MAN_BLOCK):
                    224:                /* FALLTHROUGH */
                    225:        case (MAN_HEAD):
1.37      kristaps  226:                /* FALLTHROUGH */
                    227:        case (MAN_TAIL):
1.14      kristaps  228:                /* FALLTHROUGH */
                    229:        case (MAN_BODY):
1.10      kristaps  230:                p = man_macronames[n->tok];
                    231:                break;
                    232:        case (MAN_ROOT):
                    233:                p = "root";
1.25      kristaps  234:                break;
                    235:        case (MAN_TBL):
1.38      kristaps  236:                /* FALLTHROUGH */
1.33      kristaps  237:        case (MAN_EQN):
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);
1.38      kristaps  247:        } else if (n->eqn) {
                    248:                assert(NULL == p && NULL == t);
                    249:                print_box(n->eqn->root, indent);
1.30      kristaps  250:        } else {
                    251:                for (i = 0; i < indent; i++)
                    252:                        putchar('\t');
1.38      kristaps  253:                printf("%s (%s) %d:%d\n", p, t, n->line, n->pos);
1.30      kristaps  254:        }
1.26      kristaps  255:
1.10      kristaps  256:        if (n->child)
1.11      kristaps  257:                print_man(n->child, indent + 1);
1.10      kristaps  258:        if (n->next)
1.11      kristaps  259:                print_man(n->next, indent);
1.28      kristaps  260: }
                    261:
                    262: static void
1.38      kristaps  263: print_box(const struct eqn_box *ep, int indent)
                    264: {
                    265:        int              i;
1.46    ! kristaps  266:        const char      *t;
1.38      kristaps  267:
                    268:        if (NULL == ep)
                    269:                return;
                    270:        for (i = 0; i < indent; i++)
                    271:                putchar('\t');
                    272:
1.46    ! kristaps  273:        t = NULL;
1.38      kristaps  274:        switch (ep->type) {
                    275:        case (EQN_ROOT):
1.46    ! kristaps  276:                t = "eqn-root";
1.45      kristaps  277:                break;
                    278:        case (EQN_LIST):
1.46    ! kristaps  279:                t = "eqn-list";
1.39      kristaps  280:                break;
                    281:        case (EQN_SUBEXPR):
1.46    ! kristaps  282:                t = "eqn-expr";
1.39      kristaps  283:                break;
1.38      kristaps  284:        case (EQN_TEXT):
1.46    ! kristaps  285:                t = "eqn-text";
1.39      kristaps  286:                break;
1.46    ! kristaps  287:        case (EQN_MATRIX):
        !           288:                t = "eqn-matrix";
1.38      kristaps  289:                break;
                    290:        }
1.39      kristaps  291:
1.46    ! kristaps  292:        assert(t);
        !           293:        printf("%s(%d, %d, %d, %d, %d, \"%s\", \"%s\") %s\n",
        !           294:                t, EQN_DEFSIZE == ep->size ? 0 : ep->size,
        !           295:                ep->pos, ep->font, ep->mark, ep->pile,
        !           296:                ep->left ? ep->left : "",
        !           297:                ep->right ? ep->right : "",
        !           298:                ep->text ? ep->text : "");
        !           299:
        !           300:        print_box(ep->first, indent + 1);
1.39      kristaps  301:        print_box(ep->next, indent);
1.38      kristaps  302: }
                    303:
                    304: static void
1.30      kristaps  305: print_span(const struct tbl_span *sp, int indent)
1.28      kristaps  306: {
                    307:        const struct tbl_dat *dp;
1.30      kristaps  308:        int              i;
                    309:
                    310:        for (i = 0; i < indent; i++)
                    311:                putchar('\t');
1.28      kristaps  312:
                    313:        switch (sp->pos) {
                    314:        case (TBL_SPAN_HORIZ):
                    315:                putchar('-');
                    316:                return;
                    317:        case (TBL_SPAN_DHORIZ):
                    318:                putchar('=');
                    319:                return;
                    320:        default:
                    321:                break;
                    322:        }
                    323:
                    324:        for (dp = sp->first; dp; dp = dp->next) {
                    325:                switch (dp->pos) {
                    326:                case (TBL_DATA_HORIZ):
                    327:                        /* FALLTHROUGH */
                    328:                case (TBL_DATA_NHORIZ):
                    329:                        putchar('-');
                    330:                        continue;
                    331:                case (TBL_DATA_DHORIZ):
                    332:                        /* FALLTHROUGH */
                    333:                case (TBL_DATA_NDHORIZ):
                    334:                        putchar('=');
                    335:                        continue;
                    336:                default:
                    337:                        break;
                    338:                }
1.32      kristaps  339:                printf("[\"%s\"", dp->string ? dp->string : "");
                    340:                if (dp->spans)
                    341:                        printf("(%d)", dp->spans);
                    342:                if (NULL == dp->layout)
                    343:                        putchar('*');
                    344:                putchar(']');
1.34      kristaps  345:                putchar(' ');
1.28      kristaps  346:        }
1.34      kristaps  347:
1.38      kristaps  348:        printf("(tbl) %d:1\n", sp->line);
1.10      kristaps  349: }

CVSweb