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