2017-01-21 13:01:39 +00:00
|
|
|
/* $Id: demandoc.c,v 1.28 2017/01/10 13:47:00 schwarze Exp $ */
|
2012-10-18 09:55:16 +00:00
|
|
|
/*
|
|
|
|
* Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
|
|
|
|
*
|
|
|
|
* Permission to use, copy, modify, and distribute this software for any
|
|
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
|
|
* copyright notice and this permission notice appear in all copies.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
|
|
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
|
|
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
|
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
*/
|
|
|
|
#include "config.h"
|
2014-12-02 07:34:06 +00:00
|
|
|
|
|
|
|
#include <sys/types.h>
|
2012-10-18 09:55:16 +00:00
|
|
|
|
|
|
|
#include <assert.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <unistd.h>
|
|
|
|
|
2016-01-15 23:08:59 +00:00
|
|
|
#include "roff.h"
|
2012-10-18 09:55:16 +00:00
|
|
|
#include "man.h"
|
|
|
|
#include "mdoc.h"
|
|
|
|
#include "mandoc.h"
|
|
|
|
|
|
|
|
static void pline(int, int *, int *, int);
|
2016-01-15 23:08:59 +00:00
|
|
|
static void pman(const struct roff_node *, int *, int *, int);
|
2012-10-18 09:55:16 +00:00
|
|
|
static void pmandoc(struct mparse *, int, const char *, int);
|
2016-01-15 23:08:59 +00:00
|
|
|
static void pmdoc(const struct roff_node *, int *, int *, int);
|
2012-10-18 09:55:16 +00:00
|
|
|
static void pstring(const char *, int, int *, int);
|
|
|
|
static void usage(void);
|
|
|
|
|
|
|
|
static const char *progname;
|
|
|
|
|
|
|
|
int
|
|
|
|
main(int argc, char *argv[])
|
|
|
|
{
|
|
|
|
struct mparse *mp;
|
2015-03-02 16:45:41 +00:00
|
|
|
int ch, fd, i, list;
|
2012-10-18 09:55:16 +00:00
|
|
|
extern int optind;
|
|
|
|
|
2015-03-02 16:45:41 +00:00
|
|
|
if (argc < 1)
|
|
|
|
progname = "demandoc";
|
|
|
|
else if ((progname = strrchr(argv[0], '/')) == NULL)
|
2012-10-18 09:55:16 +00:00
|
|
|
progname = argv[0];
|
|
|
|
else
|
|
|
|
++progname;
|
|
|
|
|
|
|
|
mp = NULL;
|
|
|
|
list = 0;
|
|
|
|
|
|
|
|
while (-1 != (ch = getopt(argc, argv, "ikm:pw")))
|
|
|
|
switch (ch) {
|
|
|
|
case ('i'):
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
case ('k'):
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
case ('m'):
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
case ('p'):
|
|
|
|
break;
|
|
|
|
case ('w'):
|
|
|
|
list = 1;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
usage();
|
2016-01-15 23:08:59 +00:00
|
|
|
return (int)MANDOCLEVEL_BADARG;
|
2012-10-18 09:55:16 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
argc -= optind;
|
|
|
|
argv += optind;
|
|
|
|
|
2016-01-15 23:08:59 +00:00
|
|
|
mchars_alloc();
|
|
|
|
mp = mparse_alloc(MPARSE_SO, MANDOCLEVEL_BADARG, NULL, NULL);
|
2012-10-18 09:55:16 +00:00
|
|
|
assert(mp);
|
|
|
|
|
2015-03-02 16:45:41 +00:00
|
|
|
if (argc < 1)
|
2012-10-18 09:55:16 +00:00
|
|
|
pmandoc(mp, STDIN_FILENO, "<stdin>", list);
|
|
|
|
|
|
|
|
for (i = 0; i < argc; i++) {
|
|
|
|
mparse_reset(mp);
|
2016-01-15 23:08:59 +00:00
|
|
|
if ((fd = mparse_open(mp, argv[i])) == -1) {
|
2015-03-02 16:45:41 +00:00
|
|
|
perror(argv[i]);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
pmandoc(mp, fd, argv[i], list);
|
2012-10-18 09:55:16 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
mparse_free(mp);
|
2016-01-15 23:08:59 +00:00
|
|
|
mchars_free();
|
|
|
|
return (int)MANDOCLEVEL_OK;
|
2012-10-18 09:55:16 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
usage(void)
|
|
|
|
{
|
|
|
|
|
|
|
|
fprintf(stderr, "usage: %s [-w] [files...]\n", progname);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
pmandoc(struct mparse *mp, int fd, const char *fn, int list)
|
|
|
|
{
|
2016-01-15 23:08:59 +00:00
|
|
|
struct roff_man *man;
|
2012-10-18 09:55:16 +00:00
|
|
|
int line, col;
|
|
|
|
|
2015-03-02 16:45:41 +00:00
|
|
|
mparse_readfd(mp, fd, fn);
|
2016-01-15 23:08:59 +00:00
|
|
|
close(fd);
|
|
|
|
mparse_result(mp, &man, NULL);
|
2012-10-18 09:55:16 +00:00
|
|
|
line = 1;
|
|
|
|
col = 0;
|
|
|
|
|
2016-01-15 23:08:59 +00:00
|
|
|
if (man == NULL)
|
2012-10-18 09:55:16 +00:00
|
|
|
return;
|
2016-01-15 23:08:59 +00:00
|
|
|
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);
|
|
|
|
}
|
2012-10-18 09:55:16 +00:00
|
|
|
|
|
|
|
if ( ! list)
|
|
|
|
putchar('\n');
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Strip the escapes out of a string, emitting the results.
|
|
|
|
*/
|
|
|
|
static void
|
|
|
|
pstring(const char *p, int col, int *colp, int list)
|
|
|
|
{
|
|
|
|
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)
|
2015-03-02 16:45:41 +00:00
|
|
|
if ('.' == *end || ',' == *end ||
|
2012-10-18 09:55:16 +00:00
|
|
|
'\'' == *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) {
|
|
|
|
putchar(' ');
|
|
|
|
(*colp)++;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Print the input word, skipping any special characters.
|
|
|
|
*/
|
2015-03-02 16:45:41 +00:00
|
|
|
while ('\0' != *p)
|
2012-10-18 09:55:16 +00:00
|
|
|
if ('\\' == *p) {
|
|
|
|
p++;
|
|
|
|
esc = mandoc_escape(&p, NULL, NULL);
|
|
|
|
if (ESCAPE_ERROR == esc)
|
|
|
|
break;
|
|
|
|
} else {
|
|
|
|
putchar((unsigned char )*p++);
|
|
|
|
(*colp)++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
pline(int line, int *linep, int *col, int list)
|
|
|
|
{
|
|
|
|
|
|
|
|
if (list)
|
|
|
|
return;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Print out as many lines as needed to reach parity with the
|
2015-03-02 16:45:41 +00:00
|
|
|
* original input.
|
2012-10-18 09:55:16 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
while (*linep < line) {
|
|
|
|
putchar('\n');
|
|
|
|
(*linep)++;
|
|
|
|
}
|
|
|
|
|
|
|
|
*col = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2016-01-15 23:08:59 +00:00
|
|
|
pmdoc(const struct roff_node *p, int *line, int *col, int list)
|
2012-10-18 09:55:16 +00:00
|
|
|
{
|
|
|
|
|
|
|
|
for ( ; p; p = p->next) {
|
2017-01-21 13:01:39 +00:00
|
|
|
if (NODE_LINE & p->flags)
|
2012-10-18 09:55:16 +00:00
|
|
|
pline(p->line, line, col, list);
|
2016-01-15 23:08:59 +00:00
|
|
|
if (ROFFT_TEXT == p->type)
|
2012-10-18 09:55:16 +00:00
|
|
|
pstring(p->string, p->pos, col, list);
|
2015-03-02 16:45:41 +00:00
|
|
|
if (p->child)
|
2012-10-18 09:55:16 +00:00
|
|
|
pmdoc(p->child, line, col, list);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2016-01-15 23:08:59 +00:00
|
|
|
pman(const struct roff_node *p, int *line, int *col, int list)
|
2012-10-18 09:55:16 +00:00
|
|
|
{
|
|
|
|
|
|
|
|
for ( ; p; p = p->next) {
|
2017-01-21 13:01:39 +00:00
|
|
|
if (NODE_LINE & p->flags)
|
2012-10-18 09:55:16 +00:00
|
|
|
pline(p->line, line, col, list);
|
2016-01-15 23:08:59 +00:00
|
|
|
if (ROFFT_TEXT == p->type)
|
2012-10-18 09:55:16 +00:00
|
|
|
pstring(p->string, p->pos, col, list);
|
2015-03-02 16:45:41 +00:00
|
|
|
if (p->child)
|
2012-10-18 09:55:16 +00:00
|
|
|
pman(p->child, line, col, list);
|
|
|
|
}
|
|
|
|
}
|