1/*	$Id: tbl_opts.c,v 1.12 2011/09/18 14:14:15 schwarze Exp $ */
2/*
3 * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4 *
5 * Permission to use, copy, modify, and distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
8 *
9 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
10 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
12 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
15 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16 */
17#ifdef HAVE_CONFIG_H
18#include "config.h"
19#endif
20
21#include <ctype.h>
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
25
26#include "mandoc.h"
27#include "libmandoc.h"
28#include "libroff.h"
29
30enum	tbl_ident {
31	KEY_CENTRE = 0,
32	KEY_DELIM,
33	KEY_EXPAND,
34	KEY_BOX,
35	KEY_DBOX,
36	KEY_ALLBOX,
37	KEY_TAB,
38	KEY_LINESIZE,
39	KEY_NOKEEP,
40	KEY_DPOINT,
41	KEY_NOSPACE,
42	KEY_FRAME,
43	KEY_DFRAME,
44	KEY_MAX
45};
46
47struct	tbl_phrase {
48	const char	*name;
49	int		 key;
50	enum tbl_ident	 ident;
51};
52
53/* Handle Commonwealth/American spellings. */
54#define	KEY_MAXKEYS	 14
55
56/* Maximum length of key name string. */
57#define	KEY_MAXNAME	 13
58
59/* Maximum length of key number size. */
60#define	KEY_MAXNUMSZ	 10
61
62static	const struct tbl_phrase keys[KEY_MAXKEYS] = {
63	{ "center",	 TBL_OPT_CENTRE,	KEY_CENTRE},
64	{ "centre",	 TBL_OPT_CENTRE,	KEY_CENTRE},
65	{ "delim",	 0,	       		KEY_DELIM},
66	{ "expand",	 TBL_OPT_EXPAND,	KEY_EXPAND},
67	{ "box",	 TBL_OPT_BOX,   	KEY_BOX},
68	{ "doublebox",	 TBL_OPT_DBOX,  	KEY_DBOX},
69	{ "allbox",	 TBL_OPT_ALLBOX,	KEY_ALLBOX},
70	{ "frame",	 TBL_OPT_BOX,		KEY_FRAME},
71	{ "doubleframe", TBL_OPT_DBOX,		KEY_DFRAME},
72	{ "tab",	 0,			KEY_TAB},
73	{ "linesize",	 0,			KEY_LINESIZE},
74	{ "nokeep",	 TBL_OPT_NOKEEP,	KEY_NOKEEP},
75	{ "decimalpoint", 0,			KEY_DPOINT},
76	{ "nospaces",	 TBL_OPT_NOSPACE,	KEY_NOSPACE},
77};
78
79static	int		 arg(struct tbl_node *, int,
80				const char *, int *, enum tbl_ident);
81static	void		 opt(struct tbl_node *, int,
82				const char *, int *);
83
84static int
85arg(struct tbl_node *tbl, int ln, const char *p, int *pos, enum tbl_ident key)
86{
87	int		 i;
88	char		 buf[KEY_MAXNUMSZ];
89
90	while (isspace((unsigned char)p[*pos]))
91		(*pos)++;
92
93	/* Arguments always begin with a parenthesis. */
94
95	if ('(' != p[*pos]) {
96		mandoc_msg(MANDOCERR_TBL, tbl->parse,
97				ln, *pos, NULL);
98		return(0);
99	}
100
101	(*pos)++;
102
103	/*
104	 * The arguments can be ANY value, so we can't just stop at the
105	 * next close parenthesis (the argument can be a closed
106	 * parenthesis itself).
107	 */
108
109	switch (key) {
110	case (KEY_DELIM):
111		if ('\0' == p[(*pos)++]) {
112			mandoc_msg(MANDOCERR_TBL, tbl->parse,
113					ln, *pos - 1, NULL);
114			return(0);
115		}
116
117		if ('\0' == p[(*pos)++]) {
118			mandoc_msg(MANDOCERR_TBL, tbl->parse,
119					ln, *pos - 1, NULL);
120			return(0);
121		}
122		break;
123	case (KEY_TAB):
124		if ('\0' != (tbl->opts.tab = p[(*pos)++]))
125			break;
126
127		mandoc_msg(MANDOCERR_TBL, tbl->parse,
128				ln, *pos - 1, NULL);
129		return(0);
130	case (KEY_LINESIZE):
131		for (i = 0; i < KEY_MAXNUMSZ && p[*pos]; i++, (*pos)++) {
132			buf[i] = p[*pos];
133			if ( ! isdigit((unsigned char)buf[i]))
134				break;
135		}
136
137		if (i < KEY_MAXNUMSZ) {
138			buf[i] = '\0';
139			tbl->opts.linesize = atoi(buf);
140			break;
141		}
142
143		mandoc_msg(MANDOCERR_TBL, tbl->parse, ln, *pos, NULL);
144		return(0);
145	case (KEY_DPOINT):
146		if ('\0' != (tbl->opts.decimal = p[(*pos)++]))
147			break;
148
149		mandoc_msg(MANDOCERR_TBL, tbl->parse,
150				ln, *pos - 1, NULL);
151		return(0);
152	default:
153		abort();
154		/* NOTREACHED */
155	}
156
157	/* End with a close parenthesis. */
158
159	if (')' == p[(*pos)++])
160		return(1);
161
162	mandoc_msg(MANDOCERR_TBL, tbl->parse, ln, *pos - 1, NULL);
163	return(0);
164}
165
166static void
167opt(struct tbl_node *tbl, int ln, const char *p, int *pos)
168{
169	int		 i, sv;
170	char		 buf[KEY_MAXNAME];
171
172	/*
173	 * Parse individual options from the stream as surrounded by
174	 * this goto.  Each pass through the routine parses out a single
175	 * option and registers it.  Option arguments are processed in
176	 * the arg() function.
177	 */
178
179again:	/*
180	 * EBNF describing this section:
181	 *
182	 * options	::= option_list [:space:]* [;][\n]
183	 * option_list	::= option option_tail
184	 * option_tail	::= [:space:]+ option_list |
185	 * 		::= epsilon
186	 * option	::= [:alpha:]+ args
187	 * args		::= [:space:]* [(] [:alpha:]+ [)]
188	 */
189
190	while (isspace((unsigned char)p[*pos]))
191		(*pos)++;
192
193	/* Safe exit point. */
194
195	if (';' == p[*pos])
196		return;
197
198	/* Copy up to first non-alpha character. */
199
200	for (sv = *pos, i = 0; i < KEY_MAXNAME; i++, (*pos)++) {
201		buf[i] = (char)tolower((unsigned char)p[*pos]);
202		if ( ! isalpha((unsigned char)buf[i]))
203			break;
204	}
205
206	/* Exit if buffer is empty (or overrun). */
207
208	if (KEY_MAXNAME == i || 0 == i) {
209		mandoc_msg(MANDOCERR_TBL, tbl->parse, ln, *pos, NULL);
210		return;
211	}
212
213	buf[i] = '\0';
214
215	while (isspace((unsigned char)p[*pos]))
216		(*pos)++;
217
218	/*
219	 * Look through all of the available keys to find one that
220	 * matches the input.  FIXME: hashtable this.
221	 */
222
223	for (i = 0; i < KEY_MAXKEYS; i++) {
224		if (strcmp(buf, keys[i].name))
225			continue;
226
227		/*
228		 * Note: this is more difficult to recover from, as we
229		 * can be anywhere in the option sequence and it's
230		 * harder to jump to the next.  Meanwhile, just bail out
231		 * of the sequence altogether.
232		 */
233
234		if (keys[i].key)
235			tbl->opts.opts |= keys[i].key;
236		else if ( ! arg(tbl, ln, p, pos, keys[i].ident))
237			return;
238
239		break;
240	}
241
242	/*
243	 * Allow us to recover from bad options by continuing to another
244	 * parse sequence.
245	 */
246
247	if (KEY_MAXKEYS == i)
248		mandoc_msg(MANDOCERR_TBLOPT, tbl->parse, ln, sv, NULL);
249
250	goto again;
251	/* NOTREACHED */
252}
253
254int
255tbl_option(struct tbl_node *tbl, int ln, const char *p)
256{
257	int		 pos;
258
259	/*
260	 * Table options are always on just one line, so automatically
261	 * switch into the next input mode here.
262	 */
263	tbl->part = TBL_PART_LAYOUT;
264
265	pos = 0;
266	opt(tbl, ln, p, &pos);
267
268	/* Always succeed. */
269	return(1);
270}
271