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 69bdd906 2021-06-15 op 
 52 69bdd906 2021-06-15 op %}
 53 69bdd906 2021-06-15 op 
 54 69bdd906 2021-06-15 op %token TSET
 55 69bdd906 2021-06-15 op %token TSTYLE TPRFX TCONT TBG TFG TATTR TBOLD TUNDERLINE
 56 69bdd906 2021-06-15 op %token TBIND TUNBIND
 57 69bdd906 2021-06-15 op 
 58 69bdd906 2021-06-15 op %token <str> TSTRING
 59 69bdd906 2021-06-15 op %token <num> TNUMBER
 60 69bdd906 2021-06-15 op 
 61 69bdd906 2021-06-15 op %%
 62 69bdd906 2021-06-15 op 
 63 69bdd906 2021-06-15 op grammar		: /* empty */
 64 69bdd906 2021-06-15 op 		| grammar '\n'
 65 69bdd906 2021-06-15 op 		| grammar rule '\n'
 66 69bdd906 2021-06-15 op 		| error '\n'
 67 69bdd906 2021-06-15 op 		;
 68 69bdd906 2021-06-15 op 
 69 69e1d1b6 2021-06-15 op rule		: set
 70 69e1d1b6 2021-06-15 op 		| style		{ free(current_style); current_style = NULL; }
 71 69e1d1b6 2021-06-15 op 		| bind
 72 69e1d1b6 2021-06-15 op 		| unbind
 73 69e1d1b6 2021-06-15 op 		;
 74 69bdd906 2021-06-15 op 
 75 69bdd906 2021-06-15 op set		: TSET TSTRING '=' TSTRING	{ printf("set %s = \"%s\"\n", $2, $4); }
 76 69bdd906 2021-06-15 op 		| TSET TSTRING '=' TNUMBER	{ printf("set %s = %d\n", $2, $4); }
 77 69bdd906 2021-06-15 op 		;
 78 69bdd906 2021-06-15 op 
 79 69e1d1b6 2021-06-15 op style		: TSTYLE TSTRING { current_style = $2; } styleopt
 80 69e1d1b6 2021-06-15 op 		| TSTYLE TSTRING { current_style = $2; } '{' styleopts '}'
 81 69bdd906 2021-06-15 op 		;
 82 69bdd906 2021-06-15 op 
 83 69bdd906 2021-06-15 op styleopts	: /* empty */
 84 69bdd906 2021-06-15 op 		| styleopts '\n'
 85 69bdd906 2021-06-15 op 		| styleopts styleopt '\n'
 86 69bdd906 2021-06-15 op 		;
 87 69bdd906 2021-06-15 op 
 88 69e1d1b6 2021-06-15 op styleopt	: TPRFX TSTRING			{ setprfx(0, $2); }
 89 69e1d1b6 2021-06-15 op 		| TCONT TSTRING			{ setprfx(1, $2); }
 90 69bdd906 2021-06-15 op 		| TBG TSTRING			{ printf("style background setted to \"%s\"\n", $2); }
 91 69bdd906 2021-06-15 op 		| TFG TSTRING			{ printf("style foreground setted to \"%s\"\n", $2); }
 92 69bdd906 2021-06-15 op 		| TATTR TBOLD			{ printf("style attr setted to bold\n"); }
 93 69bdd906 2021-06-15 op 		| TATTR TUNDERLINE		{ printf("style attr setted to underline\n"); }
 94 69bdd906 2021-06-15 op 		;
 95 69bdd906 2021-06-15 op 
 96 69bdd906 2021-06-15 op bind		: TBIND TSTRING TSTRING TSTRING	{ printf("TODO: bind %s %s %s\n", $2, $3, $4); }
 97 69bdd906 2021-06-15 op 		;
 98 69bdd906 2021-06-15 op 
 99 69bdd906 2021-06-15 op unbind		: TUNBIND TSTRING TSTRING	{ printf("TODO: unbind %s %s\n", $2, $3); }
