]> git.cameronkatri.com Git - mandoc.git/blob - mdoc_term.c
git.ckatri.com / mandoc.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Be more careful about meta->name. For weird input, it can be NULL.
[mandoc.git] / mdoc_term.c
1 /* $Id: mdoc_term.c,v 1.296 2014/11/28 16:02:52 schwarze Exp $ */
2 /*
3 * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4 * Copyright (c) 2010, 2012, 2013, 2014 Ingo Schwarze <schwarze@openbsd.org>
5 * Copyright (c) 2013 Franco Fichtner <franco@lastsummer.de>
6 *
7 * Permission to use, copy, modify, and distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
10 *
11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18 */
19 #include "config.h"
20
21 #include <sys/types.h>
22
23 #include <assert.h>
24 #include <ctype.h>
25 #include <stdint.h>
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <string.h>
29
30 #include "mandoc.h"
31 #include "mandoc_aux.h"
32 #include "out.h"
33 #include "term.h"
34 #include "mdoc.h"
35 #include "main.h"
36
37 struct termpair {
38 struct termpair *ppair;
39 int count;
40 };
41
42 #define DECL_ARGS struct termp *p, \
43 struct termpair *pair, \
44 const struct mdoc_meta *meta, \
45 struct mdoc_node *n
46
47 struct termact {
48 int (*pre)(DECL_ARGS);
49 void (*post)(DECL_ARGS);
50 };
51
52 static size_t a2width(const struct termp *, const char *);
53 static size_t a2height(const struct termp *, const char *);
54
55 static void print_bvspace(struct termp *,
56 const struct mdoc_node *,
57 const struct mdoc_node *);
58 static void print_mdoc_node(DECL_ARGS);
59 static void print_mdoc_nodelist(DECL_ARGS);
60 static void print_mdoc_head(struct termp *, const void *);
61 static void print_mdoc_foot(struct termp *, const void *);
62 static void synopsis_pre(struct termp *,
63 const struct mdoc_node *);
64
65 static void termp____post(DECL_ARGS);
66 static void termp__t_post(DECL_ARGS);
67 static void termp_bd_post(DECL_ARGS);
68 static void termp_bk_post(DECL_ARGS);
69 static void termp_bl_post(DECL_ARGS);
70 static void termp_fd_post(DECL_ARGS);
71 static void termp_fo_post(DECL_ARGS);
72 static void termp_in_post(DECL_ARGS);
73 static void termp_it_post(DECL_ARGS);
74 static void termp_lb_post(DECL_ARGS);
75 static void termp_nm_post(DECL_ARGS);
76 static void termp_pf_post(DECL_ARGS);
77 static void termp_quote_post(DECL_ARGS);
78 static void termp_sh_post(DECL_ARGS);
79 static void termp_ss_post(DECL_ARGS);
80
81 static int termp__a_pre(DECL_ARGS);
82 static int termp__t_pre(DECL_ARGS);
83 static int termp_an_pre(DECL_ARGS);
84 static int termp_ap_pre(DECL_ARGS);
85 static int termp_bd_pre(DECL_ARGS);
86 static int termp_bf_pre(DECL_ARGS);
87 static int termp_bk_pre(DECL_ARGS);
88 static int termp_bl_pre(DECL_ARGS);
89 static int termp_bold_pre(DECL_ARGS);
90 static int termp_bt_pre(DECL_ARGS);
91 static int termp_bx_pre(DECL_ARGS);
92 static int termp_cd_pre(DECL_ARGS);
93 static int termp_d1_pre(DECL_ARGS);
94 static int termp_ex_pre(DECL_ARGS);
95 static int termp_fa_pre(DECL_ARGS);
96 static int termp_fd_pre(DECL_ARGS);
97 static int termp_fl_pre(DECL_ARGS);
98 static int termp_fn_pre(DECL_ARGS);
99 static int termp_fo_pre(DECL_ARGS);
100 static int termp_ft_pre(DECL_ARGS);
101 static int termp_in_pre(DECL_ARGS);
102 static int termp_it_pre(DECL_ARGS);
103 static int termp_li_pre(DECL_ARGS);
104 static int termp_ll_pre(DECL_ARGS);
105 static int termp_lk_pre(DECL_ARGS);
106 static int termp_nd_pre(DECL_ARGS);
107 static int termp_nm_pre(DECL_ARGS);
108 static int termp_ns_pre(DECL_ARGS);
109 static int termp_quote_pre(DECL_ARGS);
110 static int termp_rs_pre(DECL_ARGS);
111 static int termp_rv_pre(DECL_ARGS);
112 static int termp_sh_pre(DECL_ARGS);
113 static int termp_skip_pre(DECL_ARGS);
114 static int termp_sm_pre(DECL_ARGS);
115 static int termp_sp_pre(DECL_ARGS);
116 static int termp_ss_pre(DECL_ARGS);
117 static int termp_under_pre(DECL_ARGS);
118 static int termp_ud_pre(DECL_ARGS);
119 static int termp_vt_pre(DECL_ARGS);
120 static int termp_xr_pre(DECL_ARGS);
121 static int termp_xx_pre(DECL_ARGS);
122
123 static const struct termact termacts[MDOC_MAX] = {
124 { termp_ap_pre, NULL }, /* Ap */
125 { NULL, NULL }, /* Dd */
126 { NULL, NULL }, /* Dt */
127 { NULL, NULL }, /* Os */
128 { termp_sh_pre, termp_sh_post }, /* Sh */
129 { termp_ss_pre, termp_ss_post }, /* Ss */
130 { termp_sp_pre, NULL }, /* Pp */
131 { termp_d1_pre, termp_bl_post }, /* D1 */
132 { termp_d1_pre, termp_bl_post }, /* Dl */
133 { termp_bd_pre, termp_bd_post }, /* Bd */
134 { NULL, NULL }, /* Ed */
135 { termp_bl_pre, termp_bl_post }, /* Bl */
136 { NULL, NULL }, /* El */
137 { termp_it_pre, termp_it_post }, /* It */
138 { termp_under_pre, NULL }, /* Ad */
139 { termp_an_pre, NULL }, /* An */
140 { termp_under_pre, NULL }, /* Ar */
141 { termp_cd_pre, NULL }, /* Cd */
142 { termp_bold_pre, NULL }, /* Cm */
143 { NULL, NULL }, /* Dv */
144 { NULL, NULL }, /* Er */
145 { NULL, NULL }, /* Ev */
146 { termp_ex_pre, NULL }, /* Ex */
147 { termp_fa_pre, NULL }, /* Fa */
148 { termp_fd_pre, termp_fd_post }, /* Fd */
149 { termp_fl_pre, NULL }, /* Fl */
150 { termp_fn_pre, NULL }, /* Fn */
151 { termp_ft_pre, NULL }, /* Ft */
152 { termp_bold_pre, NULL }, /* Ic */
153 { termp_in_pre, termp_in_post }, /* In */
154 { termp_li_pre, NULL }, /* Li */
155 { termp_nd_pre, NULL }, /* Nd */
156 { termp_nm_pre, termp_nm_post }, /* Nm */
157 { termp_quote_pre, termp_quote_post }, /* Op */
158 { termp_ft_pre, NULL }, /* Ot */
159 { termp_under_pre, NULL }, /* Pa */
160 { termp_rv_pre, NULL }, /* Rv */
161 { NULL, NULL }, /* St */
162 { termp_under_pre, NULL }, /* Va */
163 { termp_vt_pre, NULL }, /* Vt */
164 { termp_xr_pre, NULL }, /* Xr */
165 { termp__a_pre, termp____post }, /* %A */
166 { termp_under_pre, termp____post }, /* %B */
167 { NULL, termp____post }, /* %D */
168 { termp_under_pre, termp____post }, /* %I */
169 { termp_under_pre, termp____post }, /* %J */
170 { NULL, termp____post }, /* %N */
171 { NULL, termp____post }, /* %O */
172 { NULL, termp____post }, /* %P */
173 { NULL, termp____post }, /* %R */
174 { termp__t_pre, termp__t_post }, /* %T */
175 { NULL, termp____post }, /* %V */
176 { NULL, NULL }, /* Ac */
177 { termp_quote_pre, termp_quote_post }, /* Ao */
178 { termp_quote_pre, termp_quote_post }, /* Aq */
179 { NULL, NULL }, /* At */
180 { NULL, NULL }, /* Bc */
181 { termp_bf_pre, NULL }, /* Bf */
182 { termp_quote_pre, termp_quote_post }, /* Bo */
183 { termp_quote_pre, termp_quote_post }, /* Bq */
184 { termp_xx_pre, NULL }, /* Bsx */
185 { termp_bx_pre, NULL }, /* Bx */
186 { termp_skip_pre, NULL }, /* Db */
187 { NULL, NULL }, /* Dc */
188 { termp_quote_pre, termp_quote_post }, /* Do */
189 { termp_quote_pre, termp_quote_post }, /* Dq */
190 { NULL, NULL }, /* Ec */ /* FIXME: no space */
191 { NULL, NULL }, /* Ef */
192 { termp_under_pre, NULL }, /* Em */
193 { termp_quote_pre, termp_quote_post }, /* Eo */
194 { termp_xx_pre, NULL }, /* Fx */
195 { termp_bold_pre, NULL }, /* Ms */
196 { termp_li_pre, NULL }, /* No */
197 { termp_ns_pre, NULL }, /* Ns */
198 { termp_xx_pre, NULL }, /* Nx */
199 { termp_xx_pre, NULL }, /* Ox */
200 { NULL, NULL }, /* Pc */
201 { NULL, termp_pf_post }, /* Pf */
202 { termp_quote_pre, termp_quote_post }, /* Po */
203 { termp_quote_pre, termp_quote_post }, /* Pq */
204 { NULL, NULL }, /* Qc */
205 { termp_quote_pre, termp_quote_post }, /* Ql */
206 { termp_quote_pre, termp_quote_post }, /* Qo */
207 { termp_quote_pre, termp_quote_post }, /* Qq */
208 { NULL, NULL }, /* Re */
209 { termp_rs_pre, NULL }, /* Rs */
210 { NULL, NULL }, /* Sc */
211 { termp_quote_pre, termp_quote_post }, /* So */
212 { termp_quote_pre, termp_quote_post }, /* Sq */
213 { termp_sm_pre, NULL }, /* Sm */
214 { termp_under_pre, NULL }, /* Sx */
215 { termp_bold_pre, NULL }, /* Sy */
216 { NULL, NULL }, /* Tn */
217 { termp_xx_pre, NULL }, /* Ux */
218 { NULL, NULL }, /* Xc */
219 { NULL, NULL }, /* Xo */
220 { termp_fo_pre, termp_fo_post }, /* Fo */
221 { NULL, NULL }, /* Fc */
222 { termp_quote_pre, termp_quote_post }, /* Oo */
223 { NULL, NULL }, /* Oc */
224 { termp_bk_pre, termp_bk_post }, /* Bk */
225 { NULL, NULL }, /* Ek */
226 { termp_bt_pre, NULL }, /* Bt */
227 { NULL, NULL }, /* Hf */
228 { termp_under_pre, NULL }, /* Fr */
229 { termp_ud_pre, NULL }, /* Ud */
230 { NULL, termp_lb_post }, /* Lb */
231 { termp_sp_pre, NULL }, /* Lp */
232 { termp_lk_pre, NULL }, /* Lk */
233 { termp_under_pre, NULL }, /* Mt */
234 { termp_quote_pre, termp_quote_post }, /* Brq */
235 { termp_quote_pre, termp_quote_post }, /* Bro */
236 { NULL, NULL }, /* Brc */
237 { NULL, termp____post }, /* %C */
238 { termp_skip_pre, NULL }, /* Es */
239 { termp_quote_pre, termp_quote_post }, /* En */
240 { termp_xx_pre, NULL }, /* Dx */
241 { NULL, termp____post }, /* %Q */
242 { termp_sp_pre, NULL }, /* br */
243 { termp_sp_pre, NULL }, /* sp */
244 { NULL, termp____post }, /* %U */
245 { NULL, NULL }, /* Ta */
246 { termp_ll_pre, NULL }, /* ll */
247 };
248
249
250 void
251 terminal_mdoc(void *arg, const struct mdoc *mdoc)
252 {
253 const struct mdoc_meta *meta;
254 struct mdoc_node *n;
255 struct termp *p;
256
257 p = (struct termp *)arg;
258
259 p->overstep = 0;
260 p->rmargin = p->maxrmargin = p->defrmargin;
261 p->tabwidth = term_len(p, 5);
262
263 n = mdoc_node(mdoc)->child;
264 meta = mdoc_meta(mdoc);
265
266 if (p->synopsisonly) {
267 while (n != NULL) {
268 if (n->tok == MDOC_Sh && n->sec == SEC_SYNOPSIS) {
269 if (n->child->next->child != NULL)
270 print_mdoc_nodelist(p, NULL,
271 meta, n->child->next->child);
272 term_newln(p);
273 break;
274 }
275 n = n->next;
276 }
277 } else {
278 if (p->defindent == 0)
279 p->defindent = 5;
280 term_begin(p, print_mdoc_head, print_mdoc_foot, meta);
281 if (n != NULL) {
282 if (n->tok != MDOC_Sh)
283 term_vspace(p);
284 print_mdoc_nodelist(p, NULL, meta, n);
285 }
286 term_end(p);
287 }
288 }
289
290 static void
291 print_mdoc_nodelist(DECL_ARGS)
292 {
293
294 print_mdoc_node(p, pair, meta, n);
295 if (n->next)
296 print_mdoc_nodelist(p, pair, meta, n->next);
297 }
298
299 static void
300 print_mdoc_node(DECL_ARGS)
301 {
302 int chld;
303 struct termpair npair;
304 size_t offset, rmargin;
305
306 chld = 1;
307 offset = p->offset;
308 rmargin = p->rmargin;
309 n->prev_font = term_fontq(p);
310
311 memset(&npair, 0, sizeof(struct termpair));
312 npair.ppair = pair;
313
314 /*
315 * Keeps only work until the end of a line. If a keep was
316 * invoked in a prior line, revert it to PREKEEP.
317 */
318
319 if (TERMP_KEEP & p->flags) {
320 if (n->prev ? (n->prev->lastline != n->line) :
321 (n->parent && n->parent->line != n->line)) {
322 p->flags &= ~TERMP_KEEP;
323 p->flags |= TERMP_PREKEEP;
324 }
325 }
326
327 /*
328 * After the keep flags have been set up, we may now
329 * produce output. Note that some pre-handlers do so.
330 */
331
332 switch (n->type) {
333 case MDOC_TEXT:
334 if (' ' == *n->string && MDOC_LINE & n->flags)
335 term_newln(p);
336 if (MDOC_DELIMC & n->flags)
337 p->flags |= TERMP_NOSPACE;
338 term_word(p, n->string);
339 if (MDOC_DELIMO & n->flags)
340 p->flags |= TERMP_NOSPACE;
341 break;
342 case MDOC_EQN:
343 if ( ! (n->flags & MDOC_LINE))
344 p->flags |= TERMP_NOSPACE;
345 term_eqn(p, n->eqn);
346 if (n->next != NULL && ! (n->next->flags & MDOC_LINE))
347 p->flags |= TERMP_NOSPACE;
348 break;
349 case MDOC_TBL:
350 term_tbl(p, n->span);
351 break;
352 default:
353 if (termacts[n->tok].pre &&
354 (n->end == ENDBODY_NOT || n->nchild))
355 chld = (*termacts[n->tok].pre)
356 (p, &npair, meta, n);
357 break;
358 }
359
360 if (chld && n->child)
361 print_mdoc_nodelist(p, &npair, meta, n->child);
362
363 term_fontpopq(p,
364 (ENDBODY_NOT == n->end ? n : n->pending)->prev_font);
365
366 switch (n->type) {
367 case MDOC_TEXT:
368 break;
369 case MDOC_TBL:
370 break;
371 case MDOC_EQN:
372 break;
373 default:
374 if ( ! termacts[n->tok].post || MDOC_ENDED & n->flags)
375 break;
376 (void)(*termacts[n->tok].post)(p, &npair, meta, n);
377
378 /*
379 * Explicit end tokens not only call the post
380 * handler, but also tell the respective block
381 * that it must not call the post handler again.
382 */
383 if (ENDBODY_NOT != n->end)
384 n->pending->flags |= MDOC_ENDED;
385
386 /*
387 * End of line terminating an implicit block
388 * while an explicit block is still open.
389 * Continue the explicit block without spacing.
390 */
391 if (ENDBODY_NOSPACE == n->end)
392 p->flags |= TERMP_NOSPACE;
393 break;
394 }
395
396 if (MDOC_EOS & n->flags)
397 p->flags |= TERMP_SENTENCE;
398
399 if (MDOC_ll != n->tok) {
400 p->offset = offset;
401 p->rmargin = rmargin;
402 }
403 }
404
405 static void
406 print_mdoc_foot(struct termp *p, const void *arg)
407 {
408 const struct mdoc_meta *meta;
409 size_t sz;
410
411 meta = (const struct mdoc_meta *)arg;
412
413 term_fontrepl(p, TERMFONT_NONE);
414
415 /*
416 * Output the footer in new-groff style, that is, three columns
417 * with the middle being the manual date and flanking columns
418 * being the operating system:
419 *
420 * SYSTEM DATE SYSTEM
421 */
422
423 term_vspace(p);
424
425 p->offset = 0;
426 sz = term_strlen(p, meta->date);
427 p->rmargin = p->maxrmargin > sz ?
428 (p->maxrmargin + term_len(p, 1) - sz) / 2 : 0;
429 p->trailspace = 1;
430 p->flags |= TERMP_NOSPACE | TERMP_NOBREAK;
431
432 term_word(p, meta->os);
433 term_flushln(p);
434
435 p->offset = p->rmargin;
436 sz = term_strlen(p, meta->os);
437 p->rmargin = p->maxrmargin > sz ? p->maxrmargin - sz : 0;
438 p->flags |= TERMP_NOSPACE;
439
440 term_word(p, meta->date);
441 term_flushln(p);
442
443 p->offset = p->rmargin;
444 p->rmargin = p->maxrmargin;
445 p->trailspace = 0;
446 p->flags &= ~TERMP_NOBREAK;
447 p->flags |= TERMP_NOSPACE;
448
449 term_word(p, meta->os);
450 term_flushln(p);
451
452 p->offset = 0;
453 p->rmargin = p->maxrmargin;
454 p->flags = 0;
455 }
456
457 static void
458 print_mdoc_head(struct termp *p, const void *arg)
459 {
460 const struct mdoc_meta *meta;
461 char *volume, *title;
462 size_t vollen, titlen;
463
464 meta = (const struct mdoc_meta *)arg;
465
466 /*
467 * The header is strange. It has three components, which are
468 * really two with the first duplicated. It goes like this:
469 *
470 * IDENTIFIER TITLE IDENTIFIER
471 *
472 * The IDENTIFIER is NAME(SECTION), which is the command-name
473 * (if given, or "unknown" if not) followed by the manual page
474 * section. These are given in `Dt'. The TITLE is a free-form
475 * string depending on the manual volume. If not specified, it
476 * switches on the manual section.
477 */
478
479 assert(meta->vol);
480 if (NULL == meta->arch)
481 volume = mandoc_strdup(meta->vol);
482 else
483 mandoc_asprintf(&volume, "%s (%s)",
484 meta->vol, meta->arch);
485 vollen = term_strlen(p, volume);
486
487 if (NULL == meta->msec)
488 title = mandoc_strdup(meta->title);
489 else
490 mandoc_asprintf(&title, "%s(%s)",
491 meta->title, meta->msec);
492 titlen = term_strlen(p, title);
493
494 p->flags |= TERMP_NOBREAK | TERMP_NOSPACE;
495 p->trailspace = 1;
496 p->offset = 0;
497 p->rmargin = 2 * (titlen+1) + vollen < p->maxrmargin ?
498 (p->maxrmargin - vollen + term_len(p, 1)) / 2 :
499 vollen < p->maxrmargin ? p->maxrmargin - vollen : 0;
500
501 term_word(p, title);
502 term_flushln(p);
503
504 p->flags |= TERMP_NOSPACE;
505 p->offset = p->rmargin;
506 p->rmargin = p->offset + vollen + titlen < p->maxrmargin ?
507 p->maxrmargin - titlen : p->maxrmargin;
508
509 term_word(p, volume);
510 term_flushln(p);
511
512 p->flags &= ~TERMP_NOBREAK;
513 p->trailspace = 0;
514 if (p->rmargin + titlen <= p->maxrmargin) {
515 p->flags |= TERMP_NOSPACE;
516 p->offset = p->rmargin;
517 p->rmargin = p->maxrmargin;
518 term_word(p, title);
519 term_flushln(p);
520 }
521
522 p->flags &= ~TERMP_NOSPACE;
523 p->offset = 0;
524 p->rmargin = p->maxrmargin;
525 free(title);
526 free(volume);
527 }
528
529 static size_t
530 a2height(const struct termp *p, const char *v)
531 {
532 struct roffsu su;
533
534
535 assert(v);
536 if ( ! a2roffsu(v, &su, SCALE_VS))
537 SCALE_VS_INIT(&su, atoi(v));
538
539 return(term_vspan(p, &su));
540 }
541
542 static size_t
543 a2width(const struct termp *p, const char *v)
544 {
545 struct roffsu su;
546
547 assert(v);
548 if ( ! a2roffsu(v, &su, SCALE_MAX)) {
549 SCALE_HS_INIT(&su, term_strlen(p, v));
550 su.scale /= term_strlen(p, "0");
551 }
552
553 return(term_hspan(p, &su));
554 }
555
556 /*
557 * Determine how much space to print out before block elements of `It'
558 * (and thus `Bl') and `Bd'. And then go ahead and print that space,
559 * too.
560 */
561 static void
562 print_bvspace(struct termp *p,
563 const struct mdoc_node *bl,
564 const struct mdoc_node *n)
565 {
566 const struct mdoc_node *nn;
567
568 assert(n);
569
570 term_newln(p);
571
572 if (MDOC_Bd == bl->tok && bl->norm->Bd.comp)
573 return;
574 if (MDOC_Bl == bl->tok && bl->norm->Bl.comp)
575 return;
576
577 /* Do not vspace directly after Ss/Sh. */
578
579 nn = n;
580 while (nn->prev == NULL) {
581 do {
582 nn = nn->parent;
583 if (nn->type == MDOC_ROOT)
584 return;
585 } while (nn->type != MDOC_BLOCK);
586 if (nn->tok == MDOC_Sh || nn->tok == MDOC_Ss)
587 return;
588 if (nn->tok == MDOC_It &&
589 nn->parent->parent->norm->Bl.type != LIST_item)
590 break;
591 }
592
593 /* A `-column' does not assert vspace within the list. */
594
595 if (MDOC_Bl == bl->tok && LIST_column == bl->norm->Bl.type)
596 if (n->prev && MDOC_It == n->prev->tok)
597 return;
598
599 /* A `-diag' without body does not vspace. */
600
601 if (MDOC_Bl == bl->tok && LIST_diag == bl->norm->Bl.type)
602 if (n->prev && MDOC_It == n->prev->tok) {
603 assert(n->prev->body);
604 if (NULL == n->prev->body->child)
605 return;
606 }
607
608 term_vspace(p);
609 }
610
611
612 static int
613 termp_ll_pre(DECL_ARGS)
614 {
615
616 term_setwidth(p, n->nchild ? n->child->string : NULL);
617 return(0);
618 }
619
620 static int
621 termp_it_pre(DECL_ARGS)
622 {
623 const struct mdoc_node *bl, *nn;
624 char buf[24];
625 int i;
626 size_t width, offset, ncols, dcol;
627 enum mdoc_list type;
628
629 if (MDOC_BLOCK == n->type) {
630 print_bvspace(p, n->parent->parent, n);
631 return(1);
632 }
633
634 bl = n->parent->parent->parent;
635 type = bl->norm->Bl.type;
636
637 /*
638 * First calculate width and offset. This is pretty easy unless
639 * we're a -column list, in which case all prior columns must
640 * be accounted for.
641 */
642
643 width = offset = 0;
644
645 if (bl->norm->Bl.offs)
646 offset = a2width(p, bl->norm->Bl.offs);
647
648 switch (type) {
649 case LIST_column:
650 if (MDOC_HEAD == n->type)
651 break;
652
653 /*
654 * Imitate groff's column handling:
655 * - For each earlier column, add its width.
656 * - For less than 5 columns, add four more blanks per
657 * column.
658 * - For exactly 5 columns, add three more blank per
659 * column.
660 * - For more than 5 columns, add only one column.
661 */
662 ncols = bl->norm->Bl.ncols;
663 dcol = ncols < 5 ? term_len(p, 4) :
664 ncols == 5 ? term_len(p, 3) : term_len(p, 1);
665
666 /*
667 * Calculate the offset by applying all prior MDOC_BODY,
668 * so we stop at the MDOC_HEAD (NULL == nn->prev).
669 */
670
671 for (i = 0, nn = n->prev;
672 nn->prev && i < (int)ncols;
673 nn = nn->prev, i++)
674 offset += dcol + a2width(p,
675 bl->norm->Bl.cols[i]);
676
677 /*
678 * When exceeding the declared number of columns, leave
679 * the remaining widths at 0. This will later be
680 * adjusted to the default width of 10, or, for the last
681 * column, stretched to the right margin.
682 */
683 if (i >= (int)ncols)
684 break;
685
686 /*
687 * Use the declared column widths, extended as explained
688 * in the preceding paragraph.
689 */
690 width = a2width(p, bl->norm->Bl.cols[i]) + dcol;
691 break;
692 default:
693 if (NULL == bl->norm->Bl.width)
694 break;
695
696 /*
697 * Note: buffer the width by 2, which is groff's magic
698 * number for buffering single arguments. See the above
699 * handling for column for how this changes.
700 */
701 assert(bl->norm->Bl.width);
702 width = a2width(p, bl->norm->Bl.width) + term_len(p, 2);
703 break;
704 }
705
706 /*
707 * List-type can override the width in the case of fixed-head
708 * values (bullet, dash/hyphen, enum). Tags need a non-zero
709 * offset.
710 */
711
712 switch (type) {
713 case LIST_bullet:
714 /* FALLTHROUGH */
715 case LIST_dash:
716 /* FALLTHROUGH */
717 case LIST_hyphen:
718 /* FALLTHROUGH */
719 case LIST_enum:
720 if (width < term_len(p, 2))
721 width = term_len(p, 2);
722 break;
723 case LIST_hang:
724 if (0 == width)
725 width = term_len(p, 8);
726 break;
727 case LIST_column:
728 /* FALLTHROUGH */
729 case LIST_tag:
730 if (0 == width)
731 width = term_len(p, 10);
732 break;
733 default:
734 break;
735 }
736
737 /*
738 * Whitespace control. Inset bodies need an initial space,
739 * while diagonal bodies need two.
740 */
741
742 p->flags |= TERMP_NOSPACE;
743
744 switch (type) {
745 case LIST_diag:
746 if (MDOC_BODY == n->type)
747 term_word(p, "\\ \\ ");
748 break;
749 case LIST_inset:
750 if (MDOC_BODY == n->type && n->parent->head->nchild)
751 term_word(p, "\\ ");
752 break;
753 default:
754 break;
755 }
756
757 p->flags |= TERMP_NOSPACE;
758
759 switch (type) {
760 case LIST_diag:
761 if (MDOC_HEAD == n->type)
762 term_fontpush(p, TERMFONT_BOLD);
763 break;
764 default:
765 break;
766 }
767
768 /*
769 * Pad and break control. This is the tricky part. These flags
770 * are documented in term_flushln() in term.c. Note that we're
771 * going to unset all of these flags in termp_it_post() when we
772 * exit.
773 */
774
775 switch (type) {
776 case LIST_enum:
777 /*
778 * Weird special case.
779 * Very narrow enum lists actually hang.
780 */
781 if (width == term_len(p, 2))
782 p->flags |= TERMP_HANG;
783 /* FALLTHROUGH */
784 case LIST_bullet:
785 /* FALLTHROUGH */
786 case LIST_dash:
787 /* FALLTHROUGH */
788 case LIST_hyphen:
789 if (MDOC_HEAD != n->type)
790 break;
791 p->flags |= TERMP_NOBREAK;
792 p->trailspace = 1;
793 break;
794 case LIST_hang:
795 if (MDOC_HEAD != n->type)
796 break;
797
798 /*
799 * This is ugly. If `-hang' is specified and the body
800 * is a `Bl' or `Bd', then we want basically to nullify
801 * the "overstep" effect in term_flushln() and treat
802 * this as a `-ohang' list instead.
803 */
804 if (NULL != n->next &&
805 NULL != n->next->child &&
806 (MDOC_Bl == n->next->child->tok ||
807 MDOC_Bd == n->next->child->tok))
808 break;
809
810 p->flags |= TERMP_NOBREAK | TERMP_BRIND | TERMP_HANG;
811 p->trailspace = 1;
812 break;
813 case LIST_tag:
814 if (MDOC_HEAD != n->type)
815 break;
816
817 p->flags |= TERMP_NOBREAK | TERMP_BRIND;
818 p->trailspace = 2;
819
820 if (NULL == n->next || NULL == n->next->child)
821 p->flags |= TERMP_DANGLE;
822 break;
823 case LIST_column:
824 if (MDOC_HEAD == n->type)
825 break;
826
827 if (NULL == n->next) {
828 p->flags &= ~TERMP_NOBREAK;
829 p->trailspace = 0;
830 } else {
831 p->flags |= TERMP_NOBREAK;
832 p->trailspace = 1;
833 }
834
835 break;
836 case LIST_diag:
837 if (MDOC_HEAD != n->type)
838 break;
839 p->flags |= TERMP_NOBREAK | TERMP_BRIND;
840 p->trailspace = 1;
841 break;
842 default:
843 break;
844 }
845
846 /*
847 * Margin control. Set-head-width lists have their right
848 * margins shortened. The body for these lists has the offset
849 * necessarily lengthened. Everybody gets the offset.
850 */
851
852 p->offset += offset;
853
854 switch (type) {
855 case LIST_hang:
856 /*
857 * Same stipulation as above, regarding `-hang'. We
858 * don't want to recalculate rmargin and offsets when
859 * using `Bd' or `Bl' within `-hang' overstep lists.
860 */
861 if (MDOC_HEAD == n->type &&
862 NULL != n->next &&
863 NULL != n->next->child &&
864 (MDOC_Bl == n->next->child->tok ||
865 MDOC_Bd == n->next->child->tok))
866 break;
867 /* FALLTHROUGH */
868 case LIST_bullet:
869 /* FALLTHROUGH */
870 case LIST_dash:
871 /* FALLTHROUGH */
872 case LIST_enum:
873 /* FALLTHROUGH */
874 case LIST_hyphen:
875 /* FALLTHROUGH */
876 case LIST_tag:
877 assert(width);
878 if (MDOC_HEAD == n->type)
879 p->rmargin = p->offset + width;
880 else
881 p->offset += width;
882 break;
883 case LIST_column:
884 assert(width);
885 p->rmargin = p->offset + width;
886 /*
887 * XXX - this behaviour is not documented: the
888 * right-most column is filled to the right margin.
889 */
890 if (MDOC_HEAD == n->type)
891 break;
892 if (NULL == n->next && p->rmargin < p->maxrmargin)
893 p->rmargin = p->maxrmargin;
894 break;
895 default:
896 break;
897 }
898
899 /*
900 * The dash, hyphen, bullet and enum lists all have a special
901 * HEAD character (temporarily bold, in some cases).
902 */
903
904 if (MDOC_HEAD == n->type)
905 switch (type) {
906 case LIST_bullet:
907 term_fontpush(p, TERMFONT_BOLD);
908 term_word(p, "\\[bu]");
909 term_fontpop(p);
910 break;
911 case LIST_dash:
912 /* FALLTHROUGH */
913 case LIST_hyphen:
914 term_fontpush(p, TERMFONT_BOLD);
915 term_word(p, "\\(hy");
916 term_fontpop(p);
917 break;
918 case LIST_enum:
919 (pair->ppair->ppair->count)++;
920 (void)snprintf(buf, sizeof(buf), "%d.",
921 pair->ppair->ppair->count);
922 term_word(p, buf);
923 break;
924 default:
925 break;
926 }
927
928 /*
929 * If we're not going to process our children, indicate so here.
930 */
931
932 switch (type) {
933 case LIST_bullet:
934 /* FALLTHROUGH */
935 case LIST_item:
936 /* FALLTHROUGH */
937 case LIST_dash:
938 /* FALLTHROUGH */
939 case LIST_hyphen:
940 /* FALLTHROUGH */
941 case LIST_enum:
942 if (MDOC_HEAD == n->type)
943 return(0);
944 break;
945 case LIST_column:
946 if (MDOC_HEAD == n->type)
947 return(0);
948 break;
949 default:
950 break;
951 }
952
953 return(1);
954 }
955
956 static void
957 termp_it_post(DECL_ARGS)
958 {
959 enum mdoc_list type;
960
961 if (MDOC_BLOCK == n->type)
962 return;
963
964 type = n->parent->parent->parent->norm->Bl.type;
965
966 switch (type) {
967 case LIST_item:
968 /* FALLTHROUGH */
969 case LIST_diag:
970 /* FALLTHROUGH */
971 case LIST_inset:
972 if (MDOC_BODY == n->type)
973 term_newln(p);
974 break;
975 case LIST_column:
976 if (MDOC_BODY == n->type)
977 term_flushln(p);
978 break;
979 default:
980 term_newln(p);
981 break;
982 }
983
984 /*
985 * Now that our output is flushed, we can reset our tags. Since
986 * only `It' sets these flags, we're free to assume that nobody
987 * has munged them in the meanwhile.
988 */
989
990 p->flags &= ~(TERMP_NOBREAK | TERMP_BRIND |
991 TERMP_DANGLE | TERMP_HANG);
992 p->trailspace = 0;
993 }
994
995 static int
996 termp_nm_pre(DECL_ARGS)
997 {
998 const char *cp;
999
1000 if (MDOC_BLOCK == n->type) {
1001 p->flags |= TERMP_PREKEEP;
1002 return(1);
1003 }
1004
1005 if (MDOC_BODY == n->type) {
1006 if (NULL == n->child)
1007 return(0);
1008 p->flags |= TERMP_NOSPACE;
1009 cp = NULL;
1010 if (n->prev->child != NULL)
1011 cp = n->prev->child->string;
1012 if (cp == NULL)
1013 cp = meta->name;
1014 if (cp == NULL)
1015 p->offset += term_len(p, 6);
1016 else
1017 p->offset += term_len(p, 1) + term_strlen(p, cp);
1018 return(1);
1019 }
1020
1021 if (NULL == n->child && NULL == meta->name)
1022 return(0);
1023
1024 if (MDOC_HEAD == n->type)
1025 synopsis_pre(p, n->parent);
1026
1027 if (MDOC_HEAD == n->type &&
1028 NULL != n->next && NULL != n->next->child) {
1029 p->flags |= TERMP_NOSPACE | TERMP_NOBREAK | TERMP_BRIND;
1030 p->trailspace = 1;
1031 p->rmargin = p->offset + term_len(p, 1);
1032 if (NULL == n->child) {
1033 p->rmargin += term_strlen(p, meta->name);
1034 } else if (MDOC_TEXT == n->child->type) {
1035 p->rmargin += term_strlen(p, n->child->string);
1036 if (n->child->next)
1037 p->flags |= TERMP_HANG;
1038 } else {
1039 p->rmargin += term_len(p, 5);
1040 p->flags |= TERMP_HANG;
1041 }
1042 }
1043
1044 term_fontpush(p, TERMFONT_BOLD);
1045 if (NULL == n->child)
1046 term_word(p, meta->name);
1047 return(1);
1048 }
1049
1050 static void
1051 termp_nm_post(DECL_ARGS)
1052 {
1053
1054 if (MDOC_BLOCK == n->type) {
1055 p->flags &= ~(TERMP_KEEP | TERMP_PREKEEP);
1056 } else if (MDOC_HEAD == n->type &&
1057 NULL != n->next && NULL != n->next->child) {
1058 term_flushln(p);
1059 p->flags &= ~(TERMP_NOBREAK | TERMP_BRIND | TERMP_HANG);
1060 p->trailspace = 0;
1061 } else if (MDOC_BODY == n->type && n->child)
1062 term_flushln(p);
1063 }
1064
1065 static int
1066 termp_fl_pre(DECL_ARGS)
1067 {
1068
1069 term_fontpush(p, TERMFONT_BOLD);
1070 term_word(p, "\\-");
1071
1072 if ( ! (n->nchild == 0 &&
1073 (n->next == NULL ||
1074 n->next->type == MDOC_TEXT ||
1075 n->next->flags & MDOC_LINE)))
1076 p->flags |= TERMP_NOSPACE;
1077
1078 return(1);
1079 }
1080
1081 static int
1082 termp__a_pre(DECL_ARGS)
1083 {
1084
1085 if (n->prev && MDOC__A == n->prev->tok)
1086 if (NULL == n->next || MDOC__A != n->next->tok)
1087 term_word(p, "and");
1088
1089 return(1);
1090 }
1091
1092 static int
1093 termp_an_pre(DECL_ARGS)
1094 {
1095
1096 if (n->norm->An.auth == AUTH_split) {
1097 p->flags &= ~TERMP_NOSPLIT;
1098 p->flags |= TERMP_SPLIT;
1099 return(0);
1100 }
1101 if (n->norm->An.auth == AUTH_nosplit) {
1102 p->flags &= ~TERMP_SPLIT;
1103 p->flags |= TERMP_NOSPLIT;
1104 return(0);
1105 }
1106
1107 if (n->child == NULL)
1108 return(0);
1109
1110 if (p->flags & TERMP_SPLIT)
1111 term_newln(p);
1112
1113 if (n->sec == SEC_AUTHORS && ! (p->flags & TERMP_NOSPLIT))
1114 p->flags |= TERMP_SPLIT;
1115
1116 return(1);
1117 }
1118
1119 static int
1120 termp_ns_pre(DECL_ARGS)
1121 {
1122
1123 if ( ! (MDOC_LINE & n->flags))
1124 p->flags |= TERMP_NOSPACE;
1125 return(1);
1126 }
1127
1128 static int
1129 termp_rs_pre(DECL_ARGS)
1130 {
1131
1132 if (SEC_SEE_ALSO != n->sec)
1133 return(1);
1134 if (MDOC_BLOCK == n->type && n->prev)
1135 term_vspace(p);
1136 return(1);
1137 }
1138
1139 static int
1140 termp_rv_pre(DECL_ARGS)
1141 {
1142 int nchild;
1143
1144 term_newln(p);
1145
1146 nchild = n->nchild;
1147 if (nchild > 0) {
1148 term_word(p, "The");
1149
1150 for (n = n->child; n; n = n->next) {
1151 term_fontpush(p, TERMFONT_BOLD);
1152 term_word(p, n->string);
1153 term_fontpop(p);
1154
1155 p->flags |= TERMP_NOSPACE;
1156 term_word(p, "()");
1157
1158 if (n->next == NULL)
1159 continue;
1160
1161 if (nchild > 2) {
1162 p->flags |= TERMP_NOSPACE;
1163 term_word(p, ",");
1164 }
1165 if (n->next->next == NULL)
1166 term_word(p, "and");
1167 }
1168
1169 if (nchild > 1)
1170 term_word(p, "functions return");
1171 else
1172 term_word(p, "function returns");
1173
1174 term_word(p, "the value\\~0 if successful;");
1175 } else
1176 term_word(p, "Upon successful completion,"
1177 " the value\\~0 is returned;");
1178
1179 term_word(p, "otherwise the value\\~\\-1 is returned"
1180 " and the global variable");
1181
1182 term_fontpush(p, TERMFONT_UNDER);
1183 term_word(p, "errno");
1184 term_fontpop(p);
1185
1186 term_word(p, "is set to indicate the error.");
1187 p->flags |= TERMP_SENTENCE;
1188
1189 return(0);
1190 }
1191
1192 static int
1193 termp_ex_pre(DECL_ARGS)
1194 {
1195 int nchild;
1196
1197 term_newln(p);
1198 term_word(p, "The");
1199
1200 nchild = n->nchild;
1201 for (n = n->child; n; n = n->next) {
1202 term_fontpush(p, TERMFONT_BOLD);
1203 term_word(p, n->string);
1204 term_fontpop(p);
1205
1206 if (nchild > 2 && n->next) {
1207 p->flags |= TERMP_NOSPACE;
1208 term_word(p, ",");
1209 }
1210
1211 if (n->next && NULL == n->next->next)
1212 term_word(p, "and");
1213 }
1214
1215 if (nchild > 1)
1216 term_word(p, "utilities exit\\~0");
1217 else
1218 term_word(p, "utility exits\\~0");
1219
1220 term_word(p, "on success, and\\~>0 if an error occurs.");
1221
1222 p->flags |= TERMP_SENTENCE;
1223 return(0);
1224 }
1225
1226 static int
1227 termp_nd_pre(DECL_ARGS)
1228 {
1229
1230 if (MDOC_BODY != n->type)
1231 return(1);
1232
1233 #if defined(__OpenBSD__) || defined(__linux__)
1234 term_word(p, "\\(en");
1235 #else
1236 term_word(p, "\\(em");
1237 #endif
1238 return(1);
1239 }
1240
1241 static int
1242 termp_bl_pre(DECL_ARGS)
1243 {
1244
1245 return(MDOC_HEAD != n->type);
1246 }
1247
1248 static void
1249 termp_bl_post(DECL_ARGS)
1250 {
1251
1252 if (MDOC_BLOCK == n->type)
1253 term_newln(p);
1254 }
1255
1256 static int
1257 termp_xr_pre(DECL_ARGS)
1258 {
1259
1260 if (NULL == (n = n->child))
1261 return(0);
1262
1263 assert(MDOC_TEXT == n->type);
1264 term_word(p, n->string);
1265
1266 if (NULL == (n = n->next))
1267 return(0);
1268
1269 p->flags |= TERMP_NOSPACE;
1270 term_word(p, "(");
1271 p->flags |= TERMP_NOSPACE;
1272
1273 assert(MDOC_TEXT == n->type);
1274 term_word(p, n->string);
1275
1276 p->flags |= TERMP_NOSPACE;
1277 term_word(p, ")");
1278
1279 return(0);
1280 }
1281
1282 /*
1283 * This decides how to assert whitespace before any of the SYNOPSIS set
1284 * of macros (which, as in the case of Ft/Fo and Ft/Fn, may contain
1285 * macro combos).
1286 */
1287 static void
1288 synopsis_pre(struct termp *p, const struct mdoc_node *n)
1289 {
1290 /*
1291 * Obviously, if we're not in a SYNOPSIS or no prior macros
1292 * exist, do nothing.
1293 */
1294 if (NULL == n->prev || ! (MDOC_SYNPRETTY & n->flags))
1295 return;
1296
1297 /*
1298 * If we're the second in a pair of like elements, emit our
1299 * newline and return. UNLESS we're `Fo', `Fn', `Fn', in which
1300 * case we soldier on.
1301 */
1302 if (n->prev->tok == n->tok &&
1303 MDOC_Ft != n->tok &&
1304 MDOC_Fo != n->tok &&
1305 MDOC_Fn != n->tok) {
1306 term_newln(p);
1307 return;
1308 }
1309
1310 /*
1311 * If we're one of the SYNOPSIS set and non-like pair-wise after
1312 * another (or Fn/Fo, which we've let slip through) then assert
1313 * vertical space, else only newline and move on.
1314 */
1315 switch (n->prev->tok) {
1316 case MDOC_Fd:
1317 /* FALLTHROUGH */
1318 case MDOC_Fn:
1319 /* FALLTHROUGH */
1320 case MDOC_Fo:
1321 /* FALLTHROUGH */
1322 case MDOC_In:
1323 /* FALLTHROUGH */
1324 case MDOC_Vt:
1325 term_vspace(p);
1326 break;
1327 case MDOC_Ft:
1328 if (MDOC_Fn != n->tok && MDOC_Fo != n->tok) {
1329 term_vspace(p);
1330 break;
1331 }
1332 /* FALLTHROUGH */
1333 default:
1334 term_newln(p);
1335 break;
1336 }
1337 }
1338
1339 static int
1340 termp_vt_pre(DECL_ARGS)
1341 {
1342
1343 if (MDOC_ELEM == n->type) {
1344 synopsis_pre(p, n);
1345 return(termp_under_pre(p, pair, meta, n));
1346 } else if (MDOC_BLOCK == n->type) {
1347 synopsis_pre(p, n);
1348 return(1);
1349 } else if (MDOC_HEAD == n->type)
1350 return(0);
1351
1352 return(termp_under_pre(p, pair, meta, n));
1353 }
1354
1355 static int
1356 termp_bold_pre(DECL_ARGS)
1357 {
1358
1359 term_fontpush(p, TERMFONT_BOLD);
1360 return(1);
1361 }
1362
1363 static int
1364 termp_fd_pre(DECL_ARGS)
1365 {
1366
1367 synopsis_pre(p, n);
1368 return(termp_bold_pre(p, pair, meta, n));
1369 }
1370
1371 static void
1372 termp_fd_post(DECL_ARGS)
1373 {
1374
1375 term_newln(p);
1376 }
1377
1378 static int
1379 termp_sh_pre(DECL_ARGS)
1380 {
1381
1382 switch (n->type) {
1383 case MDOC_BLOCK:
1384 /*
1385 * Vertical space before sections, except
1386 * when the previous section was empty.
1387 */
1388 if (n->prev == NULL ||
1389 MDOC_Sh != n->prev->tok ||
1390 (n->prev->body != NULL &&
1391 n->prev->body->child != NULL))
1392 term_vspace(p);
1393 break;
1394 case MDOC_HEAD:
1395 term_fontpush(p, TERMFONT_BOLD);
1396 break;
1397 case MDOC_BODY:
1398 p->offset = term_len(p, p->defindent);
1399 if (SEC_AUTHORS == n->sec)
1400 p->flags &= ~(TERMP_SPLIT|TERMP_NOSPLIT);
1401 break;
1402 default:
1403 break;
1404 }
1405 return(1);
1406 }
1407
1408 static void
1409 termp_sh_post(DECL_ARGS)
1410 {
1411
1412 switch (n->type) {
1413 case MDOC_HEAD:
1414 term_newln(p);
1415 break;
1416 case MDOC_BODY:
1417 term_newln(p);
1418 p->offset = 0;
1419 break;
1420 default:
1421 break;
1422 }
1423 }
1424
1425 static int
1426 termp_bt_pre(DECL_ARGS)
1427 {
1428
1429 term_word(p, "is currently in beta test.");
1430 p->flags |= TERMP_SENTENCE;
1431 return(0);
1432 }
1433
1434 static void
1435 termp_lb_post(DECL_ARGS)
1436 {
1437
1438 if (SEC_LIBRARY == n->sec && MDOC_LINE & n->flags)
1439 term_newln(p);
1440 }
1441
1442 static int
1443 termp_ud_pre(DECL_ARGS)
1444 {
1445
1446 term_word(p, "currently under development.");
1447 p->flags |= TERMP_SENTENCE;
1448 return(0);
1449 }
1450
1451 static int
1452 termp_d1_pre(DECL_ARGS)
1453 {
1454
1455 if (MDOC_BLOCK != n->type)
1456 return(1);
1457 term_newln(p);
1458 p->offset += term_len(p, p->defindent + 1);
1459 return(1);
1460 }
1461
1462 static int
1463 termp_ft_pre(DECL_ARGS)
1464 {
1465
1466 /* NB: MDOC_LINE does not effect this! */
1467 synopsis_pre(p, n);
1468 term_fontpush(p, TERMFONT_UNDER);
1469 return(1);
1470 }
1471
1472 static int
1473 termp_fn_pre(DECL_ARGS)
1474 {
1475 size_t rmargin = 0;
1476 int pretty;
1477
1478 pretty = MDOC_SYNPRETTY & n->flags;
1479
1480 synopsis_pre(p, n);
1481
1482 if (NULL == (n = n->child))
1483 return(0);
1484
1485 if (pretty) {
1486 rmargin = p->rmargin;
1487 p->rmargin = p->offset + term_len(p, 4);
1488 p->flags |= TERMP_NOBREAK | TERMP_BRIND | TERMP_HANG;
1489 }
1490
1491 assert(MDOC_TEXT == n->type);
1492 term_fontpush(p, TERMFONT_BOLD);
1493 term_word(p, n->string);
1494 term_fontpop(p);
1495
1496 if (pretty) {
1497 term_flushln(p);
1498 p->flags &= ~(TERMP_NOBREAK | TERMP_BRIND | TERMP_HANG);
1499 p->offset = p->rmargin;
1500 p->rmargin = rmargin;
1501 }
1502
1503 p->flags |= TERMP_NOSPACE;
1504 term_word(p, "(");
1505 p->flags |= TERMP_NOSPACE;
1506
1507 for (n = n->next; n; n = n->next) {
1508 assert(MDOC_TEXT == n->type);
1509 term_fontpush(p, TERMFONT_UNDER);
1510 if (pretty)
1511 p->flags |= TERMP_NBRWORD;
1512 term_word(p, n->string);
1513 term_fontpop(p);
1514
1515 if (n->next) {
1516 p->flags |= TERMP_NOSPACE;
1517 term_word(p, ",");
1518 }
1519 }
1520
1521 p->flags |= TERMP_NOSPACE;
1522 term_word(p, ")");
1523
1524 if (pretty) {
1525 p->flags |= TERMP_NOSPACE;
1526 term_word(p, ";");
1527 term_flushln(p);
1528 }
1529
1530 return(0);
1531 }
1532
1533 static int
1534 termp_fa_pre(DECL_ARGS)
1535 {
1536 const struct mdoc_node *nn;
1537
1538 if (n->parent->tok != MDOC_Fo) {
1539 term_fontpush(p, TERMFONT_UNDER);
1540 return(1);
1541 }
1542
1543 for (nn = n->child; nn; nn = nn->next) {
1544 term_fontpush(p, TERMFONT_UNDER);
1545 p->flags |= TERMP_NBRWORD;
1546 term_word(p, nn->string);
1547 term_fontpop(p);
1548
1549 if (nn->next || (n->next && n->next->tok == MDOC_Fa)) {
1550 p->flags |= TERMP_NOSPACE;
1551 term_word(p, ",");
1552 }
1553 }
1554
1555 return(0);
1556 }
1557
1558 static int
1559 termp_bd_pre(DECL_ARGS)
1560 {
1561 size_t tabwidth, lm, len, rm, rmax;
1562 struct mdoc_node *nn;
1563
1564 if (MDOC_BLOCK == n->type) {
1565 print_bvspace(p, n, n);
1566 return(1);
1567 } else if (MDOC_HEAD == n->type)
1568 return(0);
1569
1570 /* Handle the -offset argument. */
1571
1572 if (n->norm->Bd.offs == NULL ||
1573 ! strcmp(n->norm->Bd.offs, "left"))
1574 /* nothing */;
1575 else if ( ! strcmp(n->norm->Bd.offs, "indent"))
1576 p->offset += term_len(p, p->defindent + 1);
1577 else if ( ! strcmp(n->norm->Bd.offs, "indent-two"))
1578 p->offset += term_len(p, (p->defindent + 1) * 2);
1579 else
1580 p->offset += a2width(p, n->norm->Bd.offs);
1581
1582 /*
1583 * If -ragged or -filled are specified, the block does nothing
1584 * but change the indentation. If -unfilled or -literal are
1585 * specified, text is printed exactly as entered in the display:
1586 * for macro lines, a newline is appended to the line. Blank
1587 * lines are allowed.
1588 */
1589
1590 if (DISP_literal != n->norm->Bd.type &&
1591 DISP_unfilled != n->norm->Bd.type &&
1592 DISP_centered != n->norm->Bd.type)
1593 return(1);
1594
1595 tabwidth = p->tabwidth;
1596 if (DISP_literal == n->norm->Bd.type)
1597 p->tabwidth = term_len(p, 8);
1598
1599 lm = p->offset;
1600 rm = p->rmargin;
1601 rmax = p->maxrmargin;
1602 p->rmargin = p->maxrmargin = TERM_MAXMARGIN;
1603
1604 for (nn = n->child; nn; nn = nn->next) {
1605 if (DISP_centered == n->norm->Bd.type) {
1606 if (MDOC_TEXT == nn->type) {
1607 len = term_strlen(p, nn->string);
1608 p->offset = len >= rm ? 0 :
1609 lm + len >= rm ? rm - len :
1610 (lm + rm - len) / 2;
1611 } else
1612 p->offset = lm;
1613 }
1614 print_mdoc_node(p, pair, meta, nn);
1615 /*
1616 * If the printed node flushes its own line, then we
1617 * needn't do it here as well. This is hacky, but the
1618 * notion of selective eoln whitespace is pretty dumb
1619 * anyway, so don't sweat it.
1620 */
1621 switch (nn->tok) {
1622 case MDOC_Sm:
1623 /* FALLTHROUGH */
1624 case MDOC_br:
1625 /* FALLTHROUGH */
1626 case MDOC_sp:
1627 /* FALLTHROUGH */
1628 case MDOC_Bl:
1629 /* FALLTHROUGH */
1630 case MDOC_D1:
1631 /* FALLTHROUGH */
1632 case MDOC_Dl:
1633 /* FALLTHROUGH */
1634 case MDOC_Lp:
1635 /* FALLTHROUGH */
1636 case MDOC_Pp:
1637 continue;
1638 default:
1639 break;
1640 }
1641 if (nn->next && nn->next->line == nn->line)
1642 continue;
1643 term_flushln(p);
1644 p->flags |= TERMP_NOSPACE;
1645 }
1646
1647 p->tabwidth = tabwidth;
1648 p->rmargin = rm;
1649 p->maxrmargin = rmax;
1650 return(0);
1651 }
1652
1653 static void
1654 termp_bd_post(DECL_ARGS)
1655 {
1656 size_t rm, rmax;
1657
1658 if (MDOC_BODY != n->type)
1659 return;
1660
1661 rm = p->rmargin;
1662 rmax = p->maxrmargin;
1663
1664 if (DISP_literal == n->norm->Bd.type ||
1665 DISP_unfilled == n->norm->Bd.type)
1666 p->rmargin = p->maxrmargin = TERM_MAXMARGIN;
1667
1668 p->flags |= TERMP_NOSPACE;
1669 term_newln(p);
1670
1671 p->rmargin = rm;
1672 p->maxrmargin = rmax;
1673 }
1674
1675 static int
1676 termp_bx_pre(DECL_ARGS)
1677 {
1678
1679 if (NULL != (n = n->child)) {
1680 term_word(p, n->string);
1681 p->flags |= TERMP_NOSPACE;
1682 term_word(p, "BSD");
1683 } else {
1684 term_word(p, "BSD");
1685 return(0);
1686 }
1687
1688 if (NULL != (n = n->next)) {
1689 p->flags |= TERMP_NOSPACE;
1690 term_word(p, "-");
1691 p->flags |= TERMP_NOSPACE;
1692 term_word(p, n->string);
1693 }
1694
1695 return(0);
1696 }
1697
1698 static int
1699 termp_xx_pre(DECL_ARGS)
1700 {
1701 const char *pp;
1702 int flags;
1703
1704 pp = NULL;
1705 switch (n->tok) {
1706 case MDOC_Bsx:
1707 pp = "BSD/OS";
1708 break;
1709 case MDOC_Dx:
1710 pp = "DragonFly";
1711 break;
1712 case MDOC_Fx:
1713 pp = "FreeBSD";
1714 break;
1715 case MDOC_Nx:
1716 pp = "NetBSD";
1717 break;
1718 case MDOC_Ox:
1719 pp = "OpenBSD";
1720 break;
1721 case MDOC_Ux:
1722 pp = "UNIX";
1723 break;
1724 default:
1725 abort();
1726 /* NOTREACHED */
1727 }
1728
1729 term_word(p, pp);
1730 if (n->child) {
1731 flags = p->flags;
1732 p->flags |= TERMP_KEEP;
1733 term_word(p, n->child->string);
1734 p->flags = flags;
1735 }
1736 return(0);
1737 }
1738
1739 static void
1740 termp_pf_post(DECL_ARGS)
1741 {
1742
1743 p->flags |= TERMP_NOSPACE;
1744 }
1745
1746 static int
1747 termp_ss_pre(DECL_ARGS)
1748 {
1749
1750 switch (n->type) {
1751 case MDOC_BLOCK:
1752 term_newln(p);
1753 if (n->prev)
1754 term_vspace(p);
1755 break;
1756 case MDOC_HEAD:
1757 term_fontpush(p, TERMFONT_BOLD);
1758 p->offset = term_len(p, (p->defindent+1)/2);
1759 break;
1760 case MDOC_BODY:
1761 p->offset = term_len(p, p->defindent);
1762 break;
1763 default:
1764 break;
1765 }
1766
1767 return(1);
1768 }
1769
1770 static void
1771 termp_ss_post(DECL_ARGS)
1772 {
1773
1774 if (n->type == MDOC_HEAD || n->type == MDOC_BODY)
1775 term_newln(p);
1776 }
1777
1778 static int
1779 termp_cd_pre(DECL_ARGS)
1780 {
1781
1782 synopsis_pre(p, n);
1783 term_fontpush(p, TERMFONT_BOLD);
1784 return(1);
1785 }
1786
1787 static int
1788 termp_in_pre(DECL_ARGS)
1789 {
1790
1791 synopsis_pre(p, n);
1792
1793 if (MDOC_SYNPRETTY & n->flags && MDOC_LINE & n->flags) {
1794 term_fontpush(p, TERMFONT_BOLD);
1795 term_word(p, "#include");
1796 term_word(p, "<");
1797 } else {
1798 term_word(p, "<");
1799 term_fontpush(p, TERMFONT_UNDER);
1800 }
1801
1802 p->flags |= TERMP_NOSPACE;
1803 return(1);
1804 }
1805
1806 static void
1807 termp_in_post(DECL_ARGS)
1808 {
1809
1810 if (MDOC_SYNPRETTY & n->flags)
1811 term_fontpush(p, TERMFONT_BOLD);
1812
1813 p->flags |= TERMP_NOSPACE;
1814 term_word(p, ">");
1815
1816 if (MDOC_SYNPRETTY & n->flags)
1817 term_fontpop(p);
1818 }
1819
1820 static int
1821 termp_sp_pre(DECL_ARGS)
1822 {
1823 size_t i, len;
1824
1825 switch (n->tok) {
1826 case MDOC_sp:
1827 len = n->child ? a2height(p, n->child->string) : 1;
1828 break;
1829 case MDOC_br:
1830 len = 0;
1831 break;
1832 default:
1833 len = 1;
1834 break;
1835 }
1836
1837 if (0 == len)
1838 term_newln(p);
1839 for (i = 0; i < len; i++)
1840 term_vspace(p);
1841
1842 return(0);
1843 }
1844
1845 static int
1846 termp_skip_pre(DECL_ARGS)
1847 {
1848
1849 return(0);
1850 }
1851
1852 static int
1853 termp_quote_pre(DECL_ARGS)
1854 {
1855
1856 if (MDOC_BODY != n->type && MDOC_ELEM != n->type)
1857 return(1);
1858
1859 switch (n->tok) {
1860 case MDOC_Ao:
1861 /* FALLTHROUGH */
1862 case MDOC_Aq:
1863 term_word(p, n->parent->prev != NULL &&
1864 n->parent->prev->tok == MDOC_An ? "<" : "\\(la");
1865 break;
1866 case MDOC_Bro:
1867 /* FALLTHROUGH */
1868 case MDOC_Brq:
1869 term_word(p, "{");
1870 break;
1871 case MDOC_Oo:
1872 /* FALLTHROUGH */
1873 case MDOC_Op:
1874 /* FALLTHROUGH */
1875 case MDOC_Bo:
1876 /* FALLTHROUGH */
1877 case MDOC_Bq:
1878 term_word(p, "[");
1879 break;
1880 case MDOC_Do:
1881 /* FALLTHROUGH */
1882 case MDOC_Dq:
1883 term_word(p, "\\(lq");
1884 break;
1885 case MDOC_En:
1886 if (NULL == n->norm->Es ||
1887 NULL == n->norm->Es->child)
1888 return(1);
1889 term_word(p, n->norm->Es->child->string);
1890 break;
1891 case MDOC_Eo:
1892 break;
1893 case MDOC_Po:
1894 /* FALLTHROUGH */
1895 case MDOC_Pq:
1896 term_word(p, "(");
1897 break;
1898 case MDOC__T:
1899 /* FALLTHROUGH */
1900 case MDOC_Qo:
1901 /* FALLTHROUGH */
1902 case MDOC_Qq:
1903 term_word(p, "\"");
1904 break;
1905 case MDOC_Ql:
1906 /* FALLTHROUGH */
1907 case MDOC_So:
1908 /* FALLTHROUGH */
1909 case MDOC_Sq:
1910 term_word(p, "\\(oq");
1911 break;
1912 default:
1913 abort();
1914 /* NOTREACHED */
1915 }
1916
1917 p->flags |= TERMP_NOSPACE;
1918 return(1);
1919 }
1920
1921 static void
1922 termp_quote_post(DECL_ARGS)
1923 {
1924
1925 if (n->type != MDOC_BODY && n->type != MDOC_ELEM)
1926 return;
1927
1928 if ( ! (n->tok == MDOC_En ||
1929 (n->tok == MDOC_Eo && n->end == ENDBODY_SPACE)))
1930 p->flags |= TERMP_NOSPACE;
1931
1932 switch (n->tok) {
1933 case MDOC_Ao:
1934 /* FALLTHROUGH */
1935 case MDOC_Aq:
1936 term_word(p, n->parent->prev != NULL &&
1937 n->parent->prev->tok == MDOC_An ? ">" : "\\(ra");
1938 break;
1939 case MDOC_Bro:
1940 /* FALLTHROUGH */
1941 case MDOC_Brq:
1942 term_word(p, "}");
1943 break;
1944 case MDOC_Oo:
1945 /* FALLTHROUGH */
1946 case MDOC_Op:
1947 /* FALLTHROUGH */
1948 case MDOC_Bo:
1949 /* FALLTHROUGH */
1950 case MDOC_Bq:
1951 term_word(p, "]");
1952 break;
1953 case MDOC_Do:
1954 /* FALLTHROUGH */
1955 case MDOC_Dq:
1956 term_word(p, "\\(rq");
1957 break;
1958 case MDOC_En:
1959 if (NULL != n->norm->Es &&
1960 NULL != n->norm->Es->child &&
1961 NULL != n->norm->Es->child->next) {
1962 p->flags |= TERMP_NOSPACE;
1963 term_word(p, n->norm->Es->child->next->string);
1964 }
1965 break;
1966 case MDOC_Eo:
1967 break;
1968 case MDOC_Po:
1969 /* FALLTHROUGH */
1970 case MDOC_Pq:
1971 term_word(p, ")");
1972 break;
1973 case MDOC__T:
1974 /* FALLTHROUGH */
1975 case MDOC_Qo:
1976 /* FALLTHROUGH */
1977 case MDOC_Qq:
1978 term_word(p, "\"");
1979 break;
1980 case MDOC_Ql:
1981 /* FALLTHROUGH */
1982 case MDOC_So:
1983 /* FALLTHROUGH */
1984 case MDOC_Sq:
1985 term_word(p, "\\(cq");
1986 break;
1987 default:
1988 abort();
1989 /* NOTREACHED */
1990 }
1991 }
1992
1993 static int
1994 termp_fo_pre(DECL_ARGS)
1995 {
1996 size_t rmargin = 0;
1997 int pretty;
1998
1999 pretty = MDOC_SYNPRETTY & n->flags;
2000
2001 if (MDOC_BLOCK == n->type) {
2002 synopsis_pre(p, n);
2003 return(1);
2004 } else if (MDOC_BODY == n->type) {
2005 if (pretty) {
2006 rmargin = p->rmargin;
2007 p->rmargin = p->offset + term_len(p, 4);
2008 p->flags |= TERMP_NOBREAK | TERMP_BRIND |
2009 TERMP_HANG;
2010 }
2011 p->flags |= TERMP_NOSPACE;
2012 term_word(p, "(");
2013 p->flags |= TERMP_NOSPACE;
2014 if (pretty) {
2015 term_flushln(p);
2016 p->flags &= ~(TERMP_NOBREAK | TERMP_BRIND |
2017 TERMP_HANG);
2018 p->offset = p->rmargin;
2019 p->rmargin = rmargin;
2020 }
2021 return(1);
2022 }
2023
2024 if (NULL == n->child)
2025 return(0);
2026
2027 /* XXX: we drop non-initial arguments as per groff. */
2028
2029 assert(n->child->string);
2030 term_fontpush(p, TERMFONT_BOLD);
2031 term_word(p, n->child->string);
2032 return(0);
2033 }
2034
2035 static void
2036 termp_fo_post(DECL_ARGS)
2037 {
2038
2039 if (MDOC_BODY != n->type)
2040 return;
2041
2042 p->flags |= TERMP_NOSPACE;
2043 term_word(p, ")");
2044
2045 if (MDOC_SYNPRETTY & n->flags) {
2046 p->flags |= TERMP_NOSPACE;
2047 term_word(p, ";");
2048 term_flushln(p);
2049 }
2050 }
2051
2052 static int
2053 termp_bf_pre(DECL_ARGS)
2054 {
2055
2056 if (MDOC_HEAD == n->type)
2057 return(0);
2058 else if (MDOC_BODY != n->type)
2059 return(1);
2060
2061 if (FONT_Em == n->norm->Bf.font)
2062 term_fontpush(p, TERMFONT_UNDER);
2063 else if (FONT_Sy == n->norm->Bf.font)
2064 term_fontpush(p, TERMFONT_BOLD);
2065 else
2066 term_fontpush(p, TERMFONT_NONE);
2067
2068 return(1);
2069 }
2070
2071 static int
2072 termp_sm_pre(DECL_ARGS)
2073 {
2074
2075 if (NULL == n->child)
2076 p->flags ^= TERMP_NONOSPACE;
2077 else if (0 == strcmp("on", n->child->string))
2078 p->flags &= ~TERMP_NONOSPACE;
2079 else
2080 p->flags |= TERMP_NONOSPACE;
2081
2082 if (p->col && ! (TERMP_NONOSPACE & p->flags))
2083 p->flags &= ~TERMP_NOSPACE;
2084
2085 return(0);
2086 }
2087
2088 static int
2089 termp_ap_pre(DECL_ARGS)
2090 {
2091
2092 p->flags |= TERMP_NOSPACE;
2093 term_word(p, "'");
2094 p->flags |= TERMP_NOSPACE;
2095 return(1);
2096 }
2097
2098 static void
2099 termp____post(DECL_ARGS)
2100 {
2101
2102 /*
2103 * Handle lists of authors. In general, print each followed by
2104 * a comma. Don't print the comma if there are only two
2105 * authors.
2106 */
2107 if (MDOC__A == n->tok && n->next && MDOC__A == n->next->tok)
2108 if (NULL == n->next->next || MDOC__A != n->next->next->tok)
2109 if (NULL == n->prev || MDOC__A != n->prev->tok)
2110 return;
2111
2112 /* TODO: %U. */
2113
2114 if (NULL == n->parent || MDOC_Rs != n->parent->tok)
2115 return;
2116
2117 p->flags |= TERMP_NOSPACE;
2118 if (NULL == n->next) {
2119 term_word(p, ".");
2120 p->flags |= TERMP_SENTENCE;
2121 } else
2122 term_word(p, ",");
2123 }
2124
2125 static int
2126 termp_li_pre(DECL_ARGS)
2127 {
2128
2129 term_fontpush(p, TERMFONT_NONE);
2130 return(1);
2131 }
2132
2133 static int
2134 termp_lk_pre(DECL_ARGS)
2135 {
2136 const struct mdoc_node *link, *descr;
2137
2138 if (NULL == (link = n->child))
2139 return(0);
2140
2141 if (NULL != (descr = link->next)) {
2142 term_fontpush(p, TERMFONT_UNDER);
2143 while (NULL != descr) {
2144 term_word(p, descr->string);
2145 descr = descr->next;
2146 }
2147 p->flags |= TERMP_NOSPACE;
2148 term_word(p, ":");
2149 term_fontpop(p);
2150 }
2151
2152 term_fontpush(p, TERMFONT_BOLD);
2153 term_word(p, link->string);
2154 term_fontpop(p);
2155
2156 return(0);
2157 }
2158
2159 static int
2160 termp_bk_pre(DECL_ARGS)
2161 {
2162
2163 switch (n->type) {
2164 case MDOC_BLOCK:
2165 break;
2166 case MDOC_HEAD:
2167 return(0);
2168 case MDOC_BODY:
2169 if (n->parent->args || 0 == n->prev->nchild)
2170 p->flags |= TERMP_PREKEEP;
2171 break;
2172 default:
2173 abort();
2174 /* NOTREACHED */
2175 }
2176
2177 return(1);
2178 }
2179
2180 static void
2181 termp_bk_post(DECL_ARGS)
2182 {
2183
2184 if (MDOC_BODY == n->type)
2185 p->flags &= ~(TERMP_KEEP | TERMP_PREKEEP);
2186 }
2187
2188 static void
2189 termp__t_post(DECL_ARGS)
2190 {
2191
2192 /*
2193 * If we're in an `Rs' and there's a journal present, then quote
2194 * us instead of underlining us (for disambiguation).
2195 */
2196 if (n->parent && MDOC_Rs == n->parent->tok &&
2197 n->parent->norm->Rs.quote_T)
2198 termp_quote_post(p, pair, meta, n);
2199
2200 termp____post(p, pair, meta, n);
2201 }
2202
2203 static int
2204 termp__t_pre(DECL_ARGS)
2205 {
2206
2207 /*
2208 * If we're in an `Rs' and there's a journal present, then quote
2209 * us instead of underlining us (for disambiguation).
2210 */
2211 if (n->parent && MDOC_Rs == n->parent->tok &&
2212 n->parent->norm->Rs.quote_T)
2213 return(termp_quote_pre(p, pair, meta, n));
2214
2215 term_fontpush(p, TERMFONT_UNDER);
2216 return(1);
2217 }
2218
2219 static int
2220 termp_under_pre(DECL_ARGS)
2221 {
2222
2223 term_fontpush(p, TERMFONT_UNDER);
2224 return(1);
2225 }
A git conversion mirror of mandoc.bsd.lv