Annotation of mandoc/mdoc_html.c, Revision 1.311
1.311 ! schwarze 1: /* $Id: mdoc_html.c,v 1.310 2018/07/27 17:49:31 schwarze Exp $ */
1.1 kristaps 2: /*
1.208 schwarze 3: * Copyright (c) 2008-2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
1.299 schwarze 4: * Copyright (c) 2014,2015,2016,2017,2018 Ingo Schwarze <schwarze@openbsd.org>
1.1 kristaps 5: *
6: * Permission to use, copy, modify, and distribute this software for any
7: * purpose with or without fee is hereby granted, provided that the above
8: * copyright notice and this permission notice appear in all copies.
9: *
1.227 schwarze 10: * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES
1.1 kristaps 11: * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
1.227 schwarze 12: * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
1.1 kristaps 13: * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14: * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15: * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16: * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17: */
1.52 kristaps 18: #include "config.h"
19:
1.1 kristaps 20: #include <sys/types.h>
21:
22: #include <assert.h>
23: #include <ctype.h>
24: #include <stdio.h>
25: #include <stdlib.h>
26: #include <string.h>
27: #include <unistd.h>
28:
1.189 schwarze 29: #include "mandoc_aux.h"
1.291 schwarze 30: #include "mandoc.h"
1.227 schwarze 31: #include "roff.h"
1.215 schwarze 32: #include "mdoc.h"
1.23 kristaps 33: #include "out.h"
1.1 kristaps 34: #include "html.h"
1.29 kristaps 35: #include "main.h"
1.1 kristaps 36:
1.229 schwarze 37: #define MDOC_ARGS const struct roff_meta *meta, \
1.228 schwarze 38: struct roff_node *n, \
1.1 kristaps 39: struct html *h
40:
1.52 kristaps 41: #ifndef MIN
42: #define MIN(a,b) ((/*CONSTCOND*/(a)<(b))?(a):(b))
43: #endif
44:
1.311 ! schwarze 45: struct mdoc_html_act {
1.1 kristaps 46: int (*pre)(MDOC_ARGS);
47: void (*post)(MDOC_ARGS);
48: };
49:
1.275 schwarze 50: static char *cond_id(const struct roff_node *);
1.296 schwarze 51: static void print_mdoc_head(const struct roff_meta *,
52: struct html *);
1.1 kristaps 53: static void print_mdoc_node(MDOC_ARGS);
54: static void print_mdoc_nodelist(MDOC_ARGS);
1.188 schwarze 55: static void synopsis_pre(struct html *,
1.228 schwarze 56: const struct roff_node *);
1.1 kristaps 57:
1.296 schwarze 58: static void mdoc_root_post(const struct roff_meta *,
59: struct html *);
60: static int mdoc_root_pre(const struct roff_meta *,
61: struct html *);
1.1 kristaps 62:
1.10 kristaps 63: static void mdoc__x_post(MDOC_ARGS);
64: static int mdoc__x_pre(MDOC_ARGS);
1.1 kristaps 65: static int mdoc_ad_pre(MDOC_ARGS);
66: static int mdoc_an_pre(MDOC_ARGS);
1.5 kristaps 67: static int mdoc_ap_pre(MDOC_ARGS);
1.1 kristaps 68: static int mdoc_ar_pre(MDOC_ARGS);
69: static int mdoc_bd_pre(MDOC_ARGS);
1.5 kristaps 70: static int mdoc_bf_pre(MDOC_ARGS);
1.94 kristaps 71: static void mdoc_bk_post(MDOC_ARGS);
72: static int mdoc_bk_pre(MDOC_ARGS);
1.1 kristaps 73: static int mdoc_bl_pre(MDOC_ARGS);
74: static int mdoc_cd_pre(MDOC_ARGS);
1.258 schwarze 75: static int mdoc_cm_pre(MDOC_ARGS);
1.1 kristaps 76: static int mdoc_d1_pre(MDOC_ARGS);
77: static int mdoc_dv_pre(MDOC_ARGS);
78: static int mdoc_fa_pre(MDOC_ARGS);
79: static int mdoc_fd_pre(MDOC_ARGS);
80: static int mdoc_fl_pre(MDOC_ARGS);
81: static int mdoc_fn_pre(MDOC_ARGS);
82: static int mdoc_ft_pre(MDOC_ARGS);
83: static int mdoc_em_pre(MDOC_ARGS);
1.221 schwarze 84: static void mdoc_eo_post(MDOC_ARGS);
85: static int mdoc_eo_pre(MDOC_ARGS);
1.1 kristaps 86: static int mdoc_er_pre(MDOC_ARGS);
87: static int mdoc_ev_pre(MDOC_ARGS);
88: static int mdoc_ex_pre(MDOC_ARGS);
1.4 kristaps 89: static void mdoc_fo_post(MDOC_ARGS);
90: static int mdoc_fo_pre(MDOC_ARGS);
91: static int mdoc_ic_pre(MDOC_ARGS);
1.110 schwarze 92: static int mdoc_igndelim_pre(MDOC_ARGS);
1.4 kristaps 93: static int mdoc_in_pre(MDOC_ARGS);
1.1 kristaps 94: static int mdoc_it_pre(MDOC_ARGS);
1.6 kristaps 95: static int mdoc_lb_pre(MDOC_ARGS);
96: static int mdoc_li_pre(MDOC_ARGS);
1.2 kristaps 97: static int mdoc_lk_pre(MDOC_ARGS);
98: static int mdoc_mt_pre(MDOC_ARGS);
1.5 kristaps 99: static int mdoc_ms_pre(MDOC_ARGS);
1.1 kristaps 100: static int mdoc_nd_pre(MDOC_ARGS);
101: static int mdoc_nm_pre(MDOC_ARGS);
1.210 schwarze 102: static int mdoc_no_pre(MDOC_ARGS);
1.1 kristaps 103: static int mdoc_ns_pre(MDOC_ARGS);
104: static int mdoc_pa_pre(MDOC_ARGS);
1.5 kristaps 105: static void mdoc_pf_post(MDOC_ARGS);
1.120 kristaps 106: static int mdoc_pp_pre(MDOC_ARGS);
1.107 kristaps 107: static void mdoc_quote_post(MDOC_ARGS);
108: static int mdoc_quote_pre(MDOC_ARGS);
1.5 kristaps 109: static int mdoc_rs_pre(MDOC_ARGS);
1.1 kristaps 110: static int mdoc_sh_pre(MDOC_ARGS);
1.191 schwarze 111: static int mdoc_skip_pre(MDOC_ARGS);
1.99 kristaps 112: static int mdoc_sm_pre(MDOC_ARGS);
1.1 kristaps 113: static int mdoc_ss_pre(MDOC_ARGS);
1.269 schwarze 114: static int mdoc_st_pre(MDOC_ARGS);
1.1 kristaps 115: static int mdoc_sx_pre(MDOC_ARGS);
1.6 kristaps 116: static int mdoc_sy_pre(MDOC_ARGS);
1.4 kristaps 117: static int mdoc_va_pre(MDOC_ARGS);
1.1 kristaps 118: static int mdoc_vt_pre(MDOC_ARGS);
119: static int mdoc_xr_pre(MDOC_ARGS);
120: static int mdoc_xx_pre(MDOC_ARGS);
121:
1.311 ! schwarze 122: static const struct mdoc_html_act mdoc_html_acts[MDOC_MAX - MDOC_Dd] = {
1.1 kristaps 123: {NULL, NULL}, /* Dd */
124: {NULL, NULL}, /* Dt */
125: {NULL, NULL}, /* Os */
126: {mdoc_sh_pre, NULL }, /* Sh */
1.188 schwarze 127: {mdoc_ss_pre, NULL }, /* Ss */
128: {mdoc_pp_pre, NULL}, /* Pp */
1.1 kristaps 129: {mdoc_d1_pre, NULL}, /* D1 */
130: {mdoc_d1_pre, NULL}, /* Dl */
131: {mdoc_bd_pre, NULL}, /* Bd */
132: {NULL, NULL}, /* Ed */
1.115 kristaps 133: {mdoc_bl_pre, NULL}, /* Bl */
1.1 kristaps 134: {NULL, NULL}, /* El */
135: {mdoc_it_pre, NULL}, /* It */
1.188 schwarze 136: {mdoc_ad_pre, NULL}, /* Ad */
1.1 kristaps 137: {mdoc_an_pre, NULL}, /* An */
1.280 schwarze 138: {mdoc_ap_pre, NULL}, /* Ap */
1.1 kristaps 139: {mdoc_ar_pre, NULL}, /* Ar */
140: {mdoc_cd_pre, NULL}, /* Cd */
1.258 schwarze 141: {mdoc_cm_pre, NULL}, /* Cm */
1.188 schwarze 142: {mdoc_dv_pre, NULL}, /* Dv */
143: {mdoc_er_pre, NULL}, /* Er */
144: {mdoc_ev_pre, NULL}, /* Ev */
1.1 kristaps 145: {mdoc_ex_pre, NULL}, /* Ex */
1.188 schwarze 146: {mdoc_fa_pre, NULL}, /* Fa */
147: {mdoc_fd_pre, NULL}, /* Fd */
1.1 kristaps 148: {mdoc_fl_pre, NULL}, /* Fl */
1.188 schwarze 149: {mdoc_fn_pre, NULL}, /* Fn */
150: {mdoc_ft_pre, NULL}, /* Ft */
151: {mdoc_ic_pre, NULL}, /* Ic */
152: {mdoc_in_pre, NULL}, /* In */
1.6 kristaps 153: {mdoc_li_pre, NULL}, /* Li */
1.188 schwarze 154: {mdoc_nd_pre, NULL}, /* Nd */
155: {mdoc_nm_pre, NULL}, /* Nm */
1.107 kristaps 156: {mdoc_quote_pre, mdoc_quote_post}, /* Op */
1.191 schwarze 157: {mdoc_ft_pre, NULL}, /* Ot */
1.1 kristaps 158: {mdoc_pa_pre, NULL}, /* Pa */
1.247 schwarze 159: {mdoc_ex_pre, NULL}, /* Rv */
1.269 schwarze 160: {mdoc_st_pre, NULL}, /* St */
1.4 kristaps 161: {mdoc_va_pre, NULL}, /* Va */
1.188 schwarze 162: {mdoc_vt_pre, NULL}, /* Vt */
1.1 kristaps 163: {mdoc_xr_pre, NULL}, /* Xr */
1.10 kristaps 164: {mdoc__x_pre, mdoc__x_post}, /* %A */
165: {mdoc__x_pre, mdoc__x_post}, /* %B */
166: {mdoc__x_pre, mdoc__x_post}, /* %D */
167: {mdoc__x_pre, mdoc__x_post}, /* %I */
168: {mdoc__x_pre, mdoc__x_post}, /* %J */
169: {mdoc__x_pre, mdoc__x_post}, /* %N */
170: {mdoc__x_pre, mdoc__x_post}, /* %O */
171: {mdoc__x_pre, mdoc__x_post}, /* %P */
172: {mdoc__x_pre, mdoc__x_post}, /* %R */
173: {mdoc__x_pre, mdoc__x_post}, /* %T */
174: {mdoc__x_pre, mdoc__x_post}, /* %V */
1.1 kristaps 175: {NULL, NULL}, /* Ac */
1.107 kristaps 176: {mdoc_quote_pre, mdoc_quote_post}, /* Ao */
177: {mdoc_quote_pre, mdoc_quote_post}, /* Aq */
1.269 schwarze 178: {mdoc_xx_pre, NULL}, /* At */
1.1 kristaps 179: {NULL, NULL}, /* Bc */
1.188 schwarze 180: {mdoc_bf_pre, NULL}, /* Bf */
1.107 kristaps 181: {mdoc_quote_pre, mdoc_quote_post}, /* Bo */
182: {mdoc_quote_pre, mdoc_quote_post}, /* Bq */
1.1 kristaps 183: {mdoc_xx_pre, NULL}, /* Bsx */
1.246 schwarze 184: {mdoc_xx_pre, NULL}, /* Bx */
1.212 schwarze 185: {mdoc_skip_pre, NULL}, /* Db */
1.1 kristaps 186: {NULL, NULL}, /* Dc */
1.107 kristaps 187: {mdoc_quote_pre, mdoc_quote_post}, /* Do */
188: {mdoc_quote_pre, mdoc_quote_post}, /* Dq */
1.55 kristaps 189: {NULL, NULL}, /* Ec */ /* FIXME: no space */
1.1 kristaps 190: {NULL, NULL}, /* Ef */
1.188 schwarze 191: {mdoc_em_pre, NULL}, /* Em */
1.221 schwarze 192: {mdoc_eo_pre, mdoc_eo_post}, /* Eo */
1.1 kristaps 193: {mdoc_xx_pre, NULL}, /* Fx */
1.98 kristaps 194: {mdoc_ms_pre, NULL}, /* Ms */
1.210 schwarze 195: {mdoc_no_pre, NULL}, /* No */
1.1 kristaps 196: {mdoc_ns_pre, NULL}, /* Ns */
197: {mdoc_xx_pre, NULL}, /* Nx */
198: {mdoc_xx_pre, NULL}, /* Ox */
199: {NULL, NULL}, /* Pc */
1.110 schwarze 200: {mdoc_igndelim_pre, mdoc_pf_post}, /* Pf */
1.107 kristaps 201: {mdoc_quote_pre, mdoc_quote_post}, /* Po */
202: {mdoc_quote_pre, mdoc_quote_post}, /* Pq */
1.1 kristaps 203: {NULL, NULL}, /* Qc */
1.107 kristaps 204: {mdoc_quote_pre, mdoc_quote_post}, /* Ql */
205: {mdoc_quote_pre, mdoc_quote_post}, /* Qo */
206: {mdoc_quote_pre, mdoc_quote_post}, /* Qq */
1.1 kristaps 207: {NULL, NULL}, /* Re */
1.5 kristaps 208: {mdoc_rs_pre, NULL}, /* Rs */
1.1 kristaps 209: {NULL, NULL}, /* Sc */
1.107 kristaps 210: {mdoc_quote_pre, mdoc_quote_post}, /* So */
211: {mdoc_quote_pre, mdoc_quote_post}, /* Sq */
1.188 schwarze 212: {mdoc_sm_pre, NULL}, /* Sm */
1.1 kristaps 213: {mdoc_sx_pre, NULL}, /* Sx */
1.6 kristaps 214: {mdoc_sy_pre, NULL}, /* Sy */
1.1 kristaps 215: {NULL, NULL}, /* Tn */
216: {mdoc_xx_pre, NULL}, /* Ux */
217: {NULL, NULL}, /* Xc */
218: {NULL, NULL}, /* Xo */
1.188 schwarze 219: {mdoc_fo_pre, mdoc_fo_post}, /* Fo */
220: {NULL, NULL}, /* Fc */
1.107 kristaps 221: {mdoc_quote_pre, mdoc_quote_post}, /* Oo */
1.1 kristaps 222: {NULL, NULL}, /* Oc */
1.94 kristaps 223: {mdoc_bk_pre, mdoc_bk_post}, /* Bk */
1.1 kristaps 224: {NULL, NULL}, /* Ek */
1.247 schwarze 225: {NULL, NULL}, /* Bt */
1.1 kristaps 226: {NULL, NULL}, /* Hf */
1.191 schwarze 227: {mdoc_em_pre, NULL}, /* Fr */
1.247 schwarze 228: {NULL, NULL}, /* Ud */
1.6 kristaps 229: {mdoc_lb_pre, NULL}, /* Lb */
1.188 schwarze 230: {mdoc_pp_pre, NULL}, /* Lp */
231: {mdoc_lk_pre, NULL}, /* Lk */
232: {mdoc_mt_pre, NULL}, /* Mt */
233: {mdoc_quote_pre, mdoc_quote_post}, /* Brq */
234: {mdoc_quote_pre, mdoc_quote_post}, /* Bro */
235: {NULL, NULL}, /* Brc */
236: {mdoc__x_pre, mdoc__x_post}, /* %C */
1.191 schwarze 237: {mdoc_skip_pre, NULL}, /* Es */
238: {mdoc_quote_pre, mdoc_quote_post}, /* En */
1.188 schwarze 239: {mdoc_xx_pre, NULL}, /* Dx */
240: {mdoc__x_pre, mdoc__x_post}, /* %Q */
241: {mdoc__x_pre, mdoc__x_post}, /* %U */
242: {NULL, NULL}, /* Ta */
1.1 kristaps 243: };
244:
1.188 schwarze 245:
1.23 kristaps 246: /*
1.78 kristaps 247: * See the same function in mdoc_term.c for documentation.
248: */
249: static void
1.228 schwarze 250: synopsis_pre(struct html *h, const struct roff_node *n)
1.78 kristaps 251: {
252:
1.244 schwarze 253: if (NULL == n->prev || ! (NODE_SYNPRETTY & n->flags))
1.78 kristaps 254: return;
255:
1.188 schwarze 256: if (n->prev->tok == n->tok &&
257: MDOC_Fo != n->tok &&
258: MDOC_Ft != n->tok &&
259: MDOC_Fn != n->tok) {
1.248 schwarze 260: print_otag(h, TAG_BR, "");
1.78 kristaps 261: return;
262: }
263:
264: switch (n->prev->tok) {
1.188 schwarze 265: case MDOC_Fd:
266: case MDOC_Fn:
267: case MDOC_Fo:
268: case MDOC_In:
269: case MDOC_Vt:
1.206 kristaps 270: print_paragraph(h);
1.78 kristaps 271: break;
1.188 schwarze 272: case MDOC_Ft:
1.78 kristaps 273: if (MDOC_Fn != n->tok && MDOC_Fo != n->tok) {
1.206 kristaps 274: print_paragraph(h);
1.78 kristaps 275: break;
276: }
277: /* FALLTHROUGH */
278: default:
1.248 schwarze 279: print_otag(h, TAG_BR, "");
1.78 kristaps 280: break;
281: }
282: }
283:
1.232 schwarze 284: void
285: html_mdoc(void *arg, const struct roff_man *mdoc)
1.1 kristaps 286: {
1.296 schwarze 287: struct html *h;
288: struct roff_node *n;
289: struct tag *t;
1.179 kristaps 290:
1.232 schwarze 291: h = (struct html *)arg;
1.296 schwarze 292: n = mdoc->first->child;
1.1 kristaps 293:
1.252 schwarze 294: if ((h->oflags & HTML_FRAGMENT) == 0) {
1.179 kristaps 295: print_gen_decls(h);
1.252 schwarze 296: print_otag(h, TAG_HTML, "");
1.296 schwarze 297: if (n->type == ROFFT_COMMENT)
298: print_gen_comment(h, n);
1.252 schwarze 299: t = print_otag(h, TAG_HEAD, "");
1.296 schwarze 300: print_mdoc_head(&mdoc->meta, h);
1.252 schwarze 301: print_tagq(h, t);
1.248 schwarze 302: print_otag(h, TAG_BODY, "");
1.252 schwarze 303: }
1.1 kristaps 304:
1.296 schwarze 305: mdoc_root_pre(&mdoc->meta, h);
1.253 schwarze 306: t = print_otag(h, TAG_DIV, "c", "manual-text");
1.296 schwarze 307: print_mdoc_nodelist(&mdoc->meta, n, h);
1.253 schwarze 308: print_tagq(h, t);
1.296 schwarze 309: mdoc_root_post(&mdoc->meta, h);
1.252 schwarze 310: print_tagq(h, NULL);
1.1 kristaps 311: }
312:
313: static void
1.296 schwarze 314: print_mdoc_head(const struct roff_meta *meta, struct html *h)
1.1 kristaps 315: {
1.249 schwarze 316: char *cp;
1.1 kristaps 317:
318: print_gen_head(h);
1.249 schwarze 319:
320: if (meta->arch != NULL && meta->msec != NULL)
321: mandoc_asprintf(&cp, "%s(%s) (%s)", meta->title,
322: meta->msec, meta->arch);
323: else if (meta->msec != NULL)
324: mandoc_asprintf(&cp, "%s(%s)", meta->title, meta->msec);
325: else if (meta->arch != NULL)
326: mandoc_asprintf(&cp, "%s (%s)", meta->title, meta->arch);
327: else
328: cp = mandoc_strdup(meta->title);
1.1 kristaps 329:
1.248 schwarze 330: print_otag(h, TAG_TITLE, "");
1.249 schwarze 331: print_text(h, cp);
332: free(cp);
1.1 kristaps 333: }
334:
335: static void
336: print_mdoc_nodelist(MDOC_ARGS)
337: {
338:
1.220 schwarze 339: while (n != NULL) {
340: print_mdoc_node(meta, n, h);
341: n = n->next;
342: }
1.1 kristaps 343: }
344:
345: static void
346: print_mdoc_node(MDOC_ARGS)
347: {
348: int child;
349: struct tag *t;
1.243 schwarze 350:
1.295 schwarze 351: if (n->type == ROFFT_COMMENT || n->flags & NODE_NOPRT)
1.243 schwarze 352: return;
1.1 kristaps 353:
354: child = 1;
1.264 schwarze 355: t = h->tag;
1.244 schwarze 356: n->flags &= ~NODE_ENDED;
1.1 kristaps 357:
358: switch (n->type) {
1.227 schwarze 359: case ROFFT_TEXT:
1.144 kristaps 360: /* No tables in this mode... */
361: assert(NULL == h->tblt);
1.149 kristaps 362:
363: /*
364: * Make sure that if we're in a literal mode already
365: * (i.e., within a <PRE>) don't print the newline.
366: */
1.286 schwarze 367: if (*n->string == ' ' && n->flags & NODE_LINE &&
368: (h->flags & (HTML_LITERAL | HTML_NONEWLINE)) == 0)
369: print_otag(h, TAG_BR, "");
1.244 schwarze 370: if (NODE_DELIMC & n->flags)
1.155 kristaps 371: h->flags |= HTML_NOSPACE;
1.1 kristaps 372: print_text(h, n->string);
1.244 schwarze 373: if (NODE_DELIMO & n->flags)
1.155 kristaps 374: h->flags |= HTML_NOSPACE;
1.151 kristaps 375: return;
1.227 schwarze 376: case ROFFT_EQN:
1.174 kristaps 377: print_eqn(h, n->eqn);
1.153 kristaps 378: break;
1.227 schwarze 379: case ROFFT_TBL:
1.144 kristaps 380: /*
381: * This will take care of initialising all of the table
382: * state data for the first table, then tearing it down
383: * for the last one.
384: */
1.141 kristaps 385: print_tbl(h, n->span);
1.144 kristaps 386: return;
1.1 kristaps 387: default:
1.144 kristaps 388: /*
389: * Close out the current table, if it's open, and unset
390: * the "meta" table state. This will be reopened on the
391: * next table element.
392: */
1.213 schwarze 393: if (h->tblt != NULL) {
1.144 kristaps 394: print_tblclose(h);
1.264 schwarze 395: t = h->tag;
1.144 kristaps 396: }
1.213 schwarze 397: assert(h->tblt == NULL);
1.281 schwarze 398: if (n->tok < ROFF_MAX) {
1.282 schwarze 399: roff_html_pre(h, n);
1.283 schwarze 400: child = 0;
1.281 schwarze 401: break;
402: }
1.280 schwarze 403: assert(n->tok >= MDOC_Dd && n->tok < MDOC_MAX);
1.311 ! schwarze 404: if (mdoc_html_acts[n->tok - MDOC_Dd].pre != NULL &&
1.280 schwarze 405: (n->end == ENDBODY_NOT || n->child != NULL))
1.311 ! schwarze 406: child = (*mdoc_html_acts[n->tok - MDOC_Dd].pre)(meta,
! 407: n, h);
1.1 kristaps 408: break;
409: }
410:
1.244 schwarze 411: if (h->flags & HTML_KEEP && n->flags & NODE_LINE) {
1.222 schwarze 412: h->flags &= ~HTML_KEEP;
413: h->flags |= HTML_PREKEEP;
1.94 kristaps 414: }
415:
1.1 kristaps 416: if (child && n->child)
1.184 schwarze 417: print_mdoc_nodelist(meta, n->child, h);
1.1 kristaps 418:
419: print_stagq(h, t);
420:
421: switch (n->type) {
1.227 schwarze 422: case ROFFT_EQN:
1.1 kristaps 423: break;
424: default:
1.281 schwarze 425: if (n->tok < ROFF_MAX ||
1.311 ! schwarze 426: mdoc_html_acts[n->tok - MDOC_Dd].post == NULL ||
1.281 schwarze 427: n->flags & NODE_ENDED)
1.213 schwarze 428: break;
1.311 ! schwarze 429: (*mdoc_html_acts[n->tok - MDOC_Dd].post)(meta, n, h);
1.213 schwarze 430: if (n->end != ENDBODY_NOT)
1.244 schwarze 431: n->body->flags |= NODE_ENDED;
1.1 kristaps 432: break;
433: }
434: }
435:
436: static void
1.296 schwarze 437: mdoc_root_post(const struct roff_meta *meta, struct html *h)
1.1 kristaps 438: {
439: struct tag *t, *tt;
440:
1.248 schwarze 441: t = print_otag(h, TAG_TABLE, "c", "foot");
442: tt = print_otag(h, TAG_TR, "");
1.40 kristaps 443:
1.248 schwarze 444: print_otag(h, TAG_TD, "c", "foot-date");
1.184 schwarze 445: print_text(h, meta->date);
1.1 kristaps 446: print_stagq(h, tt);
447:
1.248 schwarze 448: print_otag(h, TAG_TD, "c", "foot-os");
1.184 schwarze 449: print_text(h, meta->os);
1.1 kristaps 450: print_tagq(h, t);
451: }
452:
453: static int
1.296 schwarze 454: mdoc_root_pre(const struct roff_meta *meta, struct html *h)
1.1 kristaps 455: {
456: struct tag *t, *tt;
1.190 schwarze 457: char *volume, *title;
1.1 kristaps 458:
1.190 schwarze 459: if (NULL == meta->arch)
460: volume = mandoc_strdup(meta->vol);
461: else
462: mandoc_asprintf(&volume, "%s (%s)",
463: meta->vol, meta->arch);
1.1 kristaps 464:
1.195 schwarze 465: if (NULL == meta->msec)
466: title = mandoc_strdup(meta->title);
467: else
468: mandoc_asprintf(&title, "%s(%s)",
469: meta->title, meta->msec);
1.23 kristaps 470:
1.248 schwarze 471: t = print_otag(h, TAG_TABLE, "c", "head");
472: tt = print_otag(h, TAG_TR, "");
1.1 kristaps 473:
1.248 schwarze 474: print_otag(h, TAG_TD, "c", "head-ltitle");
1.2 kristaps 475: print_text(h, title);
1.1 kristaps 476: print_stagq(h, tt);
477:
1.248 schwarze 478: print_otag(h, TAG_TD, "c", "head-vol");
1.190 schwarze 479: print_text(h, volume);
1.1 kristaps 480: print_stagq(h, tt);
481:
1.248 schwarze 482: print_otag(h, TAG_TD, "c", "head-rtitle");
1.2 kristaps 483: print_text(h, title);
1.1 kristaps 484: print_tagq(h, t);
1.189 schwarze 485:
486: free(title);
1.190 schwarze 487: free(volume);
1.237 schwarze 488: return 1;
1.1 kristaps 489: }
490:
1.254 schwarze 491: static char *
1.275 schwarze 492: cond_id(const struct roff_node *n)
493: {
494: if (n->child != NULL &&
495: n->child->type == ROFFT_TEXT &&
496: (n->prev == NULL ||
497: (n->prev->type == ROFFT_TEXT &&
498: strcmp(n->prev->string, "|") == 0)) &&
499: (n->parent->tok == MDOC_It ||
500: (n->parent->tok == MDOC_Xo &&
501: n->parent->parent->prev == NULL &&
502: n->parent->parent->parent->tok == MDOC_It)))
1.304 schwarze 503: return html_make_id(n, 1);
1.275 schwarze 504: return NULL;
505: }
506:
1.1 kristaps 507: static int
508: mdoc_sh_pre(MDOC_ARGS)
509: {
1.249 schwarze 510: char *id;
511:
1.200 schwarze 512: switch (n->type) {
1.263 schwarze 513: case ROFFT_HEAD:
1.304 schwarze 514: id = html_make_id(n, 1);
1.274 schwarze 515: print_otag(h, TAG_H1, "cTi", "Sh", id);
1.278 schwarze 516: if (id != NULL)
1.297 schwarze 517: print_otag(h, TAG_A, "chR", "permalink", id);
1.263 schwarze 518: break;
1.227 schwarze 519: case ROFFT_BODY:
1.200 schwarze 520: if (n->sec == SEC_AUTHORS)
521: h->flags &= ~(HTML_SPLIT|HTML_NOSPLIT);
1.263 schwarze 522: break;
1.200 schwarze 523: default:
524: break;
525: }
1.237 schwarze 526: return 1;
1.1 kristaps 527: }
528:
529: static int
530: mdoc_ss_pre(MDOC_ARGS)
531: {
1.249 schwarze 532: char *id;
533:
1.253 schwarze 534: if (n->type != ROFFT_HEAD)
1.237 schwarze 535: return 1;
1.23 kristaps 536:
1.304 schwarze 537: id = html_make_id(n, 1);
1.274 schwarze 538: print_otag(h, TAG_H2, "cTi", "Ss", id);
1.278 schwarze 539: if (id != NULL)
1.297 schwarze 540: print_otag(h, TAG_A, "chR", "permalink", id);
1.237 schwarze 541: return 1;
1.1 kristaps 542: }
543:
544: static int
545: mdoc_fl_pre(MDOC_ARGS)
546: {
1.275 schwarze 547: char *id;
548:
549: if ((id = cond_id(n)) != NULL)
1.297 schwarze 550: print_otag(h, TAG_A, "chR", "permalink", id);
1.298 schwarze 551: print_otag(h, TAG_CODE, "cTi", "Fl", id);
1.275 schwarze 552:
1.50 kristaps 553: print_text(h, "\\-");
1.240 schwarze 554: if (!(n->child == NULL &&
1.199 schwarze 555: (n->next == NULL ||
1.227 schwarze 556: n->next->type == ROFFT_TEXT ||
1.244 schwarze 557: n->next->flags & NODE_LINE)))
1.1 kristaps 558: h->flags |= HTML_NOSPACE;
1.50 kristaps 559:
1.237 schwarze 560: return 1;
1.1 kristaps 561: }
562:
563: static int
1.258 schwarze 564: mdoc_cm_pre(MDOC_ARGS)
565: {
1.275 schwarze 566: char *id;
567:
568: if ((id = cond_id(n)) != NULL)
1.297 schwarze 569: print_otag(h, TAG_A, "chR", "permalink", id);
1.298 schwarze 570: print_otag(h, TAG_CODE, "cTi", "Cm", id);
1.258 schwarze 571: return 1;
572: }
573:
574: static int
1.1 kristaps 575: mdoc_nd_pre(MDOC_ARGS)
576: {
1.227 schwarze 577: if (n->type != ROFFT_BODY)
1.237 schwarze 578: return 1;
1.1 kristaps 579:
580: print_text(h, "\\(em");
1.300 schwarze 581: /* Cannot use TAG_SPAN because it may contain blocks. */
582: print_otag(h, TAG_DIV, "cT", "Nd");
1.237 schwarze 583: return 1;
1.1 kristaps 584: }
585:
586: static int
587: mdoc_nm_pre(MDOC_ARGS)
588: {
1.124 kristaps 589: switch (n->type) {
1.227 schwarze 590: case ROFFT_HEAD:
1.248 schwarze 591: print_otag(h, TAG_TD, "");
1.235 schwarze 592: /* FALLTHROUGH */
593: case ROFFT_ELEM:
1.298 schwarze 594: print_otag(h, TAG_CODE, "cT", "Nm");
1.237 schwarze 595: return 1;
1.227 schwarze 596: case ROFFT_BODY:
1.248 schwarze 597: print_otag(h, TAG_TD, "");
1.237 schwarze 598: return 1;
1.124 kristaps 599: default:
600: break;
601: }
602: synopsis_pre(h, n);
1.258 schwarze 603: print_otag(h, TAG_TABLE, "c", "Nm");
1.248 schwarze 604: print_otag(h, TAG_TR, "");
1.237 schwarze 605: return 1;
1.1 kristaps 606: }
607:
608: static int
609: mdoc_xr_pre(MDOC_ARGS)
610: {
1.56 kristaps 611: if (NULL == n->child)
1.237 schwarze 612: return 0;
1.17 kristaps 613:
1.249 schwarze 614: if (h->base_man)
1.274 schwarze 615: print_otag(h, TAG_A, "cThM", "Xr",
1.249 schwarze 616: n->child->string, n->child->next == NULL ?
617: NULL : n->child->next->string);
618: else
1.274 schwarze 619: print_otag(h, TAG_A, "cT", "Xr");
1.1 kristaps 620:
1.157 kristaps 621: n = n->child;
622: print_text(h, n->string);
1.16 kristaps 623:
1.157 kristaps 624: if (NULL == (n = n->next))
1.237 schwarze 625: return 0;
1.1 kristaps 626:
627: h->flags |= HTML_NOSPACE;
628: print_text(h, "(");
629: h->flags |= HTML_NOSPACE;
1.157 kristaps 630: print_text(h, n->string);
1.1 kristaps 631: h->flags |= HTML_NOSPACE;
632: print_text(h, ")");
1.237 schwarze 633: return 0;
1.1 kristaps 634: }
635:
636: static int
637: mdoc_ns_pre(MDOC_ARGS)
638: {
639:
1.244 schwarze 640: if ( ! (NODE_LINE & n->flags))
1.150 kristaps 641: h->flags |= HTML_NOSPACE;
1.237 schwarze 642: return 1;
1.1 kristaps 643: }
644:
645: static int
646: mdoc_ar_pre(MDOC_ARGS)
647: {
1.274 schwarze 648: print_otag(h, TAG_VAR, "cT", "Ar");
1.237 schwarze 649: return 1;
1.1 kristaps 650: }
651:
652: static int
653: mdoc_xx_pre(MDOC_ARGS)
654: {
1.259 schwarze 655: print_otag(h, TAG_SPAN, "c", "Ux");
1.245 schwarze 656: return 1;
1.4 kristaps 657: }
658:
659: static int
1.115 kristaps 660: mdoc_it_pre(MDOC_ARGS)
1.1 kristaps 661: {
1.256 schwarze 662: const struct roff_node *bl;
1.261 schwarze 663: struct tag *t;
1.256 schwarze 664: enum mdoc_list type;
1.115 kristaps 665:
666: bl = n->parent;
1.273 schwarze 667: while (bl->tok != MDOC_Bl)
1.115 kristaps 668: bl = bl->parent;
1.137 kristaps 669: type = bl->norm->Bl.type;
1.24 kristaps 670:
1.256 schwarze 671: switch (type) {
672: case LIST_bullet:
673: case LIST_dash:
674: case LIST_hyphen:
675: case LIST_item:
676: case LIST_enum:
677: switch (n->type) {
678: case ROFFT_HEAD:
1.237 schwarze 679: return 0;
1.256 schwarze 680: case ROFFT_BODY:
1.299 schwarze 681: print_otag(h, TAG_LI, "");
1.115 kristaps 682: break;
683: default:
684: break;
685: }
1.256 schwarze 686: break;
687: case LIST_diag:
688: case LIST_hang:
689: case LIST_inset:
690: case LIST_ohang:
691: switch (n->type) {
692: case ROFFT_HEAD:
1.299 schwarze 693: print_otag(h, TAG_DT, "");
1.115 kristaps 694: break;
1.256 schwarze 695: case ROFFT_BODY:
1.305 schwarze 696: print_otag(h, TAG_DD, "");
1.115 kristaps 697: break;
698: default:
699: break;
700: }
1.256 schwarze 701: break;
1.261 schwarze 702: case LIST_tag:
703: switch (n->type) {
704: case ROFFT_HEAD:
705: if (h->style != NULL && !bl->norm->Bl.comp &&
706: (n->parent->prev == NULL ||
1.272 schwarze 707: n->parent->prev->body == NULL ||
1.261 schwarze 708: n->parent->prev->body->child != NULL)) {
1.305 schwarze 709: t = print_otag(h, TAG_DT, "");
1.261 schwarze 710: print_text(h, "\\ ");
711: print_tagq(h, t);
1.299 schwarze 712: t = print_otag(h, TAG_DD, "");
1.261 schwarze 713: print_text(h, "\\ ");
714: print_tagq(h, t);
715: }
1.305 schwarze 716: print_otag(h, TAG_DT, "");
1.261 schwarze 717: break;
718: case ROFFT_BODY:
719: if (n->child == NULL) {
1.309 schwarze 720: print_otag(h, TAG_DD, "s", "width", "auto");
1.261 schwarze 721: print_text(h, "\\ ");
722: } else
1.299 schwarze 723: print_otag(h, TAG_DD, "");
1.261 schwarze 724: break;
725: default:
726: break;
727: }
728: break;
1.256 schwarze 729: case LIST_column:
730: switch (n->type) {
731: case ROFFT_HEAD:
732: break;
733: case ROFFT_BODY:
1.299 schwarze 734: print_otag(h, TAG_TD, "");
1.115 kristaps 735: break;
736: default:
1.299 schwarze 737: print_otag(h, TAG_TR, "");
1.115 kristaps 738: }
1.256 schwarze 739: default:
740: break;
1.1 kristaps 741: }
742:
1.237 schwarze 743: return 1;
1.1 kristaps 744: }
745:
746: static int
1.115 kristaps 747: mdoc_bl_pre(MDOC_ARGS)
1.1 kristaps 748: {
1.306 schwarze 749: char cattr[28];
1.262 schwarze 750: struct mdoc_bl *bl;
1.248 schwarze 751: enum htmltag elemtype;
1.23 kristaps 752:
1.265 schwarze 753: switch (n->type) {
754: case ROFFT_BODY:
1.237 schwarze 755: return 1;
1.265 schwarze 756: case ROFFT_HEAD:
1.237 schwarze 757: return 0;
1.265 schwarze 758: default:
759: break;
1.1 kristaps 760: }
761:
1.307 schwarze 762: bl = &n->norm->Bl;
1.262 schwarze 763: switch (bl->type) {
1.188 schwarze 764: case LIST_bullet:
1.256 schwarze 765: elemtype = TAG_UL;
1.292 schwarze 766: (void)strlcpy(cattr, "Bl-bullet", sizeof(cattr));
1.256 schwarze 767: break;
1.188 schwarze 768: case LIST_dash:
769: case LIST_hyphen:
1.256 schwarze 770: elemtype = TAG_UL;
1.292 schwarze 771: (void)strlcpy(cattr, "Bl-dash", sizeof(cattr));
1.256 schwarze 772: break;
1.188 schwarze 773: case LIST_item:
1.248 schwarze 774: elemtype = TAG_UL;
1.292 schwarze 775: (void)strlcpy(cattr, "Bl-item", sizeof(cattr));
1.1 kristaps 776: break;
1.188 schwarze 777: case LIST_enum:
1.248 schwarze 778: elemtype = TAG_OL;
1.292 schwarze 779: (void)strlcpy(cattr, "Bl-enum", sizeof(cattr));
1.23 kristaps 780: break;
1.188 schwarze 781: case LIST_diag:
1.256 schwarze 782: elemtype = TAG_DL;
1.292 schwarze 783: (void)strlcpy(cattr, "Bl-diag", sizeof(cattr));
1.256 schwarze 784: break;
1.188 schwarze 785: case LIST_hang:
1.256 schwarze 786: elemtype = TAG_DL;
1.292 schwarze 787: (void)strlcpy(cattr, "Bl-hang", sizeof(cattr));
1.256 schwarze 788: break;
1.188 schwarze 789: case LIST_inset:
1.256 schwarze 790: elemtype = TAG_DL;
1.292 schwarze 791: (void)strlcpy(cattr, "Bl-inset", sizeof(cattr));
1.256 schwarze 792: break;
1.188 schwarze 793: case LIST_ohang:
1.256 schwarze 794: elemtype = TAG_DL;
1.292 schwarze 795: (void)strlcpy(cattr, "Bl-ohang", sizeof(cattr));
1.256 schwarze 796: break;
1.188 schwarze 797: case LIST_tag:
1.262 schwarze 798: if (bl->offs)
1.306 schwarze 799: print_otag(h, TAG_DIV, "c", "Bd-indent");
1.305 schwarze 800: print_otag(h, TAG_DL, "c", bl->comp ?
801: "Bl-tag Bl-compact" : "Bl-tag");
1.261 schwarze 802: return 1;
1.188 schwarze 803: case LIST_column:
1.248 schwarze 804: elemtype = TAG_TABLE;
1.292 schwarze 805: (void)strlcpy(cattr, "Bl-column", sizeof(cattr));
1.1 kristaps 806: break;
807: default:
1.115 kristaps 808: abort();
1.1 kristaps 809: }
1.306 schwarze 810: if (bl->offs != NULL)
811: (void)strlcat(cattr, " Bd-indent", sizeof(cattr));
1.292 schwarze 812: if (bl->comp)
813: (void)strlcat(cattr, " Bl-compact", sizeof(cattr));
1.306 schwarze 814: print_otag(h, elemtype, "c", cattr);
1.237 schwarze 815: return 1;
1.1 kristaps 816: }
817:
818: static int
819: mdoc_ex_pre(MDOC_ARGS)
820: {
1.127 kristaps 821: if (n->prev)
1.248 schwarze 822: print_otag(h, TAG_BR, "");
1.269 schwarze 823: return 1;
824: }
825:
826: static int
827: mdoc_st_pre(MDOC_ARGS)
828: {
1.274 schwarze 829: print_otag(h, TAG_SPAN, "cT", "St");
1.247 schwarze 830: return 1;
1.1 kristaps 831: }
832:
833: static int
834: mdoc_em_pre(MDOC_ARGS)
835: {
1.274 schwarze 836: print_otag(h, TAG_I, "cT", "Em");
1.237 schwarze 837: return 1;
1.1 kristaps 838: }
839:
840: static int
841: mdoc_d1_pre(MDOC_ARGS)
842: {
1.227 schwarze 843: if (n->type != ROFFT_BLOCK)
1.237 schwarze 844: return 1;
1.1 kristaps 845:
1.306 schwarze 846: print_otag(h, TAG_DIV, "c", "Bd Bd-indent");
1.120 kristaps 847:
1.255 schwarze 848: if (n->tok == MDOC_Dl)
849: print_otag(h, TAG_CODE, "c", "Li");
1.35 kristaps 850:
1.237 schwarze 851: return 1;
1.1 kristaps 852: }
853:
854: static int
855: mdoc_sx_pre(MDOC_ARGS)
856: {
1.249 schwarze 857: char *id;
1.175 kristaps 858:
1.304 schwarze 859: id = html_make_id(n, 0);
1.274 schwarze 860: print_otag(h, TAG_A, "cThR", "Sx", id);
1.263 schwarze 861: free(id);
1.237 schwarze 862: return 1;
1.1 kristaps 863: }
864:
865: static int
866: mdoc_bd_pre(MDOC_ARGS)
867: {
1.306 schwarze 868: int comp, sv;
1.228 schwarze 869: struct roff_node *nn;
1.1 kristaps 870:
1.227 schwarze 871: if (n->type == ROFFT_HEAD)
1.237 schwarze 872: return 0;
1.1 kristaps 873:
1.227 schwarze 874: if (n->type == ROFFT_BLOCK) {
1.137 kristaps 875: comp = n->norm->Bd.comp;
1.23 kristaps 876: for (nn = n; nn && ! comp; nn = nn->parent) {
1.227 schwarze 877: if (nn->type != ROFFT_BLOCK)
1.23 kristaps 878: continue;
879: if (MDOC_Ss == nn->tok || MDOC_Sh == nn->tok)
880: comp = 1;
881: if (nn->prev)
882: break;
883: }
1.126 kristaps 884: if ( ! comp)
1.206 kristaps 885: print_paragraph(h);
1.237 schwarze 886: return 1;
1.1 kristaps 887: }
888:
1.209 schwarze 889: /* Handle the -offset argument. */
890:
891: if (n->norm->Bd.offs == NULL ||
892: ! strcmp(n->norm->Bd.offs, "left"))
1.306 schwarze 893: print_otag(h, TAG_DIV, "c", "Bd");
1.209 schwarze 894: else
1.306 schwarze 895: print_otag(h, TAG_DIV, "c", "Bd Bd-indent");
1.241 schwarze 896:
897: if (n->norm->Bd.type != DISP_unfilled &&
898: n->norm->Bd.type != DISP_literal)
1.237 schwarze 899: return 1;
1.1 kristaps 900:
1.255 schwarze 901: print_otag(h, TAG_PRE, "c", "Li");
1.1 kristaps 902:
1.149 kristaps 903: /* This can be recursive: save & set our literal state. */
904:
905: sv = h->flags & HTML_LITERAL;
906: h->flags |= HTML_LITERAL;
907:
1.14 kristaps 908: for (nn = n->child; nn; nn = nn->next) {
1.184 schwarze 909: print_mdoc_node(meta, nn, h);
1.108 kristaps 910: /*
911: * If the printed node flushes its own line, then we
912: * needn't do it here as well. This is hacky, but the
913: * notion of selective eoln whitespace is pretty dumb
914: * anyway, so don't sweat it.
915: */
916: switch (nn->tok) {
1.285 schwarze 917: case ROFF_br:
918: case ROFF_sp:
1.188 schwarze 919: case MDOC_Sm:
920: case MDOC_Bl:
921: case MDOC_D1:
922: case MDOC_Dl:
923: case MDOC_Lp:
924: case MDOC_Pp:
1.108 kristaps 925: continue;
926: default:
927: break;
928: }
1.216 schwarze 929: if (h->flags & HTML_NONEWLINE ||
1.244 schwarze 930: (nn->next && ! (nn->next->flags & NODE_LINE)))
1.101 schwarze 931: continue;
1.126 kristaps 932: else if (nn->next)
933: print_text(h, "\n");
1.125 kristaps 934:
1.101 schwarze 935: h->flags |= HTML_NOSPACE;
1.1 kristaps 936: }
1.149 kristaps 937:
938: if (0 == sv)
939: h->flags &= ~HTML_LITERAL;
1.1 kristaps 940:
1.237 schwarze 941: return 0;
1.1 kristaps 942: }
943:
944: static int
945: mdoc_pa_pre(MDOC_ARGS)
946: {
1.301 schwarze 947: print_otag(h, TAG_SPAN, "cT", "Pa");
1.237 schwarze 948: return 1;
1.1 kristaps 949: }
950:
951: static int
952: mdoc_ad_pre(MDOC_ARGS)
953: {
1.302 schwarze 954: print_otag(h, TAG_SPAN, "c", "Ad");
1.237 schwarze 955: return 1;
1.1 kristaps 956: }
957:
958: static int
959: mdoc_an_pre(MDOC_ARGS)
960: {
1.200 schwarze 961: if (n->norm->An.auth == AUTH_split) {
962: h->flags &= ~HTML_NOSPLIT;
963: h->flags |= HTML_SPLIT;
1.237 schwarze 964: return 0;
1.200 schwarze 965: }
966: if (n->norm->An.auth == AUTH_nosplit) {
967: h->flags &= ~HTML_SPLIT;
968: h->flags |= HTML_NOSPLIT;
1.237 schwarze 969: return 0;
1.200 schwarze 970: }
971:
972: if (h->flags & HTML_SPLIT)
1.248 schwarze 973: print_otag(h, TAG_BR, "");
1.200 schwarze 974:
975: if (n->sec == SEC_AUTHORS && ! (h->flags & HTML_NOSPLIT))
976: h->flags |= HTML_SPLIT;
1.19 kristaps 977:
1.274 schwarze 978: print_otag(h, TAG_SPAN, "cT", "An");
1.237 schwarze 979: return 1;
1.1 kristaps 980: }
981:
982: static int
983: mdoc_cd_pre(MDOC_ARGS)
984: {
1.78 kristaps 985: synopsis_pre(h, n);
1.298 schwarze 986: print_otag(h, TAG_CODE, "cT", "Cd");
1.237 schwarze 987: return 1;
1.1 kristaps 988: }
989:
990: static int
991: mdoc_dv_pre(MDOC_ARGS)
992: {
1.275 schwarze 993: char *id;
994:
995: if ((id = cond_id(n)) != NULL)
1.297 schwarze 996: print_otag(h, TAG_A, "chR", "permalink", id);
1.275 schwarze 997: print_otag(h, TAG_CODE, "cTi", "Dv", id);
1.237 schwarze 998: return 1;
1.1 kristaps 999: }
1000:
1001: static int
1002: mdoc_ev_pre(MDOC_ARGS)
1003: {
1.275 schwarze 1004: char *id;
1005:
1006: if ((id = cond_id(n)) != NULL)
1.297 schwarze 1007: print_otag(h, TAG_A, "chR", "permalink", id);
1.275 schwarze 1008: print_otag(h, TAG_CODE, "cTi", "Ev", id);
1.237 schwarze 1009: return 1;
1.1 kristaps 1010: }
1011:
1012: static int
1013: mdoc_er_pre(MDOC_ARGS)
1014: {
1.275 schwarze 1015: char *id;
1016:
1017: id = n->sec == SEC_ERRORS &&
1018: (n->parent->tok == MDOC_It ||
1019: (n->parent->tok == MDOC_Bq &&
1020: n->parent->parent->parent->tok == MDOC_It)) ?
1.304 schwarze 1021: html_make_id(n, 1) : NULL;
1.275 schwarze 1022:
1023: if (id != NULL)
1.297 schwarze 1024: print_otag(h, TAG_A, "chR", "permalink", id);
1.275 schwarze 1025: print_otag(h, TAG_CODE, "cTi", "Er", id);
1.237 schwarze 1026: return 1;
1.1 kristaps 1027: }
1028:
1029: static int
1030: mdoc_fa_pre(MDOC_ARGS)
1031: {
1.228 schwarze 1032: const struct roff_node *nn;
1.1 kristaps 1033: struct tag *t;
1034:
1035: if (n->parent->tok != MDOC_Fo) {
1.274 schwarze 1036: print_otag(h, TAG_VAR, "cT", "Fa");
1.237 schwarze 1037: return 1;
1.1 kristaps 1038: }
1039:
1040: for (nn = n->child; nn; nn = nn->next) {
1.274 schwarze 1041: t = print_otag(h, TAG_VAR, "cT", "Fa");
1.1 kristaps 1042: print_text(h, nn->string);
1043: print_tagq(h, t);
1.155 kristaps 1044: if (nn->next) {
1045: h->flags |= HTML_NOSPACE;
1.1 kristaps 1046: print_text(h, ",");
1.155 kristaps 1047: }
1.1 kristaps 1048: }
1049:
1.155 kristaps 1050: if (n->child && n->next && n->next->tok == MDOC_Fa) {
1051: h->flags |= HTML_NOSPACE;
1.1 kristaps 1052: print_text(h, ",");
1.155 kristaps 1053: }
1.1 kristaps 1054:
1.237 schwarze 1055: return 0;
1.1 kristaps 1056: }
1057:
1058: static int
1059: mdoc_fd_pre(MDOC_ARGS)
1060: {
1.162 kristaps 1061: struct tag *t;
1.249 schwarze 1062: char *buf, *cp;
1.1 kristaps 1063:
1.78 kristaps 1064: synopsis_pre(h, n);
1065:
1.162 kristaps 1066: if (NULL == (n = n->child))
1.237 schwarze 1067: return 0;
1.162 kristaps 1068:
1.227 schwarze 1069: assert(n->type == ROFFT_TEXT);
1.162 kristaps 1070:
1071: if (strcmp(n->string, "#include")) {
1.298 schwarze 1072: print_otag(h, TAG_CODE, "cT", "Fd");
1.237 schwarze 1073: return 1;
1.162 kristaps 1074: }
1075:
1.298 schwarze 1076: print_otag(h, TAG_CODE, "cT", "In");
1.162 kristaps 1077: print_text(h, n->string);
1078:
1079: if (NULL != (n = n->next)) {
1.227 schwarze 1080: assert(n->type == ROFFT_TEXT);
1.190 schwarze 1081:
1.162 kristaps 1082: if (h->base_includes) {
1.249 schwarze 1083: cp = n->string;
1084: if (*cp == '<' || *cp == '"')
1085: cp++;
1086: buf = mandoc_strdup(cp);
1087: cp = strchr(buf, '\0') - 1;
1088: if (cp >= buf && (*cp == '>' || *cp == '"'))
1089: *cp = '\0';
1.274 schwarze 1090: t = print_otag(h, TAG_A, "cThI", "In", buf);
1.249 schwarze 1091: free(buf);
1.248 schwarze 1092: } else
1.274 schwarze 1093: t = print_otag(h, TAG_A, "cT", "In");
1.162 kristaps 1094:
1095: print_text(h, n->string);
1096: print_tagq(h, t);
1097:
1098: n = n->next;
1099: }
1100:
1101: for ( ; n; n = n->next) {
1.227 schwarze 1102: assert(n->type == ROFFT_TEXT);
1.162 kristaps 1103: print_text(h, n->string);
1104: }
1105:
1.237 schwarze 1106: return 0;
1.1 kristaps 1107: }
1108:
1109: static int
1110: mdoc_vt_pre(MDOC_ARGS)
1111: {
1.227 schwarze 1112: if (n->type == ROFFT_BLOCK) {
1.78 kristaps 1113: synopsis_pre(h, n);
1.237 schwarze 1114: return 1;
1.227 schwarze 1115: } else if (n->type == ROFFT_ELEM) {
1.78 kristaps 1116: synopsis_pre(h, n);
1.227 schwarze 1117: } else if (n->type == ROFFT_HEAD)
1.237 schwarze 1118: return 0;
1.1 kristaps 1119:
1.274 schwarze 1120: print_otag(h, TAG_VAR, "cT", "Vt");
1.237 schwarze 1121: return 1;
1.1 kristaps 1122: }
1123:
1124: static int
1125: mdoc_ft_pre(MDOC_ARGS)
1126: {
1.78 kristaps 1127: synopsis_pre(h, n);
1.274 schwarze 1128: print_otag(h, TAG_VAR, "cT", "Ft");
1.237 schwarze 1129: return 1;
1.1 kristaps 1130: }
1131:
1132: static int
1133: mdoc_fn_pre(MDOC_ARGS)
1134: {
1.157 kristaps 1135: struct tag *t;
1136: char nbuf[BUFSIZ];
1137: const char *sp, *ep;
1.248 schwarze 1138: int sz, pretty;
1.1 kristaps 1139:
1.244 schwarze 1140: pretty = NODE_SYNPRETTY & n->flags;
1.78 kristaps 1141: synopsis_pre(h, n);
1.1 kristaps 1142:
1.7 kristaps 1143: /* Split apart into type and name. */
1144: assert(n->child->string);
1145: sp = n->child->string;
1.19 kristaps 1146:
1.26 kristaps 1147: ep = strchr(sp, ' ');
1148: if (NULL != ep) {
1.274 schwarze 1149: t = print_otag(h, TAG_VAR, "cT", "Ft");
1.188 schwarze 1150:
1.19 kristaps 1151: while (ep) {
1152: sz = MIN((int)(ep - sp), BUFSIZ - 1);
1153: (void)memcpy(nbuf, sp, (size_t)sz);
1154: nbuf[sz] = '\0';
1155: print_text(h, nbuf);
1156: sp = ++ep;
1157: ep = strchr(sp, ' ');
1158: }
1159: print_tagq(h, t);
1.7 kristaps 1160: }
1.1 kristaps 1161:
1.298 schwarze 1162: t = print_otag(h, TAG_CODE, "cT", "Fn");
1.7 kristaps 1163:
1.190 schwarze 1164: if (sp)
1165: print_text(h, sp);
1.7 kristaps 1166:
1.1 kristaps 1167: print_tagq(h, t);
1168:
1169: h->flags |= HTML_NOSPACE;
1170: print_text(h, "(");
1.163 kristaps 1171: h->flags |= HTML_NOSPACE;
1.1 kristaps 1172:
1.157 kristaps 1173: for (n = n->child->next; n; n = n->next) {
1.244 schwarze 1174: if (NODE_SYNPRETTY & n->flags)
1.309 schwarze 1175: t = print_otag(h, TAG_VAR, "cTs", "Fa",
1.248 schwarze 1176: "white-space", "nowrap");
1177: else
1.274 schwarze 1178: t = print_otag(h, TAG_VAR, "cT", "Fa");
1.157 kristaps 1179: print_text(h, n->string);
1.1 kristaps 1180: print_tagq(h, t);
1.157 kristaps 1181: if (n->next) {
1.155 kristaps 1182: h->flags |= HTML_NOSPACE;
1.1 kristaps 1183: print_text(h, ",");
1.155 kristaps 1184: }
1.1 kristaps 1185: }
1186:
1.155 kristaps 1187: h->flags |= HTML_NOSPACE;
1.1 kristaps 1188: print_text(h, ")");
1.155 kristaps 1189:
1.157 kristaps 1190: if (pretty) {
1.155 kristaps 1191: h->flags |= HTML_NOSPACE;
1.1 kristaps 1192: print_text(h, ";");
1.155 kristaps 1193: }
1.99 kristaps 1194:
1.237 schwarze 1195: return 0;
1.99 kristaps 1196: }
1197:
1198: static int
1199: mdoc_sm_pre(MDOC_ARGS)
1200: {
1201:
1.192 schwarze 1202: if (NULL == n->child)
1203: h->flags ^= HTML_NONOSPACE;
1204: else if (0 == strcmp("on", n->child->string))
1.99 kristaps 1205: h->flags &= ~HTML_NONOSPACE;
1.192 schwarze 1206: else
1.99 kristaps 1207: h->flags |= HTML_NONOSPACE;
1.192 schwarze 1208:
1209: if ( ! (HTML_NONOSPACE & h->flags))
1210: h->flags &= ~HTML_NOSPACE;
1.1 kristaps 1211:
1.237 schwarze 1212: return 0;
1.1 kristaps 1213: }
1214:
1.120 kristaps 1215: static int
1.191 schwarze 1216: mdoc_skip_pre(MDOC_ARGS)
1.187 schwarze 1217: {
1218:
1.237 schwarze 1219: return 0;
1.187 schwarze 1220: }
1221:
1222: static int
1.120 kristaps 1223: mdoc_pp_pre(MDOC_ARGS)
1224: {
1225:
1.206 kristaps 1226: print_paragraph(h);
1.237 schwarze 1227: return 0;
1.1 kristaps 1228: }
1.2 kristaps 1229:
1230: static int
1231: mdoc_lk_pre(MDOC_ARGS)
1232: {
1.289 schwarze 1233: const struct roff_node *link, *descr, *punct;
1.279 schwarze 1234: struct tag *t;
1235:
1.289 schwarze 1236: if ((link = n->child) == NULL)
1.237 schwarze 1237: return 0;
1.2 kristaps 1238:
1.289 schwarze 1239: /* Find beginning of trailing punctuation. */
1240: punct = n->last;
1241: while (punct != link && punct->flags & NODE_DELIMC)
1242: punct = punct->prev;
1243: punct = punct->next;
1244:
1.279 schwarze 1245: /* Link target and link text. */
1.290 schwarze 1246: descr = link->next;
1247: if (descr == punct)
1248: descr = link; /* no text */
1.289 schwarze 1249: t = print_otag(h, TAG_A, "cTh", "Lk", link->string);
1.290 schwarze 1250: do {
1.289 schwarze 1251: if (descr->flags & (NODE_DELIMC | NODE_DELIMO))
1252: h->flags |= HTML_NOSPACE;
1253: print_text(h, descr->string);
1.290 schwarze 1254: descr = descr->next;
1255: } while (descr != punct);
1.279 schwarze 1256: print_tagq(h, t);
1.170 kristaps 1257:
1.279 schwarze 1258: /* Trailing punctuation. */
1.289 schwarze 1259: while (punct != NULL) {
1.279 schwarze 1260: h->flags |= HTML_NOSPACE;
1.289 schwarze 1261: print_text(h, punct->string);
1262: punct = punct->next;
1.279 schwarze 1263: }
1.237 schwarze 1264: return 0;
1.2 kristaps 1265: }
1266:
1267: static int
1268: mdoc_mt_pre(MDOC_ARGS)
1269: {
1.159 kristaps 1270: struct tag *t;
1.249 schwarze 1271: char *cp;
1.2 kristaps 1272:
1.159 kristaps 1273: for (n = n->child; n; n = n->next) {
1.227 schwarze 1274: assert(n->type == ROFFT_TEXT);
1.159 kristaps 1275:
1.249 schwarze 1276: mandoc_asprintf(&cp, "mailto:%s", n->string);
1.274 schwarze 1277: t = print_otag(h, TAG_A, "cTh", "Mt", cp);
1.159 kristaps 1278: print_text(h, n->string);
1.2 kristaps 1279: print_tagq(h, t);
1.249 schwarze 1280: free(cp);
1.2 kristaps 1281: }
1.188 schwarze 1282:
1.237 schwarze 1283: return 0;
1.2 kristaps 1284: }
1.4 kristaps 1285:
1286: static int
1287: mdoc_fo_pre(MDOC_ARGS)
1288: {
1.77 kristaps 1289: struct tag *t;
1.4 kristaps 1290:
1.227 schwarze 1291: if (n->type == ROFFT_BODY) {
1.4 kristaps 1292: h->flags |= HTML_NOSPACE;
1293: print_text(h, "(");
1294: h->flags |= HTML_NOSPACE;
1.237 schwarze 1295: return 1;
1.227 schwarze 1296: } else if (n->type == ROFFT_BLOCK) {
1.78 kristaps 1297: synopsis_pre(h, n);
1.237 schwarze 1298: return 1;
1.57 kristaps 1299: }
1.4 kristaps 1300:
1.233 schwarze 1301: if (n->child == NULL)
1.237 schwarze 1302: return 0;
1.77 kristaps 1303:
1304: assert(n->child->string);
1.298 schwarze 1305: t = print_otag(h, TAG_CODE, "cT", "Fn");
1.77 kristaps 1306: print_text(h, n->child->string);
1307: print_tagq(h, t);
1.237 schwarze 1308: return 0;
1.4 kristaps 1309: }
1310:
1311: static void
1312: mdoc_fo_post(MDOC_ARGS)
1313: {
1.78 kristaps 1314:
1.227 schwarze 1315: if (n->type != ROFFT_BODY)
1.4 kristaps 1316: return;
1.155 kristaps 1317: h->flags |= HTML_NOSPACE;
1.4 kristaps 1318: print_text(h, ")");
1.155 kristaps 1319: h->flags |= HTML_NOSPACE;
1.4 kristaps 1320: print_text(h, ";");
1321: }
1322:
1323: static int
1324: mdoc_in_pre(MDOC_ARGS)
1325: {
1.156 kristaps 1326: struct tag *t;
1.34 kristaps 1327:
1.78 kristaps 1328: synopsis_pre(h, n);
1.298 schwarze 1329: print_otag(h, TAG_CODE, "cT", "In");
1.4 kristaps 1330:
1.156 kristaps 1331: /*
1332: * The first argument of the `In' gets special treatment as
1333: * being a linked value. Subsequent values are printed
1334: * afterward. groff does similarly. This also handles the case
1335: * of no children.
1336: */
1337:
1.244 schwarze 1338: if (NODE_SYNPRETTY & n->flags && NODE_LINE & n->flags)
1.4 kristaps 1339: print_text(h, "#include");
1340:
1341: print_text(h, "<");
1342: h->flags |= HTML_NOSPACE;
1343:
1.156 kristaps 1344: if (NULL != (n = n->child)) {
1.227 schwarze 1345: assert(n->type == ROFFT_TEXT);
1.156 kristaps 1346:
1.249 schwarze 1347: if (h->base_includes)
1.274 schwarze 1348: t = print_otag(h, TAG_A, "cThI", "In", n->string);
1.249 schwarze 1349: else
1.274 schwarze 1350: t = print_otag(h, TAG_A, "cT", "In");
1.156 kristaps 1351: print_text(h, n->string);
1.17 kristaps 1352: print_tagq(h, t);
1.156 kristaps 1353:
1354: n = n->next;
1.17 kristaps 1355: }
1.4 kristaps 1356:
1357: h->flags |= HTML_NOSPACE;
1358: print_text(h, ">");
1.156 kristaps 1359:
1360: for ( ; n; n = n->next) {
1.227 schwarze 1361: assert(n->type == ROFFT_TEXT);
1.156 kristaps 1362: print_text(h, n->string);
1363: }
1.4 kristaps 1364:
1.237 schwarze 1365: return 0;
1.4 kristaps 1366: }
1367:
1368: static int
1369: mdoc_ic_pre(MDOC_ARGS)
1370: {
1.275 schwarze 1371: char *id;
1372:
1373: if ((id = cond_id(n)) != NULL)
1.297 schwarze 1374: print_otag(h, TAG_A, "chR", "permalink", id);
1.298 schwarze 1375: print_otag(h, TAG_CODE, "cTi", "Ic", id);
1.237 schwarze 1376: return 1;
1.4 kristaps 1377: }
1378:
1379: static int
1380: mdoc_va_pre(MDOC_ARGS)
1381: {
1.274 schwarze 1382: print_otag(h, TAG_VAR, "cT", "Va");
1.237 schwarze 1383: return 1;
1.4 kristaps 1384: }
1385:
1386: static int
1.5 kristaps 1387: mdoc_ap_pre(MDOC_ARGS)
1388: {
1.188 schwarze 1389:
1.5 kristaps 1390: h->flags |= HTML_NOSPACE;
1391: print_text(h, "\\(aq");
1392: h->flags |= HTML_NOSPACE;
1.237 schwarze 1393: return 1;
1.5 kristaps 1394: }
1395:
1396: static int
1397: mdoc_bf_pre(MDOC_ARGS)
1398: {
1.248 schwarze 1399: const char *cattr;
1.5 kristaps 1400:
1.227 schwarze 1401: if (n->type == ROFFT_HEAD)
1.237 schwarze 1402: return 0;
1.227 schwarze 1403: else if (n->type != ROFFT_BODY)
1.237 schwarze 1404: return 1;
1.5 kristaps 1405:
1.198 schwarze 1406: if (FONT_Em == n->norm->Bf.font)
1.300 schwarze 1407: cattr = "Bf Em";
1.198 schwarze 1408: else if (FONT_Sy == n->norm->Bf.font)
1.300 schwarze 1409: cattr = "Bf Sy";
1.188 schwarze 1410: else if (FONT_Li == n->norm->Bf.font)
1.300 schwarze 1411: cattr = "Bf Li";
1.92 kristaps 1412: else
1.300 schwarze 1413: cattr = "Bf No";
1.248 schwarze 1414:
1.300 schwarze 1415: /* Cannot use TAG_SPAN because it may contain blocks. */
1.308 schwarze 1416: print_otag(h, TAG_DIV, "c", cattr);
1.237 schwarze 1417: return 1;
1.5 kristaps 1418: }
1419:
1420: static int
1421: mdoc_ms_pre(MDOC_ARGS)
1422: {
1.275 schwarze 1423: char *id;
1424:
1425: if ((id = cond_id(n)) != NULL)
1.297 schwarze 1426: print_otag(h, TAG_A, "chR", "permalink", id);
1.303 schwarze 1427: print_otag(h, TAG_SPAN, "cTi", "Ms", id);
1.237 schwarze 1428: return 1;
1.5 kristaps 1429: }
1430:
1431: static int
1.110 schwarze 1432: mdoc_igndelim_pre(MDOC_ARGS)
1.5 kristaps 1433: {
1434:
1435: h->flags |= HTML_IGNDELIM;
1.237 schwarze 1436: return 1;
1.5 kristaps 1437: }
1438:
1439: static void
1440: mdoc_pf_post(MDOC_ARGS)
1441: {
1442:
1.244 schwarze 1443: if ( ! (n->next == NULL || n->next->flags & NODE_LINE))
1.214 schwarze 1444: h->flags |= HTML_NOSPACE;
1.5 kristaps 1445: }
1446:
1447: static int
1448: mdoc_rs_pre(MDOC_ARGS)
1449: {
1.227 schwarze 1450: if (n->type != ROFFT_BLOCK)
1.237 schwarze 1451: return 1;
1.5 kristaps 1452:
1.120 kristaps 1453: if (n->prev && SEC_SEE_ALSO == n->sec)
1.206 kristaps 1454: print_paragraph(h);
1.5 kristaps 1455:
1.274 schwarze 1456: print_otag(h, TAG_CITE, "cT", "Rs");
1.237 schwarze 1457: return 1;
1.210 schwarze 1458: }
1459:
1460: static int
1461: mdoc_no_pre(MDOC_ARGS)
1462: {
1.275 schwarze 1463: char *id;
1464:
1465: if ((id = cond_id(n)) != NULL)
1.297 schwarze 1466: print_otag(h, TAG_A, "chR", "permalink", id);
1.275 schwarze 1467: print_otag(h, TAG_SPAN, "ci", "No", id);
1.237 schwarze 1468: return 1;
1.5 kristaps 1469: }
1.6 kristaps 1470:
1471: static int
1472: mdoc_li_pre(MDOC_ARGS)
1473: {
1.275 schwarze 1474: char *id;
1475:
1476: if ((id = cond_id(n)) != NULL)
1.297 schwarze 1477: print_otag(h, TAG_A, "chR", "permalink", id);
1.275 schwarze 1478: print_otag(h, TAG_CODE, "ci", "Li", id);
1.237 schwarze 1479: return 1;
1.6 kristaps 1480: }
1481:
1482: static int
1483: mdoc_sy_pre(MDOC_ARGS)
1484: {
1.274 schwarze 1485: print_otag(h, TAG_B, "cT", "Sy");
1.237 schwarze 1486: return 1;
1.6 kristaps 1487: }
1488:
1489: static int
1490: mdoc_lb_pre(MDOC_ARGS)
1491: {
1.244 schwarze 1492: if (SEC_LIBRARY == n->sec && NODE_LINE & n->flags && n->prev)
1.248 schwarze 1493: print_otag(h, TAG_BR, "");
1.127 kristaps 1494:
1.274 schwarze 1495: print_otag(h, TAG_SPAN, "cT", "Lb");
1.237 schwarze 1496: return 1;
1.6 kristaps 1497: }
1.10 kristaps 1498:
1499: static int
1500: mdoc__x_pre(MDOC_ARGS)
1501: {
1.248 schwarze 1502: const char *cattr;
1503: enum htmltag t;
1.133 kristaps 1504:
1505: t = TAG_SPAN;
1.37 kristaps 1506:
1.10 kristaps 1507: switch (n->tok) {
1.188 schwarze 1508: case MDOC__A:
1.257 schwarze 1509: cattr = "RsA";
1.103 kristaps 1510: if (n->prev && MDOC__A == n->prev->tok)
1511: if (NULL == n->next || MDOC__A != n->next->tok)
1512: print_text(h, "and");
1.10 kristaps 1513: break;
1.188 schwarze 1514: case MDOC__B:
1.133 kristaps 1515: t = TAG_I;
1.257 schwarze 1516: cattr = "RsB";
1.10 kristaps 1517: break;
1.188 schwarze 1518: case MDOC__C:
1.257 schwarze 1519: cattr = "RsC";
1.10 kristaps 1520: break;
1.188 schwarze 1521: case MDOC__D:
1.257 schwarze 1522: cattr = "RsD";
1.10 kristaps 1523: break;
1.188 schwarze 1524: case MDOC__I:
1.133 kristaps 1525: t = TAG_I;
1.257 schwarze 1526: cattr = "RsI";
1.10 kristaps 1527: break;
1.188 schwarze 1528: case MDOC__J:
1.133 kristaps 1529: t = TAG_I;
1.257 schwarze 1530: cattr = "RsJ";
1.10 kristaps 1531: break;
1.188 schwarze 1532: case MDOC__N:
1.257 schwarze 1533: cattr = "RsN";
1.10 kristaps 1534: break;
1.188 schwarze 1535: case MDOC__O:
1.257 schwarze 1536: cattr = "RsO";
1.10 kristaps 1537: break;
1.188 schwarze 1538: case MDOC__P:
1.257 schwarze 1539: cattr = "RsP";
1.10 kristaps 1540: break;
1.188 schwarze 1541: case MDOC__Q:
1.257 schwarze 1542: cattr = "RsQ";
1.10 kristaps 1543: break;
1.188 schwarze 1544: case MDOC__R:
1.257 schwarze 1545: cattr = "RsR";
1.10 kristaps 1546: break;
1.188 schwarze 1547: case MDOC__T:
1.257 schwarze 1548: cattr = "RsT";
1.10 kristaps 1549: break;
1.188 schwarze 1550: case MDOC__U:
1.257 schwarze 1551: print_otag(h, TAG_A, "ch", "RsU", n->child->string);
1552: return 1;
1.188 schwarze 1553: case MDOC__V:
1.257 schwarze 1554: cattr = "RsV";
1.10 kristaps 1555: break;
1556: default:
1557: abort();
1558: }
1559:
1.257 schwarze 1560: print_otag(h, t, "c", cattr);
1.237 schwarze 1561: return 1;
1.10 kristaps 1562: }
1563:
1564: static void
1565: mdoc__x_post(MDOC_ARGS)
1566: {
1.103 kristaps 1567:
1568: if (MDOC__A == n->tok && n->next && MDOC__A == n->next->tok)
1569: if (NULL == n->next->next || MDOC__A != n->next->next->tok)
1570: if (NULL == n->prev || MDOC__A != n->prev->tok)
1571: return;
1.10 kristaps 1572:
1.61 kristaps 1573: /* TODO: %U */
1574:
1.106 kristaps 1575: if (NULL == n->parent || MDOC_Rs != n->parent->tok)
1576: return;
1577:
1.155 kristaps 1578: h->flags |= HTML_NOSPACE;
1.10 kristaps 1579: print_text(h, n->next ? "," : ".");
1.94 kristaps 1580: }
1581:
1582: static int
1583: mdoc_bk_pre(MDOC_ARGS)
1584: {
1585:
1586: switch (n->type) {
1.227 schwarze 1587: case ROFFT_BLOCK:
1.94 kristaps 1588: break;
1.227 schwarze 1589: case ROFFT_HEAD:
1.237 schwarze 1590: return 0;
1.227 schwarze 1591: case ROFFT_BODY:
1.240 schwarze 1592: if (n->parent->args != NULL || n->prev->child == NULL)
1.131 kristaps 1593: h->flags |= HTML_PREKEEP;
1.94 kristaps 1594: break;
1595: default:
1596: abort();
1597: }
1598:
1.237 schwarze 1599: return 1;
1.94 kristaps 1600: }
1601:
1602: static void
1603: mdoc_bk_post(MDOC_ARGS)
1604: {
1605:
1.227 schwarze 1606: if (n->type == ROFFT_BODY)
1.94 kristaps 1607: h->flags &= ~(HTML_KEEP | HTML_PREKEEP);
1.10 kristaps 1608: }
1.107 kristaps 1609:
1610: static int
1611: mdoc_quote_pre(MDOC_ARGS)
1612: {
1.227 schwarze 1613: if (n->type != ROFFT_BODY)
1.237 schwarze 1614: return 1;
1.107 kristaps 1615:
1616: switch (n->tok) {
1.188 schwarze 1617: case MDOC_Ao:
1618: case MDOC_Aq:
1.240 schwarze 1619: print_text(h, n->child != NULL && n->child->next == NULL &&
1.219 schwarze 1620: n->child->tok == MDOC_Mt ? "<" : "\\(la");
1.107 kristaps 1621: break;
1.188 schwarze 1622: case MDOC_Bro:
1623: case MDOC_Brq:
1.107 kristaps 1624: print_text(h, "\\(lC");
1625: break;
1.188 schwarze 1626: case MDOC_Bo:
1627: case MDOC_Bq:
1.107 kristaps 1628: print_text(h, "\\(lB");
1629: break;
1.188 schwarze 1630: case MDOC_Oo:
1631: case MDOC_Op:
1.107 kristaps 1632: print_text(h, "\\(lB");
1.109 kristaps 1633: h->flags |= HTML_NOSPACE;
1.300 schwarze 1634: /* Cannot use TAG_SPAN because it may contain blocks. */
1635: print_otag(h, TAG_IDIV, "c", "Op");
1.107 kristaps 1636: break;
1.191 schwarze 1637: case MDOC_En:
1638: if (NULL == n->norm->Es ||
1639: NULL == n->norm->Es->child)
1.237 schwarze 1640: return 1;
1.191 schwarze 1641: print_text(h, n->norm->Es->child->string);
1642: break;
1.188 schwarze 1643: case MDOC_Do:
1644: case MDOC_Dq:
1645: case MDOC_Qo:
1646: case MDOC_Qq:
1.107 kristaps 1647: print_text(h, "\\(lq");
1648: break;
1.188 schwarze 1649: case MDOC_Po:
1650: case MDOC_Pq:
1.107 kristaps 1651: print_text(h, "(");
1652: break;
1.188 schwarze 1653: case MDOC_Ql:
1.178 kristaps 1654: print_text(h, "\\(oq");
1655: h->flags |= HTML_NOSPACE;
1.255 schwarze 1656: print_otag(h, TAG_CODE, "c", "Li");
1.178 kristaps 1657: break;
1.188 schwarze 1658: case MDOC_So:
1659: case MDOC_Sq:
1.107 kristaps 1660: print_text(h, "\\(oq");
1661: break;
1662: default:
1663: abort();
1664: }
1665:
1666: h->flags |= HTML_NOSPACE;
1.237 schwarze 1667: return 1;
1.107 kristaps 1668: }
1669:
1670: static void
1671: mdoc_quote_post(MDOC_ARGS)
1672: {
1673:
1.227 schwarze 1674: if (n->type != ROFFT_BODY && n->type != ROFFT_ELEM)
1.107 kristaps 1675: return;
1676:
1.221 schwarze 1677: h->flags |= HTML_NOSPACE;
1.107 kristaps 1678:
1679: switch (n->tok) {
1.188 schwarze 1680: case MDOC_Ao:
1681: case MDOC_Aq:
1.240 schwarze 1682: print_text(h, n->child != NULL && n->child->next == NULL &&
1.219 schwarze 1683: n->child->tok == MDOC_Mt ? ">" : "\\(ra");
1.107 kristaps 1684: break;
1.188 schwarze 1685: case MDOC_Bro:
1686: case MDOC_Brq:
1.107 kristaps 1687: print_text(h, "\\(rC");
1688: break;
1.188 schwarze 1689: case MDOC_Oo:
1690: case MDOC_Op:
1691: case MDOC_Bo:
1692: case MDOC_Bq:
1.107 kristaps 1693: print_text(h, "\\(rB");
1.191 schwarze 1694: break;
1695: case MDOC_En:
1.221 schwarze 1696: if (n->norm->Es == NULL ||
1697: n->norm->Es->child == NULL ||
1698: n->norm->Es->child->next == NULL)
1699: h->flags &= ~HTML_NOSPACE;
1700: else
1.191 schwarze 1701: print_text(h, n->norm->Es->child->next->string);
1.107 kristaps 1702: break;
1.188 schwarze 1703: case MDOC_Qo:
1704: case MDOC_Qq:
1705: case MDOC_Do:
1706: case MDOC_Dq:
1.107 kristaps 1707: print_text(h, "\\(rq");
1708: break;
1.188 schwarze 1709: case MDOC_Po:
1710: case MDOC_Pq:
1.107 kristaps 1711: print_text(h, ")");
1712: break;
1.188 schwarze 1713: case MDOC_Ql:
1714: case MDOC_So:
1715: case MDOC_Sq:
1.183 schwarze 1716: print_text(h, "\\(cq");
1.107 kristaps 1717: break;
1718: default:
1719: abort();
1720: }
1.221 schwarze 1721: }
1722:
1723: static int
1724: mdoc_eo_pre(MDOC_ARGS)
1725: {
1726:
1.227 schwarze 1727: if (n->type != ROFFT_BODY)
1.237 schwarze 1728: return 1;
1.221 schwarze 1729:
1730: if (n->end == ENDBODY_NOT &&
1731: n->parent->head->child == NULL &&
1732: n->child != NULL &&
1733: n->child->end != ENDBODY_NOT)
1734: print_text(h, "\\&");
1735: else if (n->end != ENDBODY_NOT ? n->child != NULL :
1.224 schwarze 1736: n->parent->head->child != NULL && (n->child != NULL ||
1737: (n->parent->tail != NULL && n->parent->tail->child != NULL)))
1.221 schwarze 1738: h->flags |= HTML_NOSPACE;
1.237 schwarze 1739: return 1;
1.221 schwarze 1740: }
1741:
1742: static void
1743: mdoc_eo_post(MDOC_ARGS)
1744: {
1745: int body, tail;
1746:
1.227 schwarze 1747: if (n->type != ROFFT_BODY)
1.221 schwarze 1748: return;
1749:
1750: if (n->end != ENDBODY_NOT) {
1751: h->flags &= ~HTML_NOSPACE;
1752: return;
1753: }
1754:
1755: body = n->child != NULL || n->parent->head->child != NULL;
1756: tail = n->parent->tail != NULL && n->parent->tail->child != NULL;
1757:
1758: if (body && tail)
1759: h->flags |= HTML_NOSPACE;
1760: else if ( ! tail)
1761: h->flags &= ~HTML_NOSPACE;
1.107 kristaps 1762: }
CVSweb