1 /* $Id: mdoc_man.c,v 1.139 2025/01/24 22:37:24 schwarze Exp $ */ 2 /* 3 * Copyright (c) 2011-2021, 2025 Ingo Schwarze <schwarze@openbsd.org> 4 * 5 * Permission to use, copy, modify, and distribute this software for any 6 * purpose with or without fee is hereby granted, provided that the above 7 * copyright notice and this permission notice appear in all copies. 8 * 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. 16 */ 17 #include "config.h" 18 19 #include <sys/types.h> 20 21 #include <assert.h> 22 #include <stdio.h> 23 #include <stdlib.h> 24 #include <string.h> 25 26 #include "mandoc_aux.h" 27 #include "mandoc.h" 28 #include "roff.h" 29 #include "mdoc.h" 30 #include "man.h" 31 #include "out.h" 32 #include "main.h" 33 34 #define DECL_ARGS const struct roff_meta *meta, struct roff_node *n 35 36 typedef int (*int_fp)(DECL_ARGS); 37 typedef void (*void_fp)(DECL_ARGS); 38 39 struct mdoc_man_act { 40 int_fp cond; /* DON'T run actions */ 41 int_fp pre; /* pre-node action */ 42 void_fp post; /* post-node action */ 43 const char *prefix; /* pre-node string constant */ 44 const char *suffix; /* post-node string constant */ 45 }; 46 47 static int cond_body(DECL_ARGS); 48 static int cond_head(DECL_ARGS); 49 static void font_push(char); 50 static void font_pop(void); 51 static int man_strlen(const char *); 52 static void mid_it(void); 53 static void post__t(DECL_ARGS); 54 static void post_aq(DECL_ARGS); 55 static void post_bd(DECL_ARGS); 56 static void post_bf(DECL_ARGS); 57 static void post_bk(DECL_ARGS); 58 static void post_bl(DECL_ARGS); 59 static void post_dl(DECL_ARGS); 60 static void post_en(DECL_ARGS); 61 static void post_enc(DECL_ARGS); 62 static void post_eo(DECL_ARGS); 63 static void post_fa(DECL_ARGS); 64 static void post_fd(DECL_ARGS); 65 static void post_fl(DECL_ARGS); 66 static void post_fn(DECL_ARGS); 67 static void post_fo(DECL_ARGS); 68 static void post_font(DECL_ARGS); 69 static void post_in(DECL_ARGS); 70 static void post_it(DECL_ARGS); 71 static void post_lb(DECL_ARGS); 72 static void post_nm(DECL_ARGS); 73 static void post_percent(DECL_ARGS); 74 static void post_pf(DECL_ARGS); 75 static void post_sect(DECL_ARGS); 76 static void post_vt(DECL_ARGS); 77 static int pre__t(DECL_ARGS); 78 static int pre_abort(DECL_ARGS); 79 static int pre_an(DECL_ARGS); 80 static int pre_ap(DECL_ARGS); 81 static int pre_aq(DECL_ARGS); 82 static int pre_bd(DECL_ARGS); 83 static int pre_bf(DECL_ARGS); 84 static int pre_bk(DECL_ARGS); 85 static int pre_bl(DECL_ARGS); 86 static void pre_br(DECL_ARGS); 87 static int pre_dl(DECL_ARGS); 88 static int pre_en(DECL_ARGS); 89 static int pre_enc(DECL_ARGS); 90 static int pre_em(DECL_ARGS); 91 static int pre_skip(DECL_ARGS); 92 static int pre_eo(DECL_ARGS); 93 static int pre_ex(DECL_ARGS); 94 static int pre_fa(DECL_ARGS); 95 static int pre_fd(DECL_ARGS); 96 static int pre_fl(DECL_ARGS); 97 static int pre_fn(DECL_ARGS); 98 static int pre_fo(DECL_ARGS); 99 static void pre_ft(DECL_ARGS); 100 static int pre_Ft(DECL_ARGS); 101 static int pre_in(DECL_ARGS); 102 static int pre_it(DECL_ARGS); 103 static int pre_lk(DECL_ARGS); 104 static int pre_li(DECL_ARGS); 105 static int pre_nm(DECL_ARGS); 106 static int pre_no(DECL_ARGS); 107 static void pre_noarg(DECL_ARGS); 108 static int pre_ns(DECL_ARGS); 109 static void pre_onearg(DECL_ARGS); 110 static int pre_pp(DECL_ARGS); 111 static int pre_rs(DECL_ARGS); 112 static int pre_sm(DECL_ARGS); 113 static void pre_sp(DECL_ARGS); 114 static int pre_sect(DECL_ARGS); 115 static int pre_sy(DECL_ARGS); 116 static void pre_syn(struct roff_node *); 117 static void pre_ta(DECL_ARGS); 118 static int pre_vt(DECL_ARGS); 119 static int pre_xr(DECL_ARGS); 120 static void print_word(const char *); 121 static void print_line(const char *, int); 122 static void print_block(const char *, int); 123 static void print_offs(const char *, int); 124 static void print_width(const struct mdoc_bl *, 125 const struct roff_node *); 126 static void print_count(int *); 127 static void print_node(DECL_ARGS); 128 129 static const void_fp roff_man_acts[ROFF_MAX] = { 130 pre_br, /* br */ 131 pre_onearg, /* ce */ 132 pre_noarg, /* fi */ 133 pre_ft, /* ft */ 134 pre_onearg, /* ll */ 135 pre_onearg, /* mc */ 136 pre_noarg, /* nf */ 137 pre_onearg, /* po */ 138 pre_onearg, /* rj */ 139 pre_sp, /* sp */ 140 pre_ta, /* ta */ 141 pre_onearg, /* ti */ 142 }; 143 144 static const struct mdoc_man_act mdoc_man_acts[MDOC_MAX - MDOC_Dd] = { 145 { NULL, NULL, NULL, NULL, NULL }, /* Dd */ 146 { NULL, NULL, NULL, NULL, NULL }, /* Dt */ 147 { NULL, NULL, NULL, NULL, NULL }, /* Os */ 148 { NULL, pre_sect, post_sect, ".SH", NULL }, /* Sh */ 149 { NULL, pre_sect, post_sect, ".SS", NULL }, /* Ss */ 150 { NULL, pre_pp, NULL, NULL, NULL }, /* Pp */ 151 { cond_body, pre_dl, post_dl, NULL, NULL }, /* D1 */ 152 { cond_body, pre_dl, post_dl, NULL, NULL }, /* Dl */ 153 { cond_body, pre_bd, post_bd, NULL, NULL }, /* Bd */ 154 { NULL, NULL, NULL, NULL, NULL }, /* Ed */ 155 { cond_body, pre_bl, post_bl, NULL, NULL }, /* Bl */ 156 { NULL, NULL, NULL, NULL, NULL }, /* El */ 157 { NULL, pre_it, post_it, NULL, NULL }, /* It */ 158 { NULL, pre_em, post_font, NULL, NULL }, /* Ad */ 159 { NULL, pre_an, NULL, NULL, NULL }, /* An */ 160 { NULL, pre_ap, NULL, NULL, NULL }, /* Ap */ 161 { NULL, pre_em, post_font, NULL, NULL }, /* Ar */ 162 { NULL, pre_sy, post_font, NULL, NULL }, /* Cd */ 163 { NULL, pre_sy, post_font, NULL, NULL }, /* Cm */ 164 { NULL, pre_li, post_font, NULL, NULL }, /* Dv */ 165 { NULL, pre_li, post_font, NULL, NULL }, /* Er */ 166 { NULL, pre_li, post_font, NULL, NULL }, /* Ev */ 167 { NULL, pre_ex, NULL, NULL, NULL }, /* Ex */ 168 { NULL, pre_fa, post_fa, NULL, NULL }, /* Fa */ 169 { NULL, pre_fd, post_fd, NULL, NULL }, /* Fd */ 170 { NULL, pre_fl, post_fl, NULL, NULL }, /* Fl */ 171 { NULL, pre_fn, post_fn, NULL, NULL }, /* Fn */ 172 { NULL, pre_Ft, post_font, NULL, NULL }, /* Ft */ 173 { NULL, pre_sy, post_font, NULL, NULL }, /* Ic */ 174 { NULL, pre_in, post_in, NULL, NULL }, /* In */ 175 { NULL, pre_li, post_font, NULL, NULL }, /* Li */ 176 { cond_head, pre_enc, NULL, "\\- ", NULL }, /* Nd */ 177 { NULL, pre_nm, post_nm, NULL, NULL }, /* Nm */ 178 { cond_body, pre_enc, post_enc, "[", "]" }, /* Op */ 179 { NULL, pre_abort, NULL, NULL, NULL }, /* Ot */ 180 { NULL, pre_em, post_font, NULL, NULL }, /* Pa */ 181 { NULL, pre_ex, NULL, NULL, NULL }, /* Rv */ 182 { NULL, NULL, NULL, NULL, NULL }, /* St */ 183 { NULL, pre_em, post_font, NULL, NULL }, /* Va */ 184 { NULL, pre_vt, post_vt, NULL, NULL }, /* Vt */ 185 { NULL, pre_xr, NULL, NULL, NULL }, /* Xr */ 186 { NULL, NULL, post_percent, NULL, NULL }, /* %A */ 187 { NULL, pre_em, post_percent, NULL, NULL }, /* %B */ 188 { NULL, NULL, post_percent, NULL, NULL }, /* %D */ 189 { NULL, pre_em, post_percent, NULL, NULL }, /* %I */ 190 { NULL, pre_em, post_percent, NULL, NULL }, /* %J */ 191 { NULL, NULL, post_percent, NULL, NULL }, /* %N */ 192 { NULL, NULL, post_percent, NULL, NULL }, /* %O */ 193 { NULL, NULL, post_percent, NULL, NULL }, /* %P */ 194 { NULL, NULL, post_percent, NULL, NULL }, /* %R */ 195 { NULL, pre__t, post__t, NULL, NULL }, /* %T */ 196 { NULL, NULL, post_percent, NULL, NULL }, /* %V */ 197 { NULL, NULL, NULL, NULL, NULL }, /* Ac */ 198 { cond_body, pre_aq, post_aq, NULL, NULL }, /* Ao */ 199 { cond_body, pre_aq, post_aq, NULL, NULL }, /* Aq */ 200 { NULL, NULL, NULL, NULL, NULL }, /* At */ 201 { NULL, NULL, NULL, NULL, NULL }, /* Bc */ 202 { NULL, pre_bf, post_bf, NULL, NULL }, /* Bf */ 203 { cond_body, pre_enc, post_enc, "[", "]" }, /* Bo */ 204 { cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */ 205 { NULL, pre_bk, post_bk, NULL, NULL }, /* Bsx */ 206 { NULL, pre_bk, post_bk, NULL, NULL }, /* Bx */ 207 { NULL, pre_skip, NULL, NULL, NULL }, /* Db */ 208 { NULL, NULL, NULL, NULL, NULL }, /* Dc */ 209 { cond_body, pre_enc, post_enc, "\\(lq", "\\(rq" }, /* Do */ 210 { cond_body, pre_enc, post_enc, "\\(lq", "\\(rq" }, /* Dq */ 211 { NULL, NULL, NULL, NULL, NULL }, /* Ec */ 212 { NULL, NULL, NULL, NULL, NULL }, /* Ef */ 213 { NULL, pre_em, post_font, NULL, NULL }, /* Em */ 214 { cond_body, pre_eo, post_eo, NULL, NULL }, /* Eo */ 215 { NULL, pre_bk, post_bk, NULL, NULL }, /* Fx */ 216 { NULL, pre_sy, post_font, NULL, NULL }, /* Ms */ 217 { NULL, pre_no, NULL, NULL, NULL }, /* No */ 218 { NULL, pre_ns, NULL, NULL, NULL }, /* Ns */ 219 { NULL, pre_bk, post_bk, NULL, NULL }, /* Nx */ 220 { NULL, pre_bk, post_bk, NULL, NULL }, /* Ox */ 221 { NULL, NULL, NULL, NULL, NULL }, /* Pc */ 222 { NULL, NULL, post_pf, NULL, NULL }, /* Pf */ 223 { cond_body, pre_enc, post_enc, "(", ")" }, /* Po */ 224 { cond_body, pre_enc, post_enc, "(", ")" }, /* Pq */ 225 { NULL, NULL, NULL, NULL, NULL }, /* Qc */ 226 { cond_body, pre_enc, post_enc, "\\(oq", "\\(cq" }, /* Ql */ 227 { cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qo */ 228 { cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qq */ 229 { NULL, NULL, NULL, NULL, NULL }, /* Re */ 230 { cond_body, pre_rs, NULL, NULL, NULL }, /* Rs */ 231 { NULL, NULL, NULL, NULL, NULL }, /* Sc */ 232 { cond_body, pre_enc, post_enc, "\\(oq", "\\(cq" }, /* So */ 233 { cond_body, pre_enc, post_enc, "\\(oq", "\\(cq" }, /* Sq */ 234 { NULL, pre_sm, NULL, NULL, NULL }, /* Sm */ 235 { NULL, pre_em, post_font, NULL, NULL }, /* Sx */ 236 { NULL, pre_sy, post_font, NULL, NULL }, /* Sy */ 237 { NULL, pre_li, post_font, NULL, NULL }, /* Tn */ 238 { NULL, NULL, NULL, NULL, NULL }, /* Ux */ 239 { NULL, NULL, NULL, NULL, NULL }, /* Xc */ 240 { NULL, NULL, NULL, NULL, NULL }, /* Xo */ 241 { NULL, pre_fo, post_fo, NULL, NULL }, /* Fo */ 242 { NULL, NULL, NULL, NULL, NULL }, /* Fc */ 243 { cond_body, pre_enc, post_enc, "[", "]" }, /* Oo */ 244 { NULL, NULL, NULL, NULL, NULL }, /* Oc */ 245 { NULL, pre_bk, post_bk, NULL, NULL }, /* Bk */ 246 { NULL, NULL, NULL, NULL, NULL }, /* Ek */ 247 { NULL, NULL, NULL, NULL, NULL }, /* Bt */ 248 { NULL, NULL, NULL, NULL, NULL }, /* Hf */ 249 { NULL, pre_em, post_font, NULL, NULL }, /* Fr */ 250 { NULL, NULL, NULL, NULL, NULL }, /* Ud */ 251 { NULL, NULL, post_lb, NULL, NULL }, /* Lb */ 252 { NULL, pre_abort, NULL, NULL, NULL }, /* Lp */ 253 { NULL, pre_lk, NULL, NULL, NULL }, /* Lk */ 254 { NULL, pre_em, post_font, NULL, NULL }, /* Mt */ 255 { cond_body, pre_enc, post_enc, "{", "}" }, /* Brq */ 256 { cond_body, pre_enc, post_enc, "{", "}" }, /* Bro */ 257 { NULL, NULL, NULL, NULL, NULL }, /* Brc */ 258 { NULL, NULL, post_percent, NULL, NULL }, /* %C */ 259 { NULL, pre_skip, NULL, NULL, NULL }, /* Es */ 260 { cond_body, pre_en, post_en, NULL, NULL }, /* En */ 261 { NULL, pre_bk, post_bk, NULL, NULL }, /* Dx */ 262 { NULL, NULL, post_percent, NULL, NULL }, /* %Q */ 263 { NULL, NULL, post_percent, NULL, NULL }, /* %U */ 264 { NULL, NULL, NULL, NULL, NULL }, /* Ta */ 265 { NULL, pre_skip, NULL, NULL, NULL }, /* Tg */ 266 }; 267 static const struct mdoc_man_act *mdoc_man_act(enum roff_tok); 268 269 static int outflags; 270 #define MMAN_spc (1 << 0) /* blank character before next word */ 271 #define MMAN_spc_force (1 << 1) /* even before trailing punctuation */ 272 #define MMAN_nl (1 << 2) /* break man(7) code line */ 273 #define MMAN_br (1 << 3) /* break output line */ 274 #define MMAN_sp (1 << 4) /* insert a blank output line */ 275 #define MMAN_PP (1 << 5) /* reset indentation etc. */ 276 #define MMAN_Sm (1 << 6) /* horizontal spacing mode */ 277 #define MMAN_Bk (1 << 7) /* word keep mode */ 278 #define MMAN_Bk_susp (1 << 8) /* suspend this (after a macro) */ 279 #define MMAN_An_split (1 << 9) /* author mode is "split" */ 280 #define MMAN_An_nosplit (1 << 10) /* author mode is "nosplit" */ 281 #define MMAN_PD (1 << 11) /* inter-paragraph spacing disabled */ 282 #define MMAN_nbrword (1 << 12) /* do not break the next word */ 283 284 #define BL_STACK_MAX 32 285 286 static int Bl_stack[BL_STACK_MAX]; /* offsets [chars] */ 287 static int Bl_stack_post[BL_STACK_MAX]; /* add final .RE */ 288 static int Bl_stack_len; /* number of nested Bl blocks */ 289 static int TPremain; /* characters before tag is full */ 290 291 static struct { 292 char *head; 293 char *tail; 294 size_t size; 295 } fontqueue; 296 297 298 static const struct mdoc_man_act * 299 mdoc_man_act(enum roff_tok tok) 300 { 301 assert(tok >= MDOC_Dd && tok <= MDOC_MAX); 302 return mdoc_man_acts + (tok - MDOC_Dd); 303 } 304 305 static int 306 man_strlen(const char *cp) 307 { 308 size_t rsz; 309 int skip, sz; 310 311 sz = 0; 312 skip = 0; 313 for (;;) { 314 rsz = strcspn(cp, "\\"); 315 if (rsz) { 316 cp += rsz; 317 if (skip) { 318 skip = 0; 319 rsz--; 320 } 321 sz += rsz; 322 } 323 if ('\0' == *cp) 324 break; 325 cp++; 326 switch (mandoc_escape(&cp, NULL, NULL)) { 327 case ESCAPE_ERROR: 328 return sz; 329 case ESCAPE_UNICODE: 330 case ESCAPE_NUMBERED: 331 case ESCAPE_SPECIAL: 332 case ESCAPE_UNDEF: 333 case ESCAPE_OVERSTRIKE: 334 if (skip) 335 skip = 0; 336 else 337 sz++; 338 break; 339 case ESCAPE_SKIPCHAR: 340 skip = 1; 341 break; 342 default: 343 break; 344 } 345 } 346 return sz; 347 } 348 349 static void 350 font_push(char newfont) 351 { 352 353 if (fontqueue.head + fontqueue.size <= ++fontqueue.tail) { 354 fontqueue.size += 8; 355 fontqueue.head = mandoc_realloc(fontqueue.head, 356 fontqueue.size); 357 } 358 *fontqueue.tail = newfont; 359 print_word(""); 360 printf("\\f"); 361 putchar(newfont); 362 outflags &= ~MMAN_spc; 363 } 364 365 static void 366 font_pop(void) 367 { 368 369 if (fontqueue.tail > fontqueue.head) 370 fontqueue.tail--; 371 outflags &= ~MMAN_spc; 372 print_word(""); 373 printf("\\f"); 374 putchar(*fontqueue.tail); 375 } 376 377 static void 378 print_word(const char *s) 379 { 380 381 if ((MMAN_PP | MMAN_sp | MMAN_br | MMAN_nl) & outflags) { 382 /* 383 * If we need a newline, print it now and start afresh. 384 */ 385 if (MMAN_PP & outflags) { 386 if (MMAN_sp & outflags) { 387 if (MMAN_PD & outflags) { 388 printf("\n.PD"); 389 outflags &= ~MMAN_PD; 390 } 391 } else if ( ! (MMAN_PD & outflags)) { 392 printf("\n.PD 0"); 393 outflags |= MMAN_PD; 394 } 395 printf("\n.PP\n"); 396 } else if (MMAN_sp & outflags) 397 printf("\n.sp\n"); 398 else if (MMAN_br & outflags) 399 printf("\n.br\n"); 400 else if (MMAN_nl & outflags) 401 putchar('\n'); 402 outflags &= ~(MMAN_PP|MMAN_sp|MMAN_br|MMAN_nl|MMAN_spc); 403 if (1 == TPremain) 404 printf(".br\n"); 405 TPremain = 0; 406 } else if (MMAN_spc & outflags) { 407 /* 408 * If we need a space, only print it if 409 * (1) it is forced by `No' or 410 * (2) what follows is not terminating punctuation or 411 * (3) what follows is longer than one character. 412 */ 413 if (MMAN_spc_force & outflags || '\0' == s[0] || 414 NULL == strchr(".,:;)]?!", s[0]) || '\0' != s[1]) { 415 if (MMAN_Bk & outflags && 416 ! (MMAN_Bk_susp & outflags)) 417 putchar('\\'); 418 putchar(' '); 419 if (TPremain) 420 TPremain--; 421 } 422 } 423 424 /* 425 * Reassign needing space if we're not following opening 426 * punctuation. 427 */ 428 if (MMAN_Sm & outflags && ('\0' == s[0] || 429 (('(' != s[0] && '[' != s[0]) || '\0' != s[1]))) 430 outflags |= MMAN_spc; 431 else 432 outflags &= ~MMAN_spc; 433 outflags &= ~(MMAN_spc_force | MMAN_Bk_susp); 434 435 for ( ; *s; s++) { 436 switch (*s) { 437 case ASCII_NBRSP: 438 printf("\\ "); 439 break; 440 case ASCII_HYPH: 441 putchar('-'); 442 break; 443 case ASCII_BREAK: 444 printf("\\:"); 445 break; 446 case ' ': 447 if (MMAN_nbrword & outflags) { 448 printf("\\ "); 449 break; 450 } 451 /* FALLTHROUGH */ 452 default: 453 putchar((unsigned char)*s); 454 break; 455 } 456 if (TPremain) 457 TPremain--; 458 } 459 outflags &= ~MMAN_nbrword; 460 } 461 462 static void 463 print_line(const char *s, int newflags) 464 { 465 466 outflags |= MMAN_nl; 467 print_word(s); 468 outflags |= newflags; 469 } 470 471 static void 472 print_block(const char *s, int newflags) 473 { 474 475 outflags &= ~MMAN_PP; 476 if (MMAN_sp & outflags) { 477 outflags &= ~(MMAN_sp | MMAN_br); 478 if (MMAN_PD & outflags) { 479 print_line(".PD", 0); 480 outflags &= ~MMAN_PD; 481 } 482 } else if (! (MMAN_PD & outflags)) 483 print_line(".PD 0", MMAN_PD); 484 outflags |= MMAN_nl; 485 print_word(s); 486 outflags |= MMAN_Bk_susp | newflags; 487 } 488 489 static void 490 print_offs(const char *v, int keywords) 491 { 492 char buf[24]; 493 struct roffsu su; 494 const char *end; 495 int sz; 496 497 print_line(".RS", MMAN_Bk_susp); 498 499 /* Convert v into a number (of characters). */ 500 if (NULL == v || '\0' == *v || (keywords && !strcmp(v, "left"))) 501 sz = 0; 502 else if (keywords && !strcmp(v, "indent")) 503 sz = 6; 504 else if (keywords && !strcmp(v, "indent-two")) 505 sz = 12; 506 else { 507 end = a2roffsu(v, &su, SCALE_EN); 508 if (end == NULL || *end != '\0') 509 sz = man_strlen(v); 510 else if (SCALE_EN == su.unit) 511 sz = su.scale; 512 else { 513 /* 514 * XXX 515 * If we are inside an enclosing list, 516 * there is no easy way to add the two 517 * indentations because they are provided 518 * in terms of different units. 519 */ 520 print_word(v); 521 outflags |= MMAN_nl; 522 return; 523 } 524 } 525 526 /* 527 * We are inside an enclosing list. 528 * Add the two indentations. 529 */ 530 if (Bl_stack_len) 531 sz += Bl_stack[Bl_stack_len - 1]; 532 533 (void)snprintf(buf, sizeof(buf), "%dn", sz); 534 print_word(buf); 535 outflags |= MMAN_nl; 536 } 537 538 /* 539 * Set up the indentation for a list item; used from pre_it(). 540 */ 541 static void 542 print_width(const struct mdoc_bl *bl, const struct roff_node *child) 543 { 544 char buf[24]; 545 struct roffsu su; 546 const char *end; 547 int numeric, remain, sz, chsz; 548 549 numeric = 1; 550 remain = 0; 551 552 /* Convert the width into a number (of characters). */ 553 if (bl->width == NULL) 554 sz = (bl->type == LIST_hang) ? 6 : 0; 555 else { 556 end = a2roffsu(bl->width, &su, SCALE_MAX); 557 if (end == NULL || *end != '\0') 558 sz = man_strlen(bl->width); 559 else if (SCALE_EN == su.unit) 560 sz = su.scale; 561 else { 562 sz = 0; 563 numeric = 0; 564 } 565 } 566 567 /* XXX Rough estimation, might have multiple parts. */ 568 if (bl->type == LIST_enum) 569 chsz = (bl->count > 8) + 1; 570 else if (child != NULL && child->type == ROFFT_TEXT) 571 chsz = man_strlen(child->string); 572 else 573 chsz = 0; 574 575 /* Maybe we are inside an enclosing list? */ 576 mid_it(); 577 578 /* 579 * Save our own indentation, 580 * such that child lists can use it. 581 */ 582 Bl_stack[Bl_stack_len++] = sz + 2; 583 584 /* Set up the current list. */ 585 if (chsz > sz && bl->type != LIST_tag) 586 print_block(".HP", MMAN_spc); 587 else { 588 print_block(".TP", MMAN_spc); 589 remain = sz + 2; 590 } 591 if (numeric) { 592 (void)snprintf(buf, sizeof(buf), "%dn", sz + 2); 593 print_word(buf); 594 } else 595 print_word(bl->width); 596 TPremain = remain; 597 } 598 599 static void 600 print_count(int *count) 601 { 602 char buf[24]; 603 604 (void)snprintf(buf, sizeof(buf), "%d.\\&", ++*count); 605 print_word(buf); 606 } 607 608 void 609 man_mdoc(void *arg, const struct roff_meta *mdoc) 610 { 611 struct roff_node *n; 612 613 printf(".\\\" Automatically generated from an mdoc input file." 614 " Do not edit.\n"); 615 for (n = mdoc->first->child; n != NULL; n = n->next) { 616 if (n->type != ROFFT_COMMENT) 617 break; 618 printf(".\\\"%s\n", n->string); 619 } 620 621 printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"\n", 622 mdoc->title, (mdoc->msec == NULL ? "" : mdoc->msec), 623 mdoc->date, mdoc->os, mdoc->vol); 624 625 /* Disable hyphenation and if nroff, disable justification. */ 626 printf(".nh\n.if n .ad l"); 627 628 outflags = MMAN_nl | MMAN_Sm; 629 if (0 == fontqueue.size) { 630 fontqueue.size = 8; 631 fontqueue.head = fontqueue.tail = mandoc_malloc(8); 632 *fontqueue.tail = 'R'; 633 } 634 for (; n != NULL; n = n->next) 635 print_node(mdoc, n); 636 putchar('\n'); 637 } 638 639 static void 640 print_node(DECL_ARGS) 641 { 642 const struct mdoc_man_act *act; 643 struct roff_node *sub; 644 int cond, do_sub; 645 646 if (n->flags & NODE_NOPRT) 647 return; 648 649 /* 650 * Break the line if we were parsed subsequent the current node. 651 * This makes the page structure be more consistent. 652 */ 653 if (outflags & MMAN_spc && 654 n->flags & NODE_LINE && 655 !roff_node_transparent(n)) 656 outflags |= MMAN_nl; 657 658 act = NULL; 659 cond = 0; 660 do_sub = 1; 661 n->flags &= ~NODE_ENDED; 662 663 switch (n->type) { 664 case ROFFT_EQN: 665 case ROFFT_TBL: 666 mandoc_msg(n->type == ROFFT_EQN ? MANDOCERR_EQN_TMAN : 667 MANDOCERR_TBL_TMAN, n->line, n->pos, NULL); 668 outflags |= MMAN_PP | MMAN_sp | MMAN_nl; 669 print_word("The"); 670 print_line(".B \\-T man", MMAN_nl); 671 print_word("output mode does not support"); 672 print_word(n->type == ROFFT_EQN ? "eqn(7)" : "tbl(7)"); 673 print_word("input."); 674 outflags |= MMAN_PP | MMAN_sp | MMAN_nl; 675 return; 676 case ROFFT_TEXT: 677 /* 678 * Make sure that we don't happen to start with a 679 * control character at the start of a line. 680 */ 681 if (MMAN_nl & outflags && 682 ('.' == *n->string || '\'' == *n->string)) { 683 print_word(""); 684 printf("\\&"); 685 outflags &= ~MMAN_spc; 686 } 687 if (n->flags & NODE_DELIMC) 688 outflags &= ~(MMAN_spc | MMAN_spc_force); 689 else if (outflags & MMAN_Sm) 690 outflags |= MMAN_spc_force; 691 print_word(n->string); 692 if (n->flags & NODE_DELIMO) 693 outflags &= ~(MMAN_spc | MMAN_spc_force); 694 else if (outflags & MMAN_Sm) 695 outflags |= MMAN_spc; 696 break; 697 default: 698 if (n->tok < ROFF_MAX) { 699 (*roff_man_acts[n->tok])(meta, n); 700 return; 701 } 702 act = mdoc_man_act(n->tok); 703 cond = act->cond == NULL || (*act->cond)(meta, n); 704 if (cond && act->pre != NULL && 705 (n->end == ENDBODY_NOT || n->child != NULL)) 706 do_sub = (*act->pre)(meta, n); 707 break; 708 } 709 710 /* 711 * Conditionally run all child nodes. 712 * Note that this iterates over children instead of using 713 * recursion. This prevents unnecessary depth in the stack. 714 */ 715 if (do_sub) 716 for (sub = n->child; sub; sub = sub->next) 717 print_node(meta, sub); 718 719 /* 720 * Lastly, conditionally run the post-node handler. 721 */ 722 if (NODE_ENDED & n->flags) 723 return; 724 725 if (cond && act->post) 726 (*act->post)(meta, n); 727 728 if (ENDBODY_NOT != n->end) 729 n->body->flags |= NODE_ENDED; 730 } 731 732 static int 733 cond_head(DECL_ARGS) 734 { 735 736 return n->type == ROFFT_HEAD; 737 } 738 739 static int 740 cond_body(DECL_ARGS) 741 { 742 743 return n->type == ROFFT_BODY; 744 } 745 746 static int 747 pre_abort(DECL_ARGS) 748 { 749 abort(); 750 } 751 752 static int 753 pre_enc(DECL_ARGS) 754 { 755 const char *prefix; 756 757 prefix = mdoc_man_act(n->tok)->prefix; 758 if (NULL == prefix) 759 return 1; 760 print_word(prefix); 761 outflags &= ~MMAN_spc; 762 return 1; 763 } 764 765 static void 766 post_enc(DECL_ARGS) 767 { 768 const char *suffix; 769 770 suffix = mdoc_man_act(n->tok)->suffix; 771 if (NULL == suffix) 772 return; 773 outflags &= ~(MMAN_spc | MMAN_nl); 774 print_word(suffix); 775 } 776 777 static int 778 pre_ex(DECL_ARGS) 779 { 780 outflags |= MMAN_br | MMAN_nl; 781 return 1; 782 } 783 784 static void 785 post_font(DECL_ARGS) 786 { 787 788 font_pop(); 789 } 790 791 static void 792 post_percent(DECL_ARGS) 793 { 794 struct roff_node *np, *nn, *nnn; 795 796 if (mdoc_man_act(n->tok)->pre == pre_em) 797 font_pop(); 798 799 if (n->parent == NULL || n->parent->tok != MDOC_Rs) 800 return; 801 802 if ((nn = roff_node_next(n)) != NULL) { 803 np = roff_node_prev(n); 804 nnn = nn == NULL ? NULL : roff_node_next(nn); 805 if (nn->tok != n->tok || 806 (np != NULL && np->tok == n->tok) || 807 (nnn != NULL && nnn->tok == n->tok)) 808 print_word(","); 809 if (nn->tok == n->tok && 810 (nnn == NULL || nnn->tok != n->tok)) 811 print_word("and"); 812 } else { 813 print_word("."); 814 outflags |= MMAN_nl; 815 } 816 } 817 818 static int 819 pre__t(DECL_ARGS) 820 { 821 822 if (n->parent->tok == MDOC_Rs && n->parent->norm->Rs.quote_T) { 823 print_word("\\(lq"); 824 outflags &= ~MMAN_spc; 825 } else 826 font_push('I'); 827 return 1; 828 } 829 830 static void 831 post__t(DECL_ARGS) 832 { 833 834 if (n->parent->tok == MDOC_Rs && n->parent->norm->Rs.quote_T) { 835 outflags &= ~MMAN_spc; 836 print_word("\\(rq"); 837 } else 838 font_pop(); 839 post_percent(meta, n); 840 } 841 842 /* 843 * Print before a section header. 844 */ 845 static int 846 pre_sect(DECL_ARGS) 847 { 848 849 if (n->type == ROFFT_HEAD) { 850 outflags |= MMAN_sp; 851 print_block(mdoc_man_act(n->tok)->prefix, 0); 852 print_word(""); 853 putchar('\"'); 854 outflags &= ~MMAN_spc; 855 } 856 return 1; 857 } 858 859 /* 860 * Print subsequent a section header. 861 */ 862 static void 863 post_sect(DECL_ARGS) 864 { 865 866 if (n->type != ROFFT_HEAD) 867 return; 868 outflags &= ~MMAN_spc; 869 print_word(""); 870 putchar('\"'); 871 outflags |= MMAN_nl; 872 if (MDOC_Sh == n->tok && SEC_AUTHORS == n->sec) 873 outflags &= ~(MMAN_An_split | MMAN_An_nosplit); 874 } 875 876 /* See mdoc_term.c, synopsis_pre() for comments. */ 877 static void 878 pre_syn(struct roff_node *n) 879 { 880 struct roff_node *np; 881 882 if ((n->flags & NODE_SYNPRETTY) == 0 || 883 (np = roff_node_prev(n)) == NULL) 884 return; 885 886 if (np->tok == n->tok && 887 MDOC_Ft != n->tok && 888 MDOC_Fo != n->tok && 889 MDOC_Fn != n->tok) { 890 outflags |= MMAN_br; 891 return; 892 } 893 894 switch (np->tok) { 895 case MDOC_Fd: 896 case MDOC_Fn: 897 case MDOC_Fo: 898 case MDOC_In: 899 case MDOC_Vt: 900 outflags |= MMAN_sp; 901 break; 902 case MDOC_Ft: 903 if (MDOC_Fn != n->tok && MDOC_Fo != n->tok) { 904 outflags |= MMAN_sp; 905 break; 906 } 907 /* FALLTHROUGH */ 908 default: 909 outflags |= MMAN_br; 910 break; 911 } 912 } 913 914 static int 915 pre_an(DECL_ARGS) 916 { 917 918 switch (n->norm->An.auth) { 919 case AUTH_split: 920 outflags &= ~MMAN_An_nosplit; 921 outflags |= MMAN_An_split; 922 return 0; 923 case AUTH_nosplit: 924 outflags &= ~MMAN_An_split; 925 outflags |= MMAN_An_nosplit; 926 return 0; 927 default: 928 if (MMAN_An_split & outflags) 929 outflags |= MMAN_br; 930 else if (SEC_AUTHORS == n->sec && 931 ! (MMAN_An_nosplit & outflags)) 932 outflags |= MMAN_An_split; 933 return 1; 934 } 935 } 936 937 static int 938 pre_ap(DECL_ARGS) 939 { 940 941 outflags &= ~MMAN_spc; 942 print_word("'"); 943 outflags &= ~MMAN_spc; 944 return 0; 945 } 946 947 static int 948 pre_aq(DECL_ARGS) 949 { 950 951 print_word(n->child != NULL && n->child->next == NULL && 952 n->child->tok == MDOC_Mt ? "<" : "\\(la"); 953 outflags &= ~MMAN_spc; 954 return 1; 955 } 956 957 static void 958 post_aq(DECL_ARGS) 959 { 960 961 outflags &= ~(MMAN_spc | MMAN_nl); 962 print_word(n->child != NULL && n->child->next == NULL && 963 n->child->tok == MDOC_Mt ? ">" : "\\(ra"); 964 } 965 966 static int 967 pre_bd(DECL_ARGS) 968 { 969 outflags &= ~(MMAN_PP | MMAN_sp | MMAN_br); 970 if (n->norm->Bd.type == DISP_unfilled || 971 n->norm->Bd.type == DISP_literal) 972 print_line(".nf", 0); 973 if (n->norm->Bd.comp == 0 && roff_node_prev(n->parent) != NULL) 974 outflags |= MMAN_sp; 975 print_offs(n->norm->Bd.offs, 1); 976 return 1; 977 } 978 979 static void 980 post_bd(DECL_ARGS) 981 { 982 enum roff_tok bef, now; 983 984 /* Close out this display. */ 985 print_line(".RE", MMAN_nl); 986 bef = n->flags & NODE_NOFILL ? ROFF_nf : ROFF_fi; 987 if (n->last == NULL) 988 now = n->norm->Bd.type == DISP_unfilled || 989 n->norm->Bd.type == DISP_literal ? ROFF_nf : ROFF_fi; 990 else if (n->last->tok == ROFF_nf) 991 now = ROFF_nf; 992 else if (n->last->tok == ROFF_fi) 993 now = ROFF_fi; 994 else 995 now = n->last->flags & NODE_NOFILL ? ROFF_nf : ROFF_fi; 996 if (bef != now) { 997 outflags |= MMAN_nl; 998 print_word("."); 999 outflags &= ~MMAN_spc; 1000 print_word(roff_name[bef]); 1001 outflags |= MMAN_nl; 1002 } 1003 1004 /* Maybe we are inside an enclosing list? */ 1005 if (roff_node_next(n->parent) != NULL) 1006 mid_it(); 1007 } 1008 1009 static int 1010 pre_bf(DECL_ARGS) 1011 { 1012 1013 switch (n->type) { 1014 case ROFFT_BLOCK: 1015 return 1; 1016 case ROFFT_BODY: 1017 break; 1018 default: 1019 return 0; 1020 } 1021 switch (n->norm->Bf.font) { 1022 case FONT_Em: 1023 font_push('I'); 1024 break; 1025 case FONT_Sy: 1026 font_push('B'); 1027 break; 1028 default: 1029 font_push('R'); 1030 break; 1031 } 1032 return 1; 1033 } 1034 1035 static void 1036 post_bf(DECL_ARGS) 1037 { 1038 1039 if (n->type == ROFFT_BODY) 1040 font_pop(); 1041 } 1042 1043 static int 1044 pre_bk(DECL_ARGS) 1045 { 1046 switch (n->type) { 1047 case ROFFT_BLOCK: 1048 return 1; 1049 case ROFFT_BODY: 1050 case ROFFT_ELEM: 1051 outflags |= MMAN_Bk; 1052 return 1; 1053 default: 1054 return 0; 1055 } 1056 } 1057 1058 static void 1059 post_bk(DECL_ARGS) 1060 { 1061 switch (n->type) { 1062 case ROFFT_ELEM: 1063 while ((n = n->parent) != NULL) 1064 if (n->tok == MDOC_Bk) 1065 return; 1066 /* FALLTHROUGH */ 1067 case ROFFT_BODY: 1068 outflags &= ~MMAN_Bk; 1069 break; 1070 default: 1071 break; 1072 } 1073 } 1074 1075 static int 1076 pre_bl(DECL_ARGS) 1077 { 1078 size_t icol; 1079 1080 /* 1081 * print_offs() will increase the -offset to account for 1082 * a possible enclosing .It, but any enclosed .It blocks 1083 * just nest and do not add up their indentation. 1084 */ 1085 if (n->norm->Bl.offs) { 1086 print_offs(n->norm->Bl.offs, 0); 1087 Bl_stack[Bl_stack_len++] = 0; 1088 } 1089 1090 switch (n->norm->Bl.type) { 1091 case LIST_enum: 1092 n->norm->Bl.count = 0; 1093 return 1; 1094 case LIST_column: 1095 break; 1096 default: 1097 return 1; 1098 } 1099 1100 if (n->child != NULL) { 1101 print_line(".TS", MMAN_nl); 1102 for (icol = 0; icol < n->norm->Bl.ncols; icol++) 1103 print_word("l"); 1104 print_word("."); 1105 } 1106 outflags |= MMAN_nl; 1107 return 1; 1108 } 1109 1110 static void 1111 post_bl(DECL_ARGS) 1112 { 1113 1114 switch (n->norm->Bl.type) { 1115 case LIST_column: 1116 if (n->child != NULL) 1117 print_line(".TE", 0); 1118 break; 1119 case LIST_enum: 1120 n->norm->Bl.count = 0; 1121 break; 1122 default: 1123 break; 1124 } 1125 1126 if (n->norm->Bl.offs) { 1127 print_line(".RE", MMAN_nl); 1128 assert(Bl_stack_len); 1129 Bl_stack_len--; 1130 assert(Bl_stack[Bl_stack_len] == 0); 1131 } else { 1132 outflags |= MMAN_PP | MMAN_nl; 1133 outflags &= ~(MMAN_sp | MMAN_br); 1134 } 1135 1136 /* Maybe we are inside an enclosing list? */ 1137 if (roff_node_next(n->parent) != NULL) 1138 mid_it(); 1139 } 1140 1141 static void 1142 pre_br(DECL_ARGS) 1143 { 1144 outflags |= MMAN_br; 1145 } 1146 1147 static int 1148 pre_dl(DECL_ARGS) 1149 { 1150 print_offs("6n", 0); 1151 return 1; 1152 } 1153 1154 static void 1155 post_dl(DECL_ARGS) 1156 { 1157 print_line(".RE", MMAN_nl); 1158 1159 /* Maybe we are inside an enclosing list? */ 1160 if (roff_node_next(n->parent) != NULL) 1161 mid_it(); 1162 } 1163 1164 static int 1165 pre_em(DECL_ARGS) 1166 { 1167 1168 font_push('I'); 1169 return 1; 1170 } 1171 1172 static int 1173 pre_en(DECL_ARGS) 1174 { 1175 1176 if (NULL == n->norm->Es || 1177 NULL == n->norm->Es->child) 1178 return 1; 1179 1180 print_word(n->norm->Es->child->string); 1181 outflags &= ~MMAN_spc; 1182 return 1; 1183 } 1184 1185 static void 1186 post_en(DECL_ARGS) 1187 { 1188 1189 if (NULL == n->norm->Es || 1190 NULL == n->norm->Es->child || 1191 NULL == n->norm->Es->child->next) 1192 return; 1193 1194 outflags &= ~MMAN_spc; 1195 print_word(n->norm->Es->child->next->string); 1196 return; 1197 } 1198 1199 static int 1200 pre_eo(DECL_ARGS) 1201 { 1202 1203 if (n->end == ENDBODY_NOT && 1204 n->parent->head->child == NULL && 1205 n->child != NULL && 1206 n->child->end != ENDBODY_NOT) 1207 print_word("\\&"); 1208 else if (n->end != ENDBODY_NOT ? n->child != NULL : 1209 n->parent->head->child != NULL && (n->child != NULL || 1210 (n->parent->tail != NULL && n->parent->tail->child != NULL))) 1211 outflags &= ~(MMAN_spc | MMAN_nl); 1212 return 1; 1213 } 1214 1215 static void 1216 post_eo(DECL_ARGS) 1217 { 1218 int body, tail; 1219 1220 if (n->end != ENDBODY_NOT) { 1221 outflags |= MMAN_spc; 1222 return; 1223 } 1224 1225 body = n->child != NULL || n->parent->head->child != NULL; 1226 tail = n->parent->tail != NULL && n->parent->tail->child != NULL; 1227 1228 if (body && tail) 1229 outflags &= ~MMAN_spc; 1230 else if ( ! (body || tail)) 1231 print_word("\\&"); 1232 else if ( ! tail) 1233 outflags |= MMAN_spc; 1234 } 1235 1236 static int 1237 pre_fa(DECL_ARGS) 1238 { 1239 int am_Fa; 1240 1241 am_Fa = MDOC_Fa == n->tok; 1242 1243 if (am_Fa) 1244 n = n->child; 1245 1246 while (NULL != n) { 1247 font_push('I'); 1248 if (am_Fa || NODE_SYNPRETTY & n->flags) 1249 outflags |= MMAN_nbrword; 1250 print_node(meta, n); 1251 font_pop(); 1252 if (NULL != (n = n->next)) 1253 print_word(","); 1254 } 1255 return 0; 1256 } 1257 1258 static void 1259 post_fa(DECL_ARGS) 1260 { 1261 struct roff_node *nn; 1262 1263 if ((nn = roff_node_next(n)) != NULL && nn->tok == MDOC_Fa) 1264 print_word(","); 1265 } 1266 1267 static int 1268 pre_fd(DECL_ARGS) 1269 { 1270 pre_syn(n); 1271 font_push('B'); 1272 return 1; 1273 } 1274 1275 static void 1276 post_fd(DECL_ARGS) 1277 { 1278 font_pop(); 1279 outflags |= MMAN_br; 1280 } 1281 1282 static int 1283 pre_fl(DECL_ARGS) 1284 { 1285 font_push('B'); 1286 print_word("\\-"); 1287 if (n->child != NULL) 1288 outflags &= ~MMAN_spc; 1289 return 1; 1290 } 1291 1292 static void 1293 post_fl(DECL_ARGS) 1294 { 1295 struct roff_node *nn; 1296 1297 font_pop(); 1298 if (n->child == NULL && 1299 ((nn = roff_node_next(n)) != NULL && 1300 nn->type != ROFFT_TEXT && 1301 (nn->flags & NODE_LINE) == 0)) 1302 outflags &= ~MMAN_spc; 1303 } 1304 1305 static int 1306 pre_fn(DECL_ARGS) 1307 { 1308 1309 pre_syn(n); 1310 1311 n = n->child; 1312 if (NULL == n) 1313 return 0; 1314 1315 if (NODE_SYNPRETTY & n->flags) 1316 print_block(".HP 4n", MMAN_nl); 1317 1318 font_push('B'); 1319 print_node(meta, n); 1320 font_pop(); 1321 outflags &= ~MMAN_spc; 1322 print_word("("); 1323 outflags &= ~MMAN_spc; 1324 1325 n = n->next; 1326 if (NULL != n) 1327 pre_fa(meta, n); 1328 return 0; 1329 } 1330 1331 static void 1332 post_fn(DECL_ARGS) 1333 { 1334 1335 print_word(")"); 1336 if (NODE_SYNPRETTY & n->flags) { 1337 print_word(";"); 1338 outflags |= MMAN_PP; 1339 } 1340 } 1341 1342 static int 1343 pre_fo(DECL_ARGS) 1344 { 1345 1346 switch (n->type) { 1347 case ROFFT_BLOCK: 1348 pre_syn(n); 1349 break; 1350 case ROFFT_HEAD: 1351 if (n->child == NULL) 1352 return 0; 1353 if (NODE_SYNPRETTY & n->flags) 1354 print_block(".HP 4n", MMAN_nl); 1355 font_push('B'); 1356 break; 1357 case ROFFT_BODY: 1358 outflags &= ~(MMAN_spc | MMAN_nl); 1359 print_word("("); 1360 outflags &= ~MMAN_spc; 1361 break; 1362 default: 1363 break; 1364 } 1365 return 1; 1366 } 1367 1368 static void 1369 post_fo(DECL_ARGS) 1370 { 1371 1372 switch (n->type) { 1373 case ROFFT_HEAD: 1374 if (n->child != NULL) 1375 font_pop(); 1376 break; 1377 case ROFFT_BODY: 1378 post_fn(meta, n); 1379 break; 1380 default: 1381 break; 1382 } 1383 } 1384 1385 static int 1386 pre_Ft(DECL_ARGS) 1387 { 1388 1389 pre_syn(n); 1390 font_push('I'); 1391 return 1; 1392 } 1393 1394 static void 1395 pre_ft(DECL_ARGS) 1396 { 1397 print_line(".ft", 0); 1398 print_word(n->child->string); 1399 outflags |= MMAN_nl; 1400 } 1401 1402 static int 1403 pre_in(DECL_ARGS) 1404 { 1405 1406 if (NODE_SYNPRETTY & n->flags) { 1407 pre_syn(n); 1408 font_push('B'); 1409 print_word("#include <"); 1410 outflags &= ~MMAN_spc; 1411 } else { 1412 print_word("<"); 1413 outflags &= ~MMAN_spc; 1414 font_push('I'); 1415 } 1416 return 1; 1417 } 1418 1419 static void 1420 post_in(DECL_ARGS) 1421 { 1422 1423 if (NODE_SYNPRETTY & n->flags) { 1424 outflags &= ~MMAN_spc; 1425 print_word(">"); 1426 font_pop(); 1427 outflags |= MMAN_br; 1428 } else { 1429 font_pop(); 1430 outflags &= ~MMAN_spc; 1431 print_word(">"); 1432 } 1433 } 1434 1435 static int 1436 pre_it(DECL_ARGS) 1437 { 1438 const struct roff_node *bln; 1439 1440 switch (n->type) { 1441 case ROFFT_HEAD: 1442 outflags |= MMAN_PP | MMAN_nl; 1443 bln = n->parent->parent; 1444 if (bln->norm->Bl.comp == 0 || 1445 (n->parent->prev == NULL && 1446 roff_node_prev(bln->parent) == NULL)) 1447 outflags |= MMAN_sp; 1448 outflags &= ~MMAN_br; 1449 switch (bln->norm->Bl.type) { 1450 case LIST_item: 1451 return 0; 1452 case LIST_inset: 1453 case LIST_diag: 1454 case LIST_ohang: 1455 if (bln->norm->Bl.type == LIST_diag) 1456 print_line(".B \"", 0); 1457 else 1458 print_line(".BR \\& \"", 0); 1459 outflags &= ~MMAN_spc; 1460 return 1; 1461 case LIST_bullet: 1462 case LIST_dash: 1463 case LIST_hyphen: 1464 print_width(&bln->norm->Bl, NULL); 1465 TPremain = 0; 1466 outflags |= MMAN_nl; 1467 font_push('B'); 1468 if (LIST_bullet == bln->norm->Bl.type) 1469 print_word("\\(bu"); 1470 else 1471 print_word("-"); 1472 font_pop(); 1473 outflags |= MMAN_nl; 1474 return 0; 1475 case LIST_enum: 1476 print_width(&bln->norm->Bl, NULL); 1477 TPremain = 0; 1478 outflags |= MMAN_nl; 1479 print_count(&bln->norm->Bl.count); 1480 outflags |= MMAN_nl; 1481 return 0; 1482 case LIST_hang: 1483 print_width(&bln->norm->Bl, n->child); 1484 TPremain = 0; 1485 outflags |= MMAN_nl; 1486 return 1; 1487 case LIST_tag: 1488 print_width(&bln->norm->Bl, n->child); 1489 putchar('\n'); 1490 outflags &= ~MMAN_spc; 1491 return 1; 1492 default: 1493 return 1; 1494 } 1495 default: 1496 break; 1497 } 1498 return 1; 1499 } 1500 1501 /* 1502 * This function is called after closing out an indented block. 1503 * If we are inside an enclosing list, restore its indentation. 1504 */ 1505 static void 1506 mid_it(void) 1507 { 1508 char buf[24]; 1509 1510 /* Nothing to do outside a list. */ 1511 if (0 == Bl_stack_len || 0 == Bl_stack[Bl_stack_len - 1]) 1512 return; 1513 1514 /* The indentation has already been set up. */ 1515 if (Bl_stack_post[Bl_stack_len - 1]) 1516 return; 1517 1518 /* Restore the indentation of the enclosing list. */ 1519 print_line(".RS", MMAN_Bk_susp); 1520 (void)snprintf(buf, sizeof(buf), "%dn", 1521 Bl_stack[Bl_stack_len - 1]); 1522 print_word(buf); 1523 1524 /* Remember to close out this .RS block later. */ 1525 Bl_stack_post[Bl_stack_len - 1] = 1; 1526 } 1527 1528 static void 1529 post_it(DECL_ARGS) 1530 { 1531 const struct roff_node *bln; 1532 1533 bln = n->parent->parent; 1534 1535 switch (n->type) { 1536 case ROFFT_HEAD: 1537 switch (bln->norm->Bl.type) { 1538 case LIST_diag: 1539 outflags &= ~MMAN_spc; 1540 print_word("\\ "); 1541 break; 1542 case LIST_ohang: 1543 outflags |= MMAN_br; 1544 break; 1545 default: 1546 break; 1547 } 1548 break; 1549 case ROFFT_BODY: 1550 switch (bln->norm->Bl.type) { 1551 case LIST_bullet: 1552 case LIST_dash: 1553 case LIST_hyphen: 1554 case LIST_enum: 1555 case LIST_hang: 1556 case LIST_tag: 1557 assert(Bl_stack_len); 1558 Bl_stack[--Bl_stack_len] = 0; 1559 1560 /* 1561 * Our indentation had to be restored 1562 * after a child display or child list. 1563 * Close out that indentation block now. 1564 */ 1565 if (Bl_stack_post[Bl_stack_len]) { 1566 print_line(".RE", MMAN_nl); 1567 Bl_stack_post[Bl_stack_len] = 0; 1568 } 1569 break; 1570 case LIST_column: 1571 if (NULL != n->next) { 1572 putchar('\t'); 1573 outflags &= ~MMAN_spc; 1574 } 1575 break; 1576 default: 1577 break; 1578 } 1579 break; 1580 default: 1581 break; 1582 } 1583 } 1584 1585 static void 1586 post_lb(DECL_ARGS) 1587 { 1588 1589 if (SEC_LIBRARY == n->sec) 1590 outflags |= MMAN_br; 1591 } 1592 1593 static int 1594 pre_lk(DECL_ARGS) 1595 { 1596 const struct roff_node *link, *descr, *punct; 1597 1598 if ((link = n->child) == NULL) 1599 return 0; 1600 1601 /* Find beginning of trailing punctuation. */ 1602 punct = n->last; 1603 while (punct != link && punct->flags & NODE_DELIMC) 1604 punct = punct->prev; 1605 punct = punct->next; 1606 1607 /* Link text. */ 1608 if ((descr = link->next) != NULL && descr != punct) { 1609 font_push('I'); 1610 while (descr != punct) { 1611 print_word(descr->string); 1612 descr = descr->next; 1613 } 1614 font_pop(); 1615 print_word(":"); 1616 } 1617 1618 /* Link target. */ 1619 font_push('B'); 1620 print_word(link->string); 1621 font_pop(); 1622 1623 /* Trailing punctuation. */ 1624 while (punct != NULL) { 1625 print_word(punct->string); 1626 punct = punct->next; 1627 } 1628 return 0; 1629 } 1630 1631 static void 1632 pre_onearg(DECL_ARGS) 1633 { 1634 outflags |= MMAN_nl; 1635 print_word("."); 1636 outflags &= ~MMAN_spc; 1637 print_word(roff_name[n->tok]); 1638 if (n->child != NULL) 1639 print_word(n->child->string); 1640 outflags |= MMAN_nl; 1641 if (n->tok == ROFF_ce) 1642 for (n = n->child->next; n != NULL; n = n->next) 1643 print_node(meta, n); 1644 } 1645 1646 static int 1647 pre_li(DECL_ARGS) 1648 { 1649 font_push('R'); 1650 return 1; 1651 } 1652 1653 static int 1654 pre_nm(DECL_ARGS) 1655 { 1656 char *name; 1657 1658 switch (n->type) { 1659 case ROFFT_BLOCK: 1660 outflags |= MMAN_Bk; 1661 pre_syn(n); 1662 return 1; 1663 case ROFFT_HEAD: 1664 case ROFFT_ELEM: 1665 break; 1666 default: 1667 return 1; 1668 } 1669 name = n->child == NULL ? NULL : n->child->string; 1670 if (name == NULL) 1671 return 0; 1672 if (n->type == ROFFT_HEAD) { 1673 if (roff_node_prev(n->parent) == NULL) 1674 outflags |= MMAN_sp; 1675 print_block(".HP", 0); 1676 printf(" %dn", man_strlen(name) + 1); 1677 outflags |= MMAN_nl; 1678 } 1679 font_push('B'); 1680 return 1; 1681 } 1682 1683 static void 1684 post_nm(DECL_ARGS) 1685 { 1686 switch (n->type) { 1687 case ROFFT_BLOCK: 1688 outflags &= ~MMAN_Bk; 1689 break; 1690 case ROFFT_HEAD: 1691 case ROFFT_ELEM: 1692 if (n->child != NULL && n->child->string != NULL) 1693 font_pop(); 1694 break; 1695 default: 1696 break; 1697 } 1698 } 1699 1700 static int 1701 pre_no(DECL_ARGS) 1702 { 1703 outflags |= MMAN_spc_force; 1704 return 1; 1705 } 1706 1707 static void 1708 pre_noarg(DECL_ARGS) 1709 { 1710 outflags |= MMAN_nl; 1711 print_word("."); 1712 outflags &= ~MMAN_spc; 1713 print_word(roff_name[n->tok]); 1714 outflags |= MMAN_nl; 1715 } 1716 1717 static int 1718 pre_ns(DECL_ARGS) 1719 { 1720 outflags &= ~MMAN_spc; 1721 return 0; 1722 } 1723 1724 static void 1725 post_pf(DECL_ARGS) 1726 { 1727 1728 if ( ! (n->next == NULL || n->next->flags & NODE_LINE)) 1729 outflags &= ~MMAN_spc; 1730 } 1731 1732 static int 1733 pre_pp(DECL_ARGS) 1734 { 1735 1736 if (MDOC_It != n->parent->tok) 1737 outflags |= MMAN_PP; 1738 outflags |= MMAN_sp | MMAN_nl; 1739 outflags &= ~MMAN_br; 1740 return 0; 1741 } 1742 1743 static int 1744 pre_rs(DECL_ARGS) 1745 { 1746 1747 if (SEC_SEE_ALSO == n->sec) { 1748 outflags |= MMAN_PP | MMAN_sp | MMAN_nl; 1749 outflags &= ~MMAN_br; 1750 } 1751 return 1; 1752 } 1753 1754 static int 1755 pre_skip(DECL_ARGS) 1756 { 1757 1758 return 0; 1759 } 1760 1761 static int 1762 pre_sm(DECL_ARGS) 1763 { 1764 1765 if (NULL == n->child) 1766 outflags ^= MMAN_Sm; 1767 else if (0 == strcmp("on", n->child->string)) 1768 outflags |= MMAN_Sm; 1769 else 1770 outflags &= ~MMAN_Sm; 1771 1772 if (MMAN_Sm & outflags) 1773 outflags |= MMAN_spc; 1774 1775 return 0; 1776 } 1777 1778 static void 1779 pre_sp(DECL_ARGS) 1780 { 1781 if (outflags & MMAN_PP) { 1782 outflags &= ~MMAN_PP; 1783 print_line(".PP", 0); 1784 } else { 1785 print_line(".sp", 0); 1786 if (n->child != NULL) 1787 print_word(n->child->string); 1788 } 1789 outflags |= MMAN_nl; 1790 } 1791 1792 static int 1793 pre_sy(DECL_ARGS) 1794 { 1795 1796 font_push('B'); 1797 return 1; 1798 } 1799 1800 static void 1801 pre_ta(DECL_ARGS) 1802 { 1803 print_line(".ta", 0); 1804 for (n = n->child; n != NULL; n = n->next) 1805 print_word(n->string); 1806 outflags |= MMAN_nl; 1807 } 1808 1809 static int 1810 pre_vt(DECL_ARGS) 1811 { 1812 1813 if (NODE_SYNPRETTY & n->flags) { 1814 switch (n->type) { 1815 case ROFFT_BLOCK: 1816 pre_syn(n); 1817 return 1; 1818 case ROFFT_BODY: 1819 break; 1820 default: 1821 return 0; 1822 } 1823 } 1824 font_push('I'); 1825 return 1; 1826 } 1827 1828 static void 1829 post_vt(DECL_ARGS) 1830 { 1831 1832 if (n->flags & NODE_SYNPRETTY && n->type != ROFFT_BODY) 1833 return; 1834 font_pop(); 1835 } 1836 1837 static int 1838 pre_xr(DECL_ARGS) 1839 { 1840 1841 n = n->child; 1842 if (NULL == n) 1843 return 0; 1844 print_node(meta, n); 1845 n = n->next; 1846 if (NULL == n) 1847 return 0; 1848 outflags &= ~MMAN_spc; 1849 print_word("("); 1850 print_node(meta, n); 1851 print_word(")"); 1852 return 0; 1853 } 1854