version 1.105, 2015/10/06 18:32:19 |
version 1.106, 2015/10/15 22:45:43 |
Line 447 static enum margserr |
|
Line 447 static enum margserr |
|
args(struct roff_man *mdoc, int line, int *pos, |
args(struct roff_man *mdoc, int line, int *pos, |
char *buf, enum argsflag fl, char **v) |
char *buf, enum argsflag fl, char **v) |
{ |
{ |
char *p, *pp; |
char *p; |
int pairs; |
int pairs; |
enum margserr rc; |
enum margserr rc; |
|
|
if ('\0' == buf[*pos]) { |
if (buf[*pos] == '\0') { |
if (MDOC_PPHRASE & mdoc->flags) |
if (mdoc->flags & MDOC_PHRASELIT && |
return ARGS_EOLN; |
! (mdoc->flags & MDOC_PPHRASE)) { |
/* |
|
* If we're not in a partial phrase and the flag for |
|
* being a phrase literal is still set, the punctuation |
|
* is unterminated. |
|
*/ |
|
if (MDOC_PHRASELIT & mdoc->flags) |
|
mandoc_msg(MANDOCERR_ARG_QUOTE, |
mandoc_msg(MANDOCERR_ARG_QUOTE, |
mdoc->parse, line, *pos, NULL); |
mdoc->parse, line, *pos, NULL); |
|
mdoc->flags &= ~MDOC_PHRASELIT; |
mdoc->flags &= ~MDOC_PHRASELIT; |
} |
return ARGS_EOLN; |
return ARGS_EOLN; |
} |
} |
|
|
*v = &buf[*pos]; |
*v = buf + *pos; |
|
|
if (ARGSFL_DELIM == fl) |
if (fl == ARGSFL_DELIM && args_checkpunct(buf, *pos)) |
if (args_checkpunct(buf, *pos)) |
return ARGS_PUNCT; |
return ARGS_PUNCT; |
|
|
|
/* |
/* |
* First handle TABSEP items, restricted to `Bl -column'. This |
* Tabs in `It' lines in `Bl -column' can't be escaped. |
* ignores conventional token parsing and instead uses tabs or |
* Phrases are reparsed for `Ta' and other macros later. |
* `Ta' macros to separate phrases. Phrases are parsed again |
|
* for arguments at a later phase. |
|
*/ |
*/ |
|
|
if (ARGSFL_TABSEP == fl) { |
if (fl == ARGSFL_TABSEP) { |
/* Scan ahead to tab (can't be escaped). */ |
if ((p = strchr(*v, '\t')) != NULL) { |
p = strchr(*v, '\t'); |
/* Skip any blank characters after the tab. */ |
pp = NULL; |
*pos += (int)(p - *v) + 1; |
|
while (buf[*pos] == ' ') |
/* Scan ahead to unescaped `Ta'. */ |
(*pos)++; |
if ( ! (MDOC_PHRASELIT & mdoc->flags)) |
|
for (pp = *v; ; pp++) { |
|
if (NULL == (pp = strstr(pp, "Ta"))) |
|
break; |
|
if (pp > *v && ' ' != *(pp - 1)) |
|
continue; |
|
if (' ' == *(pp + 2) || '\0' == *(pp + 2)) |
|
break; |
|
} |
|
|
|
/* By default, assume a phrase. */ |
|
rc = ARGS_PHRASE; |
|
|
|
/* |
|
* Adjust new-buffer position to be beyond delimiter |
|
* mark (e.g., Ta -> end + 2). |
|
*/ |
|
if (p && pp) { |
|
*pos += pp < p ? 2 : 1; |
|
rc = pp < p ? ARGS_PHRASE : ARGS_PPHRASE; |
|
p = pp < p ? pp : p; |
|
} else if (p && ! pp) { |
|
rc = ARGS_PPHRASE; |
rc = ARGS_PPHRASE; |
*pos += 1; |
|
} else if (pp && ! p) { |
|
p = pp; |
|
*pos += 2; |
|
} else { |
} else { |
|
p = strchr(*v, '\0'); |
|
if (p[-1] == ' ') |
|
mandoc_msg(MANDOCERR_SPACE_EOL, |
|
mdoc->parse, line, *pos, NULL); |
|
*pos += (int)(p - *v); |
rc = ARGS_PEND; |
rc = ARGS_PEND; |
p = strchr(*v, 0); |
|
} |
} |
|
|
/* Whitespace check for eoln case... */ |
/* Skip any trailing blank characters. */ |
if ('\0' == *p && ' ' == *(p - 1)) |
while (p > *v && p[-1] == ' ' && |
mandoc_msg(MANDOCERR_SPACE_EOL, mdoc->parse, |
(p - 1 == *v || p[-2] != '\\')) |
line, *pos, NULL); |
p--; |
|
*p = '\0'; |
*pos += (int)(p - *v); |
|
|
|
/* Strip delimiter's preceding whitespace. */ |
|
pp = p - 1; |
|
while (pp > *v && ' ' == *pp) { |
|
if (pp > *v && '\\' == *(pp - 1)) |
|
break; |
|
pp--; |
|
} |
|
*(pp + 1) = 0; |
|
|
|
/* Strip delimiter's proceeding whitespace. */ |
|
for (pp = &buf[*pos]; ' ' == *pp; pp++, (*pos)++) |
|
/* Skip ahead. */ ; |
|
|
|
return rc; |
return rc; |
} |
} |