version 1.9, 2011/01/03 13:59:21 |
version 1.18, 2011/04/04 23:04:38 |
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
*/ |
*/ |
|
#ifdef HAVE_CONFIG_H |
|
#include "config.h" |
|
#endif |
|
|
#include <assert.h> |
#include <assert.h> |
#include <ctype.h> |
#include <ctype.h> |
#include <stdlib.h> |
#include <stdlib.h> |
Line 29 struct tbl_phrase { |
|
Line 33 struct tbl_phrase { |
|
enum tbl_cellt key; |
enum tbl_cellt key; |
}; |
}; |
|
|
|
/* |
|
* FIXME: we can make this parse a lot nicer by, when an error is |
|
* encountered in a layout key, bailing to the next key (i.e. to the |
|
* next whitespace then continuing). |
|
*/ |
|
|
#define KEYS_MAX 11 |
#define KEYS_MAX 11 |
|
|
static const struct tbl_phrase keys[KEYS_MAX] = { |
static const struct tbl_phrase keys[KEYS_MAX] = { |
|
|
break; |
break; |
} |
} |
|
|
|
/* Throw away parenthesised expression. */ |
|
|
|
if ('(' == p[*pos]) { |
|
(*pos)++; |
|
while (p[*pos] && ')' != p[*pos]) |
|
(*pos)++; |
|
if (')' == p[*pos]) { |
|
(*pos)++; |
|
goto mod; |
|
} |
|
mandoc_msg(MANDOCERR_TBLLAYOUT, |
|
tbl->parse, ln, *pos, NULL); |
|
return(0); |
|
} |
|
|
/* Parse numerical spacing from modifier string. */ |
/* Parse numerical spacing from modifier string. */ |
|
|
if (isdigit((unsigned char)p[*pos])) { |
if (isdigit((unsigned char)p[*pos])) { |
|
|
/* No greater than 4 digits. */ |
/* No greater than 4 digits. */ |
|
|
if (4 == i) { |
if (4 == i) { |
TBL_MSG(tbl, MANDOCERR_TBLLAYOUT, ln, *pos); |
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, |
|
ln, *pos, NULL); |
return(0); |
return(0); |
} |
} |
|
|
*pos += i; |
*pos += i; |
cp->spacing = atoi(buf); |
cp->spacing = (size_t)atoi(buf); |
|
|
goto mod; |
goto mod; |
/* NOTREACHED */ |
/* NOTREACHED */ |
|
|
|
|
/* TODO: GNU has many more extensions. */ |
/* TODO: GNU has many more extensions. */ |
|
|
switch (tolower(p[(*pos)++])) { |
switch (tolower((unsigned char)p[(*pos)++])) { |
case ('z'): |
case ('z'): |
cp->flags |= TBL_CELL_WIGN; |
cp->flags |= TBL_CELL_WIGN; |
goto mod; |
goto mod; |
|
|
case ('d'): |
case ('d'): |
cp->flags |= TBL_CELL_BALIGN; |
cp->flags |= TBL_CELL_BALIGN; |
goto mod; |
goto mod; |
|
case ('w'): /* XXX for now, ignore minimal column width */ |
|
goto mod; |
case ('f'): |
case ('f'): |
break; |
break; |
case ('b'): |
case ('b'): |
|
|
(*pos)--; |
(*pos)--; |
break; |
break; |
default: |
default: |
TBL_MSG(tbl, MANDOCERR_TBLLAYOUT, ln, *pos - 1); |
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, |
|
ln, *pos - 1, NULL); |
return(0); |
return(0); |
} |
} |
|
|
switch (tolower(p[(*pos)++])) { |
switch (tolower((unsigned char)p[(*pos)++])) { |
case ('b'): |
case ('b'): |
cp->flags |= TBL_CELL_BOLD; |
cp->flags |= TBL_CELL_BOLD; |
goto mod; |
goto mod; |
|
|
break; |
break; |
} |
} |
|
|
TBL_MSG(tbl, MANDOCERR_TBLLAYOUT, ln, *pos - 1); |
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, |
|
ln, *pos - 1, NULL); |
return(0); |
return(0); |
} |
} |
|
|
Line 163 cell(struct tbl_node *tbl, struct tbl_row *rp, |
|
Line 193 cell(struct tbl_node *tbl, struct tbl_row *rp, |
|
/* Parse the column position (`r', `R', `|', ...). */ |
/* Parse the column position (`r', `R', `|', ...). */ |
|
|
for (i = 0; i < KEYS_MAX; i++) |
for (i = 0; i < KEYS_MAX; i++) |
if (tolower(p[*pos]) == keys[i].name) |
if (tolower((unsigned char)p[*pos]) == keys[i].name) |
break; |
break; |
|
|
if (KEYS_MAX == i) { |
if (KEYS_MAX == i) { |
TBL_MSG(tbl, MANDOCERR_TBLLAYOUT, ln, *pos); |
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, |
|
ln, *pos, NULL); |
return(0); |
return(0); |
} |
} |
|
|
(*pos)++; |
|
c = keys[i].key; |
c = keys[i].key; |
|
|
|
/* |
|
* If a span cell is found first, raise a warning and abort the |
|
* parse. If a span cell is found and the last layout element |
|
* isn't a "normal" layout, bail. |
|
* |
|
* FIXME: recover from this somehow? |
|
*/ |
|
|
|
if (TBL_CELL_SPAN == c) { |
|
if (NULL == rp->first) { |
|
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, |
|
ln, *pos, NULL); |
|
return(0); |
|
} else if (rp->last) |
|
switch (rp->last->pos) { |
|
case (TBL_CELL_VERT): |
|
case (TBL_CELL_DVERT): |
|
case (TBL_CELL_HORIZ): |
|
case (TBL_CELL_DHORIZ): |
|
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, |
|
ln, *pos, NULL); |
|
return(0); |
|
default: |
|
break; |
|
} |
|
} |
|
|
|
/* |
|
* If a vertical spanner is found, we may not be in the first |
|
* row. |
|
*/ |
|
|
|
if (TBL_CELL_DOWN == c && rp == tbl->first_row) { |
|
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, ln, *pos, NULL); |
|
return(0); |
|
} |
|
|
|
(*pos)++; |
|
|
/* Extra check for the double-vertical. */ |
/* Extra check for the double-vertical. */ |
|
|
if (TBL_CELL_VERT == c && '|' == p[*pos]) { |
if (TBL_CELL_VERT == c && '|' == p[*pos]) { |
Line 186 cell(struct tbl_node *tbl, struct tbl_row *rp, |
|
Line 255 cell(struct tbl_node *tbl, struct tbl_row *rp, |
|
if (rp->last && (TBL_CELL_VERT == c || TBL_CELL_DVERT == c) && |
if (rp->last && (TBL_CELL_VERT == c || TBL_CELL_DVERT == c) && |
(TBL_CELL_VERT == rp->last->pos || |
(TBL_CELL_VERT == rp->last->pos || |
TBL_CELL_DVERT == rp->last->pos)) { |
TBL_CELL_DVERT == rp->last->pos)) { |
TBL_MSG(tbl, MANDOCERR_TBLLAYOUT, ln, *pos - 1); |
mandoc_msg(MANDOCERR_TBLLAYOUT, tbl->parse, ln, *pos - 1, NULL); |
return(0); |
return(0); |
} |
} |
|
|
|
|
if ('.' == p[*pos]) { |
if ('.' == p[*pos]) { |
tbl->part = TBL_PART_DATA; |
tbl->part = TBL_PART_DATA; |
if (NULL == tbl->first_row) |
if (NULL == tbl->first_row) |
TBL_MSG(tbl, MANDOCERR_TBLNOLAYOUT, ln, *pos); |
mandoc_msg(MANDOCERR_TBLNOLAYOUT, tbl->parse, |
|
ln, *pos, NULL); |
(*pos)++; |
(*pos)++; |
return; |
return; |
} |
} |