Annotation of mandoc/mdoc_man.c, Revision 1.14
1.14 ! schwarze 1: /* $Id: mdoc_man.c,v 1.13 2012/07/07 13:57:19 schwarze Exp $ */
1.1 schwarze 2: /*
1.11 schwarze 3: * Copyright (c) 2011, 2012 Ingo Schwarze <schwarze@openbsd.org>
1.1 schwarze 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: */
1.7 kristaps 17: #ifdef HAVE_CONFIG_H
18: #include "config.h"
19: #endif
20:
1.12 schwarze 21: #include <assert.h>
1.1 schwarze 22: #include <stdio.h>
23: #include <string.h>
24:
25: #include "mandoc.h"
1.11 schwarze 26: #include "out.h"
1.4 kristaps 27: #include "man.h"
1.1 schwarze 28: #include "mdoc.h"
29: #include "main.h"
30:
1.5 kristaps 31: #define DECL_ARGS const struct mdoc_meta *m, \
32: const struct mdoc_node *n, \
33: struct mman *mm
1.1 schwarze 34:
1.5 kristaps 35: struct mman {
1.12 schwarze 36: int mode_space; /* spacing mode: 1 = on */
1.5 kristaps 37: int need_space; /* next word needs prior ws */
1.13 schwarze 38: int mode_keep; /* currently inside a keep */
1.5 kristaps 39: int need_nl; /* next word needs prior nl */
40: };
1.1 schwarze 41:
42: struct manact {
1.5 kristaps 43: int (*cond)(DECL_ARGS); /* DON'T run actions */
44: int (*pre)(DECL_ARGS); /* pre-node action */
45: void (*post)(DECL_ARGS); /* post-node action */
46: const char *prefix; /* pre-node string constant */
47: const char *suffix; /* post-node string constant */
1.1 schwarze 48: };
49:
1.5 kristaps 50: static int cond_body(DECL_ARGS);
1.1 schwarze 51: static int cond_head(DECL_ARGS);
1.5 kristaps 52: static void post_bd(DECL_ARGS);
1.13 schwarze 53: static void post_bk(DECL_ARGS);
1.5 kristaps 54: static void post_dl(DECL_ARGS);
1.1 schwarze 55: static void post_enc(DECL_ARGS);
1.14 ! schwarze 56: static void post_lb(DECL_ARGS);
1.5 kristaps 57: static void post_nm(DECL_ARGS);
1.1 schwarze 58: static void post_percent(DECL_ARGS);
1.5 kristaps 59: static void post_pf(DECL_ARGS);
1.3 schwarze 60: static void post_sect(DECL_ARGS);
1.5 kristaps 61: static void post_sp(DECL_ARGS);
1.3 schwarze 62: static int pre_ap(DECL_ARGS);
63: static int pre_bd(DECL_ARGS);
1.13 schwarze 64: static int pre_bk(DECL_ARGS);
1.3 schwarze 65: static int pre_br(DECL_ARGS);
1.8 schwarze 66: static int pre_bx(DECL_ARGS);
1.1 schwarze 67: static int pre_dl(DECL_ARGS);
1.5 kristaps 68: static int pre_enc(DECL_ARGS);
1.1 schwarze 69: static int pre_it(DECL_ARGS);
70: static int pre_nm(DECL_ARGS);
71: static int pre_ns(DECL_ARGS);
72: static int pre_pp(DECL_ARGS);
1.12 schwarze 73: static int pre_sm(DECL_ARGS);
1.3 schwarze 74: static int pre_sp(DECL_ARGS);
1.5 kristaps 75: static int pre_sect(DECL_ARGS);
1.8 schwarze 76: static int pre_ux(DECL_ARGS);
1.1 schwarze 77: static int pre_xr(DECL_ARGS);
1.5 kristaps 78: static void print_word(struct mman *, const char *);
1.11 schwarze 79: static void print_offs(struct mman *, const char *);
1.5 kristaps 80: static void print_node(DECL_ARGS);
1.1 schwarze 81:
1.3 schwarze 82: static const struct manact manacts[MDOC_MAX + 1] = {
83: { NULL, pre_ap, NULL, NULL, NULL }, /* Ap */
84: { NULL, NULL, NULL, NULL, NULL }, /* Dd */
85: { NULL, NULL, NULL, NULL, NULL }, /* Dt */
1.8 schwarze 86: { NULL, NULL, NULL, NULL, NULL }, /* Os */
1.3 schwarze 87: { NULL, pre_sect, post_sect, ".SH", NULL }, /* Sh */
88: { NULL, pre_sect, post_sect, ".SS", NULL }, /* Ss */
1.1 schwarze 89: { NULL, pre_pp, NULL, NULL, NULL }, /* Pp */
1.3 schwarze 90: { cond_body, pre_dl, post_dl, NULL, NULL }, /* D1 */
1.1 schwarze 91: { cond_body, pre_dl, post_dl, NULL, NULL }, /* Dl */
1.3 schwarze 92: { cond_body, pre_bd, post_bd, NULL, NULL }, /* Bd */
93: { NULL, NULL, NULL, NULL, NULL }, /* Ed */
94: { NULL, NULL, NULL, NULL, NULL }, /* Bl */
95: { NULL, NULL, NULL, NULL, NULL }, /* El */
1.1 schwarze 96: { NULL, pre_it, NULL, NULL, NULL }, /* _It */
1.9 schwarze 97: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Ad */
1.1 schwarze 98: { NULL, NULL, NULL, NULL, NULL }, /* _An */
99: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Ar */
1.9 schwarze 100: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Cd */
1.1 schwarze 101: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Cm */
1.9 schwarze 102: { NULL, pre_enc, post_enc, "\\fR", "\\fP" }, /* Dv */
103: { NULL, pre_enc, post_enc, "\\fR", "\\fP" }, /* Er */
104: { NULL, pre_enc, post_enc, "\\fR", "\\fP" }, /* Ev */
1.1 schwarze 105: { NULL, pre_enc, post_enc, "The \\fB",
106: "\\fP\nutility exits 0 on success, and >0 if an error occurs."
107: }, /* Ex */
108: { NULL, NULL, NULL, NULL, NULL }, /* _Fa */
109: { NULL, NULL, NULL, NULL, NULL }, /* _Fd */
110: { NULL, pre_enc, post_enc, "\\fB-", "\\fP" }, /* Fl */
111: { NULL, NULL, NULL, NULL, NULL }, /* _Fn */
112: { NULL, NULL, NULL, NULL, NULL }, /* _Ft */
1.3 schwarze 113: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Ic */
1.1 schwarze 114: { NULL, NULL, NULL, NULL, NULL }, /* _In */
1.9 schwarze 115: { NULL, pre_enc, post_enc, "\\fR", "\\fP" }, /* Li */
1.1 schwarze 116: { cond_head, pre_enc, NULL, "\\- ", NULL }, /* Nd */
117: { NULL, pre_nm, post_nm, NULL, NULL }, /* Nm */
118: { cond_body, pre_enc, post_enc, "[", "]" }, /* Op */
1.8 schwarze 119: { NULL, NULL, NULL, NULL, NULL }, /* Ot */
120: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Pa */
1.6 kristaps 121: { NULL, pre_enc, post_enc, "The \\fB",
122: "\\fP\nfunction returns the value 0 if successful;\n"
123: "otherwise the value -1 is returned and the global\n"
124: "variable \\fIerrno\\fP is set to indicate the error."
125: }, /* Rv */
1.8 schwarze 126: { NULL, NULL, NULL, NULL, NULL }, /* St */
1.1 schwarze 127: { NULL, NULL, NULL, NULL, NULL }, /* _Va */
128: { NULL, NULL, NULL, NULL, NULL }, /* _Vt */
1.8 schwarze 129: { NULL, pre_xr, NULL, NULL, NULL }, /* Xr */
1.1 schwarze 130: { NULL, NULL, post_percent, NULL, NULL }, /* _%A */
131: { NULL, NULL, NULL, NULL, NULL }, /* _%B */
132: { NULL, NULL, post_percent, NULL, NULL }, /* _%D */
133: { NULL, NULL, NULL, NULL, NULL }, /* _%I */
134: { NULL, pre_enc, post_percent, "\\fI", "\\fP" }, /* %J */
135: { NULL, NULL, NULL, NULL, NULL }, /* _%N */
136: { NULL, NULL, NULL, NULL, NULL }, /* _%O */
137: { NULL, NULL, NULL, NULL, NULL }, /* _%P */
138: { NULL, NULL, NULL, NULL, NULL }, /* _%R */
139: { NULL, pre_enc, post_percent, "\"", "\"" }, /* %T */
140: { NULL, NULL, NULL, NULL, NULL }, /* _%V */
1.9 schwarze 141: { NULL, NULL, NULL, NULL, NULL }, /* Ac */
142: { cond_body, pre_enc, post_enc, "<", ">" }, /* Ao */
1.1 schwarze 143: { cond_body, pre_enc, post_enc, "<", ">" }, /* Aq */
1.8 schwarze 144: { NULL, NULL, NULL, NULL, NULL }, /* At */
1.3 schwarze 145: { NULL, NULL, NULL, NULL, NULL }, /* Bc */
1.1 schwarze 146: { NULL, NULL, NULL, NULL, NULL }, /* _Bf */
1.3 schwarze 147: { cond_body, pre_enc, post_enc, "[", "]" }, /* Bo */
148: { cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */
1.8 schwarze 149: { NULL, pre_ux, NULL, "BSD/OS", NULL }, /* Bsx */
150: { NULL, pre_bx, NULL, NULL, NULL }, /* Bx */
151: { NULL, NULL, NULL, NULL, NULL }, /* Db */
1.9 schwarze 152: { NULL, NULL, NULL, NULL, NULL }, /* Dc */
153: { cond_body, pre_enc, post_enc, "``", "''" }, /* Do */
1.1 schwarze 154: { cond_body, pre_enc, post_enc, "``", "''" }, /* Dq */
155: { NULL, NULL, NULL, NULL, NULL }, /* _Ec */
156: { NULL, NULL, NULL, NULL, NULL }, /* _Ef */
1.3 schwarze 157: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Em */
1.1 schwarze 158: { NULL, NULL, NULL, NULL, NULL }, /* _Eo */
1.8 schwarze 159: { NULL, pre_ux, NULL, "FreeBSD", NULL }, /* Fx */
1.9 schwarze 160: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Ms */
161: { NULL, NULL, NULL, NULL, NULL }, /* No */
1.1 schwarze 162: { NULL, pre_ns, NULL, NULL, NULL }, /* Ns */
1.8 schwarze 163: { NULL, pre_ux, NULL, "NetBSD", NULL }, /* Nx */
164: { NULL, pre_ux, NULL, "OpenBSD", NULL }, /* Ox */
1.3 schwarze 165: { NULL, NULL, NULL, NULL, NULL }, /* Pc */
166: { NULL, NULL, post_pf, NULL, NULL }, /* Pf */
167: { cond_body, pre_enc, post_enc, "(", ")" }, /* Po */
168: { cond_body, pre_enc, post_enc, "(", ")" }, /* Pq */
1.9 schwarze 169: { NULL, NULL, NULL, NULL, NULL }, /* Qc */
1.1 schwarze 170: { cond_body, pre_enc, post_enc, "`", "'" }, /* Ql */
1.9 schwarze 171: { cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qo */
172: { cond_body, pre_enc, post_enc, "\"", "\"" }, /* Qq */
173: { NULL, NULL, NULL, NULL, NULL }, /* Re */
1.1 schwarze 174: { cond_body, pre_pp, NULL, NULL, NULL }, /* Rs */
1.9 schwarze 175: { NULL, NULL, NULL, NULL, NULL }, /* Sc */
176: { cond_body, pre_enc, post_enc, "`", "'" }, /* So */
1.1 schwarze 177: { cond_body, pre_enc, post_enc, "`", "'" }, /* Sq */
1.12 schwarze 178: { NULL, pre_sm, NULL, NULL, NULL }, /* Sm */
1.3 schwarze 179: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Sx */
180: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Sy */
1.9 schwarze 181: { NULL, pre_enc, post_enc, "\\fR", "\\fP" }, /* Tn */
1.8 schwarze 182: { NULL, pre_ux, NULL, "UNIX", NULL }, /* Ux */
1.1 schwarze 183: { NULL, NULL, NULL, NULL, NULL }, /* _Xc */
184: { NULL, NULL, NULL, NULL, NULL }, /* _Xo */
185: { NULL, NULL, NULL, NULL, NULL }, /* _Fo */
186: { NULL, NULL, NULL, NULL, NULL }, /* _Fc */
1.3 schwarze 187: { cond_body, pre_enc, post_enc, "[", "]" }, /* Oo */
1.9 schwarze 188: { NULL, NULL, NULL, NULL, NULL }, /* Oc */
1.13 schwarze 189: { NULL, pre_bk, post_bk, NULL, NULL }, /* Bk */
190: { NULL, NULL, NULL, NULL, NULL }, /* Ek */
1.8 schwarze 191: { NULL, pre_ux, NULL, "is currently in beta test.", NULL }, /* Bt */
192: { NULL, NULL, NULL, NULL, NULL }, /* Hf */
193: { NULL, NULL, NULL, NULL, NULL }, /* Fr */
194: { NULL, pre_ux, NULL, "currently under development.", NULL }, /* Ud */
1.14 ! schwarze 195: { NULL, NULL, post_lb, NULL, NULL }, /* Lb */
1.3 schwarze 196: { NULL, pre_pp, NULL, NULL, NULL }, /* Lp */
1.1 schwarze 197: { NULL, NULL, NULL, NULL, NULL }, /* _Lk */
198: { NULL, NULL, NULL, NULL, NULL }, /* _Mt */
1.9 schwarze 199: { cond_body, pre_enc, post_enc, "{", "}" }, /* Brq */
200: { cond_body, pre_enc, post_enc, "{", "}" }, /* Bro */
201: { NULL, NULL, NULL, NULL, NULL }, /* Brc */
1.1 schwarze 202: { NULL, NULL, NULL, NULL, NULL }, /* _%C */
203: { NULL, NULL, NULL, NULL, NULL }, /* _Es */
204: { NULL, NULL, NULL, NULL, NULL }, /* _En */
1.8 schwarze 205: { NULL, pre_ux, NULL, "DragonFly", NULL }, /* Dx */
1.1 schwarze 206: { NULL, NULL, NULL, NULL, NULL }, /* _%Q */
1.3 schwarze 207: { NULL, pre_br, NULL, NULL, NULL }, /* br */
208: { NULL, pre_sp, post_sp, NULL, NULL }, /* sp */
1.1 schwarze 209: { NULL, NULL, NULL, NULL, NULL }, /* _%U */
210: { NULL, NULL, NULL, NULL, NULL }, /* _Ta */
1.3 schwarze 211: { NULL, NULL, NULL, NULL, NULL }, /* ROOT */
1.1 schwarze 212: };
213:
214: static void
1.5 kristaps 215: print_word(struct mman *mm, const char *s)
1.1 schwarze 216: {
1.5 kristaps 217:
218: if (mm->need_nl) {
219: /*
220: * If we need a newline, print it now and start afresh.
221: */
1.1 schwarze 222: putchar('\n');
1.5 kristaps 223: mm->need_space = 0;
224: mm->need_nl = 0;
225: } else if (mm->need_space && '\0' != s[0])
226: /*
227: * If we need a space, only print it before
228: * (1) a nonzero length word;
229: * (2) a word that is non-punctuation; and
230: * (3) if punctuation, non-terminating puncutation.
231: */
1.13 schwarze 232: if (NULL == strchr(".,:;)]?!", s[0]) || '\0' != s[1]) {
233: if (mm->mode_keep) {
234: putchar('\\');
235: putchar('~');
236: } else
237: putchar(' ');
238: }
1.5 kristaps 239:
240: /*
241: * Reassign needing space if we're not following opening
242: * punctuation.
243: */
1.12 schwarze 244: mm->need_space = mm->mode_space &&
245: (('(' != s[0] && '[' != s[0]) || '\0' != s[1]);
1.5 kristaps 246:
1.1 schwarze 247: for ( ; *s; s++) {
248: switch (*s) {
249: case (ASCII_NBRSP):
250: printf("\\~");
251: break;
252: case (ASCII_HYPH):
253: putchar('-');
254: break;
255: default:
1.5 kristaps 256: putchar((unsigned char)*s);
1.1 schwarze 257: break;
258: }
259: }
1.4 kristaps 260: }
261:
1.11 schwarze 262: static void
263: print_offs(struct mman *mm, const char *v)
264: {
265: char buf[24];
266: struct roffsu su;
267: size_t sz;
268:
269: if (NULL == v || '\0' == *v || 0 == strcmp(v, "left"))
270: sz = 0;
271: else if (0 == strcmp(v, "indent"))
272: sz = 6;
273: else if (0 == strcmp(v, "indent-two"))
274: sz = 12;
275: else if (a2roffsu(v, &su, SCALE_MAX)) {
276: print_word(mm, v);
277: return;
278: } else
279: sz = strlen(v);
280:
281: snprintf(buf, sizeof(buf), "%ldn", sz);
282: print_word(mm, buf);
283: }
284:
1.4 kristaps 285: void
286: man_man(void *arg, const struct man *man)
287: {
288:
1.5 kristaps 289: /*
290: * Dump the keep buffer.
291: * We're guaranteed by now that this exists (is non-NULL).
292: * Flush stdout afterward, just in case.
293: */
1.4 kristaps 294: fputs(mparse_getkeep(man_mparse(man)), stdout);
1.5 kristaps 295: fflush(stdout);
1.1 schwarze 296: }
297:
298: void
299: man_mdoc(void *arg, const struct mdoc *mdoc)
300: {
301: const struct mdoc_meta *m;
302: const struct mdoc_node *n;
1.5 kristaps 303: struct mman mm;
1.1 schwarze 304:
305: m = mdoc_meta(mdoc);
306: n = mdoc_node(mdoc);
307:
1.3 schwarze 308: printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"",
1.5 kristaps 309: m->title, m->msec, m->date, m->os, m->vol);
1.1 schwarze 310:
1.5 kristaps 311: memset(&mm, 0, sizeof(struct mman));
312:
1.12 schwarze 313: mm.mode_space = 1;
1.5 kristaps 314: mm.need_nl = 1;
315: print_node(m, n, &mm);
1.3 schwarze 316: putchar('\n');
1.1 schwarze 317: }
318:
319: static void
320: print_node(DECL_ARGS)
321: {
322: const struct mdoc_node *prev, *sub;
1.5 kristaps 323: const struct manact *act;
1.1 schwarze 324: int cond, do_sub;
1.5 kristaps 325:
326: /*
327: * Break the line if we were parsed subsequent the current node.
328: * This makes the page structure be more consistent.
329: */
1.1 schwarze 330: prev = n->prev ? n->prev : n->parent;
1.10 schwarze 331: if (prev && prev->line < n->line && MDOC_Ns != prev->tok)
1.5 kristaps 332: mm->need_nl = 1;
1.1 schwarze 333:
1.5 kristaps 334: act = NULL;
1.1 schwarze 335: cond = 0;
336: do_sub = 1;
1.5 kristaps 337:
1.1 schwarze 338: if (MDOC_TEXT == n->type) {
1.5 kristaps 339: /*
340: * Make sure that we don't happen to start with a
341: * control character at the start of a line.
342: */
343: if (mm->need_nl && ('.' == *n->string ||
344: '\'' == *n->string)) {
345: print_word(mm, "\\&");
346: mm->need_space = 0;
1.3 schwarze 347: }
1.5 kristaps 348: print_word(mm, n->string);
1.1 schwarze 349: } else {
1.5 kristaps 350: /*
351: * Conditionally run the pre-node action handler for a
352: * node.
353: */
1.1 schwarze 354: act = manacts + n->tok;
1.5 kristaps 355: cond = NULL == act->cond || (*act->cond)(m, n, mm);
1.1 schwarze 356: if (cond && act->pre)
1.5 kristaps 357: do_sub = (*act->pre)(m, n, mm);
1.1 schwarze 358: }
359:
1.5 kristaps 360: /*
361: * Conditionally run all child nodes.
362: * Note that this iterates over children instead of using
363: * recursion. This prevents unnecessary depth in the stack.
364: */
1.1 schwarze 365: if (do_sub)
366: for (sub = n->child; sub; sub = sub->next)
1.5 kristaps 367: print_node(m, sub, mm);
1.1 schwarze 368:
1.5 kristaps 369: /*
370: * Lastly, conditionally run the post-node handler.
371: */
1.1 schwarze 372: if (cond && act->post)
1.5 kristaps 373: (*act->post)(m, n, mm);
1.1 schwarze 374: }
375:
376: static int
377: cond_head(DECL_ARGS)
378: {
1.5 kristaps 379:
1.1 schwarze 380: return(MDOC_HEAD == n->type);
381: }
382:
383: static int
384: cond_body(DECL_ARGS)
385: {
1.5 kristaps 386:
1.1 schwarze 387: return(MDOC_BODY == n->type);
388: }
389:
1.5 kristaps 390: /*
391: * Output a font encoding before a node, e.g., \fR.
392: * This obviously has no trailing space.
393: */
1.1 schwarze 394: static int
395: pre_enc(DECL_ARGS)
396: {
1.5 kristaps 397: const char *prefix;
1.1 schwarze 398:
399: prefix = manacts[n->tok].prefix;
400: if (NULL == prefix)
401: return(1);
1.5 kristaps 402: print_word(mm, prefix);
403: mm->need_space = 0;
1.1 schwarze 404: return(1);
405: }
406:
1.5 kristaps 407: /*
408: * Output a font encoding subsequent a node, e.g., \fP.
409: */
1.1 schwarze 410: static void
411: post_enc(DECL_ARGS)
412: {
413: const char *suffix;
414:
415: suffix = manacts[n->tok].suffix;
416: if (NULL == suffix)
417: return;
1.5 kristaps 418: mm->need_space = 0;
419: print_word(mm, suffix);
1.10 schwarze 420: if (MDOC_Fl == n->tok && 0 == n->nchild)
421: mm->need_space = 0;
1.1 schwarze 422: }
423:
1.5 kristaps 424: /*
425: * Used in listings (percent = %A, e.g.).
426: * FIXME: this is incomplete.
427: * It doesn't print a nice ", and" for lists.
428: */
1.1 schwarze 429: static void
430: post_percent(DECL_ARGS)
431: {
432:
1.5 kristaps 433: post_enc(m, n, mm);
1.1 schwarze 434: if (n->next)
1.5 kristaps 435: print_word(mm, ",");
1.1 schwarze 436: else {
1.5 kristaps 437: print_word(mm, ".");
438: mm->need_nl = 1;
1.1 schwarze 439: }
440: }
441:
1.5 kristaps 442: /*
443: * Print before a section header.
444: */
1.1 schwarze 445: static int
1.3 schwarze 446: pre_sect(DECL_ARGS)
447: {
448:
449: if (MDOC_HEAD != n->type)
450: return(1);
1.5 kristaps 451: mm->need_nl = 1;
452: print_word(mm, manacts[n->tok].prefix);
453: print_word(mm, "\"");
454: mm->need_space = 0;
1.3 schwarze 455: return(1);
456: }
457:
1.5 kristaps 458: /*
459: * Print subsequent a section header.
460: */
1.3 schwarze 461: static void
462: post_sect(DECL_ARGS)
463: {
464:
465: if (MDOC_HEAD != n->type)
466: return;
1.5 kristaps 467: mm->need_space = 0;
468: print_word(mm, "\"");
469: mm->need_nl = 1;
1.3 schwarze 470: }
471:
472: static int
473: pre_ap(DECL_ARGS)
474: {
475:
1.5 kristaps 476: mm->need_space = 0;
477: print_word(mm, "'");
478: mm->need_space = 0;
1.3 schwarze 479: return(0);
480: }
481:
482: static int
483: pre_bd(DECL_ARGS)
484: {
485:
1.11 schwarze 486: if (0 == n->norm->Bd.comp) {
487: mm->need_nl = 1;
488: print_word(mm, ".sp");
489: }
1.3 schwarze 490: if (DISP_unfilled == n->norm->Bd.type ||
491: DISP_literal == n->norm->Bd.type) {
1.5 kristaps 492: mm->need_nl = 1;
493: print_word(mm, ".nf");
1.3 schwarze 494: }
1.5 kristaps 495: mm->need_nl = 1;
1.11 schwarze 496: print_word(mm, ".RS");
497: print_offs(mm, n->norm->Bd.offs);
498: mm->need_nl = 1;
1.3 schwarze 499: return(1);
500: }
501:
502: static void
503: post_bd(DECL_ARGS)
504: {
505:
1.11 schwarze 506: mm->need_nl = 1;
507: print_word(mm, ".RE");
1.3 schwarze 508: if (DISP_unfilled == n->norm->Bd.type ||
509: DISP_literal == n->norm->Bd.type) {
1.5 kristaps 510: mm->need_nl = 1;
511: print_word(mm, ".fi");
1.3 schwarze 512: }
1.5 kristaps 513: mm->need_nl = 1;
1.13 schwarze 514: }
515:
516: static int
517: pre_bk(DECL_ARGS)
518: {
519:
520: switch (n->type) {
521: case (MDOC_BLOCK):
522: return(1);
523: case (MDOC_BODY):
524: mm->mode_keep = 1;
525: return(1);
526: default:
527: return(0);
528: }
529: }
530:
531: static void
532: post_bk(DECL_ARGS)
533: {
534:
535: if (MDOC_BODY == n->type)
536: mm->mode_keep = 0;
1.3 schwarze 537: }
538:
539: static int
540: pre_br(DECL_ARGS)
541: {
542:
1.5 kristaps 543: mm->need_nl = 1;
544: print_word(mm, ".br");
545: mm->need_nl = 1;
1.3 schwarze 546: return(0);
547: }
548:
549: static int
1.8 schwarze 550: pre_bx(DECL_ARGS)
551: {
552:
553: n = n->child;
554: if (n) {
555: print_word(mm, n->string);
556: mm->need_space = 0;
557: n = n->next;
558: }
559: print_word(mm, "BSD");
560: if (NULL == n)
561: return(0);
562: mm->need_space = 0;
563: print_word(mm, "-");
564: mm->need_space = 0;
565: print_word(mm, n->string);
566: return(0);
567: }
568:
569: static int
1.1 schwarze 570: pre_dl(DECL_ARGS)
571: {
572:
1.5 kristaps 573: mm->need_nl = 1;
574: print_word(mm, ".RS 6n");
575: mm->need_nl = 1;
1.1 schwarze 576: return(1);
577: }
578:
579: static void
580: post_dl(DECL_ARGS)
581: {
582:
1.5 kristaps 583: mm->need_nl = 1;
584: print_word(mm, ".RE");
585: mm->need_nl = 1;
1.1 schwarze 586: }
587:
588: static int
589: pre_it(DECL_ARGS)
590: {
591: const struct mdoc_node *bln;
592:
593: if (MDOC_HEAD == n->type) {
1.5 kristaps 594: mm->need_nl = 1;
595: print_word(mm, ".TP");
1.1 schwarze 596: bln = n->parent->parent->prev;
1.3 schwarze 597: switch (bln->norm->Bl.type) {
598: case (LIST_bullet):
1.5 kristaps 599: print_word(mm, "4n");
600: mm->need_nl = 1;
601: print_word(mm, "\\fBo\\fP");
1.3 schwarze 602: break;
603: default:
604: if (bln->norm->Bl.width)
1.5 kristaps 605: print_word(mm, bln->norm->Bl.width);
1.3 schwarze 606: break;
607: }
1.5 kristaps 608: mm->need_nl = 1;
1.1 schwarze 609: }
610: return(1);
1.14 ! schwarze 611: }
! 612:
! 613: static void
! 614: post_lb(DECL_ARGS)
! 615: {
! 616:
! 617: if (SEC_LIBRARY == n->sec) {
! 618: mm->need_nl = 1;
! 619: print_word(mm, ".br");
! 620: mm->need_nl = 1;
! 621: }
1.1 schwarze 622: }
623:
624: static int
625: pre_nm(DECL_ARGS)
626: {
627:
628: if (MDOC_ELEM != n->type && MDOC_HEAD != n->type)
629: return(1);
1.10 schwarze 630: if (MDOC_SYNPRETTY & n->flags) {
631: mm->need_nl = 1;
632: print_word(mm, ".br");
633: mm->need_nl = 1;
634: }
1.5 kristaps 635: print_word(mm, "\\fB");
636: mm->need_space = 0;
1.1 schwarze 637: if (NULL == n->child)
1.5 kristaps 638: print_word(mm, m->name);
1.1 schwarze 639: return(1);
640: }
641:
642: static void
643: post_nm(DECL_ARGS)
644: {
645:
646: if (MDOC_ELEM != n->type && MDOC_HEAD != n->type)
647: return;
1.5 kristaps 648: mm->need_space = 0;
649: print_word(mm, "\\fP");
1.1 schwarze 650: }
651:
652: static int
653: pre_ns(DECL_ARGS)
654: {
655:
1.5 kristaps 656: mm->need_space = 0;
1.1 schwarze 657: return(0);
658: }
659:
1.3 schwarze 660: static void
661: post_pf(DECL_ARGS)
662: {
663:
1.5 kristaps 664: mm->need_space = 0;
1.3 schwarze 665: }
666:
1.1 schwarze 667: static int
668: pre_pp(DECL_ARGS)
669: {
670:
1.5 kristaps 671: mm->need_nl = 1;
1.1 schwarze 672: if (MDOC_It == n->parent->tok)
1.5 kristaps 673: print_word(mm, ".sp");
1.1 schwarze 674: else
1.5 kristaps 675: print_word(mm, ".PP");
676: mm->need_nl = 1;
1.10 schwarze 677: return(MDOC_Rs == n->tok);
1.12 schwarze 678: }
679:
680: static int
681: pre_sm(DECL_ARGS)
682: {
683:
684: assert(n->child && MDOC_TEXT == n->child->type);
685: if (0 == strcmp("on", n->child->string))
686: mm->mode_space = 1;
687: else
688: mm->mode_space = 0;
689: return(0);
1.1 schwarze 690: }
691:
692: static int
1.3 schwarze 693: pre_sp(DECL_ARGS)
1.1 schwarze 694: {
695:
1.5 kristaps 696: mm->need_nl = 1;
697: print_word(mm, ".sp");
1.1 schwarze 698: return(1);
699: }
700:
701: static void
1.3 schwarze 702: post_sp(DECL_ARGS)
1.1 schwarze 703: {
704:
1.5 kristaps 705: mm->need_nl = 1;
1.1 schwarze 706: }
707:
708: static int
709: pre_xr(DECL_ARGS)
710: {
711:
712: n = n->child;
713: if (NULL == n)
714: return(0);
1.5 kristaps 715: print_node(m, n, mm);
1.1 schwarze 716: n = n->next;
717: if (NULL == n)
718: return(0);
1.5 kristaps 719: mm->need_space = 0;
720: print_word(mm, "(");
721: print_node(m, n, mm);
722: print_word(mm, ")");
1.1 schwarze 723: return(0);
1.8 schwarze 724: }
725:
726: static int
727: pre_ux(DECL_ARGS)
728: {
729:
730: print_word(mm, manacts[n->tok].prefix);
731: if (NULL == n->child)
732: return(0);
733: mm->need_space = 0;
734: print_word(mm, "\\~");
735: mm->need_space = 0;
736: return(1);
1.1 schwarze 737: }
CVSweb