1 /* $Id: tbl.c,v 1.27 2013/05/31 22:08:09 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 "libmandoc.h"
30 #include "libroff.h"
31
32 enum rofferr
tbl_read(struct tbl_node * tbl,int ln,const char * p,int offs)33 tbl_read(struct tbl_node *tbl, int ln, const char *p, int offs)
34 {
35 int len;
36 const char *cp;
37
38 cp = &p[offs];
39 len = (int)strlen(cp);
40
41 /*
42 * If we're in the options section and we don't have a
43 * terminating semicolon, assume we've moved directly into the
44 * layout section. No need to report a warning: this is,
45 * apparently, standard behaviour.
46 */
47
48 if (TBL_PART_OPTS == tbl->part && len)
49 if (';' != cp[len - 1])
50 tbl->part = TBL_PART_LAYOUT;
51
52 /* Now process each logical section of the table. */
53
54 switch (tbl->part) {
55 case (TBL_PART_OPTS):
56 return(tbl_option(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
57 case (TBL_PART_LAYOUT):
58 return(tbl_layout(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
59 case (TBL_PART_CDATA):
60 return(tbl_cdata(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
61 default:
62 break;
63 }
64
65 /*
66 * This only returns zero if the line is empty, so we ignore it
67 * and continue on.
68 */
69 return(tbl_data(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
70 }
71
72 struct tbl_node *
tbl_alloc(int pos,int line,struct mparse * parse)73 tbl_alloc(int pos, int line, struct mparse *parse)
74 {
75 struct tbl_node *tbl;
76
77 tbl = mandoc_calloc(1, sizeof(struct tbl_node));
78 tbl->line = line;
79 tbl->pos = pos;
80 tbl->parse = parse;
81 tbl->part = TBL_PART_OPTS;
82 tbl->opts.tab = '\t';
83 tbl->opts.linesize = 12;
84 tbl->opts.decimal = '.';
85 return(tbl);
86 }
87
88 void
tbl_free(struct tbl_node * tbl)89 tbl_free(struct tbl_node *tbl)
90 {
91 struct tbl_row *rp;
92 struct tbl_cell *cp;
93 struct tbl_span *sp;
94 struct tbl_dat *dp;
95 struct tbl_head *hp;
96
97 while (NULL != (rp = tbl->first_row)) {
98 tbl->first_row = rp->next;
99 while (rp->first) {
100 cp = rp->first;
101 rp->first = cp->next;
102 free(cp);
103 }
104 free(rp);
105 }
106
107 while (NULL != (sp = tbl->first_span)) {
108 tbl->first_span = sp->next;
109 while (sp->first) {
110 dp = sp->first;
111 sp->first = dp->next;
112 if (dp->string)
113 free(dp->string);
114 free(dp);
115 }
116 free(sp);
117 }
118
119 while (NULL != (hp = tbl->first_head)) {
120 tbl->first_head = hp->next;
121 free(hp);
122 }
123
124 free(tbl);
125 }
126
127 void
tbl_restart(int line,int pos,struct tbl_node * tbl)128 tbl_restart(int line, int pos, struct tbl_node *tbl)
129 {
130 if (TBL_PART_CDATA == tbl->part)
131 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
132 tbl->line, tbl->pos, NULL);
133
134 tbl->part = TBL_PART_LAYOUT;
135 tbl->line = line;
136 tbl->pos = pos;
137
138 if (NULL == tbl->first_span || NULL == tbl->first_span->first)
139 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
140 tbl->line, tbl->pos, NULL);
141 }
142
143 const struct tbl_span *
tbl_span(struct tbl_node * tbl)144 tbl_span(struct tbl_node *tbl)
145 {
146 struct tbl_span *span;
147
148 assert(tbl);
149 span = tbl->current_span ? tbl->current_span->next
150 : tbl->first_span;
151 if (span)
152 tbl->current_span = span;
153 return(span);
154 }
155
156 void
tbl_end(struct tbl_node ** tblp)157 tbl_end(struct tbl_node **tblp)
158 {
159 struct tbl_node *tbl;
160
161 tbl = *tblp;
162 *tblp = NULL;
163
164 if (NULL == tbl->first_span || NULL == tbl->first_span->first)
165 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
166 tbl->line, tbl->pos, NULL);
167
168 if (tbl->last_span)
169 tbl->last_span->flags |= TBL_SPAN_LAST;
170
171 if (TBL_PART_CDATA == tbl->part)
172 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
173 tbl->line, tbl->pos, NULL);
174 }
175
176