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