version 1.50, 2010/03/22 05:59:32 |
version 1.185, 2018/12/31 08:38:21 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se> |
* Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
|
* Copyright (c) 2013,2014,2015,2017,2018 Ingo Schwarze <schwarze@openbsd.org> |
|
* Copyright (c) 2011 Joerg Sonnenberger <joerg@netbsd.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 |
* copyright notice and this permission notice appear in all copies. |
* copyright notice and this permission notice appear in all copies. |
* |
* |
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES |
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES |
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF |
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF |
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR |
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR |
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
* 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 <sys/types.h> |
|
|
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <string.h> |
#include <string.h> |
|
|
#include "libman.h" |
#include "mandoc_aux.h" |
|
#include "mandoc.h" |
|
#include "roff.h" |
|
#include "man.h" |
#include "libmandoc.h" |
#include "libmandoc.h" |
|
#include "roff_int.h" |
|
#include "libman.h" |
|
|
const char *const __man_merrnames[WERRMAX] = { |
static char *man_hasc(char *); |
"invalid character", /* WNPRINT */ |
static int man_ptext(struct roff_man *, int, char *, int); |
"invalid manual section", /* WMSEC */ |
static int man_pmacro(struct roff_man *, int, char *, int); |
"invalid date format", /* WDATE */ |
|
"scope of prior line violated", /* WLNSCOPE */ |
|
"trailing whitespace", /* WTSPACE */ |
|
"unterminated quoted parameter", /* WTQUOTE */ |
|
"document has no body", /* WNODATA */ |
|
"document has no title/section", /* WNOTITLE */ |
|
"invalid escape sequence", /* WESCAPE */ |
|
"invalid number format", /* WNUMFMT */ |
|
"expected block head arguments", /* WHEADARGS */ |
|
"expected block body arguments", /* WBODYARGS */ |
|
"expected empty block head", /* WNHEADARGS */ |
|
"ill-formed macro", /* WMACROFORM */ |
|
"scope open on exit", /* WEXITSCOPE */ |
|
"no scope context", /* WNOSCOPE */ |
|
"literal context already open", /* WOLITERAL */ |
|
"no literal context open" /* WNLITERAL */ |
|
}; |
|
|
|
const char *const __man_macronames[MAN_MAX] = { |
|
"br", "TH", "SH", "SS", |
|
"TP", "LP", "PP", "P", |
|
"IP", "HP", "SM", "SB", |
|
"BI", "IB", "BR", "RB", |
|
"R", "B", "I", "IR", |
|
"RI", "na", "i", "sp", |
|
"nf", "fi", "r", "RE", |
|
"RS", "DT", "UC", "PD" |
|
}; |
|
|
|
const char * const *man_macronames = __man_macronames; |
int |
|
man_parseln(struct roff_man *man, int ln, char *buf, int offs) |
static struct man_node *man_node_alloc(int, int, |
|
enum man_type, int); |
|
static int man_node_append(struct man *, |
|
struct man_node *); |
|
static int man_ptext(struct man *, int, char *); |
|
static int man_pmacro(struct man *, int, char *); |
|
static void man_free1(struct man *); |
|
static void man_alloc1(struct man *); |
|
static int pstring(struct man *, int, int, |
|
const char *, size_t); |
|
static int macrowarn(struct man *, int, const char *); |
|
|
|
|
|
const struct man_node * |
|
man_node(const struct man *m) |
|
{ |
{ |
|
|
return(MAN_HALT & m->flags ? NULL : m->first); |
if (man->last->type != ROFFT_EQN || ln > man->last->line) |
|
man->flags |= MAN_NEWLINE; |
|
|
|
return roff_getcontrol(man->roff, buf, &offs) ? |
|
man_pmacro(man, ln, buf, offs) : |
|
man_ptext(man, ln, buf, offs); |
} |
} |
|
|
|
/* |
const struct man_meta * |
* If the string ends with \c, return a pointer to the backslash. |
man_meta(const struct man *m) |
* Otherwise, return NULL. |
|
*/ |
|
static char * |
|
man_hasc(char *start) |
{ |
{ |
|
char *cp, *ep; |
|
|
return(MAN_HALT & m->flags ? NULL : &m->meta); |
ep = strchr(start, '\0') - 2; |
|
if (ep < start || ep[0] != '\\' || ep[1] != 'c') |
|
return NULL; |
|
for (cp = ep; cp > start; cp--) |
|
if (cp[-1] != '\\') |
|
break; |
|
return (ep - cp) % 2 ? NULL : ep; |
} |
} |
|
|
|
|
void |
void |
man_reset(struct man *man) |
man_descope(struct roff_man *man, int line, int offs, char *start) |
{ |
{ |
|
/* Trailing \c keeps next-line scope open. */ |
|
|
man_free1(man); |
if (start != NULL && man_hasc(start) != NULL) |
man_alloc1(man); |
return; |
} |
|
|
|
|
/* |
|
* Co-ordinate what happens with having a next-line scope open: |
|
* first close out the element scopes (if applicable), |
|
* then close out the block scope (also if applicable). |
|
*/ |
|
|
void |
if (man->flags & MAN_ELINE) { |
man_free(struct man *man) |
while (man->last->parent->type != ROFFT_ROOT && |
{ |
man_macro(man->last->parent->tok)->flags & MAN_ESCOPED) |
|
man_unscope(man, man->last->parent); |
man_free1(man); |
man->flags &= ~MAN_ELINE; |
free(man); |
} |
|
if ( ! (man->flags & MAN_BLINE)) |
|
return; |
|
man->flags &= ~MAN_BLINE; |
|
man_unscope(man, man->last->parent); |
|
roff_body_alloc(man, line, offs, man->last->tok); |
} |
} |
|
|
|
static int |
struct man * |
man_ptext(struct roff_man *man, int line, char *buf, int offs) |
man_alloc(void *data, int pflags, const struct man_cb *cb) |
|
{ |
{ |
struct man *p; |
int i; |
|
char *ep; |
|
|
p = mandoc_calloc(1, sizeof(struct man)); |
/* In no-fill mode, whitespace is preserved on text lines. */ |
|
|
if (cb) |
if (man->flags & ROFF_NOFILL) { |
memcpy(&p->cb, cb, sizeof(struct man_cb)); |
roff_word_alloc(man, line, offs, buf + offs); |
|
man_descope(man, line, offs, buf + offs); |
|
return 1; |
|
} |
|
|
man_hash_init(); |
for (i = offs; buf[i] == ' '; i++) |
p->data = data; |
/* Skip leading whitespace. */ ; |
p->pflags = pflags; |
|
|
|
man_alloc1(p); |
/* |
return(p); |
* Blank lines are ignored in next line scope |
} |
* and right after headings and cancel preceding \c, |
|
* but add a single vertical space elsewhere. |
|
*/ |
|
|
|
if (buf[i] == '\0') { |
|
if (man->flags & (MAN_ELINE | MAN_BLINE)) { |
|
mandoc_msg(MANDOCERR_BLK_BLANK, line, 0, NULL); |
|
return 1; |
|
} |
|
if (man->last->tok == MAN_SH || man->last->tok == MAN_SS) |
|
return 1; |
|
if (man->last->type == ROFFT_TEXT && |
|
((ep = man_hasc(man->last->string)) != NULL)) { |
|
*ep = '\0'; |
|
return 1; |
|
} |
|
roff_elem_alloc(man, line, offs, ROFF_sp); |
|
man->next = ROFF_NEXT_SIBLING; |
|
return 1; |
|
} |
|
|
int |
/* |
man_endparse(struct man *m) |
* Warn if the last un-escaped character is whitespace. Then |
{ |
* strip away the remaining spaces (tabs stay!). |
|
*/ |
|
|
if (MAN_HALT & m->flags) |
i = (int)strlen(buf); |
return(0); |
assert(i); |
else if (man_macroend(m)) |
|
return(1); |
|
m->flags |= MAN_HALT; |
|
return(0); |
|
} |
|
|
|
|
if (' ' == buf[i - 1] || '\t' == buf[i - 1]) { |
|
if (i > 1 && '\\' != buf[i - 2]) |
|
mandoc_msg(MANDOCERR_SPACE_EOL, line, i - 1, NULL); |
|
|
int |
for (--i; i && ' ' == buf[i]; i--) |
man_parseln(struct man *m, int ln, char *buf) |
/* Spin back to non-space. */ ; |
{ |
|
|
|
return('.' == *buf ? |
/* Jump ahead of escaped whitespace. */ |
man_pmacro(m, ln, buf) : |
i += '\\' == buf[i] ? 2 : 1; |
man_ptext(m, ln, buf)); |
|
} |
|
|
|
|
buf[i] = '\0'; |
|
} |
|
roff_word_alloc(man, line, offs, buf + offs); |
|
|
static void |
/* |
man_free1(struct man *man) |
* End-of-sentence check. If the last character is an unescaped |
{ |
* EOS character, then flag the node as being the end of a |
|
* sentence. The front-end will know how to interpret this. |
|
*/ |
|
|
if (man->first) |
assert(i); |
man_node_freelist(man->first); |
if (mandoc_eos(buf, (size_t)i)) |
if (man->meta.title) |
man->last->flags |= NODE_EOS; |
free(man->meta.title); |
|
if (man->meta.source) |
|
free(man->meta.source); |
|
if (man->meta.vol) |
|
free(man->meta.vol); |
|
} |
|
|
|
|
man_descope(man, line, offs, buf + offs); |
static void |
return 1; |
man_alloc1(struct man *m) |
|
{ |
|
|
|
memset(&m->meta, 0, sizeof(struct man_meta)); |
|
m->flags = 0; |
|
m->last = mandoc_calloc(1, sizeof(struct man_node)); |
|
m->first = m->last; |
|
m->last->type = MAN_ROOT; |
|
m->next = MAN_NEXT_CHILD; |
|
} |
} |
|
|
|
|
static int |
static int |
man_node_append(struct man *man, struct man_node *p) |
man_pmacro(struct roff_man *man, int ln, char *buf, int offs) |
{ |
{ |
|
struct roff_node *n; |
|
const char *cp; |
|
size_t sz; |
|
enum roff_tok tok; |
|
int ppos; |
|
int bline; |
|
|
assert(man->last); |
/* Determine the line macro. */ |
assert(man->first); |
|
assert(MAN_ROOT != p->type); |
|
|
|
switch (man->next) { |
ppos = offs; |
case (MAN_NEXT_SIBLING): |
tok = TOKEN_NONE; |
man->last->next = p; |
for (sz = 0; sz < 4 && strchr(" \t\\", buf[offs]) == NULL; sz++) |
p->prev = man->last; |
offs++; |
p->parent = man->last->parent; |
if (sz > 0 && sz < 4) |
break; |
tok = roffhash_find(man->manmac, buf + ppos, sz); |
case (MAN_NEXT_CHILD): |
if (tok == TOKEN_NONE) { |
man->last->child = p; |
mandoc_msg(MANDOCERR_MACRO, ln, ppos, "%s", buf + ppos - 1); |
p->parent = man->last; |
return 1; |
break; |
|
default: |
|
abort(); |
|
/* NOTREACHED */ |
|
} |
} |
|
|
p->parent->nchild++; |
|
|
|
if ( ! man_valid_pre(man, p)) |
/* Skip a leading escape sequence or tab. */ |
return(0); |
|
|
|
switch (p->type) { |
switch (buf[offs]) { |
case (MAN_HEAD): |
case '\\': |
assert(MAN_BLOCK == p->parent->type); |
cp = buf + offs + 1; |
p->parent->head = p; |
mandoc_escape(&cp, NULL, NULL); |
|
offs = cp - buf; |
break; |
break; |
case (MAN_BODY): |
case '\t': |
assert(MAN_BLOCK == p->parent->type); |
offs++; |
p->parent->body = p; |
|
break; |
break; |
default: |
default: |
break; |
break; |
} |
} |
|
|
man->last = p; |
/* Jump to the next non-whitespace word. */ |
|
|
switch (p->type) { |
while (buf[offs] == ' ') |
case (MAN_TEXT): |
offs++; |
if ( ! man_valid_post(man)) |
|
return(0); |
|
if ( ! man_action_post(man)) |
|
return(0); |
|
break; |
|
default: |
|
break; |
|
} |
|
|
|
return(1); |
/* |
} |
* Trailing whitespace. Note that tabs are allowed to be passed |
|
* into the parser as "text", so we only warn about spaces here. |
|
*/ |
|
|
|
if (buf[offs] == '\0' && buf[offs - 1] == ' ') |
|
mandoc_msg(MANDOCERR_SPACE_EOL, ln, offs - 1, NULL); |
|
|
static struct man_node * |
/* |
man_node_alloc(int line, int pos, enum man_type type, int tok) |
* Some macros break next-line scopes; otherwise, remember |
{ |
* whether we are in next-line scope for a block head. |
struct man_node *p; |
*/ |
|
|
p = mandoc_calloc(1, sizeof(struct man_node)); |
man_breakscope(man, tok); |
p->line = line; |
bline = man->flags & MAN_BLINE; |
p->pos = pos; |
|
p->type = type; |
|
p->tok = tok; |
|
return(p); |
|
} |
|
|
|
|
/* |
|
* If the line in next-line scope ends with \c, keep the |
|
* next-line scope open for the subsequent input line. |
|
* That is not at all portable, only groff >= 1.22.4 |
|
* does it, but *if* this weird idiom occurs in a manual |
|
* page, that's very likely what the author intended. |
|
*/ |
|
|
int |
if (bline && man_hasc(buf + offs)) |
man_elem_alloc(struct man *m, int line, int pos, int tok) |
bline = 0; |
{ |
|
struct man_node *p; |
|
|
|
p = man_node_alloc(line, pos, MAN_ELEM, tok); |
/* Call to handler... */ |
if ( ! man_node_append(m, p)) |
|
return(0); |
|
m->next = MAN_NEXT_CHILD; |
|
return(1); |
|
} |
|
|
|
|
(*man_macro(tok)->fp)(man, tok, ln, ppos, &offs, buf); |
|
|
int |
/* In quick mode (for mandocdb), abort after the NAME section. */ |
man_head_alloc(struct man *m, int line, int pos, int tok) |
|
{ |
|
struct man_node *p; |
|
|
|
p = man_node_alloc(line, pos, MAN_HEAD, tok); |
if (man->quick && tok == MAN_SH) { |
if ( ! man_node_append(m, p)) |
n = man->last; |
return(0); |
if (n->type == ROFFT_BODY && |
m->next = MAN_NEXT_CHILD; |
strcmp(n->prev->child->string, "NAME")) |
return(1); |
return 2; |
} |
|
|
|
|
|
int |
|
man_body_alloc(struct man *m, int line, int pos, int tok) |
|
{ |
|
struct man_node *p; |
|
|
|
p = man_node_alloc(line, pos, MAN_BODY, tok); |
|
if ( ! man_node_append(m, p)) |
|
return(0); |
|
m->next = MAN_NEXT_CHILD; |
|
return(1); |
|
} |
|
|
|
|
|
int |
|
man_block_alloc(struct man *m, int line, int pos, int tok) |
|
{ |
|
struct man_node *p; |
|
|
|
p = man_node_alloc(line, pos, MAN_BLOCK, tok); |
|
if ( ! man_node_append(m, p)) |
|
return(0); |
|
m->next = MAN_NEXT_CHILD; |
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
pstring(struct man *m, int line, int pos, |
|
const char *p, size_t len) |
|
{ |
|
struct man_node *n; |
|
size_t sv; |
|
|
|
n = man_node_alloc(line, pos, MAN_TEXT, -1); |
|
n->string = mandoc_malloc(len + 1); |
|
sv = strlcpy(n->string, p, len + 1); |
|
|
|
/* Prohibit truncation. */ |
|
assert(sv < len + 1); |
|
|
|
if ( ! man_node_append(m, n)) |
|
return(0); |
|
m->next = MAN_NEXT_SIBLING; |
|
return(1); |
|
} |
|
|
|
|
|
int |
|
man_word_alloc(struct man *m, int line, int pos, const char *word) |
|
{ |
|
|
|
return(pstring(m, line, pos, word, strlen(word))); |
|
} |
|
|
|
|
|
void |
|
man_node_free(struct man_node *p) |
|
{ |
|
|
|
if (p->string) |
|
free(p->string); |
|
if (p->parent) |
|
p->parent->nchild--; |
|
free(p); |
|
} |
|
|
|
|
|
void |
|
man_node_freelist(struct man_node *p) |
|
{ |
|
struct man_node *n; |
|
|
|
if (p->child) |
|
man_node_freelist(p->child); |
|
assert(0 == p->nchild); |
|
n = p->next; |
|
man_node_free(p); |
|
if (n) |
|
man_node_freelist(n); |
|
} |
|
|
|
|
|
static int |
|
man_ptext(struct man *m, int line, char *buf) |
|
{ |
|
int i, j; |
|
char sv; |
|
|
|
/* Literal free-form text whitespace is preserved. */ |
|
|
|
if (MAN_LITERAL & m->flags) { |
|
if ( ! man_word_alloc(m, line, 0, buf)) |
|
return(0); |
|
goto descope; |
|
} |
} |
|
|
/* First de-chunk and allocate words. */ |
|
|
|
for (i = 0; ' ' == buf[i]; i++) |
|
/* Skip leading whitespace. */ ; |
|
|
|
if ('\0' == buf[i]) { |
|
/* Trailing whitespace? */ |
|
if (i && ' ' == buf[i - 1]) |
|
if ( ! man_pwarn(m, line, i - 1, WTSPACE)) |
|
return(0); |
|
if ( ! pstring(m, line, 0, &buf[i], 0)) |
|
return(0); |
|
goto descope; |
|
} |
|
|
|
for (j = i; buf[i]; i++) { |
|
if (' ' != buf[i]) |
|
continue; |
|
|
|
/* Escaped whitespace. */ |
|
if (i && ' ' == buf[i] && '\\' == buf[i - 1]) |
|
continue; |
|
|
|
sv = buf[i]; |
|
buf[i++] = '\0'; |
|
|
|
if ( ! pstring(m, line, j, &buf[j], (size_t)(i - j))) |
|
return(0); |
|
|
|
/* Trailing whitespace? Check at overwritten byte. */ |
|
|
|
if (' ' == sv && '\0' == buf[i]) |
|
if ( ! man_pwarn(m, line, i - 1, WTSPACE)) |
|
return(0); |
|
|
|
for ( ; ' ' == buf[i]; i++) |
|
/* Skip trailing whitespace. */ ; |
|
|
|
j = i; |
|
|
|
/* Trailing whitespace? */ |
|
|
|
if (' ' == buf[i - 1] && '\0' == buf[i]) |
|
if ( ! man_pwarn(m, line, i - 1, WTSPACE)) |
|
return(0); |
|
|
|
if ('\0' == buf[i]) |
|
break; |
|
} |
|
|
|
if (j != i && ! pstring(m, line, j, &buf[j], (size_t)(i - j))) |
|
return(0); |
|
|
|
descope: |
|
|
|
/* |
/* |
* Co-ordinate what happens with having a next-line scope open: |
* If we are in a next-line scope for a block head, |
* first close out the element scope (if applicable), then close |
* close it out now and switch to the body, |
* out the block scope (also if applicable). |
* unless the next-line scope is allowed to continue. |
*/ |
*/ |
|
|
if (MAN_ELINE & m->flags) { |
if (bline == 0 || |
m->flags &= ~MAN_ELINE; |
(man->flags & MAN_BLINE) == 0 || |
if ( ! man_unscope(m, m->last->parent)) |
man->flags & MAN_ELINE || |
return(0); |
man_macro(tok)->flags & MAN_NSCOPED) |
} |
return 1; |
|
|
if ( ! (MAN_BLINE & m->flags)) |
man->flags &= ~MAN_BLINE; |
return(1); |
man_unscope(man, man->last->parent); |
m->flags &= ~MAN_BLINE; |
roff_body_alloc(man, ln, ppos, man->last->tok); |
|
return 1; |
if ( ! man_unscope(m, m->last->parent)) |
|
return(0); |
|
return(man_body_alloc(m, line, 0, m->last->tok)); |
|
} |
} |
|
|
|
void |
static int |
man_breakscope(struct roff_man *man, int tok) |
macrowarn(struct man *m, int ln, const char *buf) |
|
{ |
{ |
if ( ! (MAN_IGN_MACRO & m->pflags)) |
struct roff_node *n; |
return(man_verr(m, ln, 0, |
|
"unknown macro: %s%s", |
|
buf, strlen(buf) > 3 ? "..." : "")); |
|
return(man_vwarn(m, ln, 0, "unknown macro: %s%s", |
|
buf, strlen(buf) > 3 ? "..." : "")); |
|
} |
|
|
|
|
/* |
int |
* An element next line scope is open, |
man_pmacro(struct man *m, int ln, char *buf) |
* and the new macro is not allowed inside elements. |
{ |
* Delete the element that is being broken. |
int i, j, c, ppos, fl; |
|
char mac[5]; |
|
struct man_node *n; |
|
|
|
/* Comments and empties are quickly ignored. */ |
|
|
|
fl = m->flags; |
|
|
|
if ('\0' == buf[1]) |
|
return(1); |
|
|
|
i = 1; |
|
|
|
if (' ' == buf[i]) { |
|
i++; |
|
while (buf[i] && ' ' == buf[i]) |
|
i++; |
|
if ('\0' == buf[i]) |
|
goto out; |
|
} |
|
|
|
ppos = i; |
|
|
|
/* Copy the first word into a nil-terminated buffer. */ |
|
|
|
for (j = 0; j < 4; j++, i++) { |
|
if ('\0' == (mac[j] = buf[i])) |
|
break; |
|
else if (' ' == buf[i]) |
|
break; |
|
|
|
/* Check for invalid characters. */ |
|
|
|
if (isgraph((u_char)buf[i])) |
|
continue; |
|
return(man_perr(m, ln, i, WNPRINT)); |
|
} |
|
|
|
mac[j] = '\0'; |
|
|
|
if (j == 4 || j < 1) { |
|
if ( ! (MAN_IGN_MACRO & m->pflags)) { |
|
(void)man_perr(m, ln, ppos, WMACROFORM); |
|
goto err; |
|
} |
|
if ( ! man_pwarn(m, ln, ppos, WMACROFORM)) |
|
goto err; |
|
return(1); |
|
} |
|
|
|
if (MAN_MAX == (c = man_hash_find(mac))) { |
|
if ( ! macrowarn(m, ln, mac)) |
|
goto err; |
|
return(1); |
|
} |
|
|
|
/* The macro is sane. Jump to the next word. */ |
|
|
|
while (buf[i] && ' ' == buf[i]) |
|
i++; |
|
|
|
/* Trailing whitespace? */ |
|
|
|
if ('\0' == buf[i] && ' ' == buf[i - 1]) |
|
if ( ! man_pwarn(m, ln, i - 1, WTSPACE)) |
|
goto err; |
|
|
|
/* |
|
* Remove prior ELINE macro, as a macro is clobbering it by |
|
* being invoked without prior text. Note that NSCOPED macros |
|
* do not close out ELINE macros, as they print no text. |
|
*/ |
*/ |
|
|
if (m->flags & MAN_ELINE && |
if (man->flags & MAN_ELINE && (tok < MAN_TH || |
! (MAN_NSCOPED & man_macros[c].flags)) { |
(man_macro(tok)->flags & MAN_NSCOPED) == 0)) { |
n = m->last; |
n = man->last; |
assert(NULL == n->child); |
if (n->type == ROFFT_TEXT) |
assert(0 == n->nchild); |
n = n->parent; |
if ( ! man_nwarn(m, n, WLNSCOPE)) |
if (n->tok < MAN_TH || |
return(0); |
(man_macro(n->tok)->flags & (MAN_NSCOPED | MAN_ESCOPED)) |
|
== MAN_NSCOPED) |
|
n = n->parent; |
|
|
/* FIXME: when called as in: |
mandoc_msg(MANDOCERR_BLK_LINE, n->line, n->pos, |
* |
"%s breaks %s", roff_name[tok], roff_name[n->tok]); |
* .B |
|
* .br |
|
* .B |
|
* .br |
|
* hello |
|
*/ |
|
|
|
if (n->prev) { |
roff_node_delete(man, n); |
assert(n != n->parent->child); |
man->flags &= ~MAN_ELINE; |
assert(n == n->prev->next); |
|
n->prev->next = NULL; |
|
m->last = n->prev; |
|
m->next = MAN_NEXT_SIBLING; |
|
} else { |
|
assert(n == n->parent->child); |
|
n->parent->child = NULL; |
|
m->last = n->parent; |
|
m->next = MAN_NEXT_CHILD; |
|
} |
|
|
|
man_node_free(n); |
|
m->flags &= ~MAN_ELINE; |
|
} |
} |
|
|
/* Begin recursive parse sequence. */ |
/* |
|
* Weird special case: |
assert(man_macros[c].fp); |
* Switching fill mode closes section headers. |
|
|
if ( ! (*man_macros[c].fp)(m, c, ln, ppos, &i, buf)) |
|
goto err; |
|
|
|
out: |
|
/* |
|
* We weren't in a block-line scope when entering the |
|
* above-parsed macro, so return. |
|
*/ |
*/ |
|
|
if ( ! (MAN_BLINE & fl)) { |
if (man->flags & MAN_BLINE && |
m->flags &= ~MAN_ILINE; |
(tok == ROFF_nf || tok == ROFF_fi) && |
return(1); |
(man->last->tok == MAN_SH || man->last->tok == MAN_SS)) { |
|
n = man->last; |
|
man_unscope(man, n); |
|
roff_body_alloc(man, n->line, n->pos, n->tok); |
|
man->flags &= ~MAN_BLINE; |
} |
} |
|
|
/* |
/* |
* If we're in a block scope, then allow this macro to slip by |
* A block header next line scope is open, |
* without closing scope around it. |
* and the new macro is not allowed inside block headers. |
|
* Delete the block that is being broken. |
*/ |
*/ |
|
|
if (MAN_ILINE & m->flags) { |
if (man->flags & MAN_BLINE && tok != ROFF_nf && tok != ROFF_fi && |
m->flags &= ~MAN_ILINE; |
(tok < MAN_TH || man_macro(tok)->flags & MAN_XSCOPE)) { |
return(1); |
n = man->last; |
} |
if (n->type == ROFFT_TEXT) |
|
n = n->parent; |
|
if (n->tok < MAN_TH || |
|
(man_macro(n->tok)->flags & MAN_XSCOPE) == 0) |
|
n = n->parent; |
|
|
/* |
assert(n->type == ROFFT_HEAD); |
* If we've opened a new next-line element scope, then return |
n = n->parent; |
* now, as the next line will close out the block scope. |
assert(n->type == ROFFT_BLOCK); |
*/ |
assert(man_macro(n->tok)->flags & MAN_BSCOPED); |
|
|
if (MAN_ELINE & m->flags) |
mandoc_msg(MANDOCERR_BLK_LINE, n->line, n->pos, |
return(1); |
"%s breaks %s", roff_name[tok], roff_name[n->tok]); |
|
|
/* Close out the block scope opened in the prior line. */ |
roff_node_delete(man, n); |
|
man->flags &= ~MAN_BLINE; |
assert(MAN_BLINE & m->flags); |
} |
m->flags &= ~MAN_BLINE; |
|
|
|
if ( ! man_unscope(m, m->last->parent)) |
|
return(0); |
|
return(man_body_alloc(m, ln, 0, m->last->tok)); |
|
|
|
err: /* Error out. */ |
|
|
|
m->flags |= MAN_HALT; |
|
return(0); |
|
} |
} |
|
|
|
void |
int |
man_state(struct roff_man *man, struct roff_node *n) |
man_verr(struct man *man, int ln, int pos, const char *fmt, ...) |
|
{ |
{ |
char buf[256]; |
|
va_list ap; |
|
|
|
if (NULL == man->cb.man_err) |
switch(n->tok) { |
return(0); |
case ROFF_nf: |
|
case MAN_EX: |
va_start(ap, fmt); |
man->flags |= ROFF_NOFILL; |
(void)vsnprintf(buf, sizeof(buf) - 1, fmt, ap); |
break; |
va_end(ap); |
case ROFF_fi: |
return((*man->cb.man_err)(man->data, ln, pos, buf)); |
case MAN_EE: |
} |
man->flags &= ~ROFF_NOFILL; |
|
break; |
|
default: |
int |
break; |
man_vwarn(struct man *man, int ln, int pos, const char *fmt, ...) |
} |
{ |
man->last->flags |= NODE_VALID; |
char buf[256]; |
|
va_list ap; |
|
|
|
if (NULL == man->cb.man_warn) |
|
return(0); |
|
|
|
va_start(ap, fmt); |
|
(void)vsnprintf(buf, sizeof(buf) - 1, fmt, ap); |
|
va_end(ap); |
|
return((*man->cb.man_warn)(man->data, ln, pos, buf)); |
|
} |
|
|
|
|
|
int |
|
man_err(struct man *m, int line, int pos, int iserr, enum merr type) |
|
{ |
|
const char *p; |
|
|
|
p = __man_merrnames[(int)type]; |
|
assert(p); |
|
|
|
if (iserr) |
|
return(man_verr(m, line, pos, p)); |
|
|
|
return(man_vwarn(m, line, pos, p)); |
|
} |
} |