version 1.48, 2010/03/31 07:42:04 |
version 1.51, 2010/04/05 08:45:29 |
|
|
|
|
#include "libmdoc.h" |
#include "libmdoc.h" |
|
|
#define REWIND_REWIND (1 << 0) |
enum rew { |
#define REWIND_NOHALT (1 << 1) |
REWIND_REWIND, |
#define REWIND_HALT (1 << 2) |
REWIND_NOHALT, |
|
REWIND_HALT |
|
}; |
|
|
static int ctx_synopsis(MACRO_PROT_ARGS); |
static int ctx_synopsis(MACRO_PROT_ARGS); |
static int obsolete(MACRO_PROT_ARGS); |
static int obsolete(MACRO_PROT_ARGS); |
Line 42 static int blk_exp_close(MACRO_PROT_ARGS); |
|
Line 44 static int blk_exp_close(MACRO_PROT_ARGS); |
|
static int blk_part_imp(MACRO_PROT_ARGS); |
static int blk_part_imp(MACRO_PROT_ARGS); |
|
|
static int phrase(struct mdoc *, int, int, char *); |
static int phrase(struct mdoc *, int, int, char *); |
static int rew_dohalt(enum mdoct, enum mdoc_type, |
static enum rew rew_dohalt(enum mdoct, enum mdoc_type, |
const struct mdoc_node *); |
const struct mdoc_node *); |
static enum mdoct rew_alt(enum mdoct); |
static enum mdoct rew_alt(enum mdoct); |
static int rew_dobreak(enum mdoct, const struct mdoc_node *); |
static int rew_dobreak(enum mdoct, const struct mdoc_node *); |
Line 368 rew_alt(enum mdoct tok) |
|
Line 370 rew_alt(enum mdoct tok) |
|
* close our current scope (REWIND_REWIND), or continue (REWIND_NOHALT). |
* close our current scope (REWIND_REWIND), or continue (REWIND_NOHALT). |
* The scope-closing and so on occurs in the various rew_* routines. |
* The scope-closing and so on occurs in the various rew_* routines. |
*/ |
*/ |
static int |
static enum rew |
rew_dohalt(enum mdoct tok, enum mdoc_type type, |
rew_dohalt(enum mdoct tok, enum mdoc_type type, |
const struct mdoc_node *p) |
const struct mdoc_node *p) |
{ |
{ |
Line 574 rew_sub(enum mdoc_type t, struct mdoc *m, |
|
Line 576 rew_sub(enum mdoc_type t, struct mdoc *m, |
|
enum mdoct tok, int line, int ppos) |
enum mdoct tok, int line, int ppos) |
{ |
{ |
struct mdoc_node *n; |
struct mdoc_node *n; |
int c; |
enum rew c; |
|
|
/* LINTED */ |
/* LINTED */ |
for (n = m->last; n; n = n->parent) { |
for (n = m->last; n; n = n->parent) { |
Line 818 in_line(MACRO_PROT_ARGS) |
|
Line 820 in_line(MACRO_PROT_ARGS) |
|
* the word. |
* the word. |
*/ |
*/ |
|
|
d = mdoc_isdelim(p); |
d = ARGS_QWORD == w ? 0 : mdoc_isdelim(p); |
|
|
if (ARGS_QWORD != w && d) { |
if (ARGS_QWORD != w && d) { |
if (0 == lastpunct && ! rew_elem(m, tok)) |
if (0 == lastpunct && ! rew_elem(m, tok)) |
Line 879 blk_full(MACRO_PROT_ARGS) |
|
Line 881 blk_full(MACRO_PROT_ARGS) |
|
int c, la; |
int c, la; |
struct mdoc_arg *arg; |
struct mdoc_arg *arg; |
struct mdoc_node *head; /* save of head macro */ |
struct mdoc_node *head; /* save of head macro */ |
|
struct mdoc_node *body; /* save of body macro */ |
#ifdef UGLY |
#ifdef UGLY |
struct mdoc_node *n; |
struct mdoc_node *n; |
#endif |
#endif |
Line 923 blk_full(MACRO_PROT_ARGS) |
|
Line 926 blk_full(MACRO_PROT_ARGS) |
|
if ( ! mdoc_block_alloc(m, line, ppos, tok, arg)) |
if ( ! mdoc_block_alloc(m, line, ppos, tok, arg)) |
return(0); |
return(0); |
|
|
head = NULL; |
head = body = NULL; |
|
|
/* |
/* |
* The `Nd' macro has all arguments in its body: it's a hybrid |
* The `Nd' macro has all arguments in its body: it's a hybrid |
Line 938 blk_full(MACRO_PROT_ARGS) |
|
Line 941 blk_full(MACRO_PROT_ARGS) |
|
return(0); |
return(0); |
if ( ! mdoc_body_alloc(m, line, ppos, tok)) |
if ( ! mdoc_body_alloc(m, line, ppos, tok)) |
return(0); |
return(0); |
|
body = m->last; |
} |
} |
|
|
for (;;) { |
for (;;) { |
Line 952 blk_full(MACRO_PROT_ARGS) |
|
Line 956 blk_full(MACRO_PROT_ARGS) |
|
/* Don't emit leading punct. for phrases. */ |
/* Don't emit leading punct. for phrases. */ |
|
|
if (NULL == head && ARGS_PHRASE != c && |
if (NULL == head && ARGS_PHRASE != c && |
|
ARGS_QWORD != c && |
1 == mdoc_isdelim(p)) { |
1 == mdoc_isdelim(p)) { |
if ( ! mdoc_word_alloc(m, line, la, p)) |
if ( ! mdoc_word_alloc(m, line, la, p)) |
return(0); |
return(0); |
Line 994 blk_full(MACRO_PROT_ARGS) |
|
Line 999 blk_full(MACRO_PROT_ARGS) |
|
if (1 == ppos && ! append_delims(m, line, pos, buf)) |
if (1 == ppos && ! append_delims(m, line, pos, buf)) |
return(0); |
return(0); |
|
|
/* See notes on `Nd' hybrid, above. */ |
/* If we've already opened our body, exit now. */ |
|
|
if (MDOC_Nd == tok) |
if (NULL != body) |
return(1); |
return(1); |
|
|
#ifdef UGLY |
#ifdef UGLY |
/* |
/* |
* If there is an open sub-block requiring explicit close-out, |
* If there is an open (i.e., unvalidated) sub-block requiring |
* postpone switching the current block from head to body until |
* explicit close-out, postpone switching the current block from |
* the rew_sub() call closing out that sub-block. |
* head to body until the rew_sub() call closing out that |
|
* sub-block. |
*/ |
*/ |
for (n = m->last; n && n != head; n = n->parent) { |
for (n = m->last; n && n != head; n = n->parent) { |
if (MDOC_EXPLICIT & mdoc_macros[n->tok].flags && |
if (MDOC_BLOCK == n->type && |
MDOC_BLOCK == n->type) { |
MDOC_EXPLICIT & mdoc_macros[n->tok].flags && |
|
! (MDOC_VALID & n->flags)) { |
|
assert( ! (MDOC_ACTED & n->flags)); |
n->pending = head; |
n->pending = head; |
return(1); |
return(1); |
} |
} |
Line 1072 blk_part_imp(MACRO_PROT_ARGS) |
|
Line 1080 blk_part_imp(MACRO_PROT_ARGS) |
|
if (ARGS_PUNCT == c) |
if (ARGS_PUNCT == c) |
break; |
break; |
|
|
if (NULL == body && 1 == mdoc_isdelim(p)) { |
if (NULL == body && ARGS_QWORD != c && |
|
1 == mdoc_isdelim(p)) { |
if ( ! mdoc_word_alloc(m, line, la, p)) |
if ( ! mdoc_word_alloc(m, line, la, p)) |
return(0); |
return(0); |
continue; |
continue; |
Line 1164 blk_part_exp(MACRO_PROT_ARGS) |
|
Line 1173 blk_part_exp(MACRO_PROT_ARGS) |
|
|
|
/* Flush out leading punctuation. */ |
/* Flush out leading punctuation. */ |
|
|
if (NULL == head && 1 == mdoc_isdelim(p)) { |
if (NULL == head && ARGS_QWORD != c && |
|
1 == mdoc_isdelim(p)) { |
assert(NULL == body); |
assert(NULL == body); |
if ( ! mdoc_word_alloc(m, line, la, p)) |
if ( ! mdoc_word_alloc(m, line, la, p)) |
return(0); |
return(0); |
Line 1300 in_line_argn(MACRO_PROT_ARGS) |
|
Line 1310 in_line_argn(MACRO_PROT_ARGS) |
|
break; |
break; |
|
|
if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) && |
if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) && |
|
ARGS_QWORD != c && |
0 == j && 1 == mdoc_isdelim(p)) { |
0 == j && 1 == mdoc_isdelim(p)) { |
if ( ! mdoc_word_alloc(m, line, la, p)) |
if ( ! mdoc_word_alloc(m, line, la, p)) |
return(0); |
return(0); |
Line 1325 in_line_argn(MACRO_PROT_ARGS) |
|
Line 1336 in_line_argn(MACRO_PROT_ARGS) |
|
} |
} |
|
|
if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) && |
if ( ! (MDOC_IGNDELIM & mdoc_macros[tok].flags) && |
|
ARGS_QWORD != c && |
! flushed && mdoc_isdelim(p)) { |
! flushed && mdoc_isdelim(p)) { |
if ( ! rew_elem(m, tok)) |
if ( ! rew_elem(m, tok)) |
return(0); |
return(0); |