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

Annotation of mandoc/tree.c, Revision 1.69

1.69    ! schwarze    1: /*     $Id: tree.c,v 1.68 2015/09/26 12:55:16 schwarze Exp $ */
1.1       kristaps    2: /*
1.58      schwarze    3:  * Copyright (c) 2008, 2009, 2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
1.61      schwarze    4:  * Copyright (c) 2013, 2014, 2015 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.63      schwarze   10:  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES
1.12      kristaps   11:  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
1.63      schwarze   12:  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
1.12      kristaps   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.63      schwarze   29: #include "roff.h"
1.1       kristaps   30: #include "mdoc.h"
1.10      kristaps   31: #include "man.h"
1.16      kristaps   32: #include "main.h"
1.1       kristaps   33:
1.38      kristaps   34: static void    print_box(const struct eqn_box *, int);
1.64      schwarze   35: static void    print_man(const struct roff_node *, int);
                     36: static void    print_mdoc(const struct roff_node *, int);
1.30      kristaps   37: static void    print_span(const struct tbl_span *, int);
1.8       kristaps   38:
                     39:
1.15      kristaps   40: void
1.65      schwarze   41: tree_mdoc(void *arg, const struct roff_man *mdoc)
1.8       kristaps   42: {
                     43:
1.66      schwarze   44:        print_mdoc(mdoc->first->child, 0);
1.11      kristaps   45: }
                     46:
1.15      kristaps   47: void
1.65      schwarze   48: tree_man(void *arg, const struct roff_man *man)
1.11      kristaps   49: {
                     50:
1.66      schwarze   51:        print_man(man->first->child, 0);
1.8       kristaps   52: }
1.2       kristaps   53:
1.1       kristaps   54: static void
1.64      schwarze   55: print_mdoc(const struct roff_node *n, int indent)
1.1       kristaps   56: {
                     57:        const char       *p, *t;
                     58:        int               i, j;
1.48      schwarze   59:        size_t            argc;
1.8       kristaps   60:        struct mdoc_argv *argv;
1.1       kristaps   61:
1.61      schwarze   62:        if (n == NULL)
                     63:                return;
                     64:
1.1       kristaps   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) {
1.63      schwarze   70:        case ROFFT_ROOT:
1.2       kristaps   71:                t = "root";
                     72:                break;
1.63      schwarze   73:        case ROFFT_BLOCK:
1.2       kristaps   74:                t = "block";
                     75:                break;
1.63      schwarze   76:        case ROFFT_HEAD:
1.68      schwarze   77:                t = "head";
1.2       kristaps   78:                break;
1.63      schwarze   79:        case ROFFT_BODY:
1.23      schwarze   80:                if (n->end)
                     81:                        t = "body-end";
                     82:                else
1.68      schwarze   83:                        t = "body";
1.2       kristaps   84:                break;
1.63      schwarze   85:        case ROFFT_TAIL:
1.68      schwarze   86:                t = "tail";
1.2       kristaps   87:                break;
1.63      schwarze   88:        case ROFFT_ELEM:
1.2       kristaps   89:                t = "elem";
                     90:                break;
1.63      schwarze   91:        case ROFFT_TEXT:
1.2       kristaps   92:                t = "text";
                     93:                break;
1.63      schwarze   94:        case ROFFT_TBL:
1.59      schwarze   95:                break;
1.63      schwarze   96:        case ROFFT_EQN:
1.59      schwarze   97:                t = "eqn";
1.33      kristaps   98:                break;
1.2       kristaps   99:        default:
                    100:                abort();
                    101:        }
1.1       kristaps  102:
                    103:        switch (n->type) {
1.63      schwarze  104:        case ROFFT_TEXT:
1.8       kristaps  105:                p = n->string;
1.1       kristaps  106:                break;
1.63      schwarze  107:        case ROFFT_BODY:
1.1       kristaps  108:                p = mdoc_macronames[n->tok];
                    109:                break;
1.63      schwarze  110:        case ROFFT_HEAD:
1.1       kristaps  111:                p = mdoc_macronames[n->tok];
                    112:                break;
1.63      schwarze  113:        case ROFFT_TAIL:
1.1       kristaps  114:                p = mdoc_macronames[n->tok];
                    115:                break;
1.63      schwarze  116:        case ROFFT_ELEM:
1.1       kristaps  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;
1.63      schwarze  123:        case ROFFT_BLOCK:
1.1       kristaps  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.63      schwarze  130:        case ROFFT_TBL:
1.59      schwarze  131:                break;
1.63      schwarze  132:        case ROFFT_EQN:
1.59      schwarze  133:                p = "EQ";
1.33      kristaps  134:                break;
1.63      schwarze  135:        case ROFFT_ROOT:
1.1       kristaps  136:                p = "root";
                    137:                break;
                    138:        default:
                    139:                abort();
                    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.26      kristaps  145:        } else {
1.30      kristaps  146:                for (i = 0; i < indent; i++)
1.61      schwarze  147:                        putchar(' ');
1.30      kristaps  148:
1.26      kristaps  149:                printf("%s (%s)", p, t);
                    150:
                    151:                for (i = 0; i < (int)argc; i++) {
                    152:                        printf(" -%s", mdoc_argnames[argv[i].arg]);
                    153:                        if (argv[i].sz > 0)
                    154:                                printf(" [");
                    155:                        for (j = 0; j < (int)argv[i].sz; j++)
                    156:                                printf(" [%s]", argv[i].value[j]);
                    157:                        if (argv[i].sz > 0)
                    158:                                printf(" ]");
                    159:                }
1.49      schwarze  160:
                    161:                putchar(' ');
1.68      schwarze  162:                if (MDOC_DELIMO & n->flags)
                    163:                        putchar('(');
1.49      schwarze  164:                if (MDOC_LINE & n->flags)
                    165:                        putchar('*');
1.68      schwarze  166:                printf("%d:%d", n->line, n->pos + 1);
                    167:                if (MDOC_DELIMC & n->flags)
                    168:                        putchar(')');
                    169:                if (MDOC_EOS & n->flags)
                    170:                        putchar('.');
                    171:                putchar('\n');
1.1       kristaps  172:        }
                    173:
1.59      schwarze  174:        if (n->eqn)
1.61      schwarze  175:                print_box(n->eqn->root->first, indent + 4);
1.1       kristaps  176:        if (n->child)
1.61      schwarze  177:                print_mdoc(n->child, indent +
1.63      schwarze  178:                    (n->type == ROFFT_BLOCK ? 2 : 4));
1.1       kristaps  179:        if (n->next)
1.11      kristaps  180:                print_mdoc(n->next, indent);
1.1       kristaps  181: }
1.2       kristaps  182:
1.10      kristaps  183: static void
1.64      schwarze  184: print_man(const struct roff_node *n, int indent)
1.10      kristaps  185: {
                    186:        const char       *p, *t;
                    187:        int               i;
                    188:
1.61      schwarze  189:        if (n == NULL)
                    190:                return;
                    191:
1.38      kristaps  192:        t = p = NULL;
                    193:
1.10      kristaps  194:        switch (n->type) {
1.63      schwarze  195:        case ROFFT_ROOT:
1.10      kristaps  196:                t = "root";
                    197:                break;
1.63      schwarze  198:        case ROFFT_ELEM:
1.10      kristaps  199:                t = "elem";
                    200:                break;
1.63      schwarze  201:        case ROFFT_TEXT:
1.10      kristaps  202:                t = "text";
                    203:                break;
1.63      schwarze  204:        case ROFFT_BLOCK:
1.14      kristaps  205:                t = "block";
                    206:                break;
1.63      schwarze  207:        case ROFFT_HEAD:
1.68      schwarze  208:                t = "head";
1.14      kristaps  209:                break;
1.63      schwarze  210:        case ROFFT_BODY:
1.68      schwarze  211:                t = "body";
1.14      kristaps  212:                break;
1.63      schwarze  213:        case ROFFT_TBL:
1.59      schwarze  214:                break;
1.63      schwarze  215:        case ROFFT_EQN:
1.59      schwarze  216:                t = "eqn";
1.33      kristaps  217:                break;
1.10      kristaps  218:        default:
                    219:                abort();
                    220:        }
                    221:
                    222:        switch (n->type) {
1.63      schwarze  223:        case ROFFT_TEXT:
1.10      kristaps  224:                p = n->string;
                    225:                break;
1.63      schwarze  226:        case ROFFT_ELEM:
                    227:        case ROFFT_BLOCK:
                    228:        case ROFFT_HEAD:
                    229:        case ROFFT_BODY:
1.10      kristaps  230:                p = man_macronames[n->tok];
                    231:                break;
1.63      schwarze  232:        case ROFFT_ROOT:
1.10      kristaps  233:                p = "root";
1.25      kristaps  234:                break;
1.63      schwarze  235:        case ROFFT_TBL:
1.59      schwarze  236:                break;
1.63      schwarze  237:        case ROFFT_EQN:
1.59      schwarze  238:                p = "EQ";
1.10      kristaps  239:                break;
                    240:        default:
                    241:                abort();
                    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++)
1.61      schwarze  249:                        putchar(' ');
1.51      schwarze  250:                printf("%s (%s) ", p, t);
                    251:                if (MAN_LINE & n->flags)
                    252:                        putchar('*');
1.68      schwarze  253:                printf("%d:%d", n->line, n->pos + 1);
                    254:                if (MAN_EOS & n->flags)
                    255:                        putchar('.');
                    256:                putchar('\n');
1.30      kristaps  257:        }
1.26      kristaps  258:
1.59      schwarze  259:        if (n->eqn)
1.61      schwarze  260:                print_box(n->eqn->root->first, indent + 4);
1.10      kristaps  261:        if (n->child)
1.61      schwarze  262:                print_man(n->child, indent +
1.63      schwarze  263:                    (n->type == ROFFT_BLOCK ? 2 : 4));
1.10      kristaps  264:        if (n->next)
1.11      kristaps  265:                print_man(n->next, indent);
1.28      kristaps  266: }
                    267:
                    268: static void
1.38      kristaps  269: print_box(const struct eqn_box *ep, int indent)
                    270: {
                    271:        int              i;
1.46      kristaps  272:        const char      *t;
1.38      kristaps  273:
1.57      schwarze  274:        static const char *posnames[] = {
                    275:            NULL, "sup", "subsup", "sub",
                    276:            "to", "from", "fromto",
                    277:            "over", "sqrt", NULL };
                    278:
1.38      kristaps  279:        if (NULL == ep)
                    280:                return;
                    281:        for (i = 0; i < indent; i++)
1.61      schwarze  282:                putchar(' ');
1.38      kristaps  283:
1.46      kristaps  284:        t = NULL;
1.38      kristaps  285:        switch (ep->type) {
1.52      schwarze  286:        case EQN_ROOT:
1.46      kristaps  287:                t = "eqn-root";
1.45      kristaps  288:                break;
1.56      kristaps  289:        case EQN_LISTONE:
1.52      schwarze  290:        case EQN_LIST:
1.46      kristaps  291:                t = "eqn-list";
1.39      kristaps  292:                break;
1.52      schwarze  293:        case EQN_SUBEXPR:
1.46      kristaps  294:                t = "eqn-expr";
1.39      kristaps  295:                break;
1.52      schwarze  296:        case EQN_TEXT:
1.46      kristaps  297:                t = "eqn-text";
1.39      kristaps  298:                break;
1.56      kristaps  299:        case EQN_PILE:
                    300:                t = "eqn-pile";
                    301:                break;
1.52      schwarze  302:        case EQN_MATRIX:
1.46      kristaps  303:                t = "eqn-matrix";
1.38      kristaps  304:                break;
                    305:        }
1.39      kristaps  306:
1.57      schwarze  307:        fputs(t, stdout);
                    308:        if (ep->pos)
                    309:                printf(" pos=%s", posnames[ep->pos]);
                    310:        if (ep->left)
                    311:                printf(" left=\"%s\"", ep->left);
                    312:        if (ep->right)
                    313:                printf(" right=\"%s\"", ep->right);
                    314:        if (ep->top)
                    315:                printf(" top=\"%s\"", ep->top);
                    316:        if (ep->bottom)
                    317:                printf(" bottom=\"%s\"", ep->bottom);
                    318:        if (ep->text)
                    319:                printf(" text=\"%s\"", ep->text);
                    320:        if (ep->font)
                    321:                printf(" font=%d", ep->font);
                    322:        if (ep->size != EQN_DEFSIZE)
                    323:                printf(" size=%d", ep->size);
                    324:        if (ep->expectargs != UINT_MAX && ep->expectargs != ep->args)
                    325:                printf(" badargs=%zu(%zu)", ep->args, ep->expectargs);
                    326:        else if (ep->args)
                    327:                printf(" args=%zu", ep->args);
                    328:        putchar('\n');
1.46      kristaps  329:
1.61      schwarze  330:        print_box(ep->first, indent + 4);
1.39      kristaps  331:        print_box(ep->next, indent);
1.38      kristaps  332: }
                    333:
                    334: static void
1.30      kristaps  335: print_span(const struct tbl_span *sp, int indent)
1.28      kristaps  336: {
                    337:        const struct tbl_dat *dp;
1.30      kristaps  338:        int              i;
                    339:
                    340:        for (i = 0; i < indent; i++)
1.61      schwarze  341:                putchar(' ');
1.28      kristaps  342:
                    343:        switch (sp->pos) {
1.52      schwarze  344:        case TBL_SPAN_HORIZ:
1.28      kristaps  345:                putchar('-');
                    346:                return;
1.52      schwarze  347:        case TBL_SPAN_DHORIZ:
1.28      kristaps  348:                putchar('=');
                    349:                return;
                    350:        default:
                    351:                break;
                    352:        }
                    353:
                    354:        for (dp = sp->first; dp; dp = dp->next) {
                    355:                switch (dp->pos) {
1.52      schwarze  356:                case TBL_DATA_HORIZ:
                    357:                case TBL_DATA_NHORIZ:
1.28      kristaps  358:                        putchar('-');
                    359:                        continue;
1.52      schwarze  360:                case TBL_DATA_DHORIZ:
                    361:                case TBL_DATA_NDHORIZ:
1.28      kristaps  362:                        putchar('=');
                    363:                        continue;
                    364:                default:
                    365:                        break;
                    366:                }
1.32      kristaps  367:                printf("[\"%s\"", dp->string ? dp->string : "");
                    368:                if (dp->spans)
                    369:                        printf("(%d)", dp->spans);
                    370:                if (NULL == dp->layout)
                    371:                        putchar('*');
                    372:                putchar(']');
1.34      kristaps  373:                putchar(' ');
1.28      kristaps  374:        }
1.34      kristaps  375:
1.38      kristaps  376:        printf("(tbl) %d:1\n", sp->line);
1.10      kristaps  377: }

CVSweb