xref: /illumos-gate/usr/src/cmd/mandoc/tbl.c (revision cec8643b41ebefad6c677010fc784dc4bb0550f3)
1 /*	$Id: tbl.c,v 1.46 2018/12/14 06:33:14 schwarze Exp $ */
2 /*
3  * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4  * Copyright (c) 2011, 2015 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 #include "config.h"
19 
20 #include <sys/types.h>
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_aux.h"
29 #include "mandoc.h"
30 #include "tbl.h"
31 #include "libmandoc.h"
32 #include "tbl_parse.h"
33 #include "tbl_int.h"
34 
35 
36 void
tbl_read(struct tbl_node * tbl,int ln,const char * p,int pos)37 tbl_read(struct tbl_node *tbl, int ln, const char *p, int pos)
38 {
39 	const char	*cp;
40 	int		 active;
41 
42 	/*
43 	 * In the options section, proceed to the layout section
44 	 * after a semicolon, or right away if there is no semicolon.
45 	 * Ignore semicolons in arguments.
46 	 */
47 
48 	if (tbl->part == TBL_PART_OPTS) {
49 		tbl->part = TBL_PART_LAYOUT;
50 		active = 1;
51 		for (cp = p + pos; *cp != '\0'; cp++) {
52 			switch (*cp) {
53 			case '(':
54 				active = 0;
55 				continue;
56 			case ')':
57 				active = 1;
58 				continue;
59 			case ';':
60 				if (active)
61 					break;
62 				continue;
63 			default:
64 				continue;
65 			}
66 			break;
67 		}
68 		if (*cp == ';') {
69 			tbl_option(tbl, ln, p, &pos);
70 			if (p[pos] == '\0')
71 				return;
72 		}
73 	}
74 
75 	/* Process the other section types.  */
76 
77 	switch (tbl->part) {
78 	case TBL_PART_LAYOUT:
79 		tbl_layout(tbl, ln, p, pos);
80 		break;
81 	case TBL_PART_CDATA:
82 		tbl_cdata(tbl, ln, p, pos);
83 		break;
84 	default:
85 		tbl_data(tbl, ln, p, pos);
86 		break;
87 	}
88 }
89 
90 struct tbl_node *
tbl_alloc(int pos,int line,struct tbl_node * last_tbl)91 tbl_alloc(int pos, int line, struct tbl_node *last_tbl)
92 {
93 	struct tbl_node	*tbl;
94 
95 	tbl = mandoc_calloc(1, sizeof(*tbl));
96 	if (last_tbl != NULL)
97 		last_tbl->next = tbl;
98 	tbl->line = line;
99 	tbl->pos = pos;
100 	tbl->part = TBL_PART_OPTS;
101 	tbl->opts.tab = '\t';
102 	tbl->opts.decimal = '.';
103 	return tbl;
104 }
105 
106 void
tbl_free(struct tbl_node * tbl)107 tbl_free(struct tbl_node *tbl)
108 {
109 	struct tbl_node	*old_tbl;
110 	struct tbl_row	*rp;
111 	struct tbl_cell	*cp;
112 	struct tbl_span	*sp;
113 	struct tbl_dat	*dp;
114 
115 	while (tbl != NULL) {
116 		while ((rp = tbl->first_row) != NULL) {
117 			tbl->first_row = rp->next;
118 			while (rp->first != NULL) {
119 				cp = rp->first;
120 				rp->first = cp->next;
121 				free(cp->wstr);
122 				free(cp);
123 			}
124 			free(rp);
125 		}
126 		while ((sp = tbl->first_span) != NULL) {
127 			tbl->first_span = sp->next;
128 			while (sp->first != NULL) {
129 				dp = sp->first;
130 				sp->first = dp->next;
131 				free(dp->string);
132 				free(dp);
133 			}
134 			free(sp);
135 		}
136 		old_tbl = tbl;
137 		tbl = tbl->next;
138 		free(old_tbl);
139 	}
140 }
141 
142 void
tbl_restart(int line,int pos,struct tbl_node * tbl)143 tbl_restart(int line, int pos, struct tbl_node *tbl)
144 {
145 	if (tbl->part == TBL_PART_CDATA)
146 		mandoc_msg(MANDOCERR_TBLDATA_BLK, line, pos, "T&");
147 
148 	tbl->part = TBL_PART_LAYOUT;
149 	tbl->line = line;
150 	tbl->pos = pos;
151 }
152 
153 struct tbl_span *
tbl_span(struct tbl_node * tbl)154 tbl_span(struct tbl_node *tbl)
155 {
156 	struct tbl_span	 *span;
157 
158 	span = tbl->current_span ? tbl->current_span->next
159 				 : tbl->first_span;
160 	if (span != NULL)
161 		tbl->current_span = span;
162 	return span;
163 }
164 
165 int
tbl_end(struct tbl_node * tbl,int still_open)166 tbl_end(struct tbl_node *tbl, int still_open)
167 {
168 	struct tbl_span *sp;
169 
170 	if (still_open)
171 		mandoc_msg(MANDOCERR_BLK_NOEND, tbl->line, tbl->pos, "TS");
172 	else if (tbl->part == TBL_PART_CDATA)
173 		mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->line, tbl->pos, "TE");
174 
175 	sp = tbl->first_span;
176 	while (sp != NULL && sp->first == NULL)
177 		sp = sp->next;
178 	if (sp == NULL) {
179 		mandoc_msg(MANDOCERR_TBLDATA_NONE, tbl->line, tbl->pos, NULL);
180 		return 0;
181 	}
182 	return 1;
183 }
184