version 1.2, 2011/09/01 10:47:47 |
version 1.26, 2016/01/08 02:53:13 |
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
*/ |
*/ |
#ifdef HAVE_CONFIG_H |
|
#include "config.h" |
#include "config.h" |
#endif |
|
|
|
|
#include <sys/types.h> |
|
|
#include <assert.h> |
#include <assert.h> |
|
#include <ctype.h> |
#include <getopt.h> |
#include <getopt.h> |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
#include <string.h> |
#include <string.h> |
#include <unistd.h> |
#include <unistd.h> |
|
|
|
#include "roff.h" |
#include "man.h" |
#include "man.h" |
#include "mdoc.h" |
#include "mdoc.h" |
#include "mandoc.h" |
#include "mandoc.h" |
|
|
static void pline(int, int *, int *); |
static void pline(int, int *, int *, int); |
static void pman(const struct man_node *, int *, int *); |
static void pman(const struct roff_node *, int *, int *, int); |
static void pmandoc(struct mparse *, int, const char *); |
static void pmandoc(struct mparse *, int, const char *, int); |
static void pmdoc(const struct mdoc_node *, int *, int *); |
static void pmdoc(const struct roff_node *, int *, int *, int); |
static void pstring(const char *, int, int *); |
static void pstring(const char *, int, int *, int); |
static void usage(void); |
static void usage(void); |
|
|
static const char *progname; |
static const char *progname; |
|
|
main(int argc, char *argv[]) |
main(int argc, char *argv[]) |
{ |
{ |
struct mparse *mp; |
struct mparse *mp; |
int ch, i; |
int ch, fd, i, list; |
extern int optind; |
extern int optind; |
extern char *optarg; |
|
|
|
progname = strrchr(argv[0], '/'); |
if (argc < 1) |
if (progname == NULL) |
progname = "demandoc"; |
|
else if ((progname = strrchr(argv[0], '/')) == NULL) |
progname = argv[0]; |
progname = argv[0]; |
else |
else |
++progname; |
++progname; |
|
|
mp = NULL; |
mp = NULL; |
|
list = 0; |
|
|
while (-1 != (ch = getopt(argc, argv, ""))) |
while (-1 != (ch = getopt(argc, argv, "ikm:pw"))) |
switch (ch) { |
switch (ch) { |
|
case ('i'): |
|
/* FALLTHROUGH */ |
|
case ('k'): |
|
/* FALLTHROUGH */ |
|
case ('m'): |
|
/* FALLTHROUGH */ |
|
case ('p'): |
|
break; |
|
case ('w'): |
|
list = 1; |
|
break; |
default: |
default: |
usage(); |
usage(); |
return((int)MANDOCLEVEL_BADARG); |
return (int)MANDOCLEVEL_BADARG; |
} |
} |
|
|
argc -= optind; |
argc -= optind; |
argv += optind; |
argv += optind; |
|
|
mp = mparse_alloc(MPARSE_AUTO, MANDOCLEVEL_FATAL, NULL, NULL); |
mchars_alloc(); |
|
mp = mparse_alloc(MPARSE_SO, MANDOCLEVEL_BADARG, NULL, NULL); |
assert(mp); |
assert(mp); |
|
|
if (0 == argc) |
if (argc < 1) |
pmandoc(mp, STDIN_FILENO, "<stdin>"); |
pmandoc(mp, STDIN_FILENO, "<stdin>", list); |
|
|
for (i = 0; i < argc; i++) { |
for (i = 0; i < argc; i++) { |
mparse_reset(mp); |
mparse_reset(mp); |
pmandoc(mp, -1, argv[i]); |
if ((fd = mparse_open(mp, argv[i])) == -1) { |
|
perror(argv[i]); |
|
continue; |
|
} |
|
pmandoc(mp, fd, argv[i], list); |
} |
} |
|
|
mparse_free(mp); |
mparse_free(mp); |
return(MANDOCLEVEL_OK); |
mchars_free(); |
|
return (int)MANDOCLEVEL_OK; |
} |
} |
|
|
static void |
static void |
usage(void) |
usage(void) |
{ |
{ |
|
|
fprintf(stderr, "usage: %s [files...]\n", progname); |
fprintf(stderr, "usage: %s [-w] [files...]\n", progname); |
} |
} |
|
|
static void |
static void |
pmandoc(struct mparse *mp, int fd, const char *fn) |
pmandoc(struct mparse *mp, int fd, const char *fn, int list) |
{ |
{ |
struct mdoc *mdoc; |
struct roff_man *man; |
struct man *man; |
|
int line, col; |
int line, col; |
|
|
if (mparse_readfd(mp, fd, fn) >= MANDOCLEVEL_FATAL) { |
mparse_readfd(mp, fd, fn); |
fprintf(stderr, "%s: Parse failure\n", fn); |
close(fd); |
return; |
mparse_result(mp, &man, NULL); |
} |
|
|
|
mparse_result(mp, &mdoc, &man); |
|
line = 1; |
line = 1; |
col = 0; |
col = 0; |
|
|
if (mdoc) |
if (man == NULL) |
pmdoc(mdoc_node(mdoc), &line, &col); |
|
else if (man) |
|
pman(man_node(man), &line, &col); |
|
else |
|
return; |
return; |
|
if (man->macroset == MACROSET_MDOC) { |
|
mdoc_validate(man); |
|
pmdoc(man->first->child, &line, &col, list); |
|
} else { |
|
man_validate(man); |
|
pman(man->first->child, &line, &col, list); |
|
} |
|
|
putchar('\n'); |
if ( ! list) |
|
putchar('\n'); |
} |
} |
|
|
/* |
/* |
* Strip the escapes out of a string, emitting the results. |
* Strip the escapes out of a string, emitting the results. |
*/ |
*/ |
static void |
static void |
pstring(const char *p, int col, int *colp) |
pstring(const char *p, int col, int *colp, int list) |
{ |
{ |
enum mandoc_esc esc; |
enum mandoc_esc esc; |
|
const char *start, *end; |
|
int emit; |
|
|
|
/* |
|
* Print as many column spaces til we achieve parity with the |
|
* input document. |
|
*/ |
|
|
|
again: |
|
if (list && '\0' != *p) { |
|
while (isspace((unsigned char)*p)) |
|
p++; |
|
|
|
while ('\'' == *p || '(' == *p || '"' == *p) |
|
p++; |
|
|
|
emit = isalpha((unsigned char)p[0]) && |
|
isalpha((unsigned char)p[1]); |
|
|
|
for (start = p; '\0' != *p; p++) |
|
if ('\\' == *p) { |
|
p++; |
|
esc = mandoc_escape(&p, NULL, NULL); |
|
if (ESCAPE_ERROR == esc) |
|
return; |
|
emit = 0; |
|
} else if (isspace((unsigned char)*p)) |
|
break; |
|
|
|
end = p - 1; |
|
|
|
while (end > start) |
|
if ('.' == *end || ',' == *end || |
|
'\'' == *end || '"' == *end || |
|
')' == *end || '!' == *end || |
|
'?' == *end || ':' == *end || |
|
';' == *end) |
|
end--; |
|
else |
|
break; |
|
|
|
if (emit && end - start >= 1) { |
|
for ( ; start <= end; start++) |
|
if (ASCII_HYPH == *start) |
|
putchar('-'); |
|
else |
|
putchar((unsigned char)*start); |
|
putchar('\n'); |
|
} |
|
|
|
if (isspace((unsigned char)*p)) |
|
goto again; |
|
|
|
return; |
|
} |
|
|
while (*colp < col) { |
while (*colp < col) { |
putchar(' '); |
putchar(' '); |
(*colp)++; |
(*colp)++; |
} |
} |
|
|
while ('\0' != *p) { |
/* |
|
* Print the input word, skipping any special characters. |
|
*/ |
|
while ('\0' != *p) |
if ('\\' == *p) { |
if ('\\' == *p) { |
p++; |
p++; |
esc = mandoc_escape(&p, NULL, NULL); |
esc = mandoc_escape(&p, NULL, NULL); |
if (ESCAPE_ERROR == esc) |
if (ESCAPE_ERROR == esc) |
return; |
break; |
} else { |
} else { |
putchar(*p++); |
putchar((unsigned char )*p++); |
(*colp)++; |
(*colp)++; |
} |
} |
} |
|
} |
} |
|
|
/* |
|
* Emit lines until we're in sync with our input. |
|
*/ |
|
static void |
static void |
pline(int line, int *linep, int *col) |
pline(int line, int *linep, int *col, int list) |
{ |
{ |
|
|
|
if (list) |
|
return; |
|
|
|
/* |
|
* Print out as many lines as needed to reach parity with the |
|
* original input. |
|
*/ |
|
|
while (*linep < line) { |
while (*linep < line) { |
putchar('\n'); |
putchar('\n'); |
(*linep)++; |
(*linep)++; |
} |
} |
|
|
*col = 0; |
*col = 0; |
} |
} |
|
|
static void |
static void |
pmdoc(const struct mdoc_node *p, int *line, int *col) |
pmdoc(const struct roff_node *p, int *line, int *col, int list) |
{ |
{ |
|
|
for ( ; p; p = p->next) { |
for ( ; p; p = p->next) { |
if (MDOC_LINE & p->flags) |
if (MDOC_LINE & p->flags) |
pline(p->line, line, col); |
pline(p->line, line, col, list); |
if (MDOC_TEXT == p->type) |
if (ROFFT_TEXT == p->type) |
pstring(p->string, p->pos, col); |
pstring(p->string, p->pos, col, list); |
if (p->child) |
if (p->child) |
pmdoc(p->child, line, col); |
pmdoc(p->child, line, col, list); |
} |
} |
} |
} |
|
|
static void |
static void |
pman(const struct man_node *p, int *line, int *col) |
pman(const struct roff_node *p, int *line, int *col, int list) |
{ |
{ |
|
|
for ( ; p; p = p->next) { |
for ( ; p; p = p->next) { |
if (MAN_LINE & p->flags) |
if (MAN_LINE & p->flags) |
pline(p->line, line, col); |
pline(p->line, line, col, list); |
if (MAN_TEXT == p->type) |
if (ROFFT_TEXT == p->type) |
pstring(p->string, p->pos, col); |
pstring(p->string, p->pos, col, list); |
if (p->child) |
if (p->child) |
pman(p->child, line, col); |
pman(p->child, line, col, list); |
} |
} |
} |
} |