version 1.59, 2011/01/12 16:55:22 |
version 1.74, 2011/09/04 09:58:40 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2008, 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
|
* Copyright (c) 2010 Ingo Schwarze <schwarze@openbsd.org> |
* |
* |
* Permission to use, copy, modify, and distribute this software for any |
* Permission to use, copy, modify, and distribute this software for any |
* purpose with or without fee is hereby granted, provided that the above |
* purpose with or without fee is hereby granted, provided that the above |
|
|
#include <string.h> |
#include <string.h> |
#include <time.h> |
#include <time.h> |
|
|
|
#include "man.h" |
#include "mandoc.h" |
#include "mandoc.h" |
#include "libman.h" |
#include "libman.h" |
#include "libmandoc.h" |
#include "libmandoc.h" |
Line 44 struct man_valid { |
|
Line 46 struct man_valid { |
|
|
|
static int check_bline(CHKARGS); |
static int check_bline(CHKARGS); |
static int check_eq0(CHKARGS); |
static int check_eq0(CHKARGS); |
static int check_ft(CHKARGS); |
|
static int check_le1(CHKARGS); |
static int check_le1(CHKARGS); |
static int check_ge2(CHKARGS); |
static int check_ge2(CHKARGS); |
static int check_le5(CHKARGS); |
static int check_le5(CHKARGS); |
static int check_par(CHKARGS); |
static int check_par(CHKARGS); |
static int check_part(CHKARGS); |
static int check_part(CHKARGS); |
static int check_root(CHKARGS); |
static int check_root(CHKARGS); |
static int check_sec(CHKARGS); |
|
static int check_text(CHKARGS); |
|
static int check_title(CHKARGS); |
|
|
|
static int post_AT(CHKARGS); |
static int post_AT(CHKARGS); |
|
static int post_vs(CHKARGS); |
static int post_fi(CHKARGS); |
static int post_fi(CHKARGS); |
|
static int post_ft(CHKARGS); |
static int post_nf(CHKARGS); |
static int post_nf(CHKARGS); |
|
static int post_sec(CHKARGS); |
static int post_TH(CHKARGS); |
static int post_TH(CHKARGS); |
static int post_UC(CHKARGS); |
static int post_UC(CHKARGS); |
|
static int pre_sec(CHKARGS); |
|
|
static v_check posts_at[] = { post_AT, NULL }; |
static v_check posts_at[] = { post_AT, NULL }; |
|
static v_check posts_br[] = { post_vs, check_eq0, NULL }; |
static v_check posts_eq0[] = { check_eq0, NULL }; |
static v_check posts_eq0[] = { check_eq0, NULL }; |
static v_check posts_fi[] = { check_eq0, post_fi, NULL }; |
static v_check posts_fi[] = { check_eq0, post_fi, NULL }; |
static v_check posts_le1[] = { check_le1, NULL }; |
static v_check posts_ft[] = { post_ft, NULL }; |
static v_check posts_ft[] = { check_ft, NULL }; |
|
static v_check posts_nf[] = { check_eq0, post_nf, NULL }; |
static v_check posts_nf[] = { check_eq0, post_nf, NULL }; |
static v_check posts_par[] = { check_par, NULL }; |
static v_check posts_par[] = { check_par, NULL }; |
static v_check posts_part[] = { check_part, NULL }; |
static v_check posts_part[] = { check_part, NULL }; |
static v_check posts_sec[] = { check_sec, NULL }; |
static v_check posts_sec[] = { post_sec, NULL }; |
static v_check posts_th[] = { check_ge2, check_le5, check_title, post_TH, NULL }; |
static v_check posts_sp[] = { post_vs, check_le1, NULL }; |
|
static v_check posts_th[] = { check_ge2, check_le5, post_TH, NULL }; |
static v_check posts_uc[] = { post_UC, NULL }; |
static v_check posts_uc[] = { post_UC, NULL }; |
static v_check pres_bline[] = { check_bline, NULL }; |
static v_check pres_bline[] = { check_bline, NULL }; |
|
static v_check pres_sec[] = { check_bline, pre_sec, NULL}; |
|
|
|
|
static const struct man_valid man_valids[MAN_MAX] = { |
static const struct man_valid man_valids[MAN_MAX] = { |
{ NULL, posts_eq0 }, /* br */ |
{ NULL, posts_br }, /* br */ |
{ pres_bline, posts_th }, /* TH */ |
{ pres_bline, posts_th }, /* TH */ |
{ pres_bline, posts_sec }, /* SH */ |
{ pres_sec, posts_sec }, /* SH */ |
{ pres_bline, posts_sec }, /* SS */ |
{ pres_sec, posts_sec }, /* SS */ |
{ pres_bline, NULL }, /* TP */ |
{ pres_bline, NULL }, /* TP */ |
{ pres_bline, posts_par }, /* LP */ |
{ pres_bline, posts_par }, /* LP */ |
{ pres_bline, posts_par }, /* PP */ |
{ pres_bline, posts_par }, /* PP */ |
Line 98 static const struct man_valid man_valids[MAN_MAX] = { |
|
Line 101 static const struct man_valid man_valids[MAN_MAX] = { |
|
{ NULL, NULL }, /* IR */ |
{ NULL, NULL }, /* IR */ |
{ NULL, NULL }, /* RI */ |
{ NULL, NULL }, /* RI */ |
{ NULL, posts_eq0 }, /* na */ /* FIXME: should warn only. */ |
{ NULL, posts_eq0 }, /* na */ /* FIXME: should warn only. */ |
{ NULL, posts_le1 }, /* sp */ /* FIXME: should warn only. */ |
{ NULL, posts_sp }, /* sp */ /* FIXME: should warn only. */ |
{ pres_bline, posts_nf }, /* nf */ |
{ pres_bline, posts_nf }, /* nf */ |
{ pres_bline, posts_fi }, /* fi */ |
{ pres_bline, posts_fi }, /* fi */ |
{ NULL, NULL }, /* RE */ |
{ NULL, NULL }, /* RE */ |
Line 122 man_valid_pre(struct man *m, struct man_node *n) |
|
Line 125 man_valid_pre(struct man *m, struct man_node *n) |
|
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
case (MAN_ROOT): |
case (MAN_ROOT): |
/* FALLTHROUGH */ |
/* FALLTHROUGH */ |
|
case (MAN_EQN): |
|
/* FALLTHROUGH */ |
case (MAN_TBL): |
case (MAN_TBL): |
return(1); |
return(1); |
default: |
default: |
Line 147 man_valid_post(struct man *m) |
|
Line 152 man_valid_post(struct man *m) |
|
m->last->flags |= MAN_VALID; |
m->last->flags |= MAN_VALID; |
|
|
switch (m->last->type) { |
switch (m->last->type) { |
case (MAN_TEXT): |
|
return(check_text(m, m->last)); |
|
case (MAN_ROOT): |
case (MAN_ROOT): |
return(check_root(m, m->last)); |
return(check_root(m, m->last)); |
|
case (MAN_TEXT): |
|
/* FALLTHROUGH */ |
|
case (MAN_EQN): |
|
/* FALLTHROUGH */ |
case (MAN_TBL): |
case (MAN_TBL): |
return(1); |
return(1); |
default: |
default: |
Line 191 check_root(CHKARGS) |
|
Line 198 check_root(CHKARGS) |
|
*/ |
*/ |
|
|
m->meta.title = mandoc_strdup("unknown"); |
m->meta.title = mandoc_strdup("unknown"); |
m->meta.date = time(NULL); |
|
m->meta.msec = mandoc_strdup("1"); |
m->meta.msec = mandoc_strdup("1"); |
|
m->meta.date = mandoc_normdate |
|
(m->parse, NULL, n->line, n->pos); |
} |
} |
|
|
return(1); |
return(1); |
} |
} |
|
|
|
|
static int |
|
check_title(CHKARGS) |
|
{ |
|
const char *p; |
|
|
|
assert(n->child); |
|
/* FIXME: is this sufficient? */ |
|
if ('\0' == *n->child->string) { |
|
man_nmsg(m, n, MANDOCERR_SYNTARGCOUNT); |
|
return(0); |
|
} |
|
|
|
for (p = n->child->string; '\0' != *p; p++) |
|
/* Only warn about this once... */ |
|
if (isalpha((u_char)*p) && ! isupper((u_char)*p)) { |
|
man_nmsg(m, n, MANDOCERR_UPPERCASE); |
|
break; |
|
} |
|
|
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
check_text(CHKARGS) |
|
{ |
|
char *p; |
|
int pos, c; |
|
size_t sz; |
|
|
|
for (p = n->string, pos = n->pos + 1; *p; p++, pos++) { |
|
sz = strcspn(p, "\t\\"); |
|
p += (int)sz; |
|
|
|
if ('\0' == *p) |
|
break; |
|
|
|
pos += (int)sz; |
|
|
|
if ('\t' == *p) { |
|
if (MAN_LITERAL & m->flags) |
|
continue; |
|
if (man_pmsg(m, n->line, pos, MANDOCERR_BADTAB)) |
|
continue; |
|
return(0); |
|
} |
|
|
|
/* Check the special character. */ |
|
|
|
c = mandoc_special(p); |
|
if (c) { |
|
p += c - 1; |
|
pos += c - 1; |
|
} else |
|
man_pmsg(m, n->line, pos, MANDOCERR_BADESCAPE); |
|
} |
|
|
|
return(1); |
|
} |
|
|
|
|
|
#define INEQ_DEFINE(x, ineq, name) \ |
#define INEQ_DEFINE(x, ineq, name) \ |
static int \ |
static int \ |
check_##name(CHKARGS) \ |
check_##name(CHKARGS) \ |
{ \ |
{ \ |
if (n->nchild ineq (x)) \ |
if (n->nchild ineq (x)) \ |
return(1); \ |
return(1); \ |
man_vmsg(m, MANDOCERR_SYNTARGCOUNT, n->line, n->pos, \ |
mandoc_vmsg(MANDOCERR_ARGCOUNT, m->parse, n->line, n->pos, \ |
"line arguments %s %d (have %d)", \ |
"line arguments %s %d (have %d)", \ |
#ineq, (x), n->nchild); \ |
#ineq, (x), n->nchild); \ |
return(0); \ |
return(1); \ |
} |
} |
|
|
INEQ_DEFINE(0, ==, eq0) |
INEQ_DEFINE(0, ==, eq0) |
Line 278 INEQ_DEFINE(2, >=, ge2) |
|
Line 224 INEQ_DEFINE(2, >=, ge2) |
|
INEQ_DEFINE(5, <=, le5) |
INEQ_DEFINE(5, <=, le5) |
|
|
static int |
static int |
check_ft(CHKARGS) |
post_ft(CHKARGS) |
{ |
{ |
char *cp; |
char *cp; |
int ok; |
int ok; |
Line 318 check_ft(CHKARGS) |
|
Line 264 check_ft(CHKARGS) |
|
} |
} |
|
|
if (0 == ok) { |
if (0 == ok) { |
man_vmsg(m, MANDOCERR_BADFONT, |
mandoc_vmsg |
n->line, n->pos, "%s", cp); |
(MANDOCERR_BADFONT, m->parse, |
|
n->line, n->pos, "%s", cp); |
*cp = '\0'; |
*cp = '\0'; |
} |
} |
|
|
if (1 < n->nchild) |
if (1 < n->nchild) |
man_vmsg(m, MANDOCERR_ARGCOUNT, n->line, n->pos, |
mandoc_vmsg |
"want one child (have %d)", n->nchild); |
(MANDOCERR_ARGCOUNT, m->parse, n->line, |
|
n->pos, "want one child (have %d)", |
|
n->nchild); |
|
|
return(1); |
return(1); |
} |
} |
|
|
static int |
static int |
check_sec(CHKARGS) |
pre_sec(CHKARGS) |
{ |
{ |
|
|
if (MAN_HEAD == n->type && 0 == n->nchild) { |
if (MAN_BLOCK == n->type) |
man_nmsg(m, n, MANDOCERR_SYNTARGCOUNT); |
m->flags &= ~MAN_LITERAL; |
return(0); |
|
} else if (MAN_BODY == n->type && 0 == n->nchild) |
|
man_nmsg(m, n, MANDOCERR_NOBODY); |
|
|
|
return(1); |
return(1); |
} |
} |
|
|
|
static int |
|
post_sec(CHKARGS) |
|
{ |
|
|
|
if ( ! (MAN_HEAD == n->type && 0 == n->nchild)) |
|
return(1); |
|
|
|
man_nmsg(m, n, MANDOCERR_SYNTARGCOUNT); |
|
return(0); |
|
} |
|
|
static int |
static int |
check_part(CHKARGS) |
check_part(CHKARGS) |
{ |
{ |
|
|
if (MAN_BODY == n->type && 0 == n->nchild) |
if (MAN_BODY == n->type && 0 == n->nchild) |
man_nmsg(m, n, MANDOCERR_NOBODY); |
mandoc_msg(MANDOCERR_ARGCWARN, m->parse, n->line, |
|
n->pos, "want children (have none)"); |
|
|
return(1); |
return(1); |
} |
} |
Line 396 check_bline(CHKARGS) |
|
Line 352 check_bline(CHKARGS) |
|
static int |
static int |
post_TH(CHKARGS) |
post_TH(CHKARGS) |
{ |
{ |
|
const char *p; |
|
int line, pos; |
|
|
if (m->meta.title) |
if (m->meta.title) |
free(m->meta.title); |
free(m->meta.title); |
Line 405 post_TH(CHKARGS) |
|
Line 363 post_TH(CHKARGS) |
|
free(m->meta.source); |
free(m->meta.source); |
if (m->meta.msec) |
if (m->meta.msec) |
free(m->meta.msec); |
free(m->meta.msec); |
if (m->meta.rawdate) |
if (m->meta.date) |
free(m->meta.rawdate); |
free(m->meta.date); |
|
|
m->meta.title = m->meta.vol = m->meta.rawdate = |
line = n->line; |
|
pos = n->pos; |
|
m->meta.title = m->meta.vol = m->meta.date = |
m->meta.msec = m->meta.source = NULL; |
m->meta.msec = m->meta.source = NULL; |
m->meta.date = 0; |
|
|
|
/* ->TITLE<- MSEC DATE SOURCE VOL */ |
/* ->TITLE<- MSEC DATE SOURCE VOL */ |
|
|
n = n->child; |
n = n->child; |
assert(n); |
if (n && n->string) { |
m->meta.title = mandoc_strdup(n->string); |
for (p = n->string; '\0' != *p; p++) { |
|
/* Only warn about this once... */ |
|
if (isalpha((unsigned char)*p) && |
|
! isupper((unsigned char)*p)) { |
|
man_nmsg(m, n, MANDOCERR_UPPERCASE); |
|
break; |
|
} |
|
} |
|
m->meta.title = mandoc_strdup(n->string); |
|
} else |
|
m->meta.title = mandoc_strdup(""); |
|
|
/* TITLE ->MSEC<- DATE SOURCE VOL */ |
/* TITLE ->MSEC<- DATE SOURCE VOL */ |
|
|
n = n->next; |
if (n) |
assert(n); |
n = n->next; |
m->meta.msec = mandoc_strdup(n->string); |
if (n && n->string) |
|
m->meta.msec = mandoc_strdup(n->string); |
|
else |
|
m->meta.msec = mandoc_strdup(""); |
|
|
/* TITLE MSEC ->DATE<- SOURCE VOL */ |
/* TITLE MSEC ->DATE<- SOURCE VOL */ |
|
|
/* |
if (n) |
* Try to parse the date. If this works, stash the epoch (this |
n = n->next; |
* is optimal because we can reformat it in the canonical form). |
if (n) |
* If it doesn't parse, isn't specified at all, or is an empty |
pos = n->pos; |
* string, then use the current date. |
m->meta.date = mandoc_normdate |
*/ |
(m->parse, n ? n->string : NULL, line, pos); |
|
|
n = n->next; |
|
if (n && n->string && *n->string) { |
|
m->meta.date = mandoc_a2time |
|
(MTIME_ISO_8601, n->string); |
|
if (0 == m->meta.date) { |
|
man_nmsg(m, n, MANDOCERR_BADDATE); |
|
m->meta.rawdate = mandoc_strdup(n->string); |
|
} |
|
} else |
|
m->meta.date = time(NULL); |
|
|
|
/* TITLE MSEC DATE ->SOURCE<- VOL */ |
/* TITLE MSEC DATE ->SOURCE<- VOL */ |
|
|
if (n && (n = n->next)) |
if (n && (n = n->next)) |
Line 562 post_AT(CHKARGS) |
|
Line 523 post_AT(CHKARGS) |
|
free(m->meta.source); |
free(m->meta.source); |
|
|
m->meta.source = mandoc_strdup(p); |
m->meta.source = mandoc_strdup(p); |
|
return(1); |
|
} |
|
|
|
static int |
|
post_vs(CHKARGS) |
|
{ |
|
|
|
/* |
|
* Don't warn about this because it occurs in pod2man and would |
|
* cause considerable (unfixable) warnage. |
|
*/ |
|
if (NULL == n->prev && MAN_ROOT == n->parent->type) |
|
man_node_delete(m, n); |
|
|
return(1); |
return(1); |
} |
} |