=================================================================== RCS file: /cvs/mandoc/tbl.c,v retrieving revision 1.3 retrieving revision 1.36 diff -u -p -r1.3 -r1.36 --- mandoc/tbl.c 2010/12/28 13:46:07 1.3 +++ mandoc/tbl.c 2015/01/28 17:32:07 1.36 @@ -1,6 +1,7 @@ -/* $Id: tbl.c,v 1.3 2010/12/28 13:46:07 kristaps Exp $ */ +/* $Id: tbl.c,v 1.36 2015/01/28 17:32:07 schwarze Exp $ */ /* - * Copyright (c) 2009, 2010 Kristaps Dzonsons + * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons + * Copyright (c) 2011, 2015 Ingo Schwarze * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above @@ -14,6 +15,10 @@ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */ +#include "config.h" + +#include + #include #include #include @@ -21,125 +26,169 @@ #include #include "mandoc.h" -#include "roff.h" +#include "mandoc_aux.h" #include "libmandoc.h" #include "libroff.h" -static const char tbl_toks[TBL_TOK__MAX] = { - '(', ')', ',', ';', '.', - ' ', '\t', '\0' -}; -static void tbl_init(struct tbl *); -static void tbl_clear(struct tbl *); -static enum tbl_tok tbl_next_char(char); - -static void -tbl_clear(struct tbl *tbl) +enum rofferr +tbl_read(struct tbl_node *tbl, int ln, const char *p, int pos) { + const char *cp; + int active; -} + /* + * In the options section, proceed to the layout section + * after a semicolon, or right away if there is no semicolon. + * Ignore semicolons in arguments. + */ -static void -tbl_init(struct tbl *tbl) -{ + if (tbl->part == TBL_PART_OPTS) { + tbl->part = TBL_PART_LAYOUT; + active = 1; + for (cp = p + pos; *cp != '\0'; cp++) { + switch (*cp) { + case '(': + active = 0; + continue; + case ')': + active = 1; + continue; + case ';': + if (active) + break; + continue; + default: + continue; + } + break; + } + if (*cp == ';') { + tbl_option(tbl, ln, p, &pos); + if (p[pos] == '\0') + return(ROFF_IGN); + } + } - tbl->part = TBL_PART_OPTS; -} + /* Process the other section types. */ -enum rofferr -tbl_read(struct tbl *tbl, int ln, const char *p, int offs) -{ - int len; - const char *cp; + switch (tbl->part) { + case TBL_PART_LAYOUT: + tbl_layout(tbl, ln, p, pos); + return(ROFF_IGN); + case TBL_PART_CDATA: + return(tbl_cdata(tbl, ln, p, pos) ? ROFF_TBL : ROFF_IGN); + default: + break; + } - cp = &p[offs]; - len = (int)strlen(cp); - - if (len && TBL_PART_OPTS == tbl->part) - if (';' != cp[len - 1]) - tbl->part = TBL_PART_LAYOUT; - - return(ROFF_CONT); + tbl_data(tbl, ln, p, pos); + return(ROFF_TBL); } -struct tbl * -tbl_alloc(void) +struct tbl_node * +tbl_alloc(int pos, int line, struct mparse *parse) { - struct tbl *p; + struct tbl_node *tbl; - p = mandoc_malloc(sizeof(struct tbl)); - tbl_init(p); - return(p); + tbl = mandoc_calloc(1, sizeof(struct tbl_node)); + tbl->line = line; + tbl->pos = pos; + tbl->parse = parse; + tbl->part = TBL_PART_OPTS; + tbl->opts.tab = '\t'; + tbl->opts.decimal = '.'; + return(tbl); } void -tbl_free(struct tbl *p) +tbl_free(struct tbl_node *tbl) { + struct tbl_row *rp; + struct tbl_cell *cp; + struct tbl_span *sp; + struct tbl_dat *dp; + struct tbl_head *hp; - tbl_clear(p); - free(p); + while (NULL != (rp = tbl->first_row)) { + tbl->first_row = rp->next; + while (rp->first) { + cp = rp->first; + rp->first = cp->next; + free(cp); + } + free(rp); + } + + while (NULL != (sp = tbl->first_span)) { + tbl->first_span = sp->next; + while (sp->first) { + dp = sp->first; + sp->first = dp->next; + if (dp->string) + free(dp->string); + free(dp); + } + free(sp); + } + + while (NULL != (hp = tbl->first_head)) { + tbl->first_head = hp->next; + free(hp); + } + + free(tbl); } void -tbl_reset(struct tbl *tbl) +tbl_restart(int line, int pos, struct tbl_node *tbl) { + if (tbl->part == TBL_PART_CDATA) + mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse, + line, pos, "T&"); - tbl_clear(tbl); - tbl_init(tbl); + tbl->part = TBL_PART_LAYOUT; + tbl->line = line; + tbl->pos = pos; } -static enum tbl_tok -tbl_next_char(char c) +const struct tbl_span * +tbl_span(struct tbl_node *tbl) { - int i; + struct tbl_span *span; - /* - * These are delimiting tokens. They separate out words in the - * token stream. - * - * FIXME: make this into a hashtable for faster lookup. - */ - for (i = 0; i < TBL_TOK__MAX; i++) - if (c == tbl_toks[i]) - return((enum tbl_tok)i); - - return(TBL_TOK__MAX); + assert(tbl); + span = tbl->current_span ? tbl->current_span->next + : tbl->first_span; + if (span) + tbl->current_span = span; + return(span); } -enum tbl_tok -tbl_next(struct tbl *tbl, const char *p, int *pos) +int +tbl_end(struct tbl_node **tblp) { - int i; - enum tbl_tok c; + struct tbl_node *tbl; + struct tbl_span *sp; - tbl->buf[0] = '\0'; + tbl = *tblp; + *tblp = NULL; - if (TBL_TOK__MAX != (c = tbl_next_char(p[*pos]))) { - if (TBL_TOK_NIL != c) { - tbl->buf[0] = p[*pos]; - tbl->buf[1] = '\0'; - (*pos)++; - } - return(c); + if (tbl->part == TBL_PART_CDATA) + mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse, + tbl->line, tbl->pos, "TE"); + + sp = tbl->first_span; + while (sp != NULL && sp->first == NULL) + sp = sp->next; + if (sp == NULL) { + mandoc_msg(MANDOCERR_TBLDATA_NONE, tbl->parse, + tbl->line, tbl->pos, NULL); + return(0); } - /* - * Copy words into a nil-terminated buffer. For now, we use a - * static buffer. FIXME: eventually this should be made into a - * dynamic one living in struct tbl. - */ + if (tbl->last_span != NULL) + tbl->last_span->flags |= TBL_SPAN_LAST; - for (i = 0; i < BUFSIZ; i++, (*pos)++) - if (TBL_TOK__MAX == tbl_next_char(p[*pos])) - tbl->buf[i] = p[*pos]; - else - break; - - assert(i < BUFSIZ); - tbl->buf[i] = '\0'; - - return(TBL_TOK__MAX); + return(1); } - -