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

Annotation of mandoc/tree.c, Revision 1.32

1.32    ! kristaps    1: /*     $Id: tree.c,v 1.31 2011/01/03 13:59:21 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>
                     22: #include <stdio.h>
1.1       kristaps   23: #include <stdlib.h>
1.17      kristaps   24: #include <time.h>
1.1       kristaps   25:
1.20      kristaps   26: #include "mandoc.h"
1.1       kristaps   27: #include "mdoc.h"
1.10      kristaps   28: #include "man.h"
1.16      kristaps   29: #include "main.h"
1.1       kristaps   30:
1.11      kristaps   31: static void    print_mdoc(const struct mdoc_node *, int);
                     32: static void    print_man(const struct man_node *, int);
1.30      kristaps   33: static void    print_span(const struct tbl_span *, int);
1.8       kristaps   34:
                     35:
1.9       kristaps   36: /* ARGSUSED */
1.15      kristaps   37: void
1.11      kristaps   38: tree_mdoc(void *arg, const struct mdoc *mdoc)
1.8       kristaps   39: {
                     40:
1.11      kristaps   41:        print_mdoc(mdoc_node(mdoc), 0);
                     42: }
                     43:
                     44:
                     45: /* ARGSUSED */
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:
                     54: static void
1.11      kristaps   55: print_mdoc(const struct mdoc_node *n, int indent)
1.1       kristaps   56: {
                     57:        const char       *p, *t;
                     58:        int               i, j;
                     59:        size_t            argc, sz;
                     60:        char            **params;
1.8       kristaps   61:        struct mdoc_argv *argv;
1.1       kristaps   62:
                     63:        argv = NULL;
                     64:        argc = sz = 0;
                     65:        params = NULL;
                     66:
1.2       kristaps   67:        switch (n->type) {
                     68:        case (MDOC_ROOT):
                     69:                t = "root";
                     70:                break;
                     71:        case (MDOC_BLOCK):
                     72:                t = "block";
                     73:                break;
                     74:        case (MDOC_HEAD):
                     75:                t = "block-head";
                     76:                break;
                     77:        case (MDOC_BODY):
1.23      schwarze   78:                if (n->end)
                     79:                        t = "body-end";
                     80:                else
                     81:                        t = "block-body";
1.2       kristaps   82:                break;
                     83:        case (MDOC_TAIL):
                     84:                t = "block-tail";
                     85:                break;
                     86:        case (MDOC_ELEM):
                     87:                t = "elem";
                     88:                break;
                     89:        case (MDOC_TEXT):
                     90:                t = "text";
                     91:                break;
1.25      kristaps   92:        case (MDOC_TBL):
                     93:                t = "tbl";
                     94:                break;
1.2       kristaps   95:        default:
                     96:                abort();
                     97:                /* NOTREACHED */
                     98:        }
1.1       kristaps   99:
1.26      kristaps  100:        p = NULL;
                    101:
1.1       kristaps  102:        switch (n->type) {
                    103:        case (MDOC_TEXT):
1.8       kristaps  104:                p = n->string;
1.1       kristaps  105:                break;
                    106:        case (MDOC_BODY):
                    107:                p = mdoc_macronames[n->tok];
                    108:                break;
                    109:        case (MDOC_HEAD):
                    110:                p = mdoc_macronames[n->tok];
                    111:                break;
                    112:        case (MDOC_TAIL):
                    113:                p = mdoc_macronames[n->tok];
                    114:                break;
                    115:        case (MDOC_ELEM):
                    116:                p = mdoc_macronames[n->tok];
1.8       kristaps  117:                if (n->args) {
                    118:                        argv = n->args->argv;
                    119:                        argc = n->args->argc;
                    120:                }
1.1       kristaps  121:                break;
                    122:        case (MDOC_BLOCK):
                    123:                p = mdoc_macronames[n->tok];
1.8       kristaps  124:                if (n->args) {
                    125:                        argv = n->args->argv;
                    126:                        argc = n->args->argc;
                    127:                }
1.1       kristaps  128:                break;
1.25      kristaps  129:        case (MDOC_TBL):
                    130:                break;
1.1       kristaps  131:        case (MDOC_ROOT):
                    132:                p = "root";
                    133:                break;
                    134:        default:
                    135:                abort();
                    136:                /* NOTREACHED */
                    137:        }
                    138:
1.26      kristaps  139:        if (n->span) {
                    140:                assert(NULL == p);
1.30      kristaps  141:                print_span(n->span, indent);
1.26      kristaps  142:        } else {
1.30      kristaps  143:                for (i = 0; i < indent; i++)
                    144:                        putchar('\t');
                    145:
1.26      kristaps  146:                printf("%s (%s)", p, t);
                    147:
                    148:                for (i = 0; i < (int)argc; i++) {
                    149:                        printf(" -%s", mdoc_argnames[argv[i].arg]);
                    150:                        if (argv[i].sz > 0)
                    151:                                printf(" [");
                    152:                        for (j = 0; j < (int)argv[i].sz; j++)
                    153:                                printf(" [%s]", argv[i].value[j]);
                    154:                        if (argv[i].sz > 0)
                    155:                                printf(" ]");
                    156:                }
                    157:
                    158:                for (i = 0; i < (int)sz; i++)
                    159:                        printf(" [%s]", params[i]);
1.1       kristaps  160:
1.26      kristaps  161:                printf(" %d:%d", n->line, n->pos);
1.1       kristaps  162:        }
                    163:
1.26      kristaps  164:        putchar('\n');
1.1       kristaps  165:
                    166:        if (n->child)
1.11      kristaps  167:                print_mdoc(n->child, indent + 1);
1.1       kristaps  168:        if (n->next)
1.11      kristaps  169:                print_mdoc(n->next, indent);
1.1       kristaps  170: }
1.2       kristaps  171:
1.10      kristaps  172:
                    173: static void
