version 1.78, 2010/06/26 16:07:08 |
version 1.95, 2011/01/01 13:54:58 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2008, 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv> |
* |
* |
* 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 |
|
|
#include <sys/types.h> |
#include <sys/types.h> |
|
|
#include <assert.h> |
#include <assert.h> |
#include <ctype.h> |
|
#include <stdarg.h> |
#include <stdarg.h> |
#include <stdlib.h> |
#include <stdlib.h> |
#include <stdio.h> |
#include <stdio.h> |
#include <string.h> |
#include <string.h> |
|
|
#include "mandoc.h" |
#include "mandoc.h" |
#include "regs.h" |
|
#include "libman.h" |
#include "libman.h" |
#include "libmandoc.h" |
#include "libmandoc.h" |
|
|
Line 38 const char *const __man_macronames[MAN_MAX] = { |
|
Line 36 const char *const __man_macronames[MAN_MAX] = { |
|
"IP", "HP", "SM", "SB", |
"IP", "HP", "SM", "SB", |
"BI", "IB", "BR", "RB", |
"BI", "IB", "BR", "RB", |
"R", "B", "I", "IR", |
"R", "B", "I", "IR", |
"RI", "na", "i", "sp", |
"RI", "na", "sp", "nf", |
"nf", "fi", "r", "RE", |
"fi", "RE", "RS", "DT", |
"RS", "DT", "UC", "PD", |
"UC", "PD", "AT", "in", |
"Sp", "Vb", "Ve", "AT", |
"ft" |
}; |
}; |
|
|
const char * const *man_macronames = __man_macronames; |
const char * const *man_macronames = __man_macronames; |
Line 50 static struct man_node *man_node_alloc(int, int, |
|
Line 48 static struct man_node *man_node_alloc(int, int, |
|
enum man_type, enum mant); |
enum man_type, enum mant); |
static int man_node_append(struct man *, |
static int man_node_append(struct man *, |
struct man_node *); |
struct man_node *); |
|
static int man_span_alloc(struct man *, |
|
const struct tbl_span *); |
static void man_node_free(struct man_node *); |
static void man_node_free(struct man_node *); |
static void man_node_unlink(struct man *, |
static void man_node_unlink(struct man *, |
struct man_node *); |
struct man_node *); |
static int man_ptext(struct man *, int, char *, int); |
static int man_ptext(struct man *, int, char *, int); |
static int man_pmacro(struct man *, |
static int man_pmacro(struct man *, int, char *, int); |
const struct regset *regs, |
|
int, char *, int); |
|
static void man_free1(struct man *); |
static void man_free1(struct man *); |
static void man_alloc1(struct man *); |
static void man_alloc1(struct man *); |
static int macrowarn(struct man *, int, const char *, int); |
static int man_descope(struct man *, int, int); |
|
|
|
|
const struct man_node * |
const struct man_node * |
Line 97 man_free(struct man *man) |
|
Line 95 man_free(struct man *man) |
|
|
|
|
|
struct man * |
struct man * |
man_alloc(void *data, int pflags, mandocmsg msg) |
man_alloc(struct regset *regs, void *data, mandocmsg msg) |
{ |
{ |
struct man *p; |
struct man *p; |
|
|
Line 105 man_alloc(void *data, int pflags, mandocmsg msg) |
|
Line 103 man_alloc(void *data, int pflags, mandocmsg msg) |
|
|
|
man_hash_init(); |
man_hash_init(); |
p->data = data; |
p->data = data; |
p->pflags = pflags; |
|
p->msg = msg; |
p->msg = msg; |
|
p->regs = regs; |
|
|
man_alloc1(p); |
man_alloc1(p); |
return(p); |
return(p); |
Line 127 man_endparse(struct man *m) |
|
Line 125 man_endparse(struct man *m) |
|
|
|
|
|
int |
int |
man_parseln(struct man *m, const struct regset *regs, |
man_parseln(struct man *m, int ln, char *buf, int offs) |
int ln, char *buf, int offs) |
|
{ |
{ |
|
|
if (MAN_HALT & m->flags) |
if (MAN_HALT & m->flags) |
return(0); |
return(0); |
|
|
return(('.' == buf[offs] || '\'' == buf[offs]) ? |
return(('.' == buf[offs] || '\'' == buf[offs]) ? |
man_pmacro(m, regs, ln, buf, offs) : |
man_pmacro(m, ln, buf, offs) : |
man_ptext(m, ln, buf, offs)); |
man_ptext(m, ln, buf, offs)); |
} |
} |
|
|
Line 218 man_node_append(struct man *man, struct man_node *p) |
|
Line 215 man_node_append(struct man *man, struct man_node *p) |
|
man->last = p; |
man->last = p; |
|
|
switch (p->type) { |
switch (p->type) { |
|
case (MAN_TBL): |
|
/* FALLTHROUGH */ |
case (MAN_TEXT): |
case (MAN_TEXT): |
if ( ! man_valid_post(man)) |
if ( ! man_valid_post(man)) |
return(0); |
return(0); |
if ( ! man_action_post(man)) |
|
return(0); |
|
break; |
break; |
default: |
default: |
break; |
break; |
Line 297 man_block_alloc(struct man *m, int line, int pos, enum |
|
Line 294 man_block_alloc(struct man *m, int line, int pos, enum |
|
return(1); |
return(1); |
} |
} |
|
|
|
static int |
|
man_span_alloc(struct man *m, const struct tbl_span *span) |
|
{ |
|
struct man_node *n; |
|
|
|
/* FIXME: grab from span */ |
|
n = man_node_alloc(0, 0, MAN_TBL, MAN_MAX); |
|
n->span = span; |
|
|
|
if ( ! man_node_append(m, n)) |
|
return(0); |
|
|
|
m->next = MAN_NEXT_SIBLING; |
|
return(1); |
|
} |
|
|
int |
int |
man_word_alloc(struct man *m, int line, int pos, const char *word) |
man_word_alloc(struct man *m, int line, int pos, const char *word) |
{ |
{ |
Line 347 man_node_delete(struct man *m, struct man_node *p) |
|
Line 359 man_node_delete(struct man *m, struct man_node *p) |
|
} |
} |
|
|
|
|
|
int |
|
man_addspan(struct man *m, const struct tbl_span *sp) |
|
{ |
|
|
|
if ( ! man_span_alloc(m, sp)) |
|
return(0); |
|
return(man_descope(m, 0, 0)); |
|
} |
|
|
static int |
static int |
|
man_descope(struct man *m, int line, int offs) |
|
{ |
|
/* |
|
* Co-ordinate what happens with having a next-line scope open: |
|
* first close out the element scope (if applicable), then close |
|
* out the block scope (also if applicable). |
|
*/ |
|
|
|
if (MAN_ELINE & m->flags) { |
|
m->flags &= ~MAN_ELINE; |
|
if ( ! man_unscope(m, m->last->parent, MANDOCERR_MAX)) |
|
return(0); |
|
} |
|
|
|
if ( ! (MAN_BLINE & m->flags)) |
|
return(1); |
|
m->flags &= ~MAN_BLINE; |
|
|
|
if ( ! man_unscope(m, m->last->parent, MANDOCERR_MAX)) |
|
return(0); |
|
return(man_body_alloc(m, line, offs, m->last->tok)); |
|
} |
|
|
|
|
|
static int |
man_ptext(struct man *m, int line, char *buf, int offs) |
man_ptext(struct man *m, int line, char *buf, int offs) |
{ |
{ |
int i; |
int i; |
Line 356 man_ptext(struct man *m, int line, char *buf, int offs |
|
Line 402 man_ptext(struct man *m, int line, char *buf, int offs |
|
|
|
if ('\\' == buf[offs] && |
if ('\\' == buf[offs] && |
'.' == buf[offs + 1] && |
'.' == buf[offs + 1] && |
'"' == buf[offs + 2]) |
'"' == buf[offs + 2]) { |
return(man_pmsg(m, line, offs, MANDOCERR_BADCOMMENT)); |
man_pmsg(m, line, offs, MANDOCERR_BADCOMMENT); |
|
return(1); |
|
} |
|
|
/* Literal free-form text whitespace is preserved. */ |
/* Literal free-form text whitespace is preserved. */ |
|
|
if (MAN_LITERAL & m->flags) { |
if (MAN_LITERAL & m->flags) { |
if ( ! man_word_alloc(m, line, offs, buf + offs)) |
if ( ! man_word_alloc(m, line, offs, buf + offs)) |
return(0); |
return(0); |
goto descope; |
return(man_descope(m, line, offs)); |
} |
} |
|
|
/* Pump blank lines directly into the backend. */ |
/* Pump blank lines directly into the backend. */ |
Line 376 man_ptext(struct man *m, int line, char *buf, int offs |
|
Line 424 man_ptext(struct man *m, int line, char *buf, int offs |
|
/* Allocate a blank entry. */ |
/* Allocate a blank entry. */ |
if ( ! man_word_alloc(m, line, offs, "")) |
if ( ! man_word_alloc(m, line, offs, "")) |
return(0); |
return(0); |
goto descope; |
return(man_descope(m, line, offs)); |
} |
} |
|
|
/* |
/* |
Line 389 man_ptext(struct man *m, int line, char *buf, int offs |
|
Line 437 man_ptext(struct man *m, int line, char *buf, int offs |
|
|
|
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]) |
if ( ! man_pmsg(m, line, i - 1, MANDOCERR_EOLNSPACE)) |
man_pmsg(m, line, i - 1, MANDOCERR_EOLNSPACE); |
return(0); |
|
|
|
for (--i; i && ' ' == buf[i]; i--) |
for (--i; i && ' ' == buf[i]; i--) |
/* Spin back to non-space. */ ; |
/* Spin back to non-space. */ ; |
Line 411 man_ptext(struct man *m, int line, char *buf, int offs |
|
Line 458 man_ptext(struct man *m, int line, char *buf, int offs |
|
*/ |
*/ |
|
|
assert(i); |
assert(i); |
if (mandoc_eos(buf, (size_t)i)) |
if (mandoc_eos(buf, (size_t)i, 0)) |
m->last->flags |= MAN_EOS; |
m->last->flags |= MAN_EOS; |
|
|
descope: |
return(man_descope(m, line, offs)); |
/* |
|
* Co-ordinate what happens with having a next-line scope open: |
|
* first close out the element scope (if applicable), then close |
|
* out the block scope (also if applicable). |
|
*/ |
|
|
|
if (MAN_ELINE & m->flags) { |
|
m->flags &= ~MAN_ELINE; |
|
if ( ! man_unscope(m, m->last->parent, MANDOCERR_MAX)) |
|
return(0); |
|
} |
|
|
|
if ( ! (MAN_BLINE & m->flags)) |
|
return(1); |
|
m->flags &= ~MAN_BLINE; |
|
|
|
if ( ! man_unscope(m, m->last->parent, MANDOCERR_MAX)) |
|
return(0); |
|
return(man_body_alloc(m, line, offs, m->last->tok)); |
|
} |
} |
|
|
|
|
static int |
|
macrowarn(struct man *m, int ln, const char *buf, int offs) |
|
{ |
|
int rc; |
|
|
|
rc = man_vmsg(m, MANDOCERR_MACRO, ln, offs, |
|
"unknown macro: %s%s", |
|
buf, strlen(buf) > 3 ? "..." : ""); |
|
|
|
return(MAN_IGN_MACRO & m->pflags ? rc : 0); |
|
} |
|
|
|
|
|
int |
int |
man_pmacro(struct man *m, const struct regset *regs, |
man_pmacro(struct man *m, int ln, char *buf, int offs) |
int ln, char *buf, int offs) |
|
{ |
{ |
int i, j, ppos; |
int i, j, ppos; |
enum mant tok; |
enum mant tok; |
Line 483 man_pmacro(struct man *m, const struct regset *regs, |
|
Line 497 man_pmacro(struct man *m, const struct regset *regs, |
|
|
|
ppos = i; |
ppos = i; |
|
|
/* Copy the first word into a nil-terminated buffer. */ |
/* |
|
* Copy the first word into a nil-terminated buffer. |
|
* Stop copying when a tab, space, or eoln is encountered. |
|
*/ |
|
|
for (j = 0; j < 4; j++, i++) { |
j = 0; |
if ('\0' == (mac[j] = buf[i])) |
while (j < 4 && '\0' != buf[i] && ' ' != buf[i] && '\t' != buf[i]) |
break; |
mac[j++] = buf[i++]; |
else if (' ' == buf[i]) |
|
break; |
|
|
|
/* Check for invalid characters. */ |
|
|
|
if (isgraph((u_char)buf[i])) |
|
continue; |
|
if ( ! man_pmsg(m, ln, i, MANDOCERR_BADCHAR)) |
|
return(0); |
|
i--; |
|
} |
|
|
|
mac[j] = '\0'; |
mac[j] = '\0'; |
|
|
if (j == 4 || j < 1) { |
tok = (j > 0 && j < 4) ? man_hash_find(mac) : MAN_MAX; |
if ( ! macrowarn(m, ln, mac, ppos)) |
if (MAN_MAX == tok) { |
goto err; |
man_vmsg(m, MANDOCERR_MACRO, ln, ppos, "%s", buf + ppos - 1); |
return(1); |
return(1); |
} |
} |
|
|
if (MAN_MAX == (tok = man_hash_find(mac))) { |
|
if ( ! macrowarn(m, ln, mac, ppos)) |
|
goto err; |
|
return(1); |
|
} |
|
|
|
/* The macro is sane. Jump to the next word. */ |
/* The macro is sane. Jump to the next word. */ |
|
|
Line 525 man_pmacro(struct man *m, const struct regset *regs, |
|
Line 524 man_pmacro(struct man *m, const struct regset *regs, |
|
*/ |
*/ |
|
|
if ('\0' == buf[i] && ' ' == buf[i - 1]) |
if ('\0' == buf[i] && ' ' == buf[i - 1]) |
if ( ! man_pmsg(m, ln, i - 1, MANDOCERR_EOLNSPACE)) |
man_pmsg(m, ln, i - 1, MANDOCERR_EOLNSPACE); |
goto err; |
|
|
|
/* |
/* |
* Remove prior ELINE macro, as it's being clobbering by a new |
* Remove prior ELINE macro, as it's being clobbered by a new |
* macro. Note that NSCOPED macros do not close out ELINE |
* macro. Note that NSCOPED macros do not close out ELINE |
* macros---they don't print text---so we let those slip by. |
* macros---they don't print text---so we let those slip by. |
*/ |
*/ |
|
|
if ( ! (MAN_NSCOPED & man_macros[tok].flags) && |
if ( ! (MAN_NSCOPED & man_macros[tok].flags) && |
m->flags & MAN_ELINE) { |
m->flags & MAN_ELINE) { |
assert(MAN_TEXT != m->last->type); |
|
|
|
/* |
|
* This occurs in the following construction: |
|
* .B |
|
* .br |
|
* .B |
|
* .br |
|
* I hate man macros. |
|
* Flat-out disallow this madness. |
|
*/ |
|
if (MAN_NSCOPED & man_macros[m->last->tok].flags) { |
|
man_pmsg(m, ln, ppos, MANDOCERR_SYNTLINESCOPE); |
|
return(0); |
|
} |
|
|
|
n = m->last; |
n = m->last; |
|
assert(MAN_TEXT != n->type); |
|
|
assert(n); |
/* Remove repeated NSCOPED macros causing ELINE. */ |
assert(NULL == n->child); |
|
assert(0 == n->nchild); |
|
|
|
if ( ! man_nmsg(m, n, MANDOCERR_LINESCOPE)) |
if (MAN_NSCOPED & man_macros[n->tok].flags) |
return(0); |
n = n->parent; |
|
|
|
man_vmsg(m, MANDOCERR_LINESCOPE, n->line, n->pos, |
|
"%s", man_macronames[n->tok]); |
|
|
man_node_delete(m, n); |
man_node_delete(m, n); |
m->flags &= ~MAN_ELINE; |
m->flags &= ~MAN_ELINE; |
} |
} |
Line 577 man_pmacro(struct man *m, const struct regset *regs, |
|
Line 561 man_pmacro(struct man *m, const struct regset *regs, |
|
/* Call to handler... */ |
/* Call to handler... */ |
|
|
assert(man_macros[tok].fp); |
assert(man_macros[tok].fp); |
if ( ! (*man_macros[tok].fp)(m, regs, tok, ln, ppos, &i, buf)) |
if ( ! (*man_macros[tok].fp)(m, tok, ln, ppos, &i, buf)) |
goto err; |
goto err; |
|
|
out: |
out: |