1 /* $Id: tbl.c,v 1.29 2014/04/20 16:46:05 schwarze Exp $ */ 2 /* 3 * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> 4 * Copyright (c) 2011 Ingo Schwarze <schwarze@openbsd.org> 5 * 6 * Permission to use, copy, modify, and distribute this software for any 7 * purpose with or without fee is hereby granted, provided that the above 8 * copyright notice and this permission notice appear in all copies. 9 * 10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 17 */ 18 #ifdef HAVE_CONFIG_H 19 #include "config.h" 20 #endif 21 22 #include <assert.h> 23 #include <stdio.h> 24 #include <stdlib.h> 25 #include <string.h> 26 #include <time.h> 27 28 #include "mandoc.h" 29 #include "mandoc_aux.h" 30 #include "libmandoc.h" 31 #include "libroff.h" 32 33 34 enum rofferr 35 tbl_read(struct tbl_node *tbl, int ln, const char *p, int offs) 36 { 37 int len; 38 const char *cp; 39 40 cp = &p[offs]; 41 len = (int)strlen(cp); 42 43 /* 44 * If we're in the options section and we don't have a 45 * terminating semicolon, assume we've moved directly into the 46 * layout section. No need to report a warning: this is, 47 * apparently, standard behaviour. 48 */ 49 50 if (TBL_PART_OPTS == tbl->part && len) 51 if (';' != cp[len - 1]) 52 tbl->part = TBL_PART_LAYOUT; 53 54 /* Now process each logical section of the table. */ 55 56 switch (tbl->part) { 57 case TBL_PART_OPTS: 58 return(tbl_option(tbl, ln, p) ? ROFF_IGN : ROFF_ERR); 59 case TBL_PART_LAYOUT: 60 return(tbl_layout(tbl, ln, p) ? ROFF_IGN : ROFF_ERR); 61 case TBL_PART_CDATA: 62 return(tbl_cdata(tbl, ln, p) ? ROFF_TBL : ROFF_IGN); 63 default: 64 break; 65 } 66 67 /* 68 * This only returns zero if the line is empty, so we ignore it 69 * and continue on. 70 */ 71 return(tbl_data(tbl, ln, p) ? ROFF_TBL : ROFF_IGN); 72 } 73 74 struct tbl_node * 75 tbl_alloc(int pos, int line, struct mparse *parse) 76 { 77 struct tbl_node *tbl; 78 79 tbl = mandoc_calloc(1, sizeof(struct tbl_node)); 80 tbl->line = line; 81 tbl->pos = pos; 82 tbl->parse = parse; 83 tbl->part = TBL_PART_OPTS; 84 tbl->opts.tab = '\t'; 85 tbl->opts.linesize = 12; 86 tbl->opts.decimal = '.'; 87 return(tbl); 88 } 89 90 void 91 tbl_free(struct tbl_node *tbl) 92 { 93 struct tbl_row *rp; 94 struct tbl_cell *cp; 95 struct tbl_span *sp; 96 struct tbl_dat *dp; 97 struct tbl_head *hp; 98 99 while (NULL != (rp = tbl->first_row)) { 100 tbl->first_row = rp->next; 101 while (rp->first) { 102 cp = rp->first; 103 rp->first = cp->next; 104 free(cp); 105 } 106 free(rp); 107 } 108 109 while (NULL != (sp = tbl->first_span)) { 110 tbl->first_span = sp->next; 111 while (sp->first) { 112 dp = sp->first; 113 sp->first = dp->next; 114 if (dp->string) 115 free(dp->string); 116 free(dp); 117 } 118 free(sp); 119 } 120 121 while (NULL != (hp = tbl->first_head)) { 122 tbl->first_head = hp->next; 123 free(hp); 124 } 125 126 free(tbl); 127 } 128 129 void 130 tbl_restart(int line, int pos, struct tbl_node *tbl) 131 { 132 if (TBL_PART_CDATA == tbl->part) 133 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse, 134 tbl->line, tbl->pos, NULL); 135 136 tbl->part = TBL_PART_LAYOUT; 137 tbl->line = line; 138 tbl->pos = pos; 139 140 if (NULL == tbl->first_span || NULL == tbl->first_span->first) 141 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse, 142 tbl->line, tbl->pos, NULL); 143 } 144 145 const struct tbl_span * 146 tbl_span(struct tbl_node *tbl) 147 { 148 struct tbl_span *span; 149 150 assert(tbl); 151 span = tbl->current_span ? tbl->current_span->next 152 : tbl->first_span; 153 if (span) 154 tbl->current_span = span; 155 return(span); 156 } 157 158 void 159 tbl_end(struct tbl_node **tblp) 160 { 161 struct tbl_node *tbl; 162 163 tbl = *tblp; 164 *tblp = NULL; 165 166 if (NULL == tbl->first_span || NULL == tbl->first_span->first) 167 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse, 168 tbl->line, tbl->pos, NULL); 169 170 if (tbl->last_span) 171 tbl->last_span->flags |= TBL_SPAN_LAST; 172 173 if (TBL_PART_CDATA == tbl->part) 174 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse, 175 tbl->line, tbl->pos, NULL); 176 } 177