Annotation of mandoc/tree.c, Revision 1.26
1.26 ! kristaps 1: /* $Id: tree.c,v 1.25 2011/01/01 12:56:12 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.8 kristaps 33:
34:
1.9 kristaps 35: /* ARGSUSED */
1.15 kristaps 36: void
1.11 kristaps 37: tree_mdoc(void *arg, const struct mdoc *mdoc)
1.8 kristaps 38: {
39:
1.11 kristaps 40: print_mdoc(mdoc_node(mdoc), 0);
41: }
42:
43:
44: /* ARGSUSED */
1.15 kristaps 45: void
1.11 kristaps 46: tree_man(void *arg, const struct man *man)
47: {
48:
49: print_man(man_node(man), 0);
1.8 kristaps 50: }
1.2 kristaps 51:
1.1 kristaps 52:
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;
58: size_t argc, sz;
59: char **params;
1.8 kristaps 60: struct mdoc_argv *argv;
1.26 ! kristaps 61: const struct tbl_dat *dp;
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:
139: for (i = 0; i < indent; i++)
1.26 ! kristaps 140: putchar('\t');
! 141:
! 142: if (n->span) {
! 143: assert(NULL == p);
! 144: printf("tbl: ");
! 145: for (dp = n->span->first; dp; dp = dp->next) {
! 146: printf("[%s]", dp->string);
! 147: if (dp->next)
! 148: putchar(' ');
! 149: }
! 150: } else {
! 151: printf("%s (%s)", p, t);
! 152:
! 153: for (i = 0; i < (int)argc; i++) {
! 154: printf(" -%s", mdoc_argnames[argv[i].arg]);
! 155: if (argv[i].sz > 0)
! 156: printf(" [");
! 157: for (j = 0; j < (int)argv[i].sz; j++)
! 158: printf(" [%s]", argv[i].value[j]);
! 159: if (argv[i].sz > 0)
! 160: printf(" ]");
! 161: }
! 162:
! 163: for (i = 0; i < (int)sz; i++)
! 164: printf(" [%s]", params[i]);
1.1 kristaps 165:
1.26 ! kristaps 166: printf(" %d:%d", n->line, n->pos);
1.1 kristaps 167: }
168:
1.26 ! kristaps 169: putchar('\n');
1.1 kristaps 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;
1.26 ! kristaps 183: const struct tbl_dat *dp;
1.10 kristaps 184:
185: switch (n->type) {
186: case (MAN_ROOT):
187: t = "root";
188: break;
189: case (MAN_ELEM):
190: t = "elem";
191: break;
192: case (MAN_TEXT):
193: t = "text";
194: break;
1.14 kristaps 195: case (MAN_BLOCK):
196: t = "block";
197: break;
198: case (MAN_HEAD):
199: t = "block-head";
200: break;
201: case (MAN_BODY):
202: t = "block-body";
203: break;
1.25 kristaps 204: case (MAN_TBL):
205: t = "tbl";
206: break;
1.10 kristaps 207: default:
208: abort();
209: /* NOTREACHED */
210: }
211:
1.26 ! kristaps 212: p = NULL;
! 213:
1.10 kristaps 214: switch (n->type) {
215: case (MAN_TEXT):
216: p = n->string;
217: break;
218: case (MAN_ELEM):
1.14 kristaps 219: /* FALLTHROUGH */
220: case (MAN_BLOCK):
221: /* FALLTHROUGH */
222: case (MAN_HEAD):
223: /* FALLTHROUGH */
224: case (MAN_BODY):
1.10 kristaps 225: p = man_macronames[n->tok];
226: break;
227: case (MAN_ROOT):
228: p = "root";
1.25 kristaps 229: break;
230: case (MAN_TBL):
1.10 kristaps 231: break;
232: default:
233: abort();
234: /* NOTREACHED */
235: }
236:
237: for (i = 0; i < indent; i++)
1.26 ! kristaps 238: putchar('\t');
! 239:
! 240: if (n->span) {
! 241: assert(NULL == p);
! 242: for (dp = n->span->first; dp; dp = dp->next) {
! 243: printf("tbl: [%s]", dp->string);
! 244: if (dp->next)
! 245: putchar(' ');
! 246: }
! 247: } else
! 248: printf("%s (%s) %d:%d", p, t, n->line, n->pos);
! 249:
! 250: putchar('\n');
1.10 kristaps 251:
252: if (n->child)
1.11 kristaps 253: print_man(n->child, indent + 1);
1.10 kristaps 254: if (n->next)
1.11 kristaps 255: print_man(n->next, indent);
1.10 kristaps 256: }
CVSweb