Annotation of mandoc/tree.c, Revision 1.28
1.28 ! kristaps 1: /* $Id: tree.c,v 1.27 2011/01/01 14:09: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.28 ! kristaps 33: static void print_span(const struct tbl_span *);
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:
139: for (i = 0; i < indent; i++)
1.26 kristaps 140: putchar('\t');
141:
142: if (n->span) {
143: assert(NULL == p);
1.28 ! kristaps 144: print_span(n->span);
1.26 kristaps 145: } else {
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:
231: for (i = 0; i < indent; i++)
1.26 kristaps 232: putchar('\t');
233:
234: if (n->span) {
235: assert(NULL == p);
1.28 ! kristaps 236: print_span(n->span);
! 237: } else
1.26 kristaps 238: printf("%s (%s) %d:%d", p, t, n->line, n->pos);
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
! 249: print_span(const struct tbl_span *sp)
! 250: {
! 251: const struct tbl_dat *dp;
! 252:
! 253: printf("tbl: ");
! 254:
! 255: switch (sp->pos) {
! 256: case (TBL_SPAN_HORIZ):
! 257: putchar('-');
! 258: return;
! 259: case (TBL_SPAN_DHORIZ):
! 260: putchar('=');
! 261: return;
! 262: default:
! 263: break;
! 264: }
! 265:
! 266: for (dp = sp->first; dp; dp = dp->next) {
! 267: switch (dp->pos) {
! 268: case (TBL_DATA_HORIZ):
! 269: /* FALLTHROUGH */
! 270: case (TBL_DATA_NHORIZ):
! 271: putchar('-');
! 272: continue;
! 273: case (TBL_DATA_DHORIZ):
! 274: /* FALLTHROUGH */
! 275: case (TBL_DATA_NDHORIZ):
! 276: putchar('=');
! 277: continue;
! 278: default:
! 279: break;
! 280: }
! 281: printf("[%s]", dp->string);
! 282: if (dp->next)
! 283: putchar(' ');
! 284: }
1.10 kristaps 285: }
CVSweb