version 1.96, 2009/07/27 19:43:02 |
version 1.100, 2009/08/18 14:27:16 |
Line 29 const char *const __mdoc_merrnames[MERRMAX] = { |
|
Line 29 const char *const __mdoc_merrnames[MERRMAX] = { |
|
"unterminated quoted parameter", /* EQUOTTERM */ |
"unterminated quoted parameter", /* EQUOTTERM */ |
"system: malloc error", /* EMALLOC */ |
"system: malloc error", /* EMALLOC */ |
"argument parameter suggested", /* EARGVAL */ |
"argument parameter suggested", /* EARGVAL */ |
"macro not callable", /* ENOCALL */ |
|
"macro disallowed in prologue", /* EBODYPROL */ |
"macro disallowed in prologue", /* EBODYPROL */ |
"macro disallowed in body", /* EPROLBODY */ |
"macro disallowed in body", /* EPROLBODY */ |
"text disallowed in prologue", /* ETEXTPROL */ |
"text disallowed in prologue", /* ETEXTPROL */ |
Line 70 const char *const __mdoc_merrnames[MERRMAX] = { |
|
Line 69 const char *const __mdoc_merrnames[MERRMAX] = { |
|
"superfluous width argument", /* ENOWIDTH */ |
"superfluous width argument", /* ENOWIDTH */ |
"system: utsname error", /* EUTSNAME */ |
"system: utsname error", /* EUTSNAME */ |
"obsolete macro", /* EOBS */ |
"obsolete macro", /* EOBS */ |
"macro-like parameter", /* EMACPARM */ |
|
"end-of-line scope violation", /* EIMPBRK */ |
"end-of-line scope violation", /* EIMPBRK */ |
"empty macro ignored", /* EIGNE */ |
"empty macro ignored", /* EIGNE */ |
"unclosed explicit scope", /* EOPEN */ |
"unclosed explicit scope", /* EOPEN */ |
"unterminated quoted phrase", /* EQUOTPHR */ |
"unterminated quoted phrase", /* EQUOTPHR */ |
"closure macro without prior context", /* ENOCTX */ |
"closure macro without prior context", /* ENOCTX */ |
"invalid whitespace after control character", /* ESPACE */ |
|
"no description found for library" /* ELIB */ |
"no description found for library" /* ELIB */ |
}; |
}; |
|
|
|
|
mdoc_macro(struct mdoc *m, int tok, |
mdoc_macro(struct mdoc *m, int tok, |
int ln, int pp, int *pos, char *buf) |
int ln, int pp, int *pos, char *buf) |
{ |
{ |
|
/* |
|
* If we're in the prologue, deny "body" macros. Similarly, if |
|
* we're in the body, deny prologue calls. |
|
*/ |
if (MDOC_PROLOGUE & mdoc_macros[tok].flags && |
if (MDOC_PROLOGUE & mdoc_macros[tok].flags && |
MDOC_PBODY & m->flags) |
MDOC_PBODY & m->flags) |
return(mdoc_perr(m, ln, pp, EPROLBODY)); |
return(mdoc_perr(m, ln, pp, EPROLBODY)); |
Line 361 mdoc_macro(struct mdoc *m, int tok, |
|
Line 361 mdoc_macro(struct mdoc *m, int tok, |
|
! (MDOC_PBODY & m->flags)) |
! (MDOC_PBODY & m->flags)) |
return(mdoc_perr(m, ln, pp, EBODYPROL)); |
return(mdoc_perr(m, ln, pp, EBODYPROL)); |
|
|
if (1 != pp && ! (MDOC_CALLABLE & mdoc_macros[tok].flags)) |
|
return(mdoc_perr(m, ln, pp, ENOCALL)); |
|
|
|
return((*mdoc_macros[tok].fp)(m, tok, ln, pp, pos, buf)); |
return((*mdoc_macros[tok].fp)(m, tok, ln, pp, pos, buf)); |
} |
} |
|
|
Line 672 macrowarn(struct mdoc *m, int ln, const char *buf) |
|
Line 669 macrowarn(struct mdoc *m, int ln, const char *buf) |
|
int |
int |
parsemacro(struct mdoc *m, int ln, char *buf) |
parsemacro(struct mdoc *m, int ln, char *buf) |
{ |
{ |
int i, c; |
int i, j, c, ppos; |
char mac[5]; |
char mac[5]; |
|
|
/* Empty lines are ignored. */ |
/* Empty lines are ignored. */ |
Line 680 parsemacro(struct mdoc *m, int ln, char *buf) |
|
Line 677 parsemacro(struct mdoc *m, int ln, char *buf) |
|
if (0 == buf[1]) |
if (0 == buf[1]) |
return(1); |
return(1); |
|
|
if (' ' == buf[1]) { |
i = 1; |
i = 2; |
|
|
/* Accept whitespace after the initial control char. */ |
|
|
|
if (' ' == buf[i]) { |
|
i++; |
while (buf[i] && ' ' == buf[i]) |
while (buf[i] && ' ' == buf[i]) |
i++; |
i++; |
if (0 == buf[i]) |
if (0 == buf[i]) |
return(1); |
return(1); |
return(mdoc_perr(m, ln, 1, ESPACE)); |
|
} |
} |
|
|
|
ppos = i; |
|
|
/* Copy the first word into a nil-terminated buffer. */ |
/* Copy the first word into a nil-terminated buffer. */ |
|
|
for (i = 1; i < 5; i++) { |
for (j = 0; j < 4; j++, i++) { |
if (0 == (mac[i - 1] = buf[i])) |
if (0 == (mac[j] = buf[i])) |
break; |
break; |
else if (' ' == buf[i]) |
else if (' ' == buf[i]) |
break; |
break; |
} |
} |
|
|
mac[i - 1] = 0; |
mac[j] = 0; |
|
|
if (i == 5 || i <= 2) { |
if (j == 4 || j < 2) { |
if ( ! macrowarn(m, ln, mac)) |
if ( ! macrowarn(m, ln, mac)) |
goto err; |
goto err; |
return(1); |
return(1); |
Line 717 parsemacro(struct mdoc *m, int ln, char *buf) |
|
Line 719 parsemacro(struct mdoc *m, int ln, char *buf) |
|
while (buf[i] && ' ' == buf[i]) |
while (buf[i] && ' ' == buf[i]) |
i++; |
i++; |
|
|
/* Begin recursive parse sequence. */ |
/* |
|
* Begin recursive parse sequence. Since we're at the start of |
if ( ! mdoc_macro(m, c, ln, 1, &i, buf)) |
* the line, we don't need to do callable/parseable checks. |
|
*/ |
|
if ( ! mdoc_macro(m, c, ln, ppos, &i, buf)) |
goto err; |
goto err; |
|
|
return(1); |
return(1); |
Line 729 err: /* Error out. */ |
|
Line 733 err: /* Error out. */ |
|
m->flags |= MDOC_HALT; |
m->flags |= MDOC_HALT; |
return(0); |
return(0); |
} |
} |
|
|
|
|