1.11      kristaps  174: print_man(const struct man_node *n, int indent)
1.10      kristaps  175: {
                    176:        const char       *p, *t;
                    177:        int               i;
                    178:
                    179:        switch (n->type) {
                    180:        case (MAN_ROOT):
                    181:                t = "root";
                    182:                break;
                    183:        case (MAN_ELEM):
                    184:                t = "elem";
                    185:                break;
                    186:        case (MAN_TEXT):
                    187:                t = "text";
                    188:                break;
1.14      kristaps  189:        case (MAN_BLOCK):
                    190:                t = "block";
                    191:                break;
                    192:        case (MAN_HEAD):
                    193:                t = "block-head";
                    194:                break;
                    195:        case (MAN_BODY):
                    196:                t = "block-body";
                    197:                break;
1.25      kristaps  198:        case (MAN_TBL):
                    199:                t = "tbl";
                    200:                break;
1.10      kristaps  201:        default:
                    202:                abort();
                    203:                /* NOTREACHED */
                    204:        }
                    205:
1.26      kristaps  206:        p = NULL;
                    207:
1.10      kristaps  208:        switch (n->type) {
                    209:        case (MAN_TEXT):
                    210:                p = n->string;
                    211:                break;
                    212:        case (MAN_ELEM):
1.14      kristaps  213:                /* FALLTHROUGH */
                    214:        case (MAN_BLOCK):
                    215:                /* FALLTHROUGH */
                    216:        case (MAN_HEAD):
                    217:                /* FALLTHROUGH */
                    218:        case (MAN_BODY):
1.10      kristaps  219:                p = man_macronames[n->tok];
                    220:                break;
                    221:        case (MAN_ROOT):
                    222:                p = "root";
1.25      kristaps  223:                break;
                    224:        case (MAN_TBL):
1.10      kristaps  225:                break;
                    226:        default:
                    227:                abort();
                    228:                /* NOTREACHED */
                    229:        }
                    230:
1.26      kristaps  231:        if (n->span) {
                    232:                assert(NULL == p);
1.30      kristaps  233:                print_span(n->span, indent);
                    234:        } else {
                    235:                for (i = 0; i < indent; i++)
                    236:                        putchar('\t');
1.26      kristaps  237:                printf("%s (%s) %d:%d", p, t, n->line, n->pos);
1.30      kristaps  238:        }
1.26      kristaps  239:
                    240:        putchar('\n');
1.10      kristaps  241:
                    242:        if (n->child)
1.11      kristaps  243:                print_man(n->child, indent + 1);
1.10      kristaps  244:        if (n->next)
1.11      kristaps  245:                print_man(n->next, indent);
1.28      kristaps  246: }
                    247:
                    248: static void
1.30      kristaps  249: print_span(const struct tbl_span *sp, int indent)
1.28      kristaps  250: {
                    251:        const struct tbl_dat *dp;
1.30      kristaps  252:        int              i;
                    253:
                    254:        for (i = 0; i < indent; i++)
                    255:                putchar('\t');
1.28      kristaps  256:
                    257:        printf("tbl: ");
                    258:
                    259:        switch (sp->pos) {
                    260:        case (TBL_SPAN_HORIZ):
                    261:                putchar('-');
                    262:                return;
                    263:        case (TBL_SPAN_DHORIZ):
                    264:                putchar('=');
                    265:                return;
                    266:        default:
                    267:                break;
                    268:        }
                    269:
                    270:        for (dp = sp->first; dp; dp = dp->next) {
                    271:                switch (dp->pos) {
                    272:                case (TBL_DATA_HORIZ):
                    273:                        /* FALLTHROUGH */
                    274:                case (TBL_DATA_NHORIZ):
                    275:                        putchar('-');
                    276:                        continue;
                    277:                case (TBL_DATA_DHORIZ):
                    278:                        /* FALLTHROUGH */
                    279:                case (TBL_DATA_NDHORIZ):
                    280:                        putchar('=');
                    281:                        continue;
                    282:                default:
                    283:                        break;
                    284:                }
1.32    ! kristaps  285:                printf("[\"%s\"", dp->string ? dp->string : "");
        !           286:                if (dp->spans)
        !           287:                        printf("(%d)", dp->spans);
        !           288:                if (NULL == dp->layout)
        !           289:                        putchar('*');
        !           290:                putchar(']');
1.28      kristaps  291:                if (dp->next)
                    292:                        putchar(' ');
                    293:        }
1.10      kristaps  294: }

CVSweb