1 /* $Id: tree.c,v 1.78 2018/04/11 17:11:13 schwarze Exp $ */ 2 /* 3 * Copyright (c) 2008, 2009, 2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv> 4 * Copyright (c) 2013,2014,2015,2017,2018 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_COMMENT: 119 t = "comment"; 120 break; 121 case ROFFT_TBL: 122 break; 123 case ROFFT_EQN: 124 t = "eqn"; 125 break; 126 default: 127 abort(); 128 } 129 130 switch (n->type) { 131 case ROFFT_TEXT: 132 case ROFFT_COMMENT: 133 p = n->string; 134 break; 135 case ROFFT_BODY: 136 p = roff_name[n->tok]; 137 break; 138 case ROFFT_HEAD: 139 p = roff_name[n->tok]; 140 break; 141 case ROFFT_TAIL: 142 p = roff_name[n->tok]; 143 break; 144 case ROFFT_ELEM: 145 p = roff_name[n->tok]; 146 if (n->args) { 147 argv = n->args->argv; 148 argc = n->args->argc; 149 } 150 break; 151 case ROFFT_BLOCK: 152 p = roff_name[n->tok]; 153 if (n->args) { 154 argv = n->args->argv; 155 argc = n->args->argc; 156 } 157 break; 158 case ROFFT_TBL: 159 break; 160 case ROFFT_EQN: 161 p = "EQ"; 162 break; 163 case ROFFT_ROOT: 164 p = "root"; 165 break; 166 default: 167 abort(); 168 } 169 170 if (n->span) { 171 assert(NULL == p && NULL == t); 172 print_span(n->span, indent); 173 } else { 174 for (i = 0; i < indent; i++) 175 putchar(' '); 176 177 printf("%s (%s)", p, t); 178 179 for (i = 0; i < (int)argc; i++) { 180 printf(" -%s", mdoc_argnames[argv[i].arg]); 181 if (argv[i].sz > 0) 182 printf(" ["); 183 for (j = 0; j < (int)argv[i].sz; j++) 184 printf(" [%s]", argv[i].value[j]); 185 if (argv[i].sz > 0) 186 printf(" ]"); 187 } 188 189 putchar(' '); 190 if (NODE_DELIMO & n->flags) 191 putchar('('); 192 if (NODE_LINE & n->flags) 193 putchar('*'); 194 printf("%d:%d", n->line, n->pos + 1); 195 if (NODE_DELIMC & n->flags) 196 putchar(')'); 197 if (NODE_EOS & n->flags) 198 putchar('.'); 199 if (NODE_BROKEN & n->flags) 200 printf(" BROKEN"); 201 if (NODE_NOSRC & n->flags) 202 printf(" NOSRC"); 203 if (NODE_NOPRT & n->flags) 204 printf(" NOPRT"); 205 putchar('\n'); 206 } 207 208 if (n->eqn) 209 print_box(n->eqn->first, indent + 4); 210 if (n->child) 211 print_mdoc(n->child, indent + 212 (n->type == ROFFT_BLOCK ? 2 : 4)); 213 if (n->next) 214 print_mdoc(n->next, indent); 215 } 216 217 static void 218 print_man(const struct roff_node *n, int indent) 219 { 220 const char *p, *t; 221 int i; 222 223 if (n == NULL) 224 return; 225 226 t = p = NULL; 227 228 switch (n->type) { 229 case ROFFT_ROOT: 230 t = "root"; 231 break; 232 case ROFFT_ELEM: 233 t = "elem"; 234 break; 235 case ROFFT_TEXT: 236 t = "text"; 237 break; 238 case ROFFT_COMMENT: 239 t = "comment"; 240 break; 241 case ROFFT_BLOCK: 242 t = "block"; 243 break; 244 case ROFFT_HEAD: 245 t = "head"; 246 break; 247 case ROFFT_BODY: 248 t = "body"; 249 break; 250 case ROFFT_TBL: 251 break; 252 case ROFFT_EQN: 253 t = "eqn"; 254 break; 255 default: 256 abort(); 257 } 258 259 switch (n->type) { 260 case ROFFT_TEXT: 261 case ROFFT_COMMENT: 262 p = n->string; 263 break; 264 case ROFFT_ELEM: 265 case ROFFT_BLOCK: 266 case ROFFT_HEAD: 267 case ROFFT_BODY: 268 p = roff_name[n->tok]; 269 break; 270 case ROFFT_ROOT: 271 p = "root"; 272 break; 273 case ROFFT_TBL: 274 break; 275 case ROFFT_EQN: 276 p = "EQ"; 277 break; 278 default: 279 abort(); 280 } 281 282 if (n->span) { 283 assert(NULL == p && NULL == t); 284 print_span(n->span, indent); 285 } else { 286 for (i = 0; i < indent; i++) 287 putchar(' '); 288 printf("%s (%s) ", p, t); 289 if (NODE_LINE & n->flags) 290 putchar('*'); 291 printf("%d:%d", n->line, n->pos + 1); 292 if (NODE_EOS & n->flags) 293 putchar('.'); 294 putchar('\n'); 295 } 296 297 if (n->eqn) 298 print_box(n->eqn->first, indent + 4); 299 if (n->child) 300 print_man(n->child, indent + 301 (n->type == ROFFT_BLOCK ? 2 : 4)); 302 if (n->next) 303 print_man(n->next, indent); 304 } 305 306 static void 307 print_box(const struct eqn_box *ep, int indent) 308 { 309 int i; 310 const char *t; 311 312 static const char *posnames[] = { 313 NULL, "sup", "subsup", "sub", 314 "to", "from", "fromto", 315 "over", "sqrt", NULL }; 316 317 if (NULL == ep) 318 return; 319 for (i = 0; i < indent; i++) 320 putchar(' '); 321 322 t = NULL; 323 switch (ep->type) { 324 case EQN_LIST: 325 t = "eqn-list"; 326 break; 327 case EQN_SUBEXPR: 328 t = "eqn-expr"; 329 break; 330 case EQN_TEXT: 331 t = "eqn-text"; 332 break; 333 case EQN_PILE: 334 t = "eqn-pile"; 335 break; 336 case EQN_MATRIX: 337 t = "eqn-matrix"; 338 break; 339 } 340 341 fputs(t, stdout); 342 if (ep->pos) 343 printf(" pos=%s", posnames[ep->pos]); 344 if (ep->left) 345 printf(" left=\"%s\"", ep->left); 346 if (ep->right) 347 printf(" right=\"%s\"", ep->right); 348 if (ep->top) 349 printf(" top=\"%s\"", ep->top); 350 if (ep->bottom) 351 printf(" bottom=\"%s\"", ep->bottom); 352 if (ep->text) 353 printf(" text=\"%s\"", ep->text); 354 if (ep->font) 355 printf(" font=%d", ep->font); 356 if (ep->size != EQN_DEFSIZE) 357 printf(" size=%d", ep->size); 358 if (ep->expectargs != UINT_MAX && ep->expectargs != ep->args) 359 printf(" badargs=%zu(%zu)", ep->args, ep->expectargs); 360 else if (ep->args) 361 printf(" args=%zu", ep->args); 362 putchar('\n'); 363 364 print_box(ep->first, indent + 4); 365 print_box(ep->next, indent); 366 } 367 368 static void 369 print_span(const struct tbl_span *sp, int indent) 370 { 371 const struct tbl_dat *dp; 372 int i; 373 374 for (i = 0; i < indent; i++) 375 putchar(' '); 376 377 switch (sp->pos) { 378 case TBL_SPAN_HORIZ: 379 putchar('-'); 380 return; 381 case TBL_SPAN_DHORIZ: 382 putchar('='); 383 return; 384 default: 385 break; 386 } 387 388 for (dp = sp->first; dp; dp = dp->next) { 389 switch (dp->pos) { 390 case TBL_DATA_HORIZ: 391 case TBL_DATA_NHORIZ: 392 putchar('-'); 393 continue; 394 case TBL_DATA_DHORIZ: 395 case TBL_DATA_NDHORIZ: 396 putchar('='); 397 continue; 398 default: 399 break; 400 } 401 printf("[\"%s\"", dp->string ? dp->string : ""); 402 if (dp->spans) 403 printf("(%d)", dp->spans); 404 if (NULL == dp->layout) 405 putchar('*'); 406 putchar(']'); 407 putchar(' '); 408 } 409 410 printf("(tbl) %d:1\n", sp->line); 411 } 412