1 69bdd906 2021-06-15 op /*
  2 69bdd906 2021-06-15 op  * Much of the design is taken from doas (parse.y rev 1.29)
  3 69bdd906 2021-06-15 op  *
  4 69bdd906 2021-06-15 op  * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
  5 69bdd906 2021-06-15 op  * Copyright (c) 2015 Ted Unangst <tedu@openbsd.org>
  6 69bdd906 2021-06-15 op  *
  7 69bdd906 2021-06-15 op  * Permission to use, copy, modify, and distribute this software for any
  8 69bdd906 2021-06-15 op  * purpose with or without fee is hereby granted, provided that the above
  9 69bdd906 2021-06-15 op  * copyright notice and this permission notice appear in all copies.
 10 69bdd906 2021-06-15 op  *
 11 69bdd906 2021-06-15 op  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 12 69bdd906 2021-06-15 op  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 13 69bdd906 2021-06-15 op  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 14 69bdd906 2021-06-15 op  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 15 69bdd906 2021-06-15 op  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 16 69bdd906 2021-06-15 op  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 17 69bdd906 2021-06-15 op  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 18 69bdd906 2021-06-15 op  *
 19 69bdd906 2021-06-15 op  */
 20 69bdd906 2021-06-15 op 
 21 69bdd906 2021-06-15 op %{
 22 69bdd906 2021-06-15 op 
 23 69bdd906 2021-06-15 op #include "telescope.h"
 24 69bdd906 2021-06-15 op 
 25 69bdd906 2021-06-15 op #include <ctype.h>
 26 69bdd906 2021-06-15 op #include <limits.h>
 27 69bdd906 2021-06-15 op #include <stdarg.h>
 28 69bdd906 2021-06-15 op #include <stdio.h>
 29 69bdd906 2021-06-15 op #include <stdlib.h>
 30 69bdd906 2021-06-15 op #include <string.h>
 31 69bdd906 2021-06-15 op 
 32 69bdd906 2021-06-15 op typedef struct {
 33 69bdd906 2021-06-15 op 	union {
 34 69bdd906 2021-06-15 op 		char	*str;
 35 69bdd906 2021-06-15 op 		int	 num;
 36 69bdd906 2021-06-15 op 	};
 37 69bdd906 2021-06-15 op 	int lineno;
 38 69bdd906 2021-06-15 op 	int colno;
 39 69bdd906 2021-06-15 op } yystype;
 40 69bdd906 2021-06-15 op #define YYSTYPE yystype
 41 69bdd906 2021-06-15 op 
 42 69e1d1b6 2021-06-15 op static char *current_style;
 43 69bdd906 2021-06-15 op static const char *path;
 44 69bdd906 2021-06-15 op 
 45 69bdd906 2021-06-15 op FILE *yyfp;
 46 69bdd906 2021-06-15 op 
 47 69bdd906 2021-06-15 op int parse_errors = 0;
 48 69bdd906 2021-06-15 op 
 49 69bdd906 2021-06-15 op static void yyerror(const char *, ...);
 50 69bdd906 2021-06-15 op static int yylex(void);
 51 2ca05f73 2021-06-18 op static void setprfx(int, const char *);
 52 86e7d7b4 2021-06-19 op static void setvari(char *, int);
 53 86e7d7b4 2021-06-19 op static void setvars(char *, char *);
 54 69bdd906 2021-06-15 op 
 55 69bdd906 2021-06-15 op %}
 56 69bdd906 2021-06-15 op 
 57 69bdd906 2021-06-15 op %token TSET
 58 69bdd906 2021-06-15 op %token TSTYLE TPRFX TCONT TBG TFG TATTR TBOLD TUNDERLINE
 59 69bdd906 2021-06-15 op %token TBIND TUNBIND
 60 69bdd906 2021-06-15 op 
 61 69bdd906 2021-06-15 op %token <str> TSTRING
 62 69bdd906 2021-06-15 op %token <num> TNUMBER
 63 69bdd906 2021-06-15 op 
 64 69bdd906 2021-06-15 op %%
 65 69bdd906 2021-06-15 op 
 66 69bdd906 2021-06-15 op grammar		: /* empty */
 67 69bdd906 2021-06-15 op 		| grammar '\n'
 68 69bdd906 2021-06-15 op 		| grammar rule '\n'
 69 69bdd906 2021-06-15 op 		| error '\n'
 70 69bdd906 2021-06-15 op 		;
 71 69bdd906 2021-06-15 op 
 72 69e1d1b6 2021-06-15 op rule		: set
 73 69e1d1b6 2021-06-15 op 		| style		{ free(current_style); current_style = NULL; }
 74 69e1d1b6 2021-06-15 op 		| bind
 75 69e1d1b6 2021-06-15 op 		| unbind
 76 69e1d1b6 2021-06-15 op 		;
 77 69bdd906 2021-06-15 op 
 78 86e7d7b4 2021-06-19 op set		: TSET TSTRING '=' TSTRING	{ setvars($2, $4); }
 79 86e7d7b4 2021-06-19 op 		| TSET TSTRING '=' TNUMBER	{ setvari($2, $4); }
 80 69bdd906 2021-06-15 op 		;
 81 69bdd906 2021-06-15 op 
 82 69e1d1b6 2021-06-15 op style		: TSTYLE TSTRING { current_style = $2; } styleopt
 83 69e1d1b6 2021-06-15 op 		| TSTYLE TSTRING { current_style = $2; } '{' styleopts '}'
 84 69bdd906 2021-06-15 op 		;
 85 69bdd906 2021-06-15 op 
 86 69bdd906 2021-06-15 op styleopts	: /* empty */
 87 69bdd906 2021-06-15 op 		| styleopts '\n'
 88 69bdd906 2021-06-15 op 		| styleopts styleopt '\n'
 89 69bdd906 2021-06-15 op 		;
 90 69bdd906 2021-06-15 op 
 91 69e1d1b6 2021-06-15 op styleopt	: TPRFX TSTRING			{ setprfx(0, $2); }
 92 69e1d1b6 2021-06-15 op 		| TCONT TSTRING			{ setprfx(1, $2); }
 93 69bdd906 2021-06-15 op 		| TBG TSTRING			{ printf("style background setted to \"%s\"\n", $2); }
 94 69bdd906 2021-06-15 op 		| TFG TSTRING			{ printf("style foreground setted to \"%s\"\n", $2); }
 95 69bdd906 2021-06-15 op 		| TATTR TBOLD			{ printf("style attr setted to bold\n"); }
 96 69bdd906 2021-06-15 op 		| TATTR TUNDERLINE		{ printf("style attr setted to underline\n"); }
 97 69bdd906 2021-06-15 op 		;
 98 69bdd906 2021-06-15 op 
 99 69bdd906 2021-06-15 op bind		: TBIND TSTRING TSTRING TSTRING	{ printf("TODO: bind %s %s %s\n", $2, $3, $4); }
