version 1.162, 2015/04/23 15:35:59 |
version 1.172, 2017/05/05 15:17:32 |
|
|
/* $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 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2013, 2014, 2015, 2017 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" |
|
|
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", "sp", "nf", |
|
"fi", "RE", "RS", "DT", |
|
"UC", "PD", "AT", "in", |
|
"ft", "OP", "EX", "EE", |
|
"UR", "UE", "ll" |
|
}; |
|
|
|
const char * const *man_macronames = __man_macronames; |
|
|
|
static void man_descope(struct roff_man *, int, int); |
static void man_descope(struct roff_man *, int, int); |
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 62 man_parseln(struct roff_man *man, int ln, char *buf, i |
|
Line 47 man_parseln(struct roff_man *man, int ln, char *buf, i |
|
if (man->last->type != ROFFT_EQN || ln > man->last->line) |
if (man->last->type != ROFFT_EQN || ln > man->last->line) |
man->flags |= MAN_NEWLINE; |
man->flags |= MAN_NEWLINE; |
|
|
return (roff_getcontrol(man->roff, buf, &offs) ? |
return roff_getcontrol(man->roff, buf, &offs) ? |
man_pmacro(man, ln, buf, offs) : |
man_pmacro(man, ln, buf, offs) : |
man_ptext(man, ln, buf, offs)); |
man_ptext(man, ln, buf, offs); |
} |
} |
|
|
static void |
static void |
Line 97 man_ptext(struct roff_man *man, int line, char *buf, i |
|
Line 82 man_ptext(struct roff_man *man, int line, char *buf, i |
|
if (man->flags & MAN_LITERAL) { |
if (man->flags & MAN_LITERAL) { |
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); |
return(1); |
return 1; |
} |
} |
|
|
for (i = offs; buf[i] == ' '; i++) |
for (i = offs; buf[i] == ' '; i++) |
Line 112 man_ptext(struct roff_man *man, int line, char *buf, i |
|
Line 97 man_ptext(struct roff_man *man, int line, char *buf, i |
|
/* Allocate a blank entry. */ |
/* Allocate a blank entry. */ |
if (man->last->tok != MAN_SH && |
if (man->last->tok != MAN_SH && |
man->last->tok != MAN_SS) { |
man->last->tok != MAN_SS) { |
roff_elem_alloc(man, line, offs, MAN_sp); |
roff_elem_alloc(man, line, offs, ROFF_sp); |
man->next = ROFF_NEXT_SIBLING; |
man->next = ROFF_NEXT_SIBLING; |
} |
} |
return(1); |
return 1; |
} |
} |
|
|
/* |
/* |
Line 149 man_ptext(struct roff_man *man, int line, char *buf, i |
|
Line 134 man_ptext(struct roff_man *man, int line, char *buf, i |
|
|
|
assert(i); |
assert(i); |
if (mandoc_eos(buf, (size_t)i)) |
if (mandoc_eos(buf, (size_t)i)) |
man->last->flags |= MAN_EOS; |
man->last->flags |= NODE_EOS; |
|
|
man_descope(man, line, offs); |
man_descope(man, line, offs); |
return(1); |
return 1; |
} |
} |
|
|
static int |
static int |
Line 160 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 145 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
{ |
{ |
struct roff_node *n; |
struct roff_node *n; |
const char *cp; |
const char *cp; |
int tok; |
size_t sz; |
int i, ppos; |
enum roff_tok tok; |
|
int ppos; |
int bline; |
int bline; |
char mac[5]; |
|
|
|
ppos = offs; |
/* Determine the line macro. */ |
|
|
/* |
ppos = offs; |
* Copy the first word into a nil-terminated buffer. |
tok = TOKEN_NONE; |
* Stop when a space, tab, escape, or eoln is encountered. |
for (sz = 0; sz < 4 && strchr(" \t\\", buf[offs]) == NULL; sz++) |
*/ |
offs++; |
|
if (sz > 0 && sz < 4) |
i = 0; |
tok = roffhash_find(man->manmac, buf + ppos, sz); |
while (i < 4 && strchr(" \t\\", buf[offs]) == NULL) |
|
mac[i++] = buf[offs++]; |
|
|
|
mac[i] = '\0'; |
|
|
|
tok = (i > 0 && i < 4) ? man_hash_find(mac) : TOKEN_NONE; |
|
|
|
if (tok == TOKEN_NONE) { |
if (tok == TOKEN_NONE) { |
mandoc_msg(MANDOCERR_MACRO, man->parse, |
mandoc_msg(MANDOCERR_MACRO, man->parse, |
ln, ppos, buf + ppos - 1); |
ln, ppos, buf + ppos - 1); |
return(1); |
return 1; |
} |
} |
|
|
/* Skip a leading escape sequence or tab. */ |
/* Skip a leading escape sequence or tab. */ |
Line 203 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 181 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
|
|
/* Jump to the next non-whitespace word. */ |
/* Jump to the next non-whitespace word. */ |
|
|
while (buf[offs] && buf[offs] == ' ') |
while (buf[offs] == ' ') |
offs++; |
offs++; |
|
|
/* |
/* |
Line 223 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 201 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
man_breakscope(man, tok); |
man_breakscope(man, tok); |
bline = man->flags & MAN_BLINE; |
bline = man->flags & MAN_BLINE; |
|
|
|
/* |
|
* 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. |
|
*/ |
|
|
|
if (bline) { |
|
cp = strchr(buf + offs, '\0') - 2; |
|
if (cp >= buf && cp[0] == '\\' && cp[1] == 'c') |
|
bline = 0; |
|
} |
|
|
/* Call to handler... */ |
/* Call to handler... */ |
|
|
assert(man_macros[tok].fp); |
assert(man_macros[tok].fp); |
Line 234 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 226 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
n = man->last; |
n = man->last; |
if (n->type == ROFFT_BODY && |
if (n->type == ROFFT_BODY && |
strcmp(n->prev->child->string, "NAME")) |
strcmp(n->prev->child->string, "NAME")) |
return(2); |
return 2; |
} |
} |
|
|
/* |
/* |
Line 245 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
Line 237 man_pmacro(struct roff_man *man, int ln, char *buf, in |
|
|
|
if ( ! bline || man->flags & MAN_ELINE || |
if ( ! bline || man->flags & MAN_ELINE || |
man_macros[tok].flags & MAN_NSCOPED) |
man_macros[tok].flags & MAN_NSCOPED) |
return(1); |
return 1; |
|
|
assert(man->flags & MAN_BLINE); |
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; |
} |
} |
|
|
void |
void |
Line 275 man_breakscope(struct roff_man *man, int tok) |
|
Line 267 man_breakscope(struct roff_man *man, int tok) |
|
|
|
mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse, |
mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse, |
n->line, n->pos, "%s breaks %s", |
n->line, n->pos, "%s breaks %s", |
tok == TOKEN_NONE ? "TS" : man_macronames[tok], |
tok == TOKEN_NONE ? "TS" : roff_name[tok], |
man_macronames[n->tok]); |
roff_name[n->tok]); |
|
|
roff_node_delete(man, n); |
roff_node_delete(man, n); |
man->flags &= ~MAN_ELINE; |
man->flags &= ~MAN_ELINE; |
} |
} |
|
|
/* |
/* |
|
* Weird special case: |
|
* Switching fill mode closes section headers. |
|
*/ |
|
|
|
if (man->flags & MAN_BLINE && |
|
(tok == MAN_nf || tok == MAN_fi) && |
|
(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; |
|
} |
|
|
|
/* |
* A block header next line scope is open, |
* A block header next line scope is open, |
* and the new macro is not allowed inside block headers. |
* and the new macro is not allowed inside block headers. |
* Delete the block that is being broken. |
* Delete the block that is being broken. |
Line 303 man_breakscope(struct roff_man *man, int tok) |
|
Line 309 man_breakscope(struct roff_man *man, int tok) |
|
|
|
mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse, |
mandoc_vmsg(MANDOCERR_BLK_LINE, man->parse, |
n->line, n->pos, "%s breaks %s", |
n->line, n->pos, "%s breaks %s", |
tok == TOKEN_NONE ? "TS" : man_macronames[tok], |
tok == TOKEN_NONE ? "TS" : roff_name[tok], |
man_macronames[n->tok]); |
roff_name[n->tok]); |
|
|
roff_node_delete(man, n); |
roff_node_delete(man, n); |
man->flags &= ~MAN_BLINE; |
man->flags &= ~MAN_BLINE; |
Line 316 man_mparse(const struct roff_man *man) |
|
Line 322 man_mparse(const struct roff_man *man) |
|
{ |
{ |
|
|
assert(man && man->parse); |
assert(man && man->parse); |
return(man->parse); |
return man->parse; |
} |
} |
|
|
void |
void |
man_deroff(char **dest, const struct roff_node *n) |
man_state(struct roff_man *man, struct roff_node *n) |
{ |
{ |
char *cp; |
|
size_t sz; |
|
|
|
if (n->type != ROFFT_TEXT) { |
switch(n->tok) { |
for (n = n->child; n; n = n->next) |
case MAN_nf: |
man_deroff(dest, n); |
case MAN_EX: |
return; |
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; |
|
} |
|
|
/* Skip leading whitespace and escape sequences. */ |
void |
|
man_validate(struct roff_man *man) |
|
{ |
|
|
cp = n->string; |
man->last = man->first; |
while ('\0' != *cp) { |
man_node_validate(man); |
if ('\\' == *cp) { |
man->flags &= ~MAN_LITERAL; |
cp++; |
|
mandoc_escape((const char **)&cp, NULL, NULL); |
|
} else if (isspace((unsigned char)*cp)) |
|
cp++; |
|
else |
|
break; |
|
} |
|
|
|
/* Skip trailing whitespace. */ |
|
|
|
for (sz = strlen(cp); sz; sz--) |
|
if (0 == isspace((unsigned char)cp[sz-1])) |
|
break; |
|
|
|
/* Skip empty strings. */ |
|
|
|
if (0 == sz) |
|
return; |
|
|
|
if (NULL == *dest) { |
|
*dest = mandoc_strndup(cp, sz); |
|
return; |
|
} |
|
|
|
mandoc_asprintf(&cp, "%s %*s", *dest, (int)sz, cp); |
|
free(*dest); |
|
*dest = cp; |
|
} |
} |