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