source: freewrt/package/config/zconf.l@ d419478

freewrt_1_0 freewrt_2_0
Last change on this file since d419478 was 475ad56, checked in by Waldemar Brodkorb <wbx@…>, 20 years ago

add OpenWrt trunk revision 3830.

git-svn-id: ​svn://www.freewrt.org/trunk/freewrt@1 afb5a338-a214-0410-bd46-81f09a774fd1
  • Property mode set to 100644
File size: 7.6 KB
Line 
1%option backup nostdinit noyywrap never-interactive full ecs
2%option 8bit backup nodefault perf-report perf-report
3%x COMMAND HELP STRING PARAM
4%{
5/*
6 * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
7 * Released under the terms of the GNU GPL v2.0.
8 */
9
10#include <limits.h>
11#include <stdio.h>
12#include <stdlib.h>
13#include <string.h>
14#include <unistd.h>
15#include <glob.h>
16
17#define LKC_DIRECT_LINK
18#include "lkc.h"
19
20#define START_STRSIZE 16
21
22char *text;
23static char *text_ptr;
24static int text_size, text_asize;
25
26struct buffer {
27 struct buffer *parent;
28 YY_BUFFER_STATE state;
29};
30
31struct buffer *current_buf;
32
33static int last_ts, first_ts;
34
35static void zconf_endhelp(void);
36static struct buffer *zconf_endfile(void);
37
38void new_string(void)
39{
40 text = malloc(START_STRSIZE);
41 text_asize = START_STRSIZE;
42 text_ptr = text;
43 text_size = 0;
44 *text_ptr = 0;
45}
46
47void append_string(const char *str, int size)
48{
49 int new_size = text_size + size + 1;
50 if (new_size > text_asize) {
51 text = realloc(text, new_size);
52 text_asize = new_size;
53 text_ptr = text + text_size;
54 }
55 memcpy(text_ptr, str, size);
56 text_ptr += size;
57 text_size += size;
58 *text_ptr = 0;
59}
60
61void alloc_string(const char *str, int size)
62{
63 text = malloc(size + 1);
64 memcpy(text, str, size);
65 text[size] = 0;
66}
67%}
68
69ws [ \n\t]
70n [A-Za-z0-9_]
71
72%%
73 int str = 0;
74 int ts, i;
75
76[ \t]*#.*\n current_file->lineno++;
77[ \t]*#.*
78
79[ \t]*\n current_file->lineno++; return T_EOL;
80
81[ \t]+ {
82 BEGIN(COMMAND);
83}
84
85. {
86 unput(yytext[0]);
87 BEGIN(COMMAND);
88}
89
90
91<COMMAND>{
92 "mainmenu" BEGIN(PARAM); return T_MAINMENU;
93 "menu" BEGIN(PARAM); return T_MENU;
94 "endmenu" BEGIN(PARAM); return T_ENDMENU;
95 "source" BEGIN(PARAM); return T_SOURCE;
96 "choice" BEGIN(PARAM); return T_CHOICE;
97 "endchoice" BEGIN(PARAM); return T_ENDCHOICE;
98 "comment" BEGIN(PARAM); return T_COMMENT;
99 "config" BEGIN(PARAM); return T_CONFIG;
100 "menuconfig" BEGIN(PARAM); return T_MENUCONFIG;
101 "help" BEGIN(PARAM); return T_HELP;
102 "if" BEGIN(PARAM); return T_IF;
103 "endif" BEGIN(PARAM); return T_ENDIF;
104 "depends" BEGIN(PARAM); return T_DEPENDS;
105 "requires" BEGIN(PARAM); return T_REQUIRES;
106 "optional" BEGIN(PARAM); return T_OPTIONAL;
107 "default" BEGIN(PARAM); return T_DEFAULT;
108 "prompt" BEGIN(PARAM); return T_PROMPT;
109 "tristate" BEGIN(PARAM); return T_TRISTATE;
110 "def_tristate" BEGIN(PARAM); return T_DEF_TRISTATE;
111 "bool" BEGIN(PARAM); return T_BOOLEAN;
112 "boolean" BEGIN(PARAM); return T_BOOLEAN;
113 "def_bool" BEGIN(PARAM); return T_DEF_BOOLEAN;
114 "def_boolean" BEGIN(PARAM); return T_DEF_BOOLEAN;
115 "int" BEGIN(PARAM); return T_INT;
116 "hex" BEGIN(PARAM); return T_HEX;
117 "string" BEGIN(PARAM); return T_STRING;
118 "select" BEGIN(PARAM); return T_SELECT;
119 "enable" BEGIN(PARAM); return T_SELECT;
120 "range" BEGIN(PARAM); return T_RANGE;
121 {n}+ {
122 alloc_string(yytext, yyleng);
123 zconflval.string = text;
124 return T_WORD;
125 }
126 .
127 \n current_file->lineno++; BEGIN(INITIAL);
128}
129
130<PARAM>{
131 "&&" return T_AND;
132 "||" return T_OR;
133 "(" return T_OPEN_PAREN;
134 ")" return T_CLOSE_PAREN;
135 "!" return T_NOT;
136 "=" return T_EQUAL;
137 "!=" return T_UNEQUAL;
138 "if" return T_IF;
139 "on" return T_ON;
140 \"|\' {
141 str = yytext[0];
142 new_string();
143 BEGIN(STRING);
144 }
145 \n BEGIN(INITIAL); current_file->lineno++; return T_EOL;
146 --- /* ignore */
147 ({n}|[-/.])+ {
148 alloc_string(yytext, yyleng);
149 zconflval.string = text;
150 return T_WORD;
151 }
152 #.* /* comment */
153 \\\n current_file->lineno++;
154 .
155 <<EOF>> {
156 BEGIN(INITIAL);
157 }
158}
159
160<STRING>{
161 [^'"\\\n]+/\n {
162 append_string(yytext, yyleng);
163 zconflval.string = text;
164 return T_WORD_QUOTE;
165 }
166 [^'"\\\n]+ {
167 append_string(yytext, yyleng);
168 }
169 \\.?/\n {
170 append_string(yytext + 1, yyleng - 1);
171 zconflval.string = text;
172 return T_WORD_QUOTE;
173 }
174 \\.? {
175 append_string(yytext + 1, yyleng - 1);
176 }
177 \'|\" {
178 if (str == yytext[0]) {
179 BEGIN(PARAM);
180 zconflval.string = text;
181 return T_WORD_QUOTE;
182 } else
183 append_string(yytext, 1);
184 }
185 \n {
186 printf("%s:%d:warning: multi-line strings not supported\n", zconf_curname(), zconf_lineno());
187 current_file->lineno++;
188 BEGIN(INITIAL);
189 return T_EOL;
190 }
191 <<EOF>> {
192 BEGIN(INITIAL);
193 }
194}
195
196<HELP>{
197 [ \t]+ {
198 ts = 0;
199 for (i = 0; i < yyleng; i++) {
200 if (yytext[i] == '\t')
201 ts = (ts & ~7) + 8;
202 else
203 ts++;
204 }
205 last_ts = ts;
206 if (first_ts) {
207 if (ts < first_ts) {
208 zconf_endhelp();
209 return T_HELPTEXT;
210 }
211 ts -= first_ts;
212 while (ts > 8) {
213 append_string(" ", 8);
214 ts -= 8;
215 }
216 append_string(" ", ts);
217 }
218 }
219 [ \t]*\n/[^ \t\n] {
220 current_file->lineno++;
221 zconf_endhelp();
222 return T_HELPTEXT;
223 }
224 [ \t]*\n {
225 current_file->lineno++;
226 append_string("\n", 1);
227 }
228 [^ \t\n].* {
229 append_string(yytext, yyleng);
230 if (!first_ts)
231 first_ts = last_ts;
232 }
233 <<EOF>> {
234 zconf_endhelp();
235 return T_HELPTEXT;
236 }
237}
238
239<<EOF>> {
240 if (current_buf) {
241 zconf_endfile();
242 return T_EOF;
243 }
244 fclose(yyin);
245 yyterminate();
246}
247
248%%
249void zconf_starthelp(void)
250{
251 new_string();
252 last_ts = first_ts = 0;
253 BEGIN(HELP);
254}
255
256static void zconf_endhelp(void)
257{
258 zconflval.string = text;
259 BEGIN(INITIAL);
260}
261
262
263/*
264 * Try to open specified file with following names:
265 * ./name
266 * $(srctree)/name
267 * The latter is used when srctree is separate from objtree
268 * when compiling the kernel.
269 * Return NULL if file is not found.
270 */
271FILE *zconf_fopen(const char *name)
272{
273 char *env, fullname[PATH_MAX+1];
274 FILE *f;
275
276 f = fopen(name, "r");
277 if (!f && name[0] != '/') {
278 env = getenv(SRCTREE);
279 if (env) {
280 sprintf(fullname, "%s/%s", env, name);
281 f = fopen(fullname, "r");
282 }
283 }
284 return f;
285}
286
287void zconf_initscan(const char *name)
288{
289 yyin = zconf_fopen(name);
290 if (!yyin) {
291 printf("can't find file %s\n", name);
292 exit(1);
293 }
294
295 current_buf = malloc(sizeof(*current_buf));
296 memset(current_buf, 0, sizeof(*current_buf));
297
298 current_file = file_lookup(name);
299 current_file->lineno = 1;
300 current_file->flags = FILE_BUSY;
301}
302
303void zconf_nextfile(const char *name)
304{
305 size_t i;
306 int retval;
307 glob_t files;
308 char *filename;
309 struct file *file;
310 struct buffer *buf;
311
312 retval = glob(name, GLOB_ERR | GLOB_MARK, NULL, &files);
313 if (retval == GLOB_NOSPACE || retval == GLOB_ABORTED || retval == GLOB_NOMATCH) {
314 printf("%s:%d: glob failed: %s \"%s\"\n", zconf_curname(), zconf_lineno(),
315 retval == GLOB_NOSPACE ? "failed to allocate memory" :
316 retval == GLOB_ABORTED ? "read error" : "no match",
317 name);
318 exit(1);
319 }
320
321 for (i = files.gl_pathc-1; i != (size_t)-1; --i) {
322 filename = files.gl_pathv[i];
323
324 file = file_lookup(filename);
325 buf = malloc(sizeof(*buf));
326 memset(buf, 0, sizeof(*buf));
327 current_buf->state = YY_CURRENT_BUFFER;
328 zconfin = zconf_fopen(filename);
329 if (!zconfin) {
330 printf("%s:%d: can't open file \"%s\"\n",
331 zconf_curname(), zconf_lineno(), filename);
332 exit(1);
333 }
334 zconf_switch_to_buffer(zconf_create_buffer(zconfin,YY_BUF_SIZE));
335 buf->parent = current_buf;
336 current_buf = buf;
337
338 if (file->flags & FILE_BUSY) {
339 printf("recursive scan (%s)?\n", filename);
340 exit(1);
341 }
342 if (file->flags & FILE_SCANNED) {
343 printf("file %s already scanned?\n", filename);
344 exit(1);
345 }
346 file->flags |= FILE_BUSY;
347 file->lineno = 1;
348 file->parent = current_file;
349 current_file = file;
350 }
351}
352
353static struct buffer *zconf_endfile(void)
354{
355 struct buffer *parent;
356
357 current_file->flags |= FILE_SCANNED;
358 current_file->flags &= ~FILE_BUSY;
359 current_file = current_file->parent;
360
361 parent = current_buf->parent;
362 if (parent) {
363 fclose(yyin);
364 yy_delete_buffer(YY_CURRENT_BUFFER);
365 yy_switch_to_buffer(parent->state);
366 }
367 free(current_buf);
368 current_buf = parent;
369
370 return parent;
371}
372
373int zconf_lineno(void)
374{
375 if (current_buf)
376 return current_file->lineno - 1;
377 else
378 return 0;
379}
380
381char *zconf_curname(void)
382{
383 if (current_buf)
384 return current_file->name;
385 else
386 return "<none>";
387}
Note: See TracBrowser for help on using the repository browser.