Annotation of mandoc/main.c, Revision 1.191
1.191 ! schwarze 1: /* $Id: main.c,v 1.190 2014/09/03 05:22:45 schwarze Exp $ */
1.1 kristaps 2: /*
1.183 schwarze 3: * Copyright (c) 2008-2012 Kristaps Dzonsons <kristaps@bsd.lv>
1.170 schwarze 4: * Copyright (c) 2010, 2011, 2012, 2014 Ingo Schwarze <schwarze@openbsd.org>
1.169 schwarze 5: * Copyright (c) 2010 Joerg Sonnenberger <joerg@netbsd.org>
1.1 kristaps 6: *
7: * Permission to use, copy, modify, and distribute this software for any
1.25 kristaps 8: * purpose with or without fee is hereby granted, provided that the above
9: * copyright notice and this permission notice appear in all copies.
1.1 kristaps 10: *
1.25 kristaps 11: * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12: * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13: * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14: * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15: * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16: * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17: * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
1.1 kristaps 18: */
1.58 kristaps 19: #include "config.h"
1.178 schwarze 20:
21: #include <sys/types.h>
1.58 kristaps 22:
1.1 kristaps 23: #include <assert.h>
1.185 schwarze 24: #include <ctype.h>
1.183 schwarze 25: #include <errno.h>
1.186 schwarze 26: #include <fcntl.h>
1.1 kristaps 27: #include <stdio.h>
1.45 kristaps 28: #include <stdint.h>
1.1 kristaps 29: #include <stdlib.h>
30: #include <string.h>
31: #include <unistd.h>
32:
1.71 kristaps 33: #include "mandoc.h"
1.172 schwarze 34: #include "mandoc_aux.h"
1.90 kristaps 35: #include "main.h"
1.1 kristaps 36: #include "mdoc.h"
1.10 kristaps 37: #include "man.h"
1.180 schwarze 38: #include "manpath.h"
39: #include "mansearch.h"
1.101 joerg 40:
1.55 kristaps 41: #if !defined(__GNUC__) || (__GNUC__ < 2)
1.56 kristaps 42: # if !defined(lint)
43: # define __attribute__(x)
44: # endif
1.55 kristaps 45: #endif /* !defined(__GNUC__) || (__GNUC__ < 2) */
1.16 kristaps 46:
1.181 schwarze 47: enum outmode {
48: OUTMODE_DEF = 0,
49: OUTMODE_FLN,
50: OUTMODE_LST,
51: OUTMODE_ALL,
52: OUTMODE_INT,
53: OUTMODE_ONE
54: };
55:
1.42 kristaps 56: typedef void (*out_mdoc)(void *, const struct mdoc *);
57: typedef void (*out_man)(void *, const struct man *);
1.22 kristaps 58: typedef void (*out_free)(void *);
59:
1.19 kristaps 60: enum outt {
1.154 kristaps 61: OUTT_ASCII = 0, /* -Tascii */
1.162 kristaps 62: OUTT_LOCALE, /* -Tlocale */
1.163 kristaps 63: OUTT_UTF8, /* -Tutf8 */
1.154 kristaps 64: OUTT_TREE, /* -Ttree */
1.164 schwarze 65: OUTT_MAN, /* -Tman */
1.154 kristaps 66: OUTT_HTML, /* -Thtml */
67: OUTT_XHTML, /* -Txhtml */
68: OUTT_LINT, /* -Tlint */
69: OUTT_PS, /* -Tps */
70: OUTT_PDF /* -Tpdf */
1.19 kristaps 71: };
72:
1.5 kristaps 73: struct curparse {
1.154 kristaps 74: struct mparse *mp;
1.148 kristaps 75: enum mandoclevel wlevel; /* ignore messages below this */
76: int wstop; /* stop after a file with a warning */
1.173 schwarze 77: enum outt outtype; /* which output to use */
1.79 kristaps 78: out_mdoc outmdoc; /* mdoc output ptr */
1.173 schwarze 79: out_man outman; /* man output ptr */
1.79 kristaps 80: out_free outfree; /* free output ptr */
81: void *outdata; /* data for output */
82: char outopts[BUFSIZ]; /* buf of output opts */
83: };
84:
1.170 schwarze 85: static int moptions(int *, char *);
1.155 kristaps 86: static void mmsg(enum mandocerr, enum mandoclevel,
87: const char *, int, int, const char *);
1.173 schwarze 88: static void parse(struct curparse *, int,
1.154 kristaps 89: const char *, enum mandoclevel *);
1.186 schwarze 90: static enum mandoclevel passthrough(const char *);
1.183 schwarze 91: static void spawn_pager(void);
1.66 kristaps 92: static int toptions(struct curparse *, char *);
1.180 schwarze 93: static void usage(enum argmode) __attribute__((noreturn));
1.55 kristaps 94: static void version(void) __attribute__((noreturn));
1.103 schwarze 95: static int woptions(struct curparse *, char *);
1.1 kristaps 96:
1.182 schwarze 97: static const int sec_prios[] = {1, 4, 5, 8, 6, 3, 7, 2, 9};
1.54 kristaps 98: static const char *progname;
1.1 kristaps 99:
1.173 schwarze 100:
1.1 kristaps 101: int
102: main(int argc, char *argv[])
103: {
1.5 kristaps 104: struct curparse curp;
1.180 schwarze 105: struct mansearch search;
106: struct manpaths paths;
107: char *conf_file, *defpaths, *auxpaths;
108: char *defos;
109: #if HAVE_SQLITE3
1.186 schwarze 110: struct manpage *res, *resp;
1.182 schwarze 111: size_t isec, i, sz;
112: int prio, best_prio;
113: char sec;
1.180 schwarze 114: #endif
115: enum mandoclevel rc;
1.181 schwarze 116: enum outmode outmode;
1.180 schwarze 117: int show_usage;
1.183 schwarze 118: int use_pager;
1.170 schwarze 119: int options;
1.180 schwarze 120: int c;
1.1 kristaps 121:
1.54 kristaps 122: progname = strrchr(argv[0], '/');
123: if (progname == NULL)
124: progname = argv[0];
125: else
126: ++progname;
1.179 schwarze 127:
1.180 schwarze 128: /* Search options. */
129:
130: memset(&paths, 0, sizeof(struct manpaths));
131: conf_file = defpaths = auxpaths = NULL;
132:
133: memset(&search, 0, sizeof(struct mansearch));
134: search.outkey = "Nd";
135:
136: if (strcmp(progname, "man") == 0)
137: search.argmode = ARG_NAME;
138: else if (strncmp(progname, "apropos", 7) == 0)
139: search.argmode = ARG_EXPR;
140: else if (strncmp(progname, "whatis", 6) == 0)
141: search.argmode = ARG_WORD;
142: else
143: search.argmode = ARG_FILE;
144:
145: /* Parser and formatter options. */
1.54 kristaps 146:
1.51 kristaps 147: memset(&curp, 0, sizeof(struct curparse));
1.22 kristaps 148: curp.outtype = OUTT_ASCII;
1.103 schwarze 149: curp.wlevel = MANDOCLEVEL_FATAL;
1.180 schwarze 150: options = MPARSE_SO;
1.166 schwarze 151: defos = NULL;
1.19 kristaps 152:
1.183 schwarze 153: use_pager = 1;
1.180 schwarze 154: show_usage = 0;
1.181 schwarze 155: outmode = OUTMODE_DEF;
1.183 schwarze 156:
1.190 schwarze 157: while (-1 != (c = getopt(argc, argv, "aC:cfhI:iklM:m:O:S:s:T:VW:w"))) {
1.1 kristaps 158: switch (c) {
1.181 schwarze 159: case 'a':
160: outmode = OUTMODE_ALL;
161: break;
1.180 schwarze 162: case 'C':
163: conf_file = optarg;
164: break;
1.183 schwarze 165: case 'c':
166: use_pager = 0;
167: break;
1.180 schwarze 168: case 'f':
169: search.argmode = ARG_WORD;
170: break;
1.190 schwarze 171: case 'h':
172: (void)strlcat(curp.outopts, "synopsis,", BUFSIZ);
173: outmode = OUTMODE_ALL;
174: break;
1.173 schwarze 175: case 'I':
1.166 schwarze 176: if (strncmp(optarg, "os=", 3)) {
1.173 schwarze 177: fprintf(stderr,
1.176 schwarze 178: "%s: -I%s: Bad argument\n",
179: progname, optarg);
1.166 schwarze 180: return((int)MANDOCLEVEL_BADARG);
181: }
182: if (defos) {
1.173 schwarze 183: fprintf(stderr,
1.176 schwarze 184: "%s: -I%s: Duplicate argument\n",
185: progname, optarg);
1.166 schwarze 186: return((int)MANDOCLEVEL_BADARG);
187: }
188: defos = mandoc_strdup(optarg + 3);
189: break;
1.181 schwarze 190: case 'i':
191: outmode = OUTMODE_INT;
192: break;
1.180 schwarze 193: case 'k':
194: search.argmode = ARG_EXPR;
195: break;
1.188 schwarze 196: case 'l':
197: search.argmode = ARG_FILE;
198: outmode = OUTMODE_ALL;
199: break;
1.180 schwarze 200: case 'M':
201: defpaths = optarg;
202: break;
1.173 schwarze 203: case 'm':
1.180 schwarze 204: auxpaths = optarg;
1.10 kristaps 205: break;
1.173 schwarze 206: case 'O':
1.180 schwarze 207: search.outkey = optarg;
1.49 kristaps 208: (void)strlcat(curp.outopts, optarg, BUFSIZ);
209: (void)strlcat(curp.outopts, ",", BUFSIZ);
1.44 kristaps 210: break;
1.180 schwarze 211: case 'S':
212: search.arch = optarg;
213: break;
214: case 's':
215: search.sec = optarg;
216: break;
1.173 schwarze 217: case 'T':
1.60 kristaps 218: if ( ! toptions(&curp, optarg))
1.105 kristaps 219: return((int)MANDOCLEVEL_BADARG);
1.1 kristaps 220: break;
1.173 schwarze 221: case 'W':
1.103 schwarze 222: if ( ! woptions(&curp, optarg))
1.105 kristaps 223: return((int)MANDOCLEVEL_BADARG);
1.1 kristaps 224: break;
1.181 schwarze 225: case 'w':
226: outmode = OUTMODE_FLN;
227: break;
1.173 schwarze 228: case 'V':
1.1 kristaps 229: version();
230: /* NOTREACHED */
231: default:
1.180 schwarze 232: show_usage = 1;
233: break;
1.1 kristaps 234: }
1.180 schwarze 235: }
236:
237: if (show_usage)
238: usage(search.argmode);
239:
1.185 schwarze 240: /* Postprocess options. */
241:
1.181 schwarze 242: if (outmode == OUTMODE_DEF) {
243: switch (search.argmode) {
244: case ARG_FILE:
245: outmode = OUTMODE_ALL;
1.183 schwarze 246: use_pager = 0;
1.181 schwarze 247: break;
248: case ARG_NAME:
249: outmode = OUTMODE_ONE;
250: break;
251: default:
252: outmode = OUTMODE_LST;
253: break;
254: }
255: }
256:
1.185 schwarze 257: /* Parse arguments. */
258:
1.180 schwarze 259: argc -= optind;
260: argv += optind;
1.182 schwarze 261: #if HAVE_SQLITE3
1.186 schwarze 262: resp = NULL;
1.182 schwarze 263: #endif
1.185 schwarze 264:
265: /* Quirk for a man(1) section argument without -s. */
266:
267: if (search.argmode == ARG_NAME &&
268: argv[0] != NULL &&
269: isdigit((unsigned char)argv[0][0]) &&
270: (argv[0][1] == '\0' || !strcmp(argv[0], "3p"))) {
271: search.sec = argv[0];
272: argv++;
273: argc--;
274: }
1.182 schwarze 275:
276: rc = MANDOCLEVEL_OK;
1.180 schwarze 277:
278: /* man(1), whatis(1), apropos(1) */
279:
280: if (search.argmode != ARG_FILE) {
281: #if HAVE_SQLITE3
282: if (argc == 0)
283: usage(search.argmode);
1.182 schwarze 284:
285: /* Access the mandoc database. */
286:
1.180 schwarze 287: manpath_parse(&paths, conf_file, defpaths, auxpaths);
288: mansearch_setup(1);
289: if( ! mansearch(&search, &paths, argc, argv, &res, &sz))
290: usage(search.argmode);
1.186 schwarze 291: resp = res;
1.187 schwarze 292:
293: if (sz == 0) {
294: if (search.argmode == ARG_NAME)
295: fprintf(stderr, "%s: No entry for %s "
296: "in the manual.\n", progname, argv[0]);
297: rc = MANDOCLEVEL_BADARG;
298: goto out;
299: }
1.182 schwarze 300:
301: /*
302: * For standard man(1) and -a output mode,
303: * prepare for copying filename pointers
304: * into the program parameter array.
305: */
306:
307: if (outmode == OUTMODE_ONE) {
308: argc = 1;
309: best_prio = 10;
1.186 schwarze 310: } else if (outmode == OUTMODE_ALL)
1.182 schwarze 311: argc = (int)sz;
312:
313: /* Iterate all matching manuals. */
314:
1.181 schwarze 315: for (i = 0; i < sz; i++) {
316: if (outmode == OUTMODE_FLN)
317: puts(res[i].file);
1.182 schwarze 318: else if (outmode == OUTMODE_LST)
1.181 schwarze 319: printf("%s - %s\n", res[i].names,
320: res[i].output == NULL ? "" :
321: res[i].output);
1.186 schwarze 322: else if (outmode == OUTMODE_ONE) {
1.182 schwarze 323: /* Search for the best section. */
324: isec = strcspn(res[i].file, "123456789");
325: sec = res[i].file[isec];
326: if ('\0' == sec)
327: continue;
328: prio = sec_prios[sec - '1'];
329: if (prio >= best_prio)
330: continue;
331: best_prio = prio;
1.186 schwarze 332: resp = res + i;
1.182 schwarze 333: }
1.181 schwarze 334: }
1.182 schwarze 335:
336: /*
337: * For man(1), -a and -i output mode, fall through
338: * to the main mandoc(1) code iterating files
339: * and running the parsers on each of them.
340: */
341:
342: if (outmode == OUTMODE_FLN || outmode == OUTMODE_LST)
343: goto out;
1.180 schwarze 344: #else
345: fputs("mandoc: database support not compiled in\n",
346: stderr);
347: return((int)MANDOCLEVEL_BADARG);
348: #endif
349: }
350:
351: /* mandoc(1) */
352:
353: if ( ! moptions(&options, auxpaths))
354: return((int)MANDOCLEVEL_BADARG);
1.1 kristaps 355:
1.183 schwarze 356: if (use_pager && isatty(STDOUT_FILENO))
357: spawn_pager();
358:
1.170 schwarze 359: curp.mp = mparse_alloc(options, curp.wlevel, mmsg, defos);
1.154 kristaps 360:
1.165 kristaps 361: /*
362: * Conditionally start up the lookaside buffer before parsing.
363: */
364: if (OUTT_MAN == curp.outtype)
365: mparse_keep(curp.mp);
366:
1.186 schwarze 367: if (argc == 0)
1.154 kristaps 368: parse(&curp, STDIN_FILENO, "<stdin>", &rc);
1.64 kristaps 369:
1.186 schwarze 370: while (argc) {
371: #if HAVE_SQLITE3
372: if (resp != NULL) {
1.191 ! schwarze 373: if (resp->form & FORM_SRC) {
1.189 schwarze 374: /* For .so only; ignore failure. */
375: chdir(paths.paths[resp->ipath]);
1.186 schwarze 376: parse(&curp, -1, resp->file, &rc);
1.189 schwarze 377: } else
1.186 schwarze 378: rc = passthrough(resp->file);
379: resp++;
380: } else
381: #endif
382: parse(&curp, -1, *argv++, &rc);
1.154 kristaps 383: if (MANDOCLEVEL_OK != rc && curp.wstop)
1.64 kristaps 384: break;
1.186 schwarze 385: argc--;
1.1 kristaps 386: }
387:
1.22 kristaps 388: if (curp.outfree)
389: (*curp.outfree)(curp.outdata);
1.154 kristaps 390: if (curp.mp)
391: mparse_free(curp.mp);
1.182 schwarze 392:
393: #if HAVE_SQLITE3
394: out:
395: if (search.argmode != ARG_FILE) {
1.189 schwarze 396: manpath_free(&paths);
1.182 schwarze 397: mansearch_free(res, sz);
398: mansearch_setup(0);
399: }
400: #endif
401:
1.166 schwarze 402: free(defos);
1.1 kristaps 403:
1.154 kristaps 404: return((int)rc);
1.1 kristaps 405: }
406:
1.55 kristaps 407: static void
1.1 kristaps 408: version(void)
409: {
410:
1.180 schwarze 411: printf("mandoc %s\n", VERSION);
1.105 kristaps 412: exit((int)MANDOCLEVEL_OK);
1.1 kristaps 413: }
414:
1.55 kristaps 415: static void
1.180 schwarze 416: usage(enum argmode argmode)
1.1 kristaps 417: {
418:
1.180 schwarze 419: switch (argmode) {
420: case ARG_FILE:
1.190 schwarze 421: fputs("usage: mandoc [-acfhklV] [-Ios=name] "
1.188 schwarze 422: "[-mformat] [-Ooption] [-Toutput] [-Wlevel]\n"
1.180 schwarze 423: "\t [file ...]\n", stderr);
424: break;
425: case ARG_NAME:
1.188 schwarze 426: fputs("usage: man [-acfhklVw] [-C file] "
1.180 schwarze 427: "[-M path] [-m path] [-S arch] [-s section]\n"
428: "\t [section] name ...\n", stderr);
429: break;
430: case ARG_WORD:
1.190 schwarze 431: fputs("usage: whatis [-acfhklVw] [-C file] "
1.188 schwarze 432: "[-M path] [-m path] [-O outkey] [-S arch]\n"
433: "\t [-s section] name ...\n", stderr);
1.180 schwarze 434: break;
435: case ARG_EXPR:
1.190 schwarze 436: fputs("usage: apropos [-acfhklVw] [-C file] "
1.188 schwarze 437: "[-M path] [-m path] [-O outkey] [-S arch]\n"
1.180 schwarze 438: "\t [-s section] expression ...\n", stderr);
439: break;
440: }
1.105 kristaps 441: exit((int)MANDOCLEVEL_BADARG);
1.68 joerg 442: }
443:
1.64 kristaps 444: static void
1.173 schwarze 445: parse(struct curparse *curp, int fd, const char *file,
446: enum mandoclevel *level)
1.1 kristaps 447: {
1.154 kristaps 448: enum mandoclevel rc;
449: struct mdoc *mdoc;
450: struct man *man;
1.112 kristaps 451:
1.154 kristaps 452: /* Begin by parsing the file itself. */
1.112 kristaps 453:
1.154 kristaps 454: assert(file);
455: assert(fd >= -1);
1.112 kristaps 456:
1.154 kristaps 457: rc = mparse_readfd(curp->mp, fd, file);
1.112 kristaps 458:
1.154 kristaps 459: /* Stop immediately if the parse has failed. */
1.92 kristaps 460:
1.154 kristaps 461: if (MANDOCLEVEL_FATAL <= rc)
1.111 kristaps 462: goto cleanup;
463:
1.1 kristaps 464: /*
1.154 kristaps 465: * With -Wstop and warnings or errors of at least the requested
466: * level, do not produce output.
1.1 kristaps 467: */
468:
1.154 kristaps 469: if (MANDOCLEVEL_OK != rc && curp->wstop)
1.111 kristaps 470: goto cleanup;
471:
472: /* If unset, allocate output dev now (if applicable). */
473:
474: if ( ! (curp->outman && curp->outmdoc)) {
475: switch (curp->outtype) {
1.173 schwarze 476: case OUTT_XHTML:
1.111 kristaps 477: curp->outdata = xhtml_alloc(curp->outopts);
1.162 kristaps 478: curp->outfree = html_free;
1.111 kristaps 479: break;
1.173 schwarze 480: case OUTT_HTML:
1.111 kristaps 481: curp->outdata = html_alloc(curp->outopts);
1.162 kristaps 482: curp->outfree = html_free;
483: break;
1.173 schwarze 484: case OUTT_UTF8:
1.163 kristaps 485: curp->outdata = utf8_alloc(curp->outopts);
486: curp->outfree = ascii_free;
487: break;
1.173 schwarze 488: case OUTT_LOCALE:
1.162 kristaps 489: curp->outdata = locale_alloc(curp->outopts);
490: curp->outfree = ascii_free;
1.111 kristaps 491: break;
1.173 schwarze 492: case OUTT_ASCII:
1.111 kristaps 493: curp->outdata = ascii_alloc(curp->outopts);
494: curp->outfree = ascii_free;
495: break;
1.173 schwarze 496: case OUTT_PDF:
1.111 kristaps 497: curp->outdata = pdf_alloc(curp->outopts);
498: curp->outfree = pspdf_free;
499: break;
1.173 schwarze 500: case OUTT_PS:
1.111 kristaps 501: curp->outdata = ps_alloc(curp->outopts);
502: curp->outfree = pspdf_free;
503: break;
504: default:
505: break;
506: }
507:
508: switch (curp->outtype) {
1.173 schwarze 509: case OUTT_HTML:
1.111 kristaps 510: /* FALLTHROUGH */
1.173 schwarze 511: case OUTT_XHTML:
1.111 kristaps 512: curp->outman = html_man;
513: curp->outmdoc = html_mdoc;
514: break;
1.173 schwarze 515: case OUTT_TREE:
1.111 kristaps 516: curp->outman = tree_man;
517: curp->outmdoc = tree_mdoc;
518: break;
1.173 schwarze 519: case OUTT_MAN:
1.164 schwarze 520: curp->outmdoc = man_mdoc;
1.165 kristaps 521: curp->outman = man_man;
1.164 schwarze 522: break;
1.173 schwarze 523: case OUTT_PDF:
1.111 kristaps 524: /* FALLTHROUGH */
1.173 schwarze 525: case OUTT_ASCII:
1.111 kristaps 526: /* FALLTHROUGH */
1.173 schwarze 527: case OUTT_UTF8:
1.163 kristaps 528: /* FALLTHROUGH */
1.173 schwarze 529: case OUTT_LOCALE:
1.162 kristaps 530: /* FALLTHROUGH */
1.173 schwarze 531: case OUTT_PS:
1.111 kristaps 532: curp->outman = terminal_man;
533: curp->outmdoc = terminal_mdoc;
534: break;
535: default:
536: break;
537: }
538: }
539:
1.171 schwarze 540: mparse_result(curp->mp, &mdoc, &man, NULL);
1.154 kristaps 541:
1.111 kristaps 542: /* Execute the out device, if it exists. */
543:
1.154 kristaps 544: if (man && curp->outman)
545: (*curp->outman)(curp->outdata, man);
546: if (mdoc && curp->outmdoc)
547: (*curp->outmdoc)(curp->outdata, mdoc);
1.111 kristaps 548:
549: cleanup:
1.112 kristaps 550:
1.154 kristaps 551: mparse_reset(curp->mp);
1.111 kristaps 552:
1.154 kristaps 553: if (*level < rc)
554: *level = rc;
1.186 schwarze 555: }
556:
557: static enum mandoclevel
558: passthrough(const char *file)
559: {
560: char buf[BUFSIZ];
561: const char *syscall;
562: ssize_t nr, nw, off;
563: int fd;
564:
565: fd = open(file, O_RDONLY);
566: if (fd == -1) {
567: syscall = "open";
568: goto fail;
569: }
570:
571: while ((nr = read(fd, buf, BUFSIZ)) != -1 && nr != 0)
572: for (off = 0; off < nr; off += nw)
573: if ((nw = write(STDOUT_FILENO, buf + off,
574: (size_t)(nr - off))) == -1 || nw == 0) {
575: syscall = "write";
576: goto fail;
577: }
578:
579: if (nr == 0) {
580: close(fd);
581: return(MANDOCLEVEL_OK);
582: }
583:
584: syscall = "read";
585: fail:
586: fprintf(stderr, "%s: %s: SYSERR: %s: %s",
587: progname, file, syscall, strerror(errno));
588: return(MANDOCLEVEL_SYSERR);
1.10 kristaps 589: }
590:
591: static int
1.170 schwarze 592: moptions(int *options, char *arg)
1.10 kristaps 593: {
594:
1.180 schwarze 595: if (arg == NULL)
596: /* nothing to do */;
597: else if (0 == strcmp(arg, "doc"))
1.170 schwarze 598: *options |= MPARSE_MDOC;
1.19 kristaps 599: else if (0 == strcmp(arg, "andoc"))
1.170 schwarze 600: /* nothing to do */;
1.17 kristaps 601: else if (0 == strcmp(arg, "an"))
1.170 schwarze 602: *options |= MPARSE_MAN;
1.10 kristaps 603: else {
1.176 schwarze 604: fprintf(stderr, "%s: -m%s: Bad argument\n",
605: progname, arg);
1.10 kristaps 606: return(0);
607: }
608:
609: return(1);
1.1 kristaps 610: }
611:
612: static int
1.60 kristaps 613: toptions(struct curparse *curp, char *arg)
1.1 kristaps 614: {
615:
616: if (0 == strcmp(arg, "ascii"))
1.60 kristaps 617: curp->outtype = OUTT_ASCII;
618: else if (0 == strcmp(arg, "lint")) {
619: curp->outtype = OUTT_LINT;
1.103 schwarze 620: curp->wlevel = MANDOCLEVEL_WARNING;
1.154 kristaps 621: } else if (0 == strcmp(arg, "tree"))
1.60 kristaps 622: curp->outtype = OUTT_TREE;
1.164 schwarze 623: else if (0 == strcmp(arg, "man"))
624: curp->outtype = OUTT_MAN;
1.43 kristaps 625: else if (0 == strcmp(arg, "html"))
1.60 kristaps 626: curp->outtype = OUTT_HTML;
1.163 kristaps 627: else if (0 == strcmp(arg, "utf8"))
628: curp->outtype = OUTT_UTF8;
1.162 kristaps 629: else if (0 == strcmp(arg, "locale"))
630: curp->outtype = OUTT_LOCALE;
1.59 kristaps 631: else if (0 == strcmp(arg, "xhtml"))
1.60 kristaps 632: curp->outtype = OUTT_XHTML;
1.85 kristaps 633: else if (0 == strcmp(arg, "ps"))
634: curp->outtype = OUTT_PS;
1.100 kristaps 635: else if (0 == strcmp(arg, "pdf"))
636: curp->outtype = OUTT_PDF;
1.1 kristaps 637: else {
1.176 schwarze 638: fprintf(stderr, "%s: -T%s: Bad argument\n",
639: progname, arg);
1.1 kristaps 640: return(0);
641: }
642:
643: return(1);
644: }
645:
646: static int
1.103 schwarze 647: woptions(struct curparse *curp, char *arg)
1.1 kristaps 648: {
1.34 kristaps 649: char *v, *o;
1.173 schwarze 650: const char *toks[6];
1.1 kristaps 651:
1.103 schwarze 652: toks[0] = "stop";
653: toks[1] = "all";
654: toks[2] = "warning";
655: toks[3] = "error";
656: toks[4] = "fatal";
657: toks[5] = NULL;
1.1 kristaps 658:
1.34 kristaps 659: while (*arg) {
660: o = arg;
1.45 kristaps 661: switch (getsubopt(&arg, UNCONST(toks), &v)) {
1.173 schwarze 662: case 0:
1.103 schwarze 663: curp->wstop = 1;
1.1 kristaps 664: break;
1.173 schwarze 665: case 1:
1.103 schwarze 666: /* FALLTHROUGH */
1.173 schwarze 667: case 2:
1.103 schwarze 668: curp->wlevel = MANDOCLEVEL_WARNING;
1.1 kristaps 669: break;
1.173 schwarze 670: case 3:
1.103 schwarze 671: curp->wlevel = MANDOCLEVEL_ERROR;
1.24 kristaps 672: break;
1.173 schwarze 673: case 4:
1.103 schwarze 674: curp->wlevel = MANDOCLEVEL_FATAL;
1.50 kristaps 675: break;
1.1 kristaps 676: default:
1.176 schwarze 677: fprintf(stderr, "%s: -W%s: Bad argument\n",
678: progname, o);
1.1 kristaps 679: return(0);
680: }
1.34 kristaps 681: }
1.1 kristaps 682:
683: return(1);
684: }
685:
1.153 kristaps 686: static void
1.173 schwarze 687: mmsg(enum mandocerr t, enum mandoclevel lvl,
1.155 kristaps 688: const char *file, int line, int col, const char *msg)
1.71 kristaps 689: {
1.177 schwarze 690: const char *mparse_msg;
1.103 schwarze 691:
1.175 schwarze 692: fprintf(stderr, "%s: %s:", progname, file);
693:
694: if (line)
695: fprintf(stderr, "%d:%d:", line, col + 1);
696:
1.177 schwarze 697: fprintf(stderr, " %s", mparse_strlevel(lvl));
698:
699: if (NULL != (mparse_msg = mparse_strerror(t)))
700: fprintf(stderr, ": %s", mparse_msg);
1.154 kristaps 701:
1.73 kristaps 702: if (msg)
703: fprintf(stderr, ": %s", msg);
1.154 kristaps 704:
1.73 kristaps 705: fputc('\n', stderr);
1.183 schwarze 706: }
707:
708: static void
709: spawn_pager(void)
710: {
1.184 schwarze 711: #define MAX_PAGER_ARGS 16
712: char *argv[MAX_PAGER_ARGS];
713: const char *pager;
714: char *cp;
715: int fildes[2];
716: int argc;
1.183 schwarze 717:
718: if (pipe(fildes) == -1) {
719: fprintf(stderr, "%s: pipe: %s\n",
720: progname, strerror(errno));
721: return;
722: }
723:
724: switch (fork()) {
725: case -1:
726: fprintf(stderr, "%s: fork: %s\n",
727: progname, strerror(errno));
728: exit((int)MANDOCLEVEL_SYSERR);
729: case 0:
730: close(fildes[0]);
731: if (dup2(fildes[1], STDOUT_FILENO) == -1) {
732: fprintf(stderr, "%s: dup output: %s\n",
733: progname, strerror(errno));
734: exit((int)MANDOCLEVEL_SYSERR);
735: }
736: return;
737: default:
1.184 schwarze 738: break;
739: }
740:
741: /* The original process becomes the pager. */
742:
743: close(fildes[1]);
744: if (dup2(fildes[0], STDIN_FILENO) == -1) {
745: fprintf(stderr, "%s: dup input: %s\n",
746: progname, strerror(errno));
1.183 schwarze 747: exit((int)MANDOCLEVEL_SYSERR);
748: }
1.184 schwarze 749:
750: pager = getenv("MANPAGER");
751: if (pager == NULL || *pager == '\0')
752: pager = getenv("PAGER");
753: if (pager == NULL || *pager == '\0')
754: pager = "/usr/bin/more -s";
755: cp = mandoc_strdup(pager);
756:
757: /*
758: * Parse the pager command into words.
759: * Intentionally do not do anything fancy here.
760: */
761:
762: argc = 0;
763: while (argc + 1 < MAX_PAGER_ARGS) {
764: argv[argc++] = cp;
765: cp = strchr(cp, ' ');
766: if (cp == NULL)
767: break;
768: *cp++ = '\0';
769: while (*cp == ' ')
770: cp++;
771: if (*cp == '\0')
772: break;
773: }
774: argv[argc] = NULL;
775:
776: /* Hand over to the pager. */
777:
778: execvp(argv[0], argv);
779: fprintf(stderr, "%s: exec: %s\n",
780: progname, strerror(errno));
781: exit((int)MANDOCLEVEL_SYSERR);
1.71 kristaps 782: }
CVSweb