version 1.43, 2008/12/05 22:54:44 |
version 1.49, 2008/12/07 16:41:04 |
Line 91 static int roffcall(struct rofftree *, int, char ** |
|
Line 91 static int roffcall(struct rofftree *, int, char ** |
|
static int roffparse(struct rofftree *, char *); |
static int roffparse(struct rofftree *, char *); |
static int textparse(struct rofftree *, char *); |
static int textparse(struct rofftree *, char *); |
static int roffdata(struct rofftree *, int, char *); |
static int roffdata(struct rofftree *, int, char *); |
static int roffspecial(struct rofftree *, int, char **); |
static int roffspecial(struct rofftree *, int, |
|
const char *, const int *, |
|
const char **, size_t, char **); |
static int roffsetname(struct rofftree *, char **); |
static int roffsetname(struct rofftree *, char **); |
static int roffgetname(struct rofftree *, char **, |
|
const char *); |
|
|
|
#ifdef __linux__ |
#ifdef __linux__ |
extern size_t strlcat(char *, const char *, size_t); |
extern size_t strlcat(char *, const char *, size_t); |
Line 619 roffnode_free(struct rofftree *tree) |
|
Line 619 roffnode_free(struct rofftree *tree) |
|
|
|
|
|
static int |
static int |
roffspecial(struct rofftree *tree, int tok, char **ordp) |
roffspecial(struct rofftree *tree, int tok, const char *start, |
|
const int *argc, const char **argv, |
|
size_t sz, char **ordp) |
{ |
{ |
|
|
|
switch (tok) { |
|
case (ROFF_At): |
|
if (0 == sz) |
|
break; |
|
if (0 == strcmp(*ordp, "v6")) |
|
break; |
|
else if (0 == strcmp(*ordp, "v7")) |
|
break; |
|
else if (0 == strcmp(*ordp, "32v")) |
|
break; |
|
else if (0 == strcmp(*ordp, "V.1")) |
|
break; |
|
else if (0 == strcmp(*ordp, "V.4")) |
|
break; |
|
roff_err(tree, start, "invalid `At' arg"); |
|
return(0); |
|
|
|
case (ROFF_Fn): |
|
if (0 != sz) |
|
break; |
|
roff_err(tree, start, "`%s' expects at least " |
|
"one arg", toknames[tok]); |
|
return(0); |
|
|
|
case (ROFF_Nm): |
|
if (0 == sz) { |
|
if (0 == tree->name[0]) { |
|
roff_err(tree, start, "`Nm' not set"); |
|
return(0); |
|
} |
|
ordp[0] = tree->name; |
|
ordp[1] = NULL; |
|
} else if ( ! roffsetname(tree, ordp)) |
|
return(0); |
|
break; |
|
|
|
case (ROFF_Rv): |
|
/* FALLTHROUGH*/ |
|
case (ROFF_Sx): |
|
/* FALLTHROUGH*/ |
|
case (ROFF_Ex): |
|
if (1 == sz) |
|
break; |
|
roff_err(tree, start, "`%s' expects one arg", |
|
toknames[tok]); |
|
return(0); |
|
|
|
case (ROFF_Sm): |
|
if (1 != sz) { |
|
roff_err(tree, start, "`Sm' expects one arg"); |
|
return(0); |
|
} |
|
|
|
if (0 != strcmp(ordp[0], "on") && |
|
0 != strcmp(ordp[0], "off")) { |
|
roff_err(tree, start, "`Sm' has invalid argument"); |
|
return(0); |
|
} |
|
break; |
|
|
|
case (ROFF_Ud): |
|
/* FALLTHROUGH */ |
|
case (ROFF_Ux): |
|
/* FALLTHROUGH */ |
|
case (ROFF_Bt): |
|
if (0 != sz) { |
|
roff_err(tree, start, "`%s' expects no args", |
|
toknames[tok]); |
|
return(0); |
|
} |
|
break; |
|
default: |
|
break; |
|
} |
|
|
return((*tree->cb.roffspecial)(tree->arg, tok, |
return((*tree->cb.roffspecial)(tree->arg, tok, |
tree->cur, ordp)); |
tree->cur, argc, argv, ordp)); |
} |
} |
|
|
|
|
Line 888 roff_Dt(ROFFCALL_ARGS) |
|
Line 965 roff_Dt(ROFFCALL_ARGS) |
|
|
|
|
|
static int |
static int |
roffgetname(struct rofftree *tree, char **ordp, const char *start) |
|
{ |
|
if (0 == tree->name[0]) { |
|
roff_err(tree, start, "`Nm' name not set"); |
|
return(0); |
|
} |
|
*ordp++ = tree->name; |
|
*ordp = NULL; |
|
return(1); |
|
} |
|
|
|
|
|
static int |
|
roffsetname(struct rofftree *tree, char **ordp) |
roffsetname(struct rofftree *tree, char **ordp) |
{ |
{ |
|
|
Line 924 roffsetname(struct rofftree *tree, char **ordp) |
|
Line 988 roffsetname(struct rofftree *tree, char **ordp) |
|
|
|
|
|
/* ARGSUSED */ |
/* ARGSUSED */ |
static int |
|
roff_Sm(ROFFCALL_ARGS) |
|
{ |
|
char *morep[1], *p; |
|
|
|
p = *argv++; |
|
|
|
if (NULL == (morep[0] = *argv++)) { |
|
roff_err(tree, p, "`Sm' expects an argument"); |
|
return(0); |
|
} else if (0 != strcmp(morep[0], "on") && |
|
0 != strcmp(morep[0], "off")) { |
|
roff_err(tree, p, "`Sm' has invalid argument"); |
|
return(0); |
|
} |
|
|
|
if (*argv) |
|
roff_warn(tree, *argv, "`Sm' shouldn't have arguments"); |
|
|
|
if ( ! roffspecial(tree, tok, morep)) |
|
return(0); |
|
|
|
while (*argv) |
|
if ( ! roffdata(tree, 1, *argv++)) |
|
return(0); |
|
|
|
return(1); |
|
} |
|
|
|
|
|
/* ARGSUSED */ |
|
static int |
static int |
roff_Ns(ROFFCALL_ARGS) |
roff_Ns(ROFFCALL_ARGS) |
{ |
{ |
Line 964 roff_Ns(ROFFCALL_ARGS) |
|
Line 997 roff_Ns(ROFFCALL_ARGS) |
|
first = (*argv++ == tree->cur); |
first = (*argv++ == tree->cur); |
morep[0] = NULL; |
morep[0] = NULL; |
|
|
if ( ! roffspecial(tree, tok, morep)) |
if ( ! roffspecial(tree, tok, *argv, NULL, NULL, 0, morep)) |
return(0); |
return(0); |
|
|
while (*argv) { |
while (*argv) { |
Line 1159 roff_layout(ROFFCALL_ARGS) |
|
Line 1192 roff_layout(ROFFCALL_ARGS) |
|
static int |
static int |
roff_ordered(ROFFCALL_ARGS) |
roff_ordered(ROFFCALL_ARGS) |
{ |
{ |
int i, first, c; |
int i, first, c, argcp[ROFF_MAXLINEARG]; |
char *ordp[ROFF_MAXLINEARG]; |
char *ordp[ROFF_MAXLINEARG], *p, |
|
*argvp[ROFF_MAXLINEARG]; |
|
|
if (ROFF_PRELUDE & tree->state) { |
if (ROFF_PRELUDE & tree->state) { |
roff_err(tree, *argv, "`%s' disallowed in prelude", |
roff_err(tree, *argv, "`%s' disallowed in prelude", |
Line 1169 roff_ordered(ROFFCALL_ARGS) |
|
Line 1203 roff_ordered(ROFFCALL_ARGS) |
|
} |
} |
|
|
first = (*argv == tree->cur); |
first = (*argv == tree->cur); |
argv++; |
p = *argv++; |
|
|
if (NULL == *argv) { |
if ( ! roffparseopts(tree, tok, &argv, argcp, argvp)) |
switch (tok) { |
return(0); |
case (ROFF_Nm): |
|
if ( ! roffgetname(tree, ordp, *(argv - 1))) |
|
return(0); |
|
break; |
|
default: |
|
*ordp = NULL; |
|
break; |
|
} |
|
|
|
return(roffspecial(tree, tok, ordp)); |
if (NULL == *argv) { |
|
ordp[0] = NULL; |
|
return(roffspecial(tree, tok, p, argcp, |
|
(const char **)argvp, 0, ordp)); |
} |
} |
|
|
i = 0; |
i = 0; |
while (*argv && i < ROFF_MAXLINEARG) { |
while (*argv && i < ROFF_MAXLINEARG) { |
c = rofffindcallable(*argv); |
c = ROFF_PARSED & tokens[tok].flags ? |
|
rofffindcallable(*argv) : ROFF_MAX; |
|
|
if (ROFF_MAX == c && ! roffispunct(*argv)) { |
if (ROFF_MAX == c && ! roffispunct(*argv)) { |
ordp[i++] = *argv++; |
ordp[i++] = *argv++; |
Line 1198 roff_ordered(ROFFCALL_ARGS) |
|
Line 1228 roff_ordered(ROFFCALL_ARGS) |
|
if (ROFF_MAX == c) |
if (ROFF_MAX == c) |
break; |
break; |
|
|
switch (tok) { |
if ( ! roffspecial(tree, tok, p, argcp, |
case (ROFF_Nm): |
(const char **)argvp, |
if ( ! roffsetname(tree, ordp)) |
(size_t)i, ordp)) |
return(0); |
|
break; |
|
default: |
|
break; |
|
} |
|
|
|
if ( ! roffspecial(tree, tok, ordp)) |
|
return(0); |
return(0); |
|
|
return(roffcall(tree, c, ordp)); |
return(roffcall(tree, c, argv)); |
} |
} |
|
|
assert(i != ROFF_MAXLINEARG); |
assert(i != ROFF_MAXLINEARG); |
ordp[i] = NULL; |
ordp[i] = NULL; |
|
|
switch (tok) { |
if ( ! roffspecial(tree, tok, p, argcp, |
case (ROFF_Nm): |
(const char**)argvp, |
if ( ! roffsetname(tree, ordp)) |
(size_t)i, ordp)) |
return(0); |
|
break; |
|
default: |
|
break; |
|
} |
|
|
|
if ( ! roffspecial(tree, tok, ordp)) |
|
return(0); |
return(0); |
|
|
/* FIXME: error if there's stuff after the punctuation. */ |
/* FIXME: error if there's stuff after the punctuation. */ |
Line 1274 roff_text(ROFFCALL_ARGS) |
|
Line 1290 roff_text(ROFFCALL_ARGS) |
|
* terminating punctuation. If we encounter it and all |
* terminating punctuation. If we encounter it and all |
* subsequent tokens are punctuation, then stop processing (the |
* subsequent tokens are punctuation, then stop processing (the |
* line-dominant macro will print these tokens after closure). |
* line-dominant macro will print these tokens after closure). |
|
* If the punctuation is followed by non-punctuation, then close |
|
* and re-open our scope, then continue. |
*/ |
*/ |
|
|
i = 0; |
i = 0; |
Line 1305 roff_text(ROFFCALL_ARGS) |
|
Line 1323 roff_text(ROFFCALL_ARGS) |
|
break; |
break; |
|
|
if (argv[j]) { |
if (argv[j]) { |
|
if (ROFF_LSCOPE & tokens[tok].flags) { |
|
if ( ! roffdata(tree, 0, *argv++)) |
|
return(0); |
|
continue; |
|
} |
|
if ( ! (*tree->cb.roffout)(tree->arg, tok)) |
|
return(0); |
if ( ! roffdata(tree, 0, *argv++)) |
if ( ! roffdata(tree, 0, *argv++)) |
return(0); |
return(0); |
|
if ( ! (*tree->cb.roffin)(tree->arg, tok, |
|
argcp, argvp)) |
|
return(0); |
|
|
|
i = 0; |
continue; |
continue; |
} |
} |
|
|