Annotation of mandoc/mdoc_man.c, Revision 1.5
1.5 ! kristaps 1: /* $Id: mdoc_man.c,v 1.4 2011/10/06 22:29:12 kristaps Exp $ */
1.1 schwarze 2: /*
3: * Copyright (c) 2011 Ingo Schwarze <schwarze@openbsd.org>
4: *
5: * Permission to use, copy, modify, and distribute this software for any
6: * purpose with or without fee is hereby granted, provided that the above
7: * copyright notice and this permission notice appear in all copies.
8: *
9: * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
10: * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11: * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
12: * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13: * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14: * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
15: * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16: */
17: #include <stdio.h>
18: #include <string.h>
19:
20: #include "mandoc.h"
1.4 kristaps 21: #include "man.h"
1.1 schwarze 22: #include "mdoc.h"
23: #include "main.h"
24:
1.5 ! kristaps 25: #define DECL_ARGS const struct mdoc_meta *m, \
! 26: const struct mdoc_node *n, \
! 27: struct mman *mm
1.1 schwarze 28:
1.5 ! kristaps 29: struct mman {
! 30: int need_space; /* next word needs prior ws */
! 31: int need_nl; /* next word needs prior nl */
! 32: };
1.1 schwarze 33:
34: struct manact {
1.5 ! kristaps 35: int (*cond)(DECL_ARGS); /* DON'T run actions */
! 36: int (*pre)(DECL_ARGS); /* pre-node action */
! 37: void (*post)(DECL_ARGS); /* post-node action */
! 38: const char *prefix; /* pre-node string constant */
! 39: const char *suffix; /* post-node string constant */
1.1 schwarze 40: };
41:
1.5 ! kristaps 42: static int cond_body(DECL_ARGS);
1.1 schwarze 43: static int cond_head(DECL_ARGS);
1.5 ! kristaps 44: static void post_bd(DECL_ARGS);
! 45: static void post_dl(DECL_ARGS);
1.1 schwarze 46: static void post_enc(DECL_ARGS);
1.5 ! kristaps 47: static void post_nm(DECL_ARGS);
1.1 schwarze 48: static void post_percent(DECL_ARGS);
1.5 ! kristaps 49: static void post_pf(DECL_ARGS);
1.3 schwarze 50: static void post_sect(DECL_ARGS);
1.5 ! kristaps 51: static void post_sp(DECL_ARGS);
1.3 schwarze 52: static int pre_ap(DECL_ARGS);
53: static int pre_bd(DECL_ARGS);
54: static int pre_br(DECL_ARGS);
1.1 schwarze 55: static int pre_dl(DECL_ARGS);
1.5 ! kristaps 56: static int pre_enc(DECL_ARGS);
1.1 schwarze 57: static int pre_it(DECL_ARGS);
58: static int pre_nm(DECL_ARGS);
59: static int pre_ns(DECL_ARGS);
60: static int pre_pp(DECL_ARGS);
1.3 schwarze 61: static int pre_sp(DECL_ARGS);
1.5 ! kristaps 62: static int pre_sect(DECL_ARGS);
1.1 schwarze 63: static int pre_xr(DECL_ARGS);
1.5 ! kristaps 64: static void print_word(struct mman *, const char *);
! 65: static void print_node(DECL_ARGS);
1.1 schwarze 66:
1.3 schwarze 67: static const struct manact manacts[MDOC_MAX + 1] = {
68: { NULL, pre_ap, NULL, NULL, NULL }, /* Ap */
69: { NULL, NULL, NULL, NULL, NULL }, /* Dd */
70: { NULL, NULL, NULL, NULL, NULL }, /* Dt */
1.1 schwarze 71: { NULL, NULL, NULL, NULL, NULL }, /* _Os */
1.3 schwarze 72: { NULL, pre_sect, post_sect, ".SH", NULL }, /* Sh */
73: { NULL, pre_sect, post_sect, ".SS", NULL }, /* Ss */
1.1 schwarze 74: { NULL, pre_pp, NULL, NULL, NULL }, /* Pp */
1.3 schwarze 75: { cond_body, pre_dl, post_dl, NULL, NULL }, /* D1 */
1.1 schwarze 76: { cond_body, pre_dl, post_dl, NULL, NULL }, /* Dl */
1.3 schwarze 77: { cond_body, pre_bd, post_bd, NULL, NULL }, /* Bd */
78: { NULL, NULL, NULL, NULL, NULL }, /* Ed */
79: { NULL, NULL, NULL, NULL, NULL }, /* Bl */
80: { NULL, NULL, NULL, NULL, NULL }, /* El */
1.1 schwarze 81: { NULL, pre_it, NULL, NULL, NULL }, /* _It */
82: { NULL, NULL, NULL, NULL, NULL }, /* _Ad */
83: { NULL, NULL, NULL, NULL, NULL }, /* _An */
84: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Ar */
85: { NULL, NULL, NULL, NULL, NULL }, /* _Cd */
86: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Cm */
87: { NULL, NULL, NULL, NULL, NULL }, /* _Dv */
88: { NULL, NULL, NULL, NULL, NULL }, /* _Er */
89: { NULL, NULL, NULL, NULL, NULL }, /* _Ev */
90: { NULL, pre_enc, post_enc, "The \\fB",
91: "\\fP\nutility exits 0 on success, and >0 if an error occurs."
92: }, /* Ex */
93: { NULL, NULL, NULL, NULL, NULL }, /* _Fa */
94: { NULL, NULL, NULL, NULL, NULL }, /* _Fd */
95: { NULL, pre_enc, post_enc, "\\fB-", "\\fP" }, /* Fl */
96: { NULL, NULL, NULL, NULL, NULL }, /* _Fn */
97: { NULL, NULL, NULL, NULL, NULL }, /* _Ft */
1.3 schwarze 98: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Ic */
1.1 schwarze 99: { NULL, NULL, NULL, NULL, NULL }, /* _In */
100: { NULL, NULL, NULL, NULL, NULL }, /* _Li */
101: { cond_head, pre_enc, NULL, "\\- ", NULL }, /* Nd */
102: { NULL, pre_nm, post_nm, NULL, NULL }, /* Nm */
103: { cond_body, pre_enc, post_enc, "[", "]" }, /* Op */
104: { NULL, NULL, NULL, NULL, NULL }, /* _Ot */
105: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* _Pa */
106: { NULL, NULL, NULL, NULL, NULL }, /* _Rv */
1.5 ! kristaps 107: /* FIXME: low-hanging `Rv' fruit. */
1.1 schwarze 108: { NULL, NULL, NULL, NULL, NULL }, /* _St */
109: { NULL, NULL, NULL, NULL, NULL }, /* _Va */
110: { NULL, NULL, NULL, NULL, NULL }, /* _Vt */
111: { NULL, pre_xr, NULL, NULL, NULL }, /* _Xr */
112: { NULL, NULL, post_percent, NULL, NULL }, /* _%A */
113: { NULL, NULL, NULL, NULL, NULL }, /* _%B */
114: { NULL, NULL, post_percent, NULL, NULL }, /* _%D */
115: { NULL, NULL, NULL, NULL, NULL }, /* _%I */
116: { NULL, pre_enc, post_percent, "\\fI", "\\fP" }, /* %J */
117: { NULL, NULL, NULL, NULL, NULL }, /* _%N */
118: { NULL, NULL, NULL, NULL, NULL }, /* _%O */
119: { NULL, NULL, NULL, NULL, NULL }, /* _%P */
120: { NULL, NULL, NULL, NULL, NULL }, /* _%R */
121: { NULL, pre_enc, post_percent, "\"", "\"" }, /* %T */
122: { NULL, NULL, NULL, NULL, NULL }, /* _%V */
123: { NULL, NULL, NULL, NULL, NULL }, /* _Ac */
124: { NULL, NULL, NULL, NULL, NULL }, /* _Ao */
125: { cond_body, pre_enc, post_enc, "<", ">" }, /* Aq */
126: { NULL, NULL, NULL, NULL, NULL }, /* _At */
1.3 schwarze 127: { NULL, NULL, NULL, NULL, NULL }, /* Bc */
1.1 schwarze 128: { NULL, NULL, NULL, NULL, NULL }, /* _Bf */
1.3 schwarze 129: { cond_body, pre_enc, post_enc, "[", "]" }, /* Bo */
130: { cond_body, pre_enc, post_enc, "[", "]" }, /* Bq */
1.1 schwarze 131: { NULL, NULL, NULL, NULL, NULL }, /* _Bsx */
132: { NULL, NULL, NULL, NULL, NULL }, /* _Bx */
133: { NULL, NULL, NULL, NULL, NULL }, /* _Db */
134: { NULL, NULL, NULL, NULL, NULL }, /* _Dc */
135: { NULL, NULL, NULL, NULL, NULL }, /* _Do */
136: { cond_body, pre_enc, post_enc, "``", "''" }, /* Dq */
137: { NULL, NULL, NULL, NULL, NULL }, /* _Ec */
138: { NULL, NULL, NULL, NULL, NULL }, /* _Ef */
1.3 schwarze 139: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Em */
1.1 schwarze 140: { NULL, NULL, NULL, NULL, NULL }, /* _Eo */
141: { NULL, NULL, NULL, NULL, NULL }, /* _Fx */
142: { NULL, NULL, NULL, NULL, NULL }, /* _Ms */
143: { NULL, NULL, NULL, NULL, NULL }, /* _No */
144: { NULL, pre_ns, NULL, NULL, NULL }, /* Ns */
145: { NULL, NULL, NULL, NULL, NULL }, /* _Nx */
146: { NULL, NULL, NULL, NULL, NULL }, /* _Ox */
1.3 schwarze 147: { NULL, NULL, NULL, NULL, NULL }, /* Pc */
148: { NULL, NULL, post_pf, NULL, NULL }, /* Pf */
149: { cond_body, pre_enc, post_enc, "(", ")" }, /* Po */
150: { cond_body, pre_enc, post_enc, "(", ")" }, /* Pq */
1.1 schwarze 151: { NULL, NULL, NULL, NULL, NULL }, /* _Qc */
152: { cond_body, pre_enc, post_enc, "`", "'" }, /* Ql */
153: { NULL, NULL, NULL, NULL, NULL }, /* _Qo */
154: { NULL, NULL, NULL, NULL, NULL }, /* _Qq */
155: { NULL, NULL, NULL, NULL, NULL }, /* _Re */
156: { cond_body, pre_pp, NULL, NULL, NULL }, /* Rs */
157: { NULL, NULL, NULL, NULL, NULL }, /* _Sc */
158: { NULL, NULL, NULL, NULL, NULL }, /* _So */
159: { cond_body, pre_enc, post_enc, "`", "'" }, /* Sq */
160: { NULL, NULL, NULL, NULL, NULL }, /* _Sm */
1.3 schwarze 161: { NULL, pre_enc, post_enc, "\\fI", "\\fP" }, /* Sx */
162: { NULL, pre_enc, post_enc, "\\fB", "\\fP" }, /* Sy */
1.1 schwarze 163: { NULL, NULL, NULL, NULL, NULL }, /* _Tn */
164: { NULL, NULL, NULL, NULL, NULL }, /* _Ux */
165: { NULL, NULL, NULL, NULL, NULL }, /* _Xc */
166: { NULL, NULL, NULL, NULL, NULL }, /* _Xo */
167: { NULL, NULL, NULL, NULL, NULL }, /* _Fo */
168: { NULL, NULL, NULL, NULL, NULL }, /* _Fc */
1.3 schwarze 169: { cond_body, pre_enc, post_enc, "[", "]" }, /* Oo */
1.1 schwarze 170: { NULL, NULL, NULL, NULL, NULL }, /* _Oc */
171: { NULL, NULL, NULL, NULL, NULL }, /* _Bk */
172: { NULL, NULL, NULL, NULL, NULL }, /* _Ek */
173: { NULL, NULL, NULL, NULL, NULL }, /* _Bt */
174: { NULL, NULL, NULL, NULL, NULL }, /* _Hf */
175: { NULL, NULL, NULL, NULL, NULL }, /* _Fr */
176: { NULL, NULL, NULL, NULL, NULL }, /* _Ud */
177: { NULL, NULL, NULL, NULL, NULL }, /* _Lb */
1.3 schwarze 178: { NULL, pre_pp, NULL, NULL, NULL }, /* Lp */
1.1 schwarze 179: { NULL, NULL, NULL, NULL, NULL }, /* _Lk */
180: { NULL, NULL, NULL, NULL, NULL }, /* _Mt */
181: { NULL, NULL, NULL, NULL, NULL }, /* _Brq */
182: { NULL, NULL, NULL, NULL, NULL }, /* _Bro */
183: { NULL, NULL, NULL, NULL, NULL }, /* _Brc */
184: { NULL, NULL, NULL, NULL, NULL }, /* _%C */
185: { NULL, NULL, NULL, NULL, NULL }, /* _Es */
186: { NULL, NULL, NULL, NULL, NULL }, /* _En */
187: { NULL, NULL, NULL, NULL, NULL }, /* _Dx */
188: { NULL, NULL, NULL, NULL, NULL }, /* _%Q */
1.3 schwarze 189: { NULL, pre_br, NULL, NULL, NULL }, /* br */
190: { NULL, pre_sp, post_sp, NULL, NULL }, /* sp */
1.1 schwarze 191: { NULL, NULL, NULL, NULL, NULL }, /* _%U */
192: { NULL, NULL, NULL, NULL, NULL }, /* _Ta */
1.3 schwarze 193: { NULL, NULL, NULL, NULL, NULL }, /* ROOT */
1.1 schwarze 194: };
195:
196: static void
1.5 ! kristaps 197: print_word(struct mman *mm, const char *s)
1.1 schwarze 198: {
1.5 ! kristaps 199:
! 200: if (mm->need_nl) {
! 201: /*
! 202: * If we need a newline, print it now and start afresh.
! 203: */
1.1 schwarze 204: putchar('\n');
1.5 ! kristaps 205: mm->need_space = 0;
! 206: mm->need_nl = 0;
! 207: } else if (mm->need_space && '\0' != s[0])
! 208: /*
! 209: * If we need a space, only print it before
! 210: * (1) a nonzero length word;
! 211: * (2) a word that is non-punctuation; and
! 212: * (3) if punctuation, non-terminating puncutation.
! 213: */
! 214: if (NULL == strchr(".,:;)]?!", s[0]) || '\0' != s[1])
! 215: putchar(' ');
! 216:
! 217: /*
! 218: * Reassign needing space if we're not following opening
! 219: * punctuation.
! 220: */
! 221: mm->need_space =
! 222: ('(' != s[0] && '[' != s[0]) || '\0' != s[1];
! 223:
1.1 schwarze 224: for ( ; *s; s++) {
225: switch (*s) {
226: case (ASCII_NBRSP):
227: printf("\\~");
228: break;
229: case (ASCII_HYPH):
230: putchar('-');
231: break;
232: default:
1.5 ! kristaps 233: putchar((unsigned char)*s);
1.1 schwarze 234: break;
235: }
236: }
1.4 kristaps 237: }
238:
239: void
240: man_man(void *arg, const struct man *man)
241: {
242:
1.5 ! kristaps 243: /*
! 244: * Dump the keep buffer.
! 245: * We're guaranteed by now that this exists (is non-NULL).
! 246: * Flush stdout afterward, just in case.
! 247: */
1.4 kristaps 248: fputs(mparse_getkeep(man_mparse(man)), stdout);
1.5 ! kristaps 249: fflush(stdout);
1.1 schwarze 250: }
251:
252: void
253: man_mdoc(void *arg, const struct mdoc *mdoc)
254: {
255: const struct mdoc_meta *m;
256: const struct mdoc_node *n;
1.5 ! kristaps 257: struct mman mm;
1.1 schwarze 258:
259: m = mdoc_meta(mdoc);
260: n = mdoc_node(mdoc);
261:
1.3 schwarze 262: printf(".TH \"%s\" \"%s\" \"%s\" \"%s\" \"%s\"",
1.5 ! kristaps 263: m->title, m->msec, m->date, m->os, m->vol);
1.1 schwarze 264:
1.5 ! kristaps 265: memset(&mm, 0, sizeof(struct mman));
! 266:
! 267: mm.need_nl = 1;
! 268: print_node(m, n, &mm);
1.3 schwarze 269: putchar('\n');
1.1 schwarze 270: }
271:
272: static void
273: print_node(DECL_ARGS)
274: {
275: const struct mdoc_node *prev, *sub;
1.5 ! kristaps 276: const struct manact *act;
1.1 schwarze 277: int cond, do_sub;
1.5 ! kristaps 278:
! 279: /*
! 280: * Break the line if we were parsed subsequent the current node.
! 281: * This makes the page structure be more consistent.
! 282: */
1.1 schwarze 283: prev = n->prev ? n->prev : n->parent;
284: if (prev && prev->line < n->line)
1.5 ! kristaps 285: mm->need_nl = 1;
1.1 schwarze 286:
1.5 ! kristaps 287: act = NULL;
1.1 schwarze 288: cond = 0;
289: do_sub = 1;
1.5 ! kristaps 290:
1.1 schwarze 291: if (MDOC_TEXT == n->type) {
1.5 ! kristaps 292: /*
! 293: * Make sure that we don't happen to start with a
! 294: * control character at the start of a line.
! 295: */
! 296: if (mm->need_nl && ('.' == *n->string ||
! 297: '\'' == *n->string)) {
! 298: print_word(mm, "\\&");
! 299: mm->need_space = 0;
1.3 schwarze 300: }
1.5 ! kristaps 301: print_word(mm, n->string);
1.1 schwarze 302: } else {
1.5 ! kristaps 303: /*
! 304: * Conditionally run the pre-node action handler for a
! 305: * node.
! 306: */
1.1 schwarze 307: act = manacts + n->tok;
1.5 ! kristaps 308: cond = NULL == act->cond || (*act->cond)(m, n, mm);
1.1 schwarze 309: if (cond && act->pre)
1.5 ! kristaps 310: do_sub = (*act->pre)(m, n, mm);
1.1 schwarze 311: }
312:
1.5 ! kristaps 313: /*
! 314: * Conditionally run all child nodes.
! 315: * Note that this iterates over children instead of using
! 316: * recursion. This prevents unnecessary depth in the stack.
! 317: */
1.1 schwarze 318: if (do_sub)
319: for (sub = n->child; sub; sub = sub->next)
1.5 ! kristaps 320: print_node(m, sub, mm);
1.1 schwarze 321:
1.5 ! kristaps 322: /*
! 323: * Lastly, conditionally run the post-node handler.
! 324: */
1.1 schwarze 325: if (cond && act->post)
1.5 ! kristaps 326: (*act->post)(m, n, mm);
1.1 schwarze 327: }
328:
329: static int
330: cond_head(DECL_ARGS)
331: {
1.5 ! kristaps 332:
1.1 schwarze 333: return(MDOC_HEAD == n->type);
334: }
335:
336: static int
337: cond_body(DECL_ARGS)
338: {
1.5 ! kristaps 339:
1.1 schwarze 340: return(MDOC_BODY == n->type);
341: }
342:
1.5 ! kristaps 343: /*
! 344: * Output a font encoding before a node, e.g., \fR.
! 345: * This obviously has no trailing space.
! 346: */
1.1 schwarze 347: static int
348: pre_enc(DECL_ARGS)
349: {
1.5 ! kristaps 350: const char *prefix;
1.1 schwarze 351:
352: prefix = manacts[n->tok].prefix;
353: if (NULL == prefix)
354: return(1);
1.5 ! kristaps 355: print_word(mm, prefix);
! 356: mm->need_space = 0;
1.1 schwarze 357: return(1);
358: }
359:
1.5 ! kristaps 360: /*
! 361: * Output a font encoding subsequent a node, e.g., \fP.
! 362: */
1.1 schwarze 363: static void
364: post_enc(DECL_ARGS)
365: {
366: const char *suffix;
367:
368: suffix = manacts[n->tok].suffix;
369: if (NULL == suffix)
370: return;
1.5 ! kristaps 371: mm->need_space = 0;
! 372: print_word(mm, suffix);
1.1 schwarze 373: }
374:
1.5 ! kristaps 375: /*
! 376: * Used in listings (percent = %A, e.g.).
! 377: * FIXME: this is incomplete.
! 378: * It doesn't print a nice ", and" for lists.
! 379: */
1.1 schwarze 380: static void
381: post_percent(DECL_ARGS)
382: {
383:
1.5 ! kristaps 384: post_enc(m, n, mm);
1.1 schwarze 385: if (n->next)
1.5 ! kristaps 386: print_word(mm, ",");
1.1 schwarze 387: else {
1.5 ! kristaps 388: print_word(mm, ".");
! 389: mm->need_nl = 1;
1.1 schwarze 390: }
391: }
392:
1.5 ! kristaps 393: /*
! 394: * Print before a section header.
! 395: */
1.1 schwarze 396: static int
1.3 schwarze 397: pre_sect(DECL_ARGS)
398: {
399:
400: if (MDOC_HEAD != n->type)
401: return(1);
1.5 ! kristaps 402: mm->need_nl = 1;
! 403: print_word(mm, manacts[n->tok].prefix);
! 404: print_word(mm, "\"");
! 405: mm->need_space = 0;
1.3 schwarze 406: return(1);
407: }
408:
1.5 ! kristaps 409: /*
! 410: * Print subsequent a section header.
! 411: */
1.3 schwarze 412: static void
413: post_sect(DECL_ARGS)
414: {
415:
416: if (MDOC_HEAD != n->type)
417: return;
1.5 ! kristaps 418: mm->need_space = 0;
! 419: print_word(mm, "\"");
! 420: mm->need_nl = 1;
1.3 schwarze 421: }
422:
423: static int
424: pre_ap(DECL_ARGS)
425: {
426:
1.5 ! kristaps 427: mm->need_space = 0;
! 428: print_word(mm, "'");
! 429: mm->need_space = 0;
1.3 schwarze 430: return(0);
431: }
432:
433: static int
434: pre_bd(DECL_ARGS)
435: {
436:
437: if (DISP_unfilled == n->norm->Bd.type ||
438: DISP_literal == n->norm->Bd.type) {
1.5 ! kristaps 439: mm->need_nl = 1;
! 440: print_word(mm, ".nf");
1.3 schwarze 441: }
1.5 ! kristaps 442: mm->need_nl = 1;
1.3 schwarze 443: return(1);
444: }
445:
446: static void
447: post_bd(DECL_ARGS)
448: {
449:
450: if (DISP_unfilled == n->norm->Bd.type ||
451: DISP_literal == n->norm->Bd.type) {
1.5 ! kristaps 452: mm->need_nl = 1;
! 453: print_word(mm, ".fi");
1.3 schwarze 454: }
1.5 ! kristaps 455: mm->need_nl = 1;
1.3 schwarze 456: }
457:
458: static int
459: pre_br(DECL_ARGS)
460: {
461:
1.5 ! kristaps 462: mm->need_nl = 1;
! 463: print_word(mm, ".br");
! 464: mm->need_nl = 1;
1.3 schwarze 465: return(0);
466: }
467:
468: static int
1.1 schwarze 469: pre_dl(DECL_ARGS)
470: {
471:
1.5 ! kristaps 472: mm->need_nl = 1;
! 473: print_word(mm, ".RS 6n");
! 474: mm->need_nl = 1;
1.1 schwarze 475: return(1);
476: }
477:
478: static void
479: post_dl(DECL_ARGS)
480: {
481:
1.5 ! kristaps 482: mm->need_nl = 1;
! 483: print_word(mm, ".RE");
! 484: mm->need_nl = 1;
1.1 schwarze 485: }
486:
487: static int
488: pre_it(DECL_ARGS)
489: {
490: const struct mdoc_node *bln;
491:
492: if (MDOC_HEAD == n->type) {
1.5 ! kristaps 493: mm->need_nl = 1;
! 494: print_word(mm, ".TP");
1.1 schwarze 495: bln = n->parent->parent->prev;
1.3 schwarze 496: switch (bln->norm->Bl.type) {
497: case (LIST_bullet):
1.5 ! kristaps 498: print_word(mm, "4n");
! 499: mm->need_nl = 1;
! 500: print_word(mm, "\\fBo\\fP");
1.3 schwarze 501: break;
502: default:
503: if (bln->norm->Bl.width)
1.5 ! kristaps 504: print_word(mm, bln->norm->Bl.width);
1.3 schwarze 505: break;
506: }
1.5 ! kristaps 507: mm->need_nl = 1;
1.1 schwarze 508: }
509: return(1);
510: }
511:
512: static int
513: pre_nm(DECL_ARGS)
514: {
515:
516: if (MDOC_ELEM != n->type && MDOC_HEAD != n->type)
517: return(1);
1.5 ! kristaps 518: print_word(mm, "\\fB");
! 519: mm->need_space = 0;
1.1 schwarze 520: if (NULL == n->child)
1.5 ! kristaps 521: print_word(mm, m->name);
1.1 schwarze 522: return(1);
523: }
524:
525: static void
526: post_nm(DECL_ARGS)
527: {
528:
529: if (MDOC_ELEM != n->type && MDOC_HEAD != n->type)
530: return;
1.5 ! kristaps 531: mm->need_space = 0;
! 532: print_word(mm, "\\fP");
1.1 schwarze 533: }
534:
535: static int
536: pre_ns(DECL_ARGS)
537: {
538:
1.5 ! kristaps 539: mm->need_space = 0;
1.1 schwarze 540: return(0);
541: }
542:
1.3 schwarze 543: static void
544: post_pf(DECL_ARGS)
545: {
546:
1.5 ! kristaps 547: mm->need_space = 0;
1.3 schwarze 548: }
549:
1.1 schwarze 550: static int
551: pre_pp(DECL_ARGS)
552: {
553:
1.5 ! kristaps 554: mm->need_nl = 1;
1.1 schwarze 555: if (MDOC_It == n->parent->tok)
1.5 ! kristaps 556: print_word(mm, ".sp");
1.1 schwarze 557: else
1.5 ! kristaps 558: print_word(mm, ".PP");
! 559: mm->need_nl = 1;
1.1 schwarze 560: return(1);
561: }
562:
563: static int
1.3 schwarze 564: pre_sp(DECL_ARGS)
1.1 schwarze 565: {
566:
1.5 ! kristaps 567: mm->need_nl = 1;
! 568: print_word(mm, ".sp");
1.1 schwarze 569: return(1);
570: }
571:
572: static void
1.3 schwarze 573: post_sp(DECL_ARGS)
1.1 schwarze 574: {
575:
1.5 ! kristaps 576: mm->need_nl = 1;
1.1 schwarze 577: }
578:
579: static int
580: pre_xr(DECL_ARGS)
581: {
582:
583: n = n->child;
584: if (NULL == n)
585: return(0);
1.5 ! kristaps 586: print_node(m, n, mm);
1.1 schwarze 587: n = n->next;
588: if (NULL == n)
589: return(0);
1.5 ! kristaps 590: mm->need_space = 0;
! 591: print_word(mm, "(");
! 592: print_node(m, n, mm);
! 593: print_word(mm, ")");
1.1 schwarze 594: return(0);
595: }
CVSweb