Annotation of mandoc/tree.c, Revision 1.36
1.36 ! kristaps 1: /* $Id: tree.c,v 1.35 2011/02/09 09:05:52 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.33 kristaps 95: case (MDOC_EQN):
96: t = "eqn";
97: break;
1.2 kristaps 98: default:
99: abort();
100: /* NOTREACHED */
101: }
1.1 kristaps 102:
1.26 kristaps 103: p = NULL;
104:
1.1 kristaps 105: switch (n->type) {
106: case (MDOC_TEXT):
1.8 kristaps 107: p = n->string;
1.1 kristaps 108: break;
109: case (MDOC_BODY):
110: p = mdoc_macronames[n->tok];
111: break;
112: case (MDOC_HEAD):
113: p = mdoc_macronames[n->tok];
114: break;
115: case (MDOC_TAIL):
116: p = mdoc_macronames[n->tok];
117: break;
118: case (MDOC_ELEM):
119: p = mdoc_macronames[n->tok];
1.8 kristaps 120: if (n->args) {
121: argv = n->args->argv;
122: argc = n->args->argc;
123: }
1.1 kristaps 124: break;
125: case (MDOC_BLOCK):
126: p = mdoc_macronames[n->tok];
1.8 kristaps 127: if (n->args) {
128: argv = n->args->argv;
129: argc = n->args->argc;
130: }
1.1 kristaps 131: break;
1.25 kristaps 132: case (MDOC_TBL):
133: break;
1.33 kristaps 134: case (MDOC_EQN):
1.35 kristaps 135: p = n->eqn->data;
1.33 kristaps 136: break;
1.1 kristaps 137: case (MDOC_ROOT):
138: p = "root";
139: break;
140: default:
141: abort();
142: /* NOTREACHED */
143: }
144:
1.26 kristaps 145: if (n->span) {
146: assert(NULL == p);
1.30 kristaps 147: print_span(n->span, 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: }
163:
164: for (i = 0; i < (int)sz; i++)
165: printf(" [%s]", params[i]);
1.1 kristaps 166:
1.26 kristaps 167: printf(" %d:%d", n->line, n->pos);
1.1 kristaps 168: }
169:
1.26 kristaps 170: putchar('\n');
1.1 kristaps 171:
172: if (n->child)
1.11 kristaps 173: print_mdoc(n->child, indent + 1);
1.1 kristaps 174: if (n->next)
1.11 kristaps 175: print_mdoc(n->next, indent);
1.1 kristaps 176: }
1.2 kristaps 177:
1.10 kristaps 178:
179: static void
1.11 kristaps 180: print_man(const struct man_node *n, int indent)
1.10 kristaps 181: {
182: const char *p, *t;
183: int i;
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.33 kristaps 207: case (MAN_EQN):
208: t = "eqn";
209: break;
1.10 kristaps 210: default:
211: abort();
212: /* NOTREACHED */
213: }
214:
1.26 kristaps 215: p = NULL;
216:
1.10 kristaps 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):
226: /* FALLTHROUGH */
227: case (MAN_BODY):
1.10 kristaps 228: p = man_macronames[n->tok];
229: break;
230: case (MAN_ROOT):
231: p = "root";
1.25 kristaps 232: break;
233: case (MAN_TBL):
1.33 kristaps 234: break;
235: case (MAN_EQN):
1.36 ! kristaps 236: p = n->eqn->data;
1.10 kristaps 237: break;
238: default:
239: abort();
240: /* NOTREACHED */
241: }
242:
1.26 kristaps 243: if (n->span) {
244: assert(NULL == p);
1.30 kristaps 245: print_span(n->span, indent);
246: } else {
247: for (i = 0; i < indent; i++)
248: putchar('\t');
1.26 kristaps 249: printf("%s (%s) %d:%d", p, t, n->line, n->pos);
1.30 kristaps 250: }
1.26 kristaps 251:
252: putchar('\n');
1.10 kristaps 253:
254: if (n->child)
1.11 kristaps 255: print_man(n->child, indent + 1);
1.10 kristaps 256: if (n->next)
1.11 kristaps 257: print_man(n->next, indent);
1.28 kristaps 258: }
259:
260: static void
1.30 kristaps 261: print_span(const struct tbl_span *sp, int indent)
1.28 kristaps 262: {
263: const struct tbl_dat *dp;
1.30 kristaps 264: int i;
265:
266: for (i = 0; i < indent; i++)
267: putchar('\t');
1.28 kristaps 268:
269: switch (sp->pos) {
270: case (TBL_SPAN_HORIZ):
271: putchar('-');
272: return;
273: case (TBL_SPAN_DHORIZ):
274: putchar('=');
275: return;
276: default:
277: break;
278: }
279:
280: for (dp = sp->first; dp; dp = dp->next) {
281: switch (dp->pos) {
282: case (TBL_DATA_HORIZ):
283: /* FALLTHROUGH */
284: case (TBL_DATA_NHORIZ):
285: putchar('-');
286: continue;
287: case (TBL_DATA_DHORIZ):
288: /* FALLTHROUGH */
289: case (TBL_DATA_NDHORIZ):
290: putchar('=');
291: continue;
292: default:
293: break;
294: }
1.32 kristaps 295: printf("[\"%s\"", dp->string ? dp->string : "");
296: if (dp->spans)
297: printf("(%d)", dp->spans);
298: if (NULL == dp->layout)
299: putchar('*');
300: putchar(']');
1.34 kristaps 301: putchar(' ');
1.28 kristaps 302: }
1.34 kristaps 303:
304: printf("(tbl) %d:1", sp->line);
1.10 kristaps 305: }
CVSweb