Blame


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 74a2587f 2021-06-21 op #include <assert.h>
26 69bdd906 2021-06-15 op #include <ctype.h>
27 69bdd906 2021-06-15 op #include <limits.h>
28 74a2587f 2021-06-21 op #include <ncurses.h>
29 69bdd906 2021-06-15 op #include <stdarg.h>
30 69bdd906 2021-06-15 op #include <stdio.h>
31 69bdd906 2021-06-15 op #include <stdlib.h>
32 69bdd906 2021-06-15 op #include <string.h>
33 69bdd906 2021-06-15 op
34 69bdd906 2021-06-15 op typedef struct {
35 69bdd906 2021-06-15 op union {
36 69bdd906 2021-06-15 op char *str;
37 69bdd906 2021-06-15 op int num;
38 69bdd906 2021-06-15 op };
39 69bdd906 2021-06-15 op int lineno;
40 69bdd906 2021-06-15 op int colno;
41 69bdd906 2021-06-15 op } yystype;
42 69bdd906 2021-06-15 op #define YYSTYPE yystype
43 69bdd906 2021-06-15 op
44 69e1d1b6 2021-06-15 op static char *current_style;
45 74a2587f 2021-06-21 op static int current_bg, current_fg;
46 74a2587f 2021-06-21 op
47 69bdd906 2021-06-15 op static const char *path;
48 69bdd906 2021-06-15 op
49 69bdd906 2021-06-15 op FILE *yyfp;
50 69bdd906 2021-06-15 op
51 69bdd906 2021-06-15 op int parse_errors = 0;
52 69bdd906 2021-06-15 op
53 69bdd906 2021-06-15 op static void yyerror(const char *, ...);
54 69bdd906 2021-06-15 op static int yylex(void);
55 2ca05f73 2021-06-18 op static void setprfx(int, const char *);
56 86e7d7b4 2021-06-19 op static void setvari(char *, int);
57 86e7d7b4 2021-06-19 op static void setvars(char *, char *);
58 74a2587f 2021-06-21 op static int colorname(const char *);
59 74a2587f 2021-06-21 op static void setcolor(int, int, const char *);
60 69bdd906 2021-06-15 op
61 69bdd906 2021-06-15 op %}
62 69bdd906 2021-06-15 op
63 69bdd906 2021-06-15 op %token TSET
64 69bdd906 2021-06-15 op %token TSTYLE TPRFX TCONT TBG TFG TATTR TBOLD TUNDERLINE
65 69bdd906 2021-06-15 op %token TBIND TUNBIND
66 69bdd906 2021-06-15 op
67 69bdd906 2021-06-15 op %token <str> TSTRING
68 69bdd906 2021-06-15 op %token <num> TNUMBER
69 69bdd906 2021-06-15 op
70 69bdd906 2021-06-15 op %%
71 69bdd906 2021-06-15 op
72 69bdd906 2021-06-15 op grammar : /* empty */
73 69bdd906 2021-06-15 op | grammar '\n'
74 69bdd906 2021-06-15 op | grammar rule '\n'
75 69bdd906 2021-06-15 op | error '\n'
76 69bdd906 2021-06-15 op ;
77 69bdd906 2021-06-15 op
78 69e1d1b6 2021-06-15 op rule : set
79 74a2587f 2021-06-21 op | style {
80 74a2587f 2021-06-21 op free(current_style);
81 74a2587f 2021-06-21 op current_style = NULL;
82 74a2587f 2021-06-21 op }
83 69e1d1b6 2021-06-15 op | bind
84 69e1d1b6 2021-06-15 op | unbind
85 69e1d1b6 2021-06-15 op ;
86 69bdd906 2021-06-15 op
87 86e7d7b4 2021-06-19 op set : TSET TSTRING '=' TSTRING { setvars($2, $4); }
88 86e7d7b4 2021-06-19 op | TSET TSTRING '=' TNUMBER { setvari($2, $4); }
89 69bdd906 2021-06-15 op ;
90 69bdd906 2021-06-15 op
91 74a2587f 2021-06-21 op style : TSTYLE TSTRING { current_style = $2; } stylespec ;
92 74a2587f 2021-06-21 op stylespec : styleopt | '{' styleopts '}' ;
93 69bdd906 2021-06-15 op
94 69bdd906 2021-06-15 op styleopts : /* empty */
95 69bdd906 2021-06-15 op | styleopts '\n'
96 69bdd906 2021-06-15 op | styleopts styleopt '\n'
97 69bdd906 2021-06-15 op ;
98 69bdd906 2021-06-15 op
99 74a2587f 2021-06-21 op styleopt : TPRFX TSTRING { setprfx(0, $2); }
100 74a2587f 2021-06-21 op | TCONT TSTRING { setprfx(1, $2); }
101 74a2587f 2021-06-21 op | TBG TSTRING {
102 74a2587f 2021-06-21 op setcolor(0, 1, $2);
103 74a2587f 2021-06-21 op setcolor(1, 1, $2);
104 74a2587f 2021-06-21 op free($2);
105 74a2587f 2021-06-21 op }
106 74a2587f 2021-06-21 op | TFG TSTRING {
107 74a2587f 2021-06-21 op setcolor(0, 0, $2);
108 74a2587f 2021-06-21 op setcolor(1, 0, $2);
109 74a2587f 2021-06-21 op free($2);
110 74a2587f 2021-06-21 op }
111 69bdd906 2021-06-15 op | TATTR TBOLD { printf("style attr setted to bold\n"); }
112 69bdd906 2021-06-15 op | TATTR TUNDERLINE { printf("style attr setted to underline\n"); }
113 69bdd906 2021-06-15 op ;
114 69bdd906 2021-06-15 op
115 69bdd906 2021-06-15 op bind : TBIND TSTRING TSTRING TSTRING { printf("TODO: bind %s %s %s\n", $2, $3, $4); }
116 69bdd906 2021-06-15 op ;
117 69bdd906 2021-06-15 op
118 69bdd906 2021-06-15 op unbind : TUNBIND TSTRING TSTRING { printf("TODO: unbind %s %s\n", $2, $3); }
119 69bdd906 2021-06-15 op ;
120 69bdd906 2021-06-15 op
121 69bdd906 2021-06-15 op %%
122 69bdd906 2021-06-15 op
123 69bdd906 2021-06-15 op void
124 69bdd906 2021-06-15 op yyerror(const char *fmt, ...)
125 69bdd906 2021-06-15 op {
126 69bdd906 2021-06-15 op va_list va;
127 69bdd906 2021-06-15 op
128 69bdd906 2021-06-15 op fprintf(stderr, "%s:%d ", path, yylval.lineno+1);
129 69bdd906 2021-06-15 op va_start(va, fmt);
130 69bdd906 2021-06-15 op vfprintf(stderr, fmt, va);
131 69bdd906 2021-06-15 op va_end(va);
132 69bdd906 2021-06-15 op fprintf(stderr, "\n");
133 69bdd906 2021-06-15 op parse_errors++;
134 69bdd906 2021-06-15 op }
135 69bdd906 2021-06-15 op
136 69bdd906 2021-06-15 op static struct keyword {
137 69bdd906 2021-06-15 op const char *word;
138 69bdd906 2021-06-15 op int token;
139 69bdd906 2021-06-15 op } keywords[] = {
140 69bdd906 2021-06-15 op { "set", TSET },
141 69bdd906 2021-06-15 op { "style", TSTYLE },
142 69bdd906 2021-06-15 op { "prefix", TPRFX },
143 69bdd906 2021-06-15 op { "cont", TCONT },
144 74a2587f 2021-06-21 op { "bg", TBG },
145 74a2587f 2021-06-21 op { "fg", TFG },
146 69bdd906 2021-06-15 op { "attr", TATTR },
147 69bdd906 2021-06-15 op { "bold", TBOLD },
148 69bdd906 2021-06-15 op { "underline", TUNDERLINE },
149 69bdd906 2021-06-15 op { "bind", TBIND },
150 69bdd906 2021-06-15 op { "unbind", TUNBIND },
151 69bdd906 2021-06-15 op };
152 69bdd906 2021-06-15 op
153 69bdd906 2021-06-15 op int
154 69bdd906 2021-06-15 op yylex(void)
155 69bdd906 2021-06-15 op {
156 69bdd906 2021-06-15 op char buf[1024], *ebuf, *p, *str;
157 69bdd906 2021-06-15 op const char *errstr;
158 69bdd906 2021-06-15 op int c, quotes = 0, escape = 0, qpos = -1, nonkw = 0;
159 69bdd906 2021-06-15 op size_t i;
160 69bdd906 2021-06-15 op
161 69bdd906 2021-06-15 op p = buf;
162 69bdd906 2021-06-15 op ebuf = buf + sizeof(buf);
163 69bdd906 2021-06-15 op
164 69bdd906 2021-06-15 op repeat:
165 69bdd906 2021-06-15 op /* skip whitespace first */
166 69bdd906 2021-06-15 op for (c = getc(yyfp); c == ' ' || c == '\t' || c == '\f'; c = getc(yyfp))
167 69bdd906 2021-06-15 op yylval.colno++;
168 69bdd906 2021-06-15 op
169 69bdd906 2021-06-15 op /* check for special one-character constructions */
170 69bdd906 2021-06-15 op switch (c) {
171 69bdd906 2021-06-15 op case '\n':
172 69bdd906 2021-06-15 op yylval.colno = 0;
173 69bdd906 2021-06-15 op yylval.lineno++;
174 69bdd906 2021-06-15 op /* fallthrough */
175 69bdd906 2021-06-15 op case '{':
176 69bdd906 2021-06-15 op case '}':
177 69bdd906 2021-06-15 op case '=':
178 69bdd906 2021-06-15 op return c;
179 69bdd906 2021-06-15 op case '#':
180 69bdd906 2021-06-15 op /* skip comments; NUL is allowed; no continuation */
181 69bdd906 2021-06-15 op while ((c = getc(yyfp)) != '\n')
182 69bdd906 2021-06-15 op if (c == EOF)
183 69bdd906 2021-06-15 op goto eof;
184 69bdd906 2021-06-15 op yylval.colno = 0;
185 69bdd906 2021-06-15 op yylval.lineno++;
186 69bdd906 2021-06-15 op return c;
187 69bdd906 2021-06-15 op case EOF:
188 69bdd906 2021-06-15 op goto eof;
189 69bdd906 2021-06-15 op }
190 69bdd906 2021-06-15 op
191 69bdd906 2021-06-15 op /* parsing next word */
192 69bdd906 2021-06-15 op for (;; c = getc(yyfp), yylval.colno++) {
193 69bdd906 2021-06-15 op switch (c) {
194 69bdd906 2021-06-15 op case '\0':
195 69bdd906 2021-06-15 op yyerror("unallowed character NULL in column %d",
196 69bdd906 2021-06-15 op yylval.colno+1);
197 69bdd906 2021-06-15 op escape = 0;
198 69bdd906 2021-06-15 op continue;
199 69bdd906 2021-06-15 op case '\\':
200 69bdd906 2021-06-15 op escape = !escape;
201 69bdd906 2021-06-15 op if (escape)
202 69bdd906 2021-06-15 op continue;
203 69bdd906 2021-06-15 op break;
204 69bdd906 2021-06-15 op case '\n':
205 69bdd906 2021-06-15 op if (quotes)
206 69bdd906 2021-06-15 op yyerror("unterminated quotes in column %d",
207 69bdd906 2021-06-15 op yylval.colno+1);
208 69bdd906 2021-06-15 op if (escape) {
209 69bdd906 2021-06-15 op nonkw = 1;
210 69bdd906 2021-06-15 op escape = 0;
211 69bdd906 2021-06-15 op yylval.colno = 0;
212 69bdd906 2021-06-15 op yylval.lineno++;
213 69bdd906 2021-06-15 op }
214 69bdd906 2021-06-15 op goto eow;
215 69bdd906 2021-06-15 op case EOF:
216 69bdd906 2021-06-15 op if (escape)
217 69bdd906 2021-06-15 op yyerror("unterminated escape in column %d",
218 69bdd906 2021-06-15 op yylval.colno);
219 69bdd906 2021-06-15 op if (quotes)
220 69bdd906 2021-06-15 op yyerror("unterminated quotes in column %d",
221 69bdd906 2021-06-15 op qpos + 1);
222 69bdd906 2021-06-15 op goto eow;
223 69bdd906 2021-06-15 op case '{':
224 69bdd906 2021-06-15 op case '}':
225 69bdd906 2021-06-15 op case '=':
226 69bdd906 2021-06-15 op case '#':
227 69bdd906 2021-06-15 op case ' ':
228 69bdd906 2021-06-15 op case '\t':
229 69bdd906 2021-06-15 op if (!escape && !quotes)
230 69bdd906 2021-06-15 op goto eow;
231 69bdd906 2021-06-15 op break;
232 69bdd906 2021-06-15 op case '"':
233 69bdd906 2021-06-15 op if (!escape) {
234 69bdd906 2021-06-15 op quotes = !quotes;
235 69bdd906 2021-06-15 op if (quotes) {
236 69bdd906 2021-06-15 op nonkw = 1;
237 69bdd906 2021-06-15 op qpos = yylval.colno;
238 69bdd906 2021-06-15 op }
239 69bdd906 2021-06-15 op continue;
240 69bdd906 2021-06-15 op }
241 69bdd906 2021-06-15 op }
242 69bdd906 2021-06-15 op *p++ = c;
243 69bdd906 2021-06-15 op if (p == ebuf) {
244 69bdd906 2021-06-15 op yyerror("line too long");
245 69bdd906 2021-06-15 op p = buf;
246 69bdd906 2021-06-15 op }
247 69bdd906 2021-06-15 op escape = 0;
248 69bdd906 2021-06-15 op }
249 69bdd906 2021-06-15 op
250 69bdd906 2021-06-15 op eow:
251 69bdd906 2021-06-15 op *p = 0;
252 69bdd906 2021-06-15 op if (c != EOF)
253 69bdd906 2021-06-15 op ungetc(c, yyfp);
254 69bdd906 2021-06-15 op if (p == buf) {
255 69bdd906 2021-06-15 op /*
256 69bdd906 2021-06-15 op * There could be a number of reason for empty buffer,
257 69bdd906 2021-06-15 op * and we handle all of them here, to avoid cluttering
258 69bdd906 2021-06-15 op * the main loop.
259 69bdd906 2021-06-15 op */
260 69bdd906 2021-06-15 op if (c == EOF)
261 69bdd906 2021-06-15 op goto eof;
262 69bdd906 2021-06-15 op else if (qpos == -1) /* accept, e.g., empty args: cmd foo args "" */
263 69bdd906 2021-06-15 op goto repeat;
264 69bdd906 2021-06-15 op }
265 69bdd906 2021-06-15 op if (!nonkw) {
266 69bdd906 2021-06-15 op for (i = 0; i < sizeof(keywords) / sizeof(keywords[0]); i++) {
267 69bdd906 2021-06-15 op if (strcmp(buf, keywords[i].word) == 0)
268 69bdd906 2021-06-15 op return keywords[i].token;
269 69bdd906 2021-06-15 op }
270 69bdd906 2021-06-15 op }
271 69bdd906 2021-06-15 op c = *buf;
272 69bdd906 2021-06-15 op if (!nonkw && (c == '-' || isdigit(c))) {
273 69bdd906 2021-06-15 op yylval.num = strtonum(buf, INT_MIN, INT_MAX, &errstr);
274 69bdd906 2021-06-15 op if (errstr != NULL)
275 69bdd906 2021-06-15 op yyerror("number is %s: %s", errstr, buf);
276 69bdd906 2021-06-15 op return TNUMBER;
277 69bdd906 2021-06-15 op }
278 69bdd906 2021-06-15 op if ((str = strdup(buf)) == NULL)
279 69bdd906 2021-06-15 op err(1, "%s", __func__);
280 69bdd906 2021-06-15 op yylval.str = str;
281 69bdd906 2021-06-15 op return TSTRING;
282 69bdd906 2021-06-15 op
283 69bdd906 2021-06-15 op eof:
284 69bdd906 2021-06-15 op if (ferror(yyfp))
285 69bdd906 2021-06-15 op yyerror("input error reading config");
286 69bdd906 2021-06-15 op return 0;
287 69bdd906 2021-06-15 op }
288 69bdd906 2021-06-15 op
289 69e1d1b6 2021-06-15 op static void
290 69e1d1b6 2021-06-15 op setprfx(int cont, const char *name)
291 69e1d1b6 2021-06-15 op {
292 74a2587f 2021-06-21 op assert(current_style != NULL);
293 69e1d1b6 2021-06-15 op
294 69e1d1b6 2021-06-15 op if (!config_setprfx(current_style, cont, name))
295 69e1d1b6 2021-06-15 op yyerror("invalid style %s", name);
296 86e7d7b4 2021-06-19 op }
297 86e7d7b4 2021-06-19 op
298 86e7d7b4 2021-06-19 op static void
299 86e7d7b4 2021-06-19 op setvari(char *var, int val)
300 86e7d7b4 2021-06-19 op {
301 86e7d7b4 2021-06-19 op if (!config_setvari(var, val))
302 86e7d7b4 2021-06-19 op yyerror("invalid variable or value: %s = %d",
303 86e7d7b4 2021-06-19 op var, val);
304 86e7d7b4 2021-06-19 op
305 86e7d7b4 2021-06-19 op free(var);
306 69e1d1b6 2021-06-15 op }
307 69e1d1b6 2021-06-15 op
308 86e7d7b4 2021-06-19 op static void
309 86e7d7b4 2021-06-19 op setvars(char *var, char *val)
310 86e7d7b4 2021-06-19 op {
311 86e7d7b4 2021-06-19 op if (!config_setvars(var, val))
312 86e7d7b4 2021-06-19 op yyerror("invalid variable or value: %s = \"%s\"",
313 86e7d7b4 2021-06-19 op var, val);
314 86e7d7b4 2021-06-19 op
315 86e7d7b4 2021-06-19 op free(var);
316 74a2587f 2021-06-21 op }
317 74a2587f 2021-06-21 op
318 74a2587f 2021-06-21 op static int
319 74a2587f 2021-06-21 op colorname(const char *name)
320 74a2587f 2021-06-21 op {
321 74a2587f 2021-06-21 op struct {
322 74a2587f 2021-06-21 op const char *name;
323 74a2587f 2021-06-21 op short val;
324 74a2587f 2021-06-21 op } *i, colors[] = {
325 74a2587f 2021-06-21 op { "default", 0 },
326 74a2587f 2021-06-21 op { "black", COLOR_BLACK },
327 74a2587f 2021-06-21 op { "red", COLOR_RED },
328 74a2587f 2021-06-21 op { "green", COLOR_GREEN },
329 74a2587f 2021-06-21 op { "yellow", COLOR_YELLOW },
330 74a2587f 2021-06-21 op { "blue", COLOR_BLUE },
331 74a2587f 2021-06-21 op { "magenta", COLOR_MAGENTA },
332 74a2587f 2021-06-21 op { "cyan", COLOR_CYAN },
333 74a2587f 2021-06-21 op { "white", COLOR_WHITE },
334 74a2587f 2021-06-21 op { NULL, 0 },
335 74a2587f 2021-06-21 op };
336 74a2587f 2021-06-21 op
337 74a2587f 2021-06-21 op for (i = colors; i->name != NULL; ++i) {
338 74a2587f 2021-06-21 op if (!strcmp(i->name, name))
339 74a2587f 2021-06-21 op return i->val;
340 74a2587f 2021-06-21 op }
341 74a2587f 2021-06-21 op
342 74a2587f 2021-06-21 op yyerror("unknown color name \"%s\"", name);
343 74a2587f 2021-06-21 op return -1;
344 86e7d7b4 2021-06-19 op }
345 86e7d7b4 2021-06-19 op
346 69bdd906 2021-06-15 op void
347 74a2587f 2021-06-21 op setcolor(int prfx, int bg, const char *color)
348 74a2587f 2021-06-21 op {
349 74a2587f 2021-06-21 op int c;
350 74a2587f 2021-06-21 op
351 74a2587f 2021-06-21 op assert(current_style != NULL);
352 74a2587f 2021-06-21 op
353 74a2587f 2021-06-21 op if ((c = colorname(color)) == -1)
354 74a2587f 2021-06-21 op return;
355 74a2587f 2021-06-21 op
356 74a2587f 2021-06-21 op if (!config_setcolor(current_style, prfx, bg, c))
357 74a2587f 2021-06-21 op yyerror("can't set color \"%s\" for %s", color,
358 74a2587f 2021-06-21 op current_style);
359 74a2587f 2021-06-21 op }
360 74a2587f 2021-06-21 op
361 74a2587f 2021-06-21 op void
362 69bdd906 2021-06-15 op parseconfig(const char *filename, int fonf)
363 69bdd906 2021-06-15 op {
364 74a2587f 2021-06-21 op /*
365 74a2587f 2021-06-21 op char c;
366 74a2587f 2021-06-21 op printf("proceed?\n");
367 74a2587f 2021-06-21 op read(0, &c, 1);
368 74a2587f 2021-06-21 op */
369 74a2587f 2021-06-21 op
370 69bdd906 2021-06-15 op if ((yyfp = fopen(filename, "r")) == NULL) {
371 69bdd906 2021-06-15 op if (fonf)
372 69bdd906 2021-06-15 op err(1, "%s", filename);
373 69bdd906 2021-06-15 op return;
374 69bdd906 2021-06-15 op }
375 69bdd906 2021-06-15 op
376 69bdd906 2021-06-15 op path = filename;
377 69bdd906 2021-06-15 op yyparse();
378 69bdd906 2021-06-15 op fclose(yyfp);
379 69bdd906 2021-06-15 op if (parse_errors)
380 69bdd906 2021-06-15 op exit(1);
381 69bdd906 2021-06-15 op }