100 69bdd906 2021-06-15 op 		;
101 69bdd906 2021-06-15 op 
102 69bdd906 2021-06-15 op unbind		: TUNBIND TSTRING TSTRING	{ printf("TODO: unbind %s %s\n", $2, $3); }
103 69bdd906 2021-06-15 op 		;
104 69bdd906 2021-06-15 op 
105 69bdd906 2021-06-15 op %%
106 69bdd906 2021-06-15 op 
107 69bdd906 2021-06-15 op void
108 69bdd906 2021-06-15 op yyerror(const char *fmt, ...)
109 69bdd906 2021-06-15 op {
110 69bdd906 2021-06-15 op 	va_list va;
111 69bdd906 2021-06-15 op 
112 69bdd906 2021-06-15 op 	fprintf(stderr, "%s:%d ", path, yylval.lineno+1);
113 69bdd906 2021-06-15 op 	va_start(va, fmt);
114 69bdd906 2021-06-15 op 	vfprintf(stderr, fmt, va);
115 69bdd906 2021-06-15 op 	va_end(va);
116 69bdd906 2021-06-15 op 	fprintf(stderr, "\n");
117 69bdd906 2021-06-15 op 	parse_errors++;
118 69bdd906 2021-06-15 op }
119 69bdd906 2021-06-15 op 
120 69bdd906 2021-06-15 op static struct keyword {
121 69bdd906 2021-06-15 op 	const char *word;
122 69bdd906 2021-06-15 op 	int token;
123 69bdd906 2021-06-15 op } keywords[] = {
124 69bdd906 2021-06-15 op 	{ "set", TSET },
125 69bdd906 2021-06-15 op 	{ "style", TSTYLE },
126 69bdd906 2021-06-15 op 	{ "prefix", TPRFX },
127 69bdd906 2021-06-15 op 	{ "cont", TCONT },
128 69bdd906 2021-06-15 op 	{ "background", TBG },
129 69bdd906 2021-06-15 op 	{ "foreground", TFG },
130 69bdd906 2021-06-15 op 	{ "attr", TATTR },
131 69bdd906 2021-06-15 op 	{ "bold", TBOLD },
132 69bdd906 2021-06-15 op 	{ "underline", TUNDERLINE },
133 69bdd906 2021-06-15 op 	{ "bind", TBIND },
134 69bdd906 2021-06-15 op 	{ "unbind", TUNBIND },
135 69bdd906 2021-06-15 op };
136 69bdd906 2021-06-15 op 
137 69bdd906 2021-06-15 op int
138 69bdd906 2021-06-15 op yylex(void)
139 69bdd906 2021-06-15 op {
140 69bdd906 2021-06-15 op 	char buf[1024], *ebuf, *p, *str;
141 69bdd906 2021-06-15 op 	const char *errstr;
142 69bdd906 2021-06-15 op 	int c, quotes = 0, escape = 0, qpos = -1, nonkw = 0;
143 69bdd906 2021-06-15 op 	size_t i;
144 69bdd906 2021-06-15 op 
145 69bdd906 2021-06-15 op 	p = buf;
146 69bdd906 2021-06-15 op 	ebuf = buf + sizeof(buf);
147 69bdd906 2021-06-15 op 
148 69bdd906 2021-06-15 op repeat:
149 69bdd906 2021-06-15 op 	/* skip whitespace first */
150 69bdd906 2021-06-15 op 	for (c = getc(yyfp); c == ' ' || c == '\t' || c == '\f'; c = getc(yyfp))
151 69bdd906 2021-06-15 op 		yylval.colno++;
152 69bdd906 2021-06-15 op 
153 69bdd906 2021-06-15 op 	/* check for special one-character constructions */
154 69bdd906 2021-06-15 op 	switch (c) {
155 69bdd906 2021-06-15 op 	case '\n':
156 69bdd906 2021-06-15 op 		yylval.colno = 0;
157 69bdd906 2021-06-15 op 		yylval.lineno++;
158 69bdd906 2021-06-15 op 		/* fallthrough */
159 69bdd906 2021-06-15 op 	case '{':
160 69bdd906 2021-06-15 op 	case '}':
161 69bdd906 2021-06-15 op 	case '=':
162 69bdd906 2021-06-15 op 		return c;
163 69bdd906 2021-06-15 op 	case '#':
164 69bdd906 2021-06-15 op 		/* skip comments; NUL is allowed; no continuation */
165 69bdd906 2021-06-15 op 		while ((c = getc(yyfp)) != '\n')
166 69bdd906 2021-06-15 op 			if (c == EOF)
167 69bdd906 2021-06-15 op 				goto eof;
168 69bdd906 2021-06-15 op 		yylval.colno = 0;
169 69bdd906 2021-06-15 op 		yylval.lineno++;
170 69bdd906 2021-06-15 op 		return c;
171 69bdd906 2021-06-15 op 	case EOF:
172 69bdd906 2021-06-15 op 		goto eof;
173 69bdd906 2021-06-15 op 	}
174 69bdd906 2021-06-15 op 
175 69bdd906 2021-06-15 op 	/* parsing next word */
176 69bdd906 2021-06-15 op 	for (;; c = getc(yyfp), yylval.colno++) {
177 69bdd906 2021-06-15 op 		switch (c) {
178 69bdd906 2021-06-15 op 		case '\0':
179 69bdd906 2021-06-15 op 			yyerror("unallowed character NULL in column %d",
180 69bdd906 2021-06-15 op 			    yylval.colno+1);
181 69bdd906 2021-06-15 op 			escape = 0;
182 69bdd906 2021-06-15 op 			continue;
183 69bdd906 2021-06-15 op 		case '\\':
184 69bdd906 2021-06-15 op 			escape = !escape;
185 69bdd906 2021-06-15 op 			if (escape)
186 69bdd906 2021-06-15 op 				continue;
187 69bdd906 2021-06-15 op 			break;
188 69bdd906 2021-06-15 op 		case '\n':
189 69bdd906 2021-06-15 op 			if (quotes)
190 69bdd906 2021-06-15 op 				yyerror("unterminated quotes in column %d",
191 69bdd906 2021-06-15 op 				    yylval.colno+1);
192 69bdd906 2021-06-15 op 			if (escape) {
193 69bdd906 2021-06-15 op 				nonkw = 1;
194 69bdd906 2021-06-15 op 				escape = 0;
195 69bdd906 2021-06-15 op 				yylval.colno = 0;
196 69bdd906 2021-06-15 op 				yylval.lineno++;
197 69bdd906 2021-06-15 op 			}
198 69bdd906 2021-06-15 op 			goto eow;
199 69bdd906 2021-06-15 op 		case EOF:
200 69bdd906 2021-06-15 op 			if (escape)
201 69bdd906 2021-06-15 op 				yyerror("unterminated escape in column %d",
202 69bdd906 2021-06-15 op 				    yylval.colno);
203 69bdd906 2021-06-15 op 			if (quotes)
204 69bdd906 2021-06-15 op 				yyerror("unterminated quotes in column %d",
205 69bdd906 2021-06-15 op 				    qpos + 1);
206 69bdd906 2021-06-15 op 			goto eow;
207 69bdd906 2021-06-15 op 		case '{':
208 69bdd906 2021-06-15 op 		case '}':
209 69bdd906 2021-06-15 op 		case '=':
210 69bdd906 2021-06-15 op 		case '#':
211 69bdd906 2021-06-15 op 		case ' ':
212 69bdd906 2021-06-15 op 		case '\t':
213 69bdd906 2021-06-15 op 			if (!escape && !quotes)
214 69bdd906 2021-06-15 op 				goto eow;
215 69bdd906 2021-06-15 op 			break;
216 69bdd906 2021-06-15 op 		case '"':
217 69bdd906 2021-06-15 op 			if (!escape) {
218 69bdd906 2021-06-15 op 				quotes = !quotes;
219 69bdd906 2021-06-15 op 				if (quotes) {
220 69bdd906 2021-06-15 op 					nonkw = 1;
221 69bdd906 2021-06-15 op 					qpos = yylval.colno;
222 69bdd906 2021-06-15 op 				}
223 69bdd906 2021-06-15 op 				continue;
224 69bdd906 2021-06-15 op 			}
225 69bdd906 2021-06-15 op 		}
226 69bdd906 2021-06-15 op 		*p++ = c;
227 69bdd906 2021-06-15 op 		if (p == ebuf) {
228 69bdd906 2021-06-15 op 			yyerror("line too long");
229 69bdd906 2021-06-15 op 			p = buf;
230 69bdd906 2021-06-15 op 		}
231 69bdd906 2021-06-15 op 		escape = 0;
232 69bdd906 2021-06-15 op 	}
233 69bdd906 2021-06-15 op 
234 69bdd906 2021-06-15 op eow:
235 69bdd906 2021-06-15 op 	*p = 0;
236 69bdd906 2021-06-15 op 	if (c != EOF)
237 69bdd906 2021-06-15 op 		ungetc(c, yyfp);
238 69bdd906 2021-06-15 op 	if (p == buf) {
239 69bdd906 2021-06-15 op 		/*
240 69bdd906 2021-06-15 op 		 * There could be a number of reason for empty buffer,
241 69bdd906 2021-06-15 op 		 * and we handle all of them here, to avoid cluttering
242 69bdd906 2021-06-15 op 		 * the main loop.
243 69bdd906 2021-06-15 op 		 */
244 69bdd906 2021-06-15 op 		if (c == EOF)
245 69bdd906 2021-06-15 op 			goto eof;
246 69bdd906 2021-06-15 op 		else if (qpos == -1) /* accept, e.g., empty args: cmd foo args "" */
247 69bdd906 2021-06-15 op 			goto repeat;
248 69bdd906 2021-06-15 op 	}
249 69bdd906 2021-06-15 op 	if (!nonkw) {
250 69bdd906 2021-06-15 op 		for (i = 0; i < sizeof(keywords) / sizeof(keywords[0]); i++) {
251 69bdd906 2021-06-15 op 			if (strcmp(buf, keywords[i].word) == 0)
252 69bdd906 2021-06-15 op 				return keywords[i].token;
253 69bdd906 2021-06-15 op 		}
254 69bdd906 2021-06-15 op 	}
255 69bdd906 2021-06-15 op 	c = *buf;
256 69bdd906 2021-06-15 op 	if (!nonkw && (c == '-' || isdigit(c))) {
257 69bdd906 2021-06-15 op 		yylval.num = strtonum(buf, INT_MIN, INT_MAX, &errstr);
258 69bdd906 2021-06-15 op 		if (errstr != NULL)
259 69bdd906 2021-06-15 op 			yyerror("number is %s: %s", errstr, buf);
260 69bdd906 2021-06-15 op 		return TNUMBER;
261 69bdd906 2021-06-15 op 	}
262 69bdd906 2021-06-15 op 	if ((str = strdup(buf)) == NULL)
263 69bdd906 2021-06-15 op 		err(1, "%s", __func__);
264 69bdd906 2021-06-15 op 	yylval.str = str;
265 69bdd906 2021-06-15 op 	return TSTRING;
266 69bdd906 2021-06-15 op 
267 69bdd906 2021-06-15 op eof:
268 69bdd906 2021-06-15 op 	if (ferror(yyfp))
269 69bdd906 2021-06-15 op 		yyerror("input error reading config");
270 69bdd906 2021-06-15 op 	return 0;
271 69bdd906 2021-06-15 op }
272 69bdd906 2021-06-15 op 
273 69e1d1b6 2021-06-15 op static void
274 69e1d1b6 2021-06-15 op setprfx(int cont, const char *name)
275 69e1d1b6 2021-06-15 op {
276 69e1d1b6 2021-06-15 op 	if (current_style == NULL) {
277 69e1d1b6 2021-06-15 op 		warnx("current_style = NULL!");
278 69e1d1b6 2021-06-15 op 		abort();
279 69e1d1b6 2021-06-15 op 	}
280 69e1d1b6 2021-06-15 op 
281 69e1d1b6 2021-06-15 op 	if (!config_setprfx(current_style, cont, name))
282 69e1d1b6 2021-06-15 op 		yyerror("invalid style %s", name);
283 86e7d7b4 2021-06-19 op }
284 86e7d7b4 2021-06-19 op 
285 86e7d7b4 2021-06-19 op static void
286 86e7d7b4 2021-06-19 op setvari(char *var, int val)
287 86e7d7b4 2021-06-19 op {
288 86e7d7b4 2021-06-19 op 	if (!config_setvari(var, val))
289 86e7d7b4 2021-06-19 op 		yyerror("invalid variable or value: %s = %d",
290 86e7d7b4 2021-06-19 op 		    var, val);
291 86e7d7b4 2021-06-19 op 
292 86e7d7b4 2021-06-19 op 	free(var);
293 69e1d1b6 2021-06-15 op }
294 69e1d1b6 2021-06-15 op 
295 86e7d7b4 2021-06-19 op static void
296 86e7d7b4 2021-06-19 op setvars(char *var, char *val)
297 86e7d7b4 2021-06-19 op {
298 86e7d7b4 2021-06-19 op         if (!config_setvars(var, val))
299 86e7d7b4 2021-06-19 op 		yyerror("invalid variable or value: %s = \"%s\"",
300 86e7d7b4 2021-06-19 op 		    var, val);
301 86e7d7b4 2021-06-19 op 
302 86e7d7b4 2021-06-19 op 	free(var);
303 86e7d7b4 2021-06-19 op }
304 86e7d7b4 2021-06-19 op 
305 69bdd906 2021-06-15 op void
306 69bdd906 2021-06-15 op parseconfig(const char *filename, int fonf)
307 69bdd906 2021-06-15 op {
308 69bdd906 2021-06-15 op 	if ((yyfp = fopen(filename, "r")) == NULL) {
309 69bdd906 2021-06-15 op 		if (fonf)
310 69bdd906 2021-06-15 op 			err(1, "%s", filename);
311 69bdd906 2021-06-15 op 		return;
312 69bdd906 2021-06-15 op 	}
313 69bdd906 2021-06-15 op 
314 69bdd906 2021-06-15 op 	path = filename;
315 69bdd906 2021-06-15 op 	yyparse();
316 69bdd906 2021-06-15 op 	fclose(yyfp);
317 69bdd906 2021-06-15 op 	if (parse_errors)
318 69bdd906 2021-06-15 op 		exit(1);
319 69bdd906 2021-06-15 op }