100 69bdd906 2021-06-15 op 		;
101 69bdd906 2021-06-15 op 
102 69bdd906 2021-06-15 op %%
103 69bdd906 2021-06-15 op 
104 69bdd906 2021-06-15 op void
105 69bdd906 2021-06-15 op yyerror(const char *fmt, ...)
106 69bdd906 2021-06-15 op {
107 69bdd906 2021-06-15 op 	va_list va;
108 69bdd906 2021-06-15 op 
109 69bdd906 2021-06-15 op 	fprintf(stderr, "%s:%d ", path, yylval.lineno+1);
110 69bdd906 2021-06-15 op 	va_start(va, fmt);
111 69bdd906 2021-06-15 op 	vfprintf(stderr, fmt, va);
112 69bdd906 2021-06-15 op 	va_end(va);
113 69bdd906 2021-06-15 op 	fprintf(stderr, "\n");
114 69bdd906 2021-06-15 op 	parse_errors++;
115 69bdd906 2021-06-15 op }
116 69bdd906 2021-06-15 op 
117 69bdd906 2021-06-15 op static struct keyword {
118 69bdd906 2021-06-15 op 	const char *word;
119 69bdd906 2021-06-15 op 	int token;
120 69bdd906 2021-06-15 op } keywords[] = {
121 69bdd906 2021-06-15 op 	{ "set", TSET },
122 69bdd906 2021-06-15 op 	{ "style", TSTYLE },
123 69bdd906 2021-06-15 op 	{ "prefix", TPRFX },
124 69bdd906 2021-06-15 op 	{ "cont", TCONT },
125 69bdd906 2021-06-15 op 	{ "background", TBG },
126 69bdd906 2021-06-15 op 	{ "foreground", TFG },
127 69bdd906 2021-06-15 op 	{ "attr", TATTR },
128 69bdd906 2021-06-15 op 	{ "bold", TBOLD },
129 69bdd906 2021-06-15 op 	{ "underline", TUNDERLINE },
130 69bdd906 2021-06-15 op 	{ "bind", TBIND },
131 69bdd906 2021-06-15 op 	{ "unbind", TUNBIND },
132 69bdd906 2021-06-15 op };
133 69bdd906 2021-06-15 op 
134 69bdd906 2021-06-15 op int
135 69bdd906 2021-06-15 op yylex(void)
136 69bdd906 2021-06-15 op {
137 69bdd906 2021-06-15 op 	char buf[1024], *ebuf, *p, *str;
138 69bdd906 2021-06-15 op 	const char *errstr;
139 69bdd906 2021-06-15 op 	int c, quotes = 0, escape = 0, qpos = -1, nonkw = 0;
140 69bdd906 2021-06-15 op 	size_t i;
141 69bdd906 2021-06-15 op 
142 69bdd906 2021-06-15 op 	p = buf;
143 69bdd906 2021-06-15 op 	ebuf = buf + sizeof(buf);
144 69bdd906 2021-06-15 op 
145 69bdd906 2021-06-15 op repeat:
146 69bdd906 2021-06-15 op 	/* skip whitespace first */
147 69bdd906 2021-06-15 op 	for (c = getc(yyfp); c == ' ' || c == '\t' || c == '\f'; c = getc(yyfp))
148 69bdd906 2021-06-15 op 		yylval.colno++;
149 69bdd906 2021-06-15 op 
150 69bdd906 2021-06-15 op 	/* check for special one-character constructions */
151 69bdd906 2021-06-15 op 	switch (c) {
152 69bdd906 2021-06-15 op 	case '\n':
153 69bdd906 2021-06-15 op 		yylval.colno = 0;
154 69bdd906 2021-06-15 op 		yylval.lineno++;
155 69bdd906 2021-06-15 op 		/* fallthrough */
156 69bdd906 2021-06-15 op 	case '{':
157 69bdd906 2021-06-15 op 	case '}':
158 69bdd906 2021-06-15 op 	case '=':
159 69bdd906 2021-06-15 op 		return c;
160 69bdd906 2021-06-15 op 	case '#':
161 69bdd906 2021-06-15 op 		/* skip comments; NUL is allowed; no continuation */
162 69bdd906 2021-06-15 op 		while ((c = getc(yyfp)) != '\n')
163 69bdd906 2021-06-15 op 			if (c == EOF)
164 69bdd906 2021-06-15 op 				goto eof;
165 69bdd906 2021-06-15 op 		yylval.colno = 0;
166 69bdd906 2021-06-15 op 		yylval.lineno++;
167 69bdd906 2021-06-15 op 		return c;
168 69bdd906 2021-06-15 op 	case EOF:
169 69bdd906 2021-06-15 op 		goto eof;
170 69bdd906 2021-06-15 op 	}
171 69bdd906 2021-06-15 op 
172 69bdd906 2021-06-15 op 	/* parsing next word */
173 69bdd906 2021-06-15 op 	for (;; c = getc(yyfp), yylval.colno++) {
174 69bdd906 2021-06-15 op 		switch (c) {
175 69bdd906 2021-06-15 op 		case '\0':
176 69bdd906 2021-06-15 op 			yyerror("unallowed character NULL in column %d",
177 69bdd906 2021-06-15 op 			    yylval.colno+1);
178 69bdd906 2021-06-15 op 			escape = 0;
179 69bdd906 2021-06-15 op 			continue;
180 69bdd906 2021-06-15 op 		case '\\':
181 69bdd906 2021-06-15 op 			escape = !escape;
182 69bdd906 2021-06-15 op 			if (escape)
183 69bdd906 2021-06-15 op 				continue;
184 69bdd906 2021-06-15 op 			break;
185 69bdd906 2021-06-15 op 		case '\n':
186 69bdd906 2021-06-15 op 			if (quotes)
187 69bdd906 2021-06-15 op 				yyerror("unterminated quotes in column %d",
188 69bdd906 2021-06-15 op 				    yylval.colno+1);
189 69bdd906 2021-06-15 op 			if (escape) {
190 69bdd906 2021-06-15 op 				nonkw = 1;
191 69bdd906 2021-06-15 op 				escape = 0;
192 69bdd906 2021-06-15 op 				yylval.colno = 0;
193 69bdd906 2021-06-15 op 				yylval.lineno++;
194 69bdd906 2021-06-15 op 			}
195 69bdd906 2021-06-15 op 			goto eow;
196 69bdd906 2021-06-15 op 		case EOF:
197 69bdd906 2021-06-15 op 			if (escape)
198 69bdd906 2021-06-15 op 				yyerror("unterminated escape in column %d",
199 69bdd906 2021-06-15 op 				    yylval.colno);
200 69bdd906 2021-06-15 op 			if (quotes)
201 69bdd906 2021-06-15 op 				yyerror("unterminated quotes in column %d",
202 69bdd906 2021-06-15 op 				    qpos + 1);
203 69bdd906 2021-06-15 op 			goto eow;
204 69bdd906 2021-06-15 op 		case '{':
205 69bdd906 2021-06-15 op 		case '}':
206 69bdd906 2021-06-15 op 		case '=':
207 69bdd906 2021-06-15 op 		case '#':
208 69bdd906 2021-06-15 op 		case ' ':
209 69bdd906 2021-06-15 op 		case '\t':
210 69bdd906 2021-06-15 op 			if (!escape && !quotes)
211 69bdd906 2021-06-15 op 				goto eow;
212 69bdd906 2021-06-15 op 			break;
213 69bdd906 2021-06-15 op 		case '"':
214 69bdd906 2021-06-15 op 			if (!escape) {
215 69bdd906 2021-06-15 op 				quotes = !quotes;
216 69bdd906 2021-06-15 op 				if (quotes) {
217 69bdd906 2021-06-15 op 					nonkw = 1;
218 69bdd906 2021-06-15 op 					qpos = yylval.colno;
219 69bdd906 2021-06-15 op 				}
220 69bdd906 2021-06-15 op 				continue;
221 69bdd906 2021-06-15 op 			}
222 69bdd906 2021-06-15 op 		}
223 69bdd906 2021-06-15 op 		*p++ = c;
224 69bdd906 2021-06-15 op 		if (p == ebuf) {
225 69bdd906 2021-06-15 op 			yyerror("line too long");
226 69bdd906 2021-06-15 op 			p = buf;
227 69bdd906 2021-06-15 op 		}
228 69bdd906 2021-06-15 op 		escape = 0;
229 69bdd906 2021-06-15 op 	}
230 69bdd906 2021-06-15 op 
231 69bdd906 2021-06-15 op eow:
232 69bdd906 2021-06-15 op 	*p = 0;
233 69bdd906 2021-06-15 op 	if (c != EOF)
234 69bdd906 2021-06-15 op 		ungetc(c, yyfp);
235 69bdd906 2021-06-15 op 	if (p == buf) {
236 69bdd906 2021-06-15 op 		/*
237 69bdd906 2021-06-15 op 		 * There could be a number of reason for empty buffer,
238 69bdd906 2021-06-15 op 		 * and we handle all of them here, to avoid cluttering
239 69bdd906 2021-06-15 op 		 * the main loop.
240 69bdd906 2021-06-15 op 		 */
241 69bdd906 2021-06-15 op 		if (c == EOF)
242 69bdd906 2021-06-15 op 			goto eof;
243 69bdd906 2021-06-15 op 		else if (qpos == -1) /* accept, e.g., empty args: cmd foo args "" */
244 69bdd906 2021-06-15 op 			goto repeat;
245 69bdd906 2021-06-15 op 	}
246 69bdd906 2021-06-15 op 	if (!nonkw) {
247 69bdd906 2021-06-15 op 		for (i = 0; i < sizeof(keywords) / sizeof(keywords[0]); i++) {
248 69bdd906 2021-06-15 op 			if (strcmp(buf, keywords[i].word) == 0)
249 69bdd906 2021-06-15 op 				return keywords[i].token;
250 69bdd906 2021-06-15 op 		}
251 69bdd906 2021-06-15 op 	}
252 69bdd906 2021-06-15 op 	c = *buf;
253 69bdd906 2021-06-15 op 	if (!nonkw && (c == '-' || isdigit(c))) {
254 69bdd906 2021-06-15 op 		yylval.num = strtonum(buf, INT_MIN, INT_MAX, &errstr);
255 69bdd906 2021-06-15 op 		if (errstr != NULL)
256 69bdd906 2021-06-15 op 			yyerror("number is %s: %s", errstr, buf);
257 69bdd906 2021-06-15 op 		return TNUMBER;
258 69bdd906 2021-06-15 op 	}
259 69bdd906 2021-06-15 op 	if ((str = strdup(buf)) == NULL)
260 69bdd906 2021-06-15 op 		err(1, "%s", __func__);
261 69bdd906 2021-06-15 op 	yylval.str = str;
262 69bdd906 2021-06-15 op 	return TSTRING;
263 69bdd906 2021-06-15 op 
264 69bdd906 2021-06-15 op eof:
265 69bdd906 2021-06-15 op 	if (ferror(yyfp))
266 69bdd906 2021-06-15 op 		yyerror("input error reading config");
267 69bdd906 2021-06-15 op 	return 0;
268 69bdd906 2021-06-15 op }
269 69bdd906 2021-06-15 op 
270 69e1d1b6 2021-06-15 op static void
271 69e1d1b6 2021-06-15 op setprfx(int cont, const char *name)
272 69e1d1b6 2021-06-15 op {
273 69e1d1b6 2021-06-15 op 	if (current_style == NULL) {
274 69e1d1b6 2021-06-15 op 		warnx("current_style = NULL!");
275 69e1d1b6 2021-06-15 op 		abort();
276 69e1d1b6 2021-06-15 op 	}
277 69e1d1b6 2021-06-15 op 
278 69e1d1b6 2021-06-15 op 	if (!config_setprfx(current_style, cont, name))
279 69e1d1b6 2021-06-15 op 		yyerror("invalid style %s", name);
280 69e1d1b6 2021-06-15 op }
281 69e1d1b6 2021-06-15 op 
282 69bdd906 2021-06-15 op void
283 69bdd906 2021-06-15 op parseconfig(const char *filename, int fonf)
284 69bdd906 2021-06-15 op {
285 69bdd906 2021-06-15 op 	if ((yyfp = fopen(filename, "r")) == NULL) {
286 69bdd906 2021-06-15 op 		if (fonf)
287 69bdd906 2021-06-15 op 			err(1, "%s", filename);
288 69bdd906 2021-06-15 op 		return;
289 69bdd906 2021-06-15 op 	}
290 69bdd906 2021-06-15 op 
291 69bdd906 2021-06-15 op 	path = filename;
292 69bdd906 2021-06-15 op 	yyparse();
293 69bdd906 2021-06-15 op 	fclose(yyfp);
294 69bdd906 2021-06-15 op 	if (parse_errors)
295 69bdd906 2021-06-15 op 		exit(1);
296 69bdd906 2021-06-15 op }