1 /* $OpenBSD$ */
2 /*
3 * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4 * Copyright (c) 2010, 2012-2017 Ingo Schwarze <schwarze@openbsd.org>
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 *
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR
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 */
18 #include "config.h"
19
20 #include <sys/types.h>
21
22 #include <assert.h>
23 #include <ctype.h>
24 #include <errno.h>
25 #include <limits.h>
26 #include <stdarg.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #include <time.h>
30
31 #include "mandoc_aux.h"
32 #include "mandoc.h"
33 #include "roff.h"
34 #include "man.h"
35 #include "libmandoc.h"
36 #include "roff_int.h"
37 #include "libman.h"
38
39 #define CHKARGS struct roff_man *man, struct roff_node *n
40
41 typedef void (*v_check)(CHKARGS);
42
43 static void check_par(CHKARGS);
44 static void check_part(CHKARGS);
45 static void check_root(CHKARGS);
46 static void check_text(CHKARGS);
47
48 static void post_AT(CHKARGS);
49 static void post_IP(CHKARGS);
50 static void post_OP(CHKARGS);
51 static void post_TH(CHKARGS);
52 static void post_UC(CHKARGS);
53 static void post_UR(CHKARGS);
54 static void post_in(CHKARGS);
55 static void post_vs(CHKARGS);
56
57 static const v_check __man_valids[MAN_MAX - MAN_TH] = {
58 post_TH, /* TH */
59 NULL, /* SH */
60 NULL, /* SS */
61 NULL, /* TP */
62 check_par, /* LP */
63 check_par, /* PP */
64 check_par, /* P */
65 post_IP, /* IP */
66 NULL, /* HP */
67 NULL, /* SM */
68 NULL, /* SB */
69 NULL, /* BI */
70 NULL, /* IB */
71 NULL, /* BR */
72 NULL, /* RB */
73 NULL, /* R */
74 NULL, /* B */
75 NULL, /* I */
76 NULL, /* IR */
77 NULL, /* RI */
78 NULL, /* nf */
79 NULL, /* fi */
80 NULL, /* RE */
81 check_part, /* RS */
82 NULL, /* DT */
83 post_UC, /* UC */
84 NULL, /* PD */
85 post_AT, /* AT */
86 post_in, /* in */
87 post_OP, /* OP */
88 NULL, /* EX */
89 NULL, /* EE */
90 post_UR, /* UR */
91 NULL, /* UE */
92 post_UR, /* MT */
93 NULL, /* ME */
94 };
95 static const v_check *man_valids = __man_valids - MAN_TH;
96
97
98 void
99 man_node_validate(struct roff_man *man)
100 {
101 struct roff_node *n;
102 const v_check *cp;
103
104 n = man->last;
105 man->last = man->last->child;
106 while (man->last != NULL) {
107 man_node_validate(man);
108 if (man->last == n)
109 man->last = man->last->child;
110 else
111 man->last = man->last->next;
112 }
113
114 man->last = n;
115 man->next = ROFF_NEXT_SIBLING;
116 switch (n->type) {
117 case ROFFT_TEXT:
118 check_text(man, n);
119 break;
120 case ROFFT_ROOT:
121 check_root(man, n);
122 break;
123 case ROFFT_EQN:
124 case ROFFT_TBL:
125 break;
126 default:
127 if (n->tok < ROFF_MAX) {
128 switch (n->tok) {
129 case ROFF_br:
130 case ROFF_sp:
131 post_vs(man, n);
132 break;
133 default:
134 roff_validate(man);
135 break;
136 }
137 break;
138 }
139 assert(n->tok >= MAN_TH && n->tok < MAN_MAX);
140 cp = man_valids + n->tok;
141 if (*cp)
142 (*cp)(man, n);
143 if (man->last == n)
144 man_state(man, n);
145 break;
146 }
147 }
148
149 static void
150 check_root(CHKARGS)
151 {
152
153 assert((man->flags & (MAN_BLINE | MAN_ELINE)) == 0);
154
155 if (NULL == man->first->child)
156 mandoc_msg(MANDOCERR_DOC_EMPTY, man->parse,
157 n->line, n->pos, NULL);
158 else
159 man->meta.hasbody = 1;
160
161 if (NULL == man->meta.title) {
162 mandoc_msg(MANDOCERR_TH_NOTITLE, man->parse,
163 n->line, n->pos, NULL);
164
165 /*
166 * If a title hasn't been set, do so now (by
167 * implication, date and section also aren't set).
168 */
169
170 man->meta.title = mandoc_strdup("");
171 man->meta.msec = mandoc_strdup("");
172 man->meta.date = man->quick ? mandoc_strdup("") :
173 mandoc_normdate(man, NULL, n->line, n->pos);
174 }
175
176 if (man->meta.os_e &&
177 (man->meta.rcsids & (1 << man->meta.os_e)) == 0)
178 mandoc_msg(MANDOCERR_RCS_MISSING, man->parse, 0, 0,
179 man->meta.os_e == MANDOC_OS_OPENBSD ?
180 "(OpenBSD)" : "(NetBSD)");
181 }
182
183 static void
184 check_text(CHKARGS)
185 {
186 char *cp, *p;
187
188 if (MAN_LITERAL & man->flags)
189 return;
190
191 cp = n->string;
192 for (p = cp; NULL != (p = strchr(p, '\t')); p++)
193 mandoc_msg(MANDOCERR_FI_TAB, man->parse,
194 n->line, n->pos + (p - cp), NULL);
195 }
196
197 static void
198 post_OP(CHKARGS)
199 {
200
201 if (n->child == NULL)
202 mandoc_msg(MANDOCERR_OP_EMPTY, man->parse,
203 n->line, n->pos, "OP");
204 else if (n->child->next != NULL && n->child->next->next != NULL) {
205 n = n->child->next->next;
206 mandoc_vmsg(MANDOCERR_ARG_EXCESS, man->parse,
207 n->line, n->pos, "OP ... %s", n->string);
208 }
209 }
210
211 static void
212 post_UR(CHKARGS)
213 {
214 if (n->type == ROFFT_HEAD && n->child == NULL)
215 mandoc_msg(MANDOCERR_UR_NOHEAD, man->parse,
216 n->line, n->pos, roff_name[n->tok]);
217 check_part(man, n);
218 }
219
220 static void
221 check_part(CHKARGS)
222 {
223
224 if (n->type == ROFFT_BODY && n->child == NULL)
225 mandoc_msg(MANDOCERR_BLK_EMPTY, man->parse,
226 n->line, n->pos, roff_name[n->tok]);
227 }
228
229 static void
230 check_par(CHKARGS)
231 {
232
233 switch (n->type) {
234 case ROFFT_BLOCK:
235 if (n->body->child == NULL)
236 roff_node_delete(man, n);
237 break;
238 case ROFFT_BODY:
239 if (n->child == NULL)
240 mandoc_vmsg(MANDOCERR_PAR_SKIP,
241 man->parse, n->line, n->pos,
242 "%s empty", roff_name[n->tok]);
243 break;
244 case ROFFT_HEAD:
245 if (n->child != NULL)
246 mandoc_vmsg(MANDOCERR_ARG_SKIP,
247 man->parse, n->line, n->pos, "%s %s%s",
248 roff_name[n->tok], n->child->string,
249 n->child->next != NULL ? " ..." : "");
250 break;
251 default:
252 break;
253 }
254 }
255
256 static void
257 post_IP(CHKARGS)
258 {
259
260 switch (n->type) {
261 case ROFFT_BLOCK:
262 if (n->head->child == NULL && n->body->child == NULL)
263 roff_node_delete(man, n);
264 break;
265 case ROFFT_BODY:
266 if (n->parent->head->child == NULL && n->child == NULL)
267 mandoc_vmsg(MANDOCERR_PAR_SKIP,
268 man->parse, n->line, n->pos,
269 "%s empty", roff_name[n->tok]);
270 break;
271 default:
272 break;
273 }
274 }
275
276 static void
277 post_TH(CHKARGS)
278 {
279 struct roff_node *nb;
280 const char *p;
281
282 free(man->meta.title);
283 free(man->meta.vol);
284 free(man->meta.os);
285 free(man->meta.msec);
286 free(man->meta.date);
287
288 man->meta.title = man->meta.vol = man->meta.date =
289 man->meta.msec = man->meta.os = NULL;
290
291 nb = n;
292
293 /* ->TITLE<- MSEC DATE OS VOL */
294
295 n = n->child;
296 if (n && n->string) {
297 for (p = n->string; '\0' != *p; p++) {
298 /* Only warn about this once... */
299 if (isalpha((unsigned char)*p) &&
300 ! isupper((unsigned char)*p)) {
301 mandoc_vmsg(MANDOCERR_TITLE_CASE,
302 man->parse, n->line,
303 n->pos + (p - n->string),
304 "TH %s", n->string);
305 break;
306 }
307 }
308 man->meta.title = mandoc_strdup(n->string);
309 } else {
310 man->meta.title = mandoc_strdup("");
311 mandoc_msg(MANDOCERR_TH_NOTITLE, man->parse,
312 nb->line, nb->pos, "TH");
313 }
314
315 /* TITLE ->MSEC<- DATE OS VOL */
316
317 if (n)
318 n = n->next;
319 if (n && n->string)
320 man->meta.msec = mandoc_strdup(n->string);
321 else {
322 man->meta.msec = mandoc_strdup("");
323 mandoc_vmsg(MANDOCERR_MSEC_MISSING, man->parse,
324 nb->line, nb->pos, "TH %s", man->meta.title);
325 }
326
327 /* TITLE MSEC ->DATE<- OS VOL */
328
329 if (n)
330 n = n->next;
331 if (n && n->string && '\0' != n->string[0]) {
332 man->meta.date = man->quick ?
333 mandoc_strdup(n->string) :
334 mandoc_normdate(man, n->string, n->line, n->pos);
335 } else {
336 man->meta.date = mandoc_strdup("");
337 mandoc_msg(MANDOCERR_DATE_MISSING, man->parse,
338 n ? n->line : nb->line,
339 n ? n->pos : nb->pos, "TH");
340 }
341
342 /* TITLE MSEC DATE ->OS<- VOL */
343
344 if (n && (n = n->next))
345 man->meta.os = mandoc_strdup(n->string);
346 else if (man->os_s != NULL)
347 man->meta.os = mandoc_strdup(man->os_s);
348 if (man->meta.os_e == MANDOC_OS_OTHER && man->meta.os != NULL) {
349 if (strstr(man->meta.os, "OpenBSD") != NULL)
350 man->meta.os_e = MANDOC_OS_OPENBSD;
351 else if (strstr(man->meta.os, "NetBSD") != NULL)
352 man->meta.os_e = MANDOC_OS_NETBSD;
353 }
354
355 /* TITLE MSEC DATE OS ->VOL<- */
356 /* If missing, use the default VOL name for MSEC. */
357
358 if (n && (n = n->next))
359 man->meta.vol = mandoc_strdup(n->string);
360 else if ('\0' != man->meta.msec[0] &&
361 (NULL != (p = mandoc_a2msec(man->meta.msec))))
362 man->meta.vol = mandoc_strdup(p);
363
364 if (n != NULL && (n = n->next) != NULL)
365 mandoc_vmsg(MANDOCERR_ARG_EXCESS, man->parse,
366 n->line, n->pos, "TH ... %s", n->string);
367
368 /*
369 * Remove the `TH' node after we've processed it for our
370 * meta-data.
371 */
372 roff_node_delete(man, man->last);
373 }
374
375 static void
376 post_UC(CHKARGS)
377 {
378 static const char * const bsd_versions[] = {
379 "3rd Berkeley Distribution",
380 "4th Berkeley Distribution",
381 "4.2 Berkeley Distribution",
382 "4.3 Berkeley Distribution",
383 "4.4 Berkeley Distribution",
384 };
385
386 const char *p, *s;
387
388 n = n->child;
389
390 if (n == NULL || n->type != ROFFT_TEXT)
391 p = bsd_versions[0];
392 else {
393 s = n->string;
394 if (0 == strcmp(s, "3"))
395 p = bsd_versions[0];
396 else if (0 == strcmp(s, "4"))
397 p = bsd_versions[1];
398 else if (0 == strcmp(s, "5"))
399 p = bsd_versions[2];
400 else if (0 == strcmp(s, "6"))
401 p = bsd_versions[3];
402 else if (0 == strcmp(s, "7"))
403 p = bsd_versions[4];
404 else
405 p = bsd_versions[0];
406 }
407
408 free(man->meta.os);
409 man->meta.os = mandoc_strdup(p);
410 }
411
412 static void
413 post_AT(CHKARGS)
414 {
415 static const char * const unix_versions[] = {
416 "7th Edition",
417 "System III",
418 "System V",
419 "System V Release 2",
420 };
421
422 struct roff_node *nn;
423 const char *p, *s;
424
425 n = n->child;
426
427 if (n == NULL || n->type != ROFFT_TEXT)
428 p = unix_versions[0];
429 else {
430 s = n->string;
431 if (0 == strcmp(s, "3"))
432 p = unix_versions[0];
433 else if (0 == strcmp(s, "4"))
434 p = unix_versions[1];
435 else if (0 == strcmp(s, "5")) {
436 nn = n->next;
437 if (nn != NULL &&
438 nn->type == ROFFT_TEXT &&
439 nn->string[0] != '\0')
440 p = unix_versions[3];
441 else
442 p = unix_versions[2];
443 } else
444 p = unix_versions[0];
445 }
446
447 free(man->meta.os);
448 man->meta.os = mandoc_strdup(p);
449 }
450
451 static void
452 post_in(CHKARGS)
453 {
454 char *s;
455
456 if (n->parent->tok != MAN_TP ||
457 n->parent->type != ROFFT_HEAD ||
458 n->child == NULL ||
459 *n->child->string == '+' ||
460 *n->child->string == '-')
461 return;
462 mandoc_asprintf(&s, "+%s", n->child->string);
463 free(n->child->string);
464 n->child->string = s;
465 }
466
467 static void
468 post_vs(CHKARGS)
469 {
470
471 if (NULL != n->prev)
472 return;
473
474 switch (n->parent->tok) {
475 case MAN_SH:
476 case MAN_SS:
477 case MAN_PP:
478 case MAN_LP:
479 case MAN_P:
480 mandoc_vmsg(MANDOCERR_PAR_SKIP, man->parse, n->line, n->pos,
481 "%s after %s", roff_name[n->tok],
482 roff_name[n->parent->tok]);
483 /* FALLTHROUGH */
484 case TOKEN_NONE:
485 /*
486 * Don't warn about this because it occurs in pod2man
487 * and would cause considerable (unfixable) warnage.
488 */
489 roff_node_delete(man, n);
490 break;
491 default:
492 break;
493 }
494 }