1 /* $Id: tree.c,v 1.77 2017/07/08 14:51:05 schwarze Exp $ */
2 /*
3 * Copyright (c) 2008, 2009, 2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
4 * Copyright (c) 2013, 2014, 2015, 2017 Ingo Schwarze <schwarze@openbsd.org>
5 *
6 * Permission to use, copy, modify, and distribute this software for any
7 * purpose with or without fee is hereby granted, provided that the above
8 * copyright notice and this permission notice appear in all copies.
9 *
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
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.
17 */
18 #include "config.h"
19
20 #include <sys/types.h>
21
22 #include <assert.h>
23 #include <limits.h>
24 #include <stdio.h>
25 #include <stdlib.h>
26 #include <time.h>
27
28 #include "mandoc.h"
29 #include "roff.h"
30 #include "mdoc.h"
31 #include "man.h"
32 #include "main.h"
33
34 static void print_box(const struct eqn_box *, int);
35 static void print_man(const struct roff_node *, int);
36 static void print_meta(const struct roff_meta *);
37 static void print_mdoc(const struct roff_node *, int);
38 static void print_span(const struct tbl_span *, int);
39
40
41 void
42 tree_mdoc(void *arg, const struct roff_man *mdoc)
43 {
44 print_meta(&mdoc->meta);
45 putchar('\n');
46 print_mdoc(mdoc->first->child, 0);
47 }
48
49 void
50 tree_man(void *arg, const struct roff_man *man)
51 {
52 print_meta(&man->meta);
53 if (man->meta.hasbody == 0)
54 puts("body = empty");
55 putchar('\n');
56 print_man(man->first->child, 0);
57 }
58
59 static void
60 print_meta(const struct roff_meta *meta)
61 {
62 if (meta->title != NULL)
63 printf("title = \"%s\"\n", meta->title);
64 if (meta->name != NULL)
65 printf("name = \"%s\"\n", meta->name);
66 if (meta->msec != NULL)
67 printf("sec = \"%s\"\n", meta->msec);
68 if (meta->vol != NULL)
69 printf("vol = \"%s\"\n", meta->vol);
70 if (meta->arch != NULL)
71 printf("arch = \"%s\"\n", meta->arch);
72 if (meta->os != NULL)
73 printf("os = \"%s\"\n", meta->os);
74 if (meta->date != NULL)
75 printf("date = \"%s\"\n", meta->date);
76 }
77
78 static void
79 print_mdoc(const struct roff_node *n, int indent)
80 {
81 const char *p, *t;
82 int i, j;
83 size_t argc;
84 struct mdoc_argv *argv;
85
86 if (n == NULL)
87 return;
88
89 argv = NULL;
90 argc = 0;
91 t = p = NULL;
92
93 switch (n->type) {
94 case ROFFT_ROOT:
95 t = "root";
96 break;
97 case ROFFT_BLOCK:
98 t = "block";
99 break;
100 case ROFFT_HEAD:
101 t = "head";
102 break;
103 case ROFFT_BODY:
104 if (n->end)
105 t = "body-end";
106 else
107 t = "body";
108 break;
109 case ROFFT_TAIL:
110 t = "tail";
111 break;
112 case ROFFT_ELEM:
113 t = "elem";
114 break;
115 case ROFFT_TEXT:
116 t = "text";
117 break;
118 case ROFFT_TBL:
119 break;
120 case ROFFT_EQN:
121 t = "eqn";
122 break;
123 default:
124 abort();
125 }
126
127 switch (n->type) {
128 case ROFFT_TEXT:
129 p = n->string;
130 break;
131 case ROFFT_BODY:
132 p = roff_name[n->tok];
133 break;
134 case ROFFT_HEAD:
135 p = roff_name[n->tok];
136 break;
137 case ROFFT_TAIL:
138 p = roff_name[n->tok];
139 break;
140 case ROFFT_ELEM:
141 p = roff_name[n->tok];
142 if (n->args) {
143 argv = n->args->argv;
144 argc = n->args->argc;
145 }
146 break;
147 case ROFFT_BLOCK:
148 p = roff_name[n->tok];
149 if (n->args) {
150 argv = n->args->argv;
151 argc = n->args->argc;
152 }
153 break;
154 case ROFFT_TBL:
155 break;
156 case ROFFT_EQN:
157 p = "EQ";
158 break;
159 case ROFFT_ROOT:
160 p = "root";
161 break;
162 default:
163 abort();
164 }
165
166 if (n->span) {
167 assert(NULL == p && NULL == t);
168 print_span(n->span, indent);
169 } else {
170 for (i = 0; i < indent; i++)
171 putchar(' ');
172
173 printf("%s (%s)", p, t);
174
175 for (i = 0; i < (int)argc; i++) {
176 printf(" -%s", mdoc_argnames[argv[i].arg]);
177 if (argv[i].sz > 0)
178 printf(" [");
179 for (j = 0; j < (int)argv[i].sz; j++)
180 printf(" [%s]", argv[i].value[j]);
181 if (argv[i].sz > 0)
182 printf(" ]");
183 }
184
185 putchar(' ');
186 if (NODE_DELIMO & n->flags)
187 putchar('(');
188 if (NODE_LINE & n->flags)
189 putchar('*');
190 printf("%d:%d", n->line, n->pos + 1);
191 if (NODE_DELIMC & n->flags)
192 putchar(')');
193 if (NODE_EOS & n->flags)
194 putchar('.');
195 if (NODE_BROKEN & n->flags)
196 printf(" BROKEN");
197 if (NODE_NOSRC & n->flags)
198 printf(" NOSRC");
199 if (NODE_NOPRT & n->flags)
200 printf(" NOPRT");
201 putchar('\n');
202 }
203
204 if (n->eqn)
205 print_box(n->eqn->first, indent + 4);
206 if (n->child)
207 print_mdoc(n->child, indent +
208 (n->type == ROFFT_BLOCK ? 2 : 4));
209 if (n->next)
210 print_mdoc(n->next, indent);
211 }
212
213 static void
214 print_man(const struct roff_node *n, int indent)
215 {
216 const char *p, *t;
217 int i;
218
219 if (n == NULL)
220 return;
221
222 t = p = NULL;
223
224 switch (n->type) {
225 case ROFFT_ROOT:
226 t = "root";
227 break;
228 case ROFFT_ELEM:
229 t = "elem";
230 break;
231 case ROFFT_TEXT:
232 t = "text";
233 break;
234 case ROFFT_BLOCK:
235 t = "block";
236 break;
237 case ROFFT_HEAD:
238 t = "head";
239 break;
240 case ROFFT_BODY:
241 t = "body";
242 break;
243 case ROFFT_TBL:
244 break;
245 case ROFFT_EQN:
246 t = "eqn";
247 break;
248 default:
249 abort();
250 }
251
252 switch (n->type) {
253 case ROFFT_TEXT:
254 p = n->string;
255 break;
256 case ROFFT_ELEM:
257 case ROFFT_BLOCK:
258 case ROFFT_HEAD:
259 case ROFFT_BODY:
260 p = roff_name[n->tok];
261 break;
262 case ROFFT_ROOT:
263 p = "root";
264 break;
265 case ROFFT_TBL:
266 break;
267 case ROFFT_EQN:
268 p = "EQ";
269 break;
270 default:
271 abort();
272 }
273
274 if (n->span) {
275 assert(NULL == p && NULL == t);
276 print_span(n->span, indent);
277 } else {
278 for (i = 0; i < indent; i++)
279 putchar(' ');
280 printf("%s (%s) ", p, t);
281 if (NODE_LINE & n->flags)
282 putchar('*');
283 printf("%d:%d", n->line, n->pos + 1);
284 if (NODE_EOS & n->flags)
285 putchar('.');
286 putchar('\n');
287 }
288
289 if (n->eqn)
290 print_box(n->eqn->first, indent + 4);
291 if (n->child)
292 print_man(n->child, indent +
293 (n->type == ROFFT_BLOCK ? 2 : 4));
294 if (n->next)
295 print_man(n->next, indent);
296 }
297
298 static void
299 print_box(const struct eqn_box *ep, int indent)
300 {
301 int i;
302 const char *t;
303
304 static const char *posnames[] = {
305 NULL, "sup", "subsup", "sub",
306 "to", "from", "fromto",
307 "over", "sqrt", NULL };
308
309 if (NULL == ep)
310 return;
311 for (i = 0; i < indent; i++)
312 putchar(' ');
313
314 t = NULL;
315 switch (ep->type) {
316 case EQN_LIST:
317 t = "eqn-list";
318 break;
319 case EQN_SUBEXPR:
320 t = "eqn-expr";
321 break;
322 case EQN_TEXT:
323 t = "eqn-text";
324 break;
325 case EQN_PILE:
326 t = "eqn-pile";
327 break;
328 case EQN_MATRIX:
329 t = "eqn-matrix";
330 break;
331 }
332
333 fputs(t, stdout);
334 if (ep->pos)
335 printf(" pos=%s", posnames[ep->pos]);
336 if (ep->left)
337 printf(" left=\"%s\"", ep->left);
338 if (ep->right)
339 printf(" right=\"%s\"", ep->right);
340 if (ep->top)
341 printf(" top=\"%s\"", ep->top);
342 if (ep->bottom)
343 printf(" bottom=\"%s\"", ep->bottom);
344 if (ep->text)
345 printf(" text=\"%s\"", ep->text);
346 if (ep->font)
347 printf(" font=%d", ep->font);
348 if (ep->size != EQN_DEFSIZE)
349 printf(" size=%d", ep->size);
350 if (ep->expectargs != UINT_MAX && ep->expectargs != ep->args)
351 printf(" badargs=%zu(%zu)", ep->args, ep->expectargs);
352 else if (ep->args)
353 printf(" args=%zu", ep->args);
354 putchar('\n');
355
356 print_box(ep->first, indent + 4);
357 print_box(ep->next, indent);
358 }
359
360 static void
361 print_span(const struct tbl_span *sp, int indent)
362 {
363 const struct tbl_dat *dp;
364 int i;
365
366 for (i = 0; i < indent; i++)
367 putchar(' ');
368
369 switch (sp->pos) {
370 case TBL_SPAN_HORIZ:
371 putchar('-');
372 return;
373 case TBL_SPAN_DHORIZ:
374 putchar('=');
375 return;
376 default:
377 break;
378 }
379
380 for (dp = sp->first; dp; dp = dp->next) {
381 switch (dp->pos) {
382 case TBL_DATA_HORIZ:
383 case TBL_DATA_NHORIZ:
384 putchar('-');
385 continue;
386 case TBL_DATA_DHORIZ:
387 case TBL_DATA_NDHORIZ:
388 putchar('=');
389 continue;
390 default:
391 break;
392 }
393 printf("[\"%s\"", dp->string ? dp->string : "");
394 if (dp->spans)
395 printf("(%d)", dp->spans);
396 if (NULL == dp->layout)
397 putchar('*');
398 putchar(']');
399 putchar(' ');
400 }
401
402 printf("(tbl) %d:1\n", sp->line);
403 }