version 1.171, 2017/05/01 23:27:39 |
version 1.186, 2018/12/31 10:04:39 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2013, 2014, 2015, 2017 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2013,2014,2015,2017,2018 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2011 Joerg Sonnenberger <joerg@netbsd.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 |
|
|
#include "roff_int.h" |
#include "roff_int.h" |
#include "libman.h" |
#include "libman.h" |
|
|
static void man_descope(struct roff_man *, int, int); |
static char *man_hasc(char *); |
static int man_ptext(struct roff_man *, int, char *, int); |
static int man_ptext(struct roff_man *, int, char *, int); |
static int man_pmacro(struct roff_man *, int, char *, int); |
static int man_pmacro(struct roff_man *, int, char *, int); |
|
|
Line 52 man_parseln(struct roff_man *man, int ln, char *buf, i |
|
Line 52 man_parseln(struct roff_man *man, int ln, char *buf, i |
|
man_ptext(man, ln, buf, offs); |
man_ptext(man, ln, buf, offs); |
} |
} |
|
|
static void |
/* |
man_descope(struct roff_man *man, int line, int offs) |
* If the string ends with \c, return a pointer to the backslash. |
|
* Otherwise, return NULL. |
|
*/ |
|
static char * |
|
man_hasc(char *start) |
{ |
{ |
|
char *cp, *ep; |
|
|
|
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 |
|
man_descope(struct roff_man *man, int line, int offs, char *start) |
|
{ |
|
/* Trailing \c keeps next-line scope open. */ |
|
|
|
if (start != NULL && man_hasc(start) != NULL) |
|
return; |
|
|
/* |
/* |
* Co-ordinate what happens with having a next-line scope open: |
* Co-ordinate what happens with having a next-line scope open: |
* first close out the element scope (if applicable), then close |
* first close out the element scopes (if applicable), |
* out the block scope (also if applicable). |
* then close out the block scope (also if applicable). |
*/ |
*/ |
|
|
if (man->flags & MAN_ELINE) { |
if (man->flags & MAN_ELINE) { |
|
while (man->last->parent->type != ROFFT_ROOT && |
|
man_macro(man->last->parent->tok)->flags & MAN_ESCOPED) |
|
man_unscope(man, man->last->parent); |
man->flags &= ~MAN_ELINE; |
man->flags &= ~MAN_ELINE; |
man_unscope(man, man->last->parent); |
|
} |
} |
if ( ! (man->flags & MAN_BLINE)) |
if ( ! (man->flags & MAN_BLINE)) |
return; |
return; |
|
|
man_ptext(struct roff_man *man, int line, char *buf, int offs) |
man_ptext(struct roff_man *man, int line, char *buf, int offs) |
{ |
{ |
int i; |
int i; |
|
char *ep; |
|
|
/* Literal free-form text whitespace is preserved. */ |
/* In no-fill mode, whitespace is preserved on text lines. */ |
|
|
if (man->flags & MAN_LITERAL) { |
if (man->flags & ROFF_NOFILL) { |
roff_word_alloc(man, line, offs, buf + offs); |
roff_word_alloc(man, line, offs, buf + offs); |
man_descope(man, line, offs); |
man_descope(man, line, offs, buf + offs); |
return 1; |
return 1; |
} |
} |
|
|
Line 89 man_ptext(struct roff_man *man, int line, char *buf, i |
|
Line 115 man_ptext(struct roff_man *man, int line, char *buf, i |
|
/* Skip leading whitespace. */ ; |
/* Skip leading whitespace. */ ; |
|
|
/* |
/* |
* Blank lines are ignored right after headings |
* Blank lines are ignored in next line scope |
|
* and right after headings and cancel preceding \c, |
* but add a single vertical space elsewhere. |
* but add a single vertical space elsewhere. |
*/ |
*/ |
|
|
if (buf[i] == '\0') { |
if (buf[i] == '\0') { |
/* Allocate a blank entry. */ |
if (man->flags & (MAN_ELINE | MAN_BLINE)) { |
if (man->last->tok != MAN_SH && |
mandoc_msg(MANDOCERR_BLK_BLANK, line, 0, NULL); |
man->last->tok != MAN_SS) { |
return 1; |
roff_elem_alloc(man, line, offs, MAN_sp); |
|
man->next = ROFF_NEXT_SIBLING; |
|
} |
} |
|
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; |
return 1; |
} |
} |
|
|
Line 113 man_ptext(struct roff_man *man, int line, char *buf, i |
|
Line 147 man_ptext(struct roff_man *man, int line, char *buf, i |
|
|
|
if (' ' == buf[i - 1] || '\t' == buf[i - 1]) { |
if (' ' == buf[i - 1] || '\t' == buf[i - 1]) { |
if (i > 1 && '\\' != buf[i - 2]) |
if (i > 1 && '\\' != buf[i - 2]) |
mandoc_msg(MANDOCERR_SPACE_EOL, man->parse, |
mandoc_msg(MANDOCERR_SPACE_EOL, line, i - 1, NULL); |
line, i - 1, NULL); |
|
|
|
for (--i; i && ' ' == buf[i]; i--) |
for (--i; i && ' ' == buf[i]; i--) |
/* Spin back to non-space. */ ; |
/* Spin back to non-space. */ ; |
Line 136 man_ptext(struct roff_man *man, int line, char *buf, i |
|
Line 169 man_ptext(struct roff_man *man, int line, char *buf, i |
|
if (mandoc_eos(buf, (size_t)i)) |
if (mandoc_eos(buf, (size_t)i)) |
man->last->flags |= NODE_EOS; |
man->last->flags |= NODE_EOS; |
|
|
man_descope(man, line, offs); |
man_descope(man, line, offs, buf + offs); |
return 1; |
return 1; |
} |
} |
|
|
Line 159 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 192 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
if (sz > 0 && sz < 4) |
if (sz > 0 && sz < 4) |
tok = roffhash_find(man->manmac, buf + ppos, sz); |
tok = roffhash_find(man->manmac, buf + ppos, sz); |
if (tok == TOKEN_NONE) { |
if (tok == TOKEN_NONE) { |
mandoc_msg(MANDOCERR_MACRO, man->parse, |
mandoc_msg(MANDOCERR_MACRO, ln, ppos, "%s", buf + ppos - 1); |
ln, ppos, buf + ppos - 1); |
|
return 1; |
return 1; |
} |
} |
|
|
Line 190 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 222 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
*/ |
*/ |
|
|
if (buf[offs] == '\0' && buf[offs - 1] == ' ') |
if (buf[offs] == '\0' && buf[offs - 1] == ' ') |
mandoc_msg(MANDOCERR_SPACE_EOL, man->parse, |
mandoc_msg(MANDOCERR_SPACE_EOL, ln, offs - 1, NULL); |
ln, offs - 1, NULL); |
|
|
|
/* |
/* |
* Some macros break next-line scopes; otherwise, remember |
* Some macros break next-line scopes; otherwise, remember |
Line 209 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 240 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
* page, that's very likely what the author intended. |
* page, that's very likely what the author intended. |
*/ |
*/ |
|
|
if (bline) { |
if (bline && man_hasc(buf + offs)) |
cp = strchr(buf + offs, '\0') - 2; |
bline = 0; |
if (cp >= buf && cp[0] == '\\' && cp[1] == 'c') |
|
bline = 0; |
|
} |
|
|
|
/* Call to handler... */ |
/* Call to handler... */ |
|
|
assert(man_macros[tok].fp); |
(*man_macro(tok)->fp)(man, tok, ln, ppos, &offs, buf); |
(*man_macros[tok].fp)(man, tok, ln, ppos, &offs, buf); |
|
|
|
/* In quick mode (for mandocdb), abort after the NAME section. */ |
/* In quick mode (for mandocdb), abort after the NAME section. */ |
|
|
Line 235 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 262 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
* unless the next-line scope is allowed to continue. |
* unless the next-line scope is allowed to continue. |
*/ |
*/ |
|
|
if ( ! bline || man->flags & MAN_ELINE || |
if (bline == 0 || |
man_macros[tok].flags & MAN_NSCOPED) |
(man->flags & MAN_BLINE) == 0 || |
|
man->flags & MAN_ELINE || |
|
man_macro(tok)->flags & MAN_NSCOPED) |
return 1; |
return 1; |
|
|
assert(man->flags & MAN_BLINE); |
|
man->flags &= ~MAN_BLINE; |
man->flags &= ~MAN_BLINE; |
|
|
man_unscope(man, man->last->parent); |
man_unscope(man, man->last->parent); |
roff_body_alloc(man, ln, ppos, man->last->tok); |
roff_body_alloc(man, ln, ppos, man->last->tok); |
return 1; |
return 1; |
Line 258 man_breakscope(struct roff_man *man, int tok) |
|
Line 285 man_breakscope(struct roff_man *man, int tok) |
|
* Delete the element that is being broken. |
* Delete the element that is being broken. |
*/ |
*/ |
|
|
if (man->flags & MAN_ELINE && (tok == TOKEN_NONE || |
if (man->flags & MAN_ELINE && (tok < MAN_TH || |
! (man_macros[tok].flags & MAN_NSCOPED))) { |
(man_macro(tok)->flags & MAN_NSCOPED) == 0)) { |
n = man->last; |
n = man->last; |
assert(n->type != ROFFT_TEXT); |
if (n->type == ROFFT_TEXT) |
if (man_macros[n->tok].flags & MAN_NSCOPED) |
|
n = n->parent; |
n = n->parent; |
|
if (n->tok < MAN_TH || |
|
(man_macro(n->tok)->flags & (MAN_NSCOPED | MAN_ESCOPED)) |
|
== MAN_NSCOPED) |
|
n = n->parent; |
|
|
mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse, |
mandoc_msg(MANDOCERR_BLK_LINE, n->line, n->pos, |
n->line, n->pos, "%s breaks %s", |
"%s breaks %s", roff_name[tok], roff_name[n->tok]); |
tok == TOKEN_NONE ? "TS" : roff_name[tok], |
|
roff_name[n->tok]); |
|
|
|
roff_node_delete(man, n); |
roff_node_delete(man, n); |
man->flags &= ~MAN_ELINE; |
man->flags &= ~MAN_ELINE; |
Line 280 man_breakscope(struct roff_man *man, int tok) |
|
Line 308 man_breakscope(struct roff_man *man, int tok) |
|
*/ |
*/ |
|
|
if (man->flags & MAN_BLINE && |
if (man->flags & MAN_BLINE && |
(tok == MAN_nf || tok == MAN_fi) && |
(tok == ROFF_nf || tok == ROFF_fi) && |
(man->last->tok == MAN_SH || man->last->tok == MAN_SS)) { |
(man->last->tok == MAN_SH || man->last->tok == MAN_SS)) { |
n = man->last; |
n = man->last; |
man_unscope(man, n); |
man_unscope(man, n); |
Line 294 man_breakscope(struct roff_man *man, int tok) |
|
Line 322 man_breakscope(struct roff_man *man, int tok) |
|
* Delete the block that is being broken. |
* Delete the block that is being broken. |
*/ |
*/ |
|
|
if (man->flags & MAN_BLINE && (tok == TOKEN_NONE || |
if (man->flags & MAN_BLINE && tok != ROFF_nf && tok != ROFF_fi && |
man_macros[tok].flags & MAN_BSCOPE)) { |
(tok < MAN_TH || man_macro(tok)->flags & MAN_XSCOPE)) { |
n = man->last; |
n = man->last; |
if (n->type == ROFFT_TEXT) |
if (n->type == ROFFT_TEXT) |
n = n->parent; |
n = n->parent; |
if ( ! (man_macros[n->tok].flags & MAN_BSCOPE)) |
if (n->tok < MAN_TH || |
|
(man_macro(n->tok)->flags & MAN_XSCOPE) == 0) |
n = n->parent; |
n = n->parent; |
|
|
assert(n->type == ROFFT_HEAD); |
assert(n->type == ROFFT_HEAD); |
n = n->parent; |
n = n->parent; |
assert(n->type == ROFFT_BLOCK); |
assert(n->type == ROFFT_BLOCK); |
assert(man_macros[n->tok].flags & MAN_SCOPED); |
assert(man_macro(n->tok)->flags & MAN_BSCOPED); |
|
|
mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse, |
mandoc_msg(MANDOCERR_BLK_LINE, n->line, n->pos, |
n->line, n->pos, "%s breaks %s", |
"%s breaks %s", roff_name[tok], roff_name[n->tok]); |
tok == TOKEN_NONE ? "TS" : roff_name[tok], |
|
roff_name[n->tok]); |
|
|
|
roff_node_delete(man, n); |
roff_node_delete(man, n); |
man->flags &= ~MAN_BLINE; |
man->flags &= ~MAN_BLINE; |
} |
} |
} |
|
|
|
const struct mparse * |
|
man_mparse(const struct roff_man *man) |
|
{ |
|
|
|
assert(man && man->parse); |
|
return man->parse; |
|
} |
|
|
|
void |
|
man_state(struct roff_man *man, struct roff_node *n) |
|
{ |
|
|
|
switch(n->tok) { |
|
case MAN_nf: |
|
case MAN_EX: |
|
if (man->flags & MAN_LITERAL && ! (n->flags & NODE_VALID)) |
|
mandoc_msg(MANDOCERR_NF_SKIP, man->parse, |
|
n->line, n->pos, "nf"); |
|
man->flags |= MAN_LITERAL; |
|
break; |
|
case MAN_fi: |
|
case MAN_EE: |
|
if ( ! (man->flags & MAN_LITERAL) && |
|
! (n->flags & NODE_VALID)) |
|
mandoc_msg(MANDOCERR_FI_SKIP, man->parse, |
|
n->line, n->pos, "fi"); |
|
man->flags &= ~MAN_LITERAL; |
|
break; |
|
default: |
|
break; |
|
} |
|
man->last->flags |= NODE_VALID; |
|
} |
|
|
|
void |
|
man_validate(struct roff_man *man) |
|
{ |
|
|
|
man->last = man->first; |
|
man_node_validate(man); |
|
man->flags &= ~MAN_LITERAL; |
|
} |
} |