[J-u-boot.git] / scripts / kconfig / zconf.l

%option nostdinit noyywrap never-interactive full ecs
%option 8bit nodefault perf-report perf-report
%option noinput
%x COMMAND HELP STRING PARAM
%{
/*
 * Copyright (C) 2002 Roman Zippel <[email protected]>
 * Released under the terms of the GNU GPL v2.0.
 */

#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include "lkc.h"

#define START_STRSIZE	16

static struct {
	struct file *file;
	int lineno;
} current_pos;

static char *text;
static int text_size, text_asize;

struct buffer {
	struct buffer *parent;
	YY_BUFFER_STATE state;
};

struct buffer *current_buf;

static int last_ts, first_ts;

static void zconf_endhelp(void);
static void zconf_endfile(void);

static void new_string(void)
{
	text = xmalloc(START_STRSIZE);
	text_asize = START_STRSIZE;
	text_size = 0;
	*text = 0;
}

static void append_string(const char *str, int size)
{
	int new_size = text_size + size + 1;
	if (new_size > text_asize) {
		new_size += START_STRSIZE - 1;
		new_size &= -START_STRSIZE;
		text = realloc(text, new_size);
		text_asize = new_size;
	}
	memcpy(text + text_size, str, size);
	text_size += size;
	text[text_size] = 0;
}

static void alloc_string(const char *str, int size)
{
	text = xmalloc(size + 1);
	memcpy(text, str, size);
	text[size] = 0;
}
%}

n	[A-Za-z0-9_]

%%
	int str = 0;
	int ts, i;

[ \t]*#.*\n	|
[ \t]*\n	{
	current_file->lineno++;
	return T_EOL;
}
[ \t]*#.*


[ \t]+	{
	BEGIN(COMMAND);
}

.	{
	unput(yytext[0]);
	BEGIN(COMMAND);
}


<COMMAND>{
	{n}+	{
		const struct kconf_id *id = kconf_id_lookup(yytext, yyleng);
		BEGIN(PARAM);
		current_pos.file = current_file;
		current_pos.lineno = current_file->lineno;
		if (id && id->flags & TF_COMMAND) {
			zconflval.id = id;
			return id->token;
		}
		alloc_string(yytext, yyleng);
		zconflval.string = text;
		return T_WORD;
	}
	.
	\n	{
		BEGIN(INITIAL);
		current_file->lineno++;
		return T_EOL;
	}
}

<PARAM>{
	"&&"	return T_AND;
	"||"	return T_OR;
	"("	return T_OPEN_PAREN;
	")"	return T_CLOSE_PAREN;
	"!"	return T_NOT;
	"="	return T_EQUAL;
	"!="	return T_UNEQUAL;
	\"|\'	{
		str = yytext[0];
		new_string();
		BEGIN(STRING);
	}
	\n	BEGIN(INITIAL); current_file->lineno++; return T_EOL;
	---	/* ignore */
	({n}|[-/.])+	{
		const struct kconf_id *id = kconf_id_lookup(yytext, yyleng);
		if (id && id->flags & TF_PARAM) {
			zconflval.id = id;
			return id->token;
		}
		alloc_string(yytext, yyleng);
		zconflval.string = text;
		return T_WORD;
	}
	#.*	/* comment */
	\\\n	current_file->lineno++;
	.
	<<EOF>> {
		BEGIN(INITIAL);
	}
}

<STRING>{
	[^'"\\\n]+/\n	{
		append_string(yytext, yyleng);
		zconflval.string = text;
		return T_WORD_QUOTE;
	}
	[^'"\\\n]+	{
		append_string(yytext, yyleng);
	}
	\\.?/\n	{
		append_string(yytext + 1, yyleng - 1);
		zconflval.string = text;
		return T_WORD_QUOTE;
	}
	\\.?	{
		append_string(yytext + 1, yyleng - 1);
	}
	\'|\"	{
		if (str == yytext[0]) {
			BEGIN(PARAM);
			zconflval.string = text;
			return T_WORD_QUOTE;
		} else
			append_string(yytext, 1);
	}
	\n	{
		printf("%s:%d:warning: multi-line strings not supported\n", zconf_curname(), zconf_lineno());
		current_file->lineno++;
		BEGIN(INITIAL);
		return T_EOL;
	}
	<<EOF>>	{
		BEGIN(INITIAL);
	}
}

<HELP>{
	[ \t]+	{
		ts = 0;
		for (i = 0; i < yyleng; i++) {
			if (yytext[i] == '\t')
				ts = (ts & ~7) + 8;
			else
				ts++;
		}
		last_ts = ts;
		if (first_ts) {
			if (ts < first_ts) {
				zconf_endhelp();
				return T_HELPTEXT;
			}
			ts -= first_ts;
			while (ts > 8) {
				append_string("        ", 8);
				ts -= 8;
			}
			append_string("        ", ts);
		}
	}
	[ \t]*\n/[^ \t\n] {
		current_file->lineno++;
		zconf_endhelp();
		return T_HELPTEXT;
	}
	[ \t]*\n	{
		current_file->lineno++;
		append_string("\n", 1);
	}
	[^ \t\n].* {
		while (yyleng) {
			if ((yytext[yyleng-1] != ' ') && (yytext[yyleng-1] != '\t'))
				break;
			yyleng--;
		}
		append_string(yytext, yyleng);
		if (!first_ts)
			first_ts = last_ts;
	}
	<<EOF>>	{
		zconf_endhelp();
		return T_HELPTEXT;
	}
}

<<EOF>>	{
	if (current_file) {
		zconf_endfile();
		return T_EOL;
	}
	fclose(yyin);
	yyterminate();
}

%%
void zconf_starthelp(void)
{
	new_string();
	last_ts = first_ts = 0;
	BEGIN(HELP);
}

static void zconf_endhelp(void)
{
	zconflval.string = text;
	BEGIN(INITIAL);
}


/*
 * Try to open specified file with following names:
 * ./name
 * $(srctree)/name
 * The latter is used when srctree is separate from objtree
 * when compiling the kernel.
 * Return NULL if file is not found.
 */
FILE *zconf_fopen(const char *name)
{
	char *env, fullname[PATH_MAX+1];
	FILE *f;

	f = fopen(name, "r");
	if (!f && name != NULL && name[0] != '/') {
		env = getenv(SRCTREE);
		if (env) {
			sprintf(fullname, "%s/%s", env, name);
			f = fopen(fullname, "r");
		}
	}
	return f;
}

void zconf_initscan(const char *name)
{
	yyin = zconf_fopen(name);
	if (!yyin) {
		printf("can't find file %s\n", name);
		exit(1);
	}

	current_buf = xmalloc(sizeof(*current_buf));
	memset(current_buf, 0, sizeof(*current_buf));

	current_file = file_lookup(name);
	current_file->lineno = 1;
}

void zconf_nextfile(const char *name)
{
	struct file *iter;
	struct file *file = file_lookup(name);
	struct buffer *buf = xmalloc(sizeof(*buf));
	memset(buf, 0, sizeof(*buf));

	current_buf->state = YY_CURRENT_BUFFER;
	yyin = zconf_fopen(file->name);
	if (!yyin) {
		printf("%s:%d: can't open file \"%s\"\n",
		    zconf_curname(), zconf_lineno(), file->name);
		exit(1);
	}
	yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
	buf->parent = current_buf;
	current_buf = buf;

	for (iter = current_file->parent; iter; iter = iter->parent ) {
		if (!strcmp(current_file->name,iter->name) ) {
			printf("%s:%d: recursive inclusion detected. "
			       "Inclusion path:\n  current file : '%s'\n",
			       zconf_curname(), zconf_lineno(),
			       zconf_curname());
			iter = current_file->parent;
			while (iter && \
			       strcmp(iter->name,current_file->name)) {
				printf("  included from: '%s:%d'\n",
				       iter->name, iter->lineno-1);
				iter = iter->parent;
			}
			if (iter)
				printf("  included from: '%s:%d'\n",
				       iter->name, iter->lineno+1);
			exit(1);
		}
	}
	file->lineno = 1;
	file->parent = current_file;
	current_file = file;
}

static void zconf_endfile(void)
{
	struct buffer *parent;

	current_file = current_file->parent;

	parent = current_buf->parent;
	if (parent) {
		fclose(yyin);
		yy_delete_buffer(YY_CURRENT_BUFFER);
		yy_switch_to_buffer(parent->state);
	}
	free(current_buf);
	current_buf = parent;
}

int zconf_lineno(void)
{
	return current_pos.lineno;
}

const char *zconf_curname(void)
{
	return current_pos.file ? current_pos.file->name : "<none>";
}
Commit	Line	Data
0a9064fb MY	1	%option nostdinit noyywrap never-interactive full ecs
	2	%option 8bit nodefault perf-report perf-report
	3	%option noinput
	4	%x COMMAND HELP STRING PARAM
	5	%{
	6	/*
	7	* Copyright (C) 2002 Roman Zippel <[email protected]>
	8	* Released under the terms of the GNU GPL v2.0.
	9	*/
	10
	11	#include <limits.h>
	12	#include <stdio.h>
	13	#include <stdlib.h>
	14	#include <string.h>
	15	#include <unistd.h>
	16
	17	#include "lkc.h"
	18
	19	#define START_STRSIZE 16
	20
	21	static struct {
	22	struct file *file;
	23	int lineno;
	24	} current_pos;
	25
	26	static char *text;
	27	static int text_size, text_asize;
	28
	29	struct buffer {
	30	struct buffer *parent;
	31	YY_BUFFER_STATE state;
	32	};
	33
	34	struct buffer *current_buf;
	35
	36	static int last_ts, first_ts;
	37
	38	static void zconf_endhelp(void);
	39	static void zconf_endfile(void);
	40
	41	static void new_string(void)
	42	{
	43	text = xmalloc(START_STRSIZE);
	44	text_asize = START_STRSIZE;
	45	text_size = 0;
	46	*text = 0;
	47	}
	48
	49	static void append_string(const char *str, int size)
	50	{
	51	int new_size = text_size + size + 1;
	52	if (new_size > text_asize) {
	53	new_size += START_STRSIZE - 1;
	54	new_size &= -START_STRSIZE;
	55	text = realloc(text, new_size);
	56	text_asize = new_size;
	57	}
	58	memcpy(text + text_size, str, size);
	59	text_size += size;
	60	text[text_size] = 0;
	61	}
	62
	63	static void alloc_string(const char *str, int size)
	64	{
65	text = xmalloc(size + 1);
66	memcpy(text, str, size);
67	text[size] = 0;
68	}
69	%}
70
71	n [A-Za-z0-9_]
72
73	%%
74	int str = 0;
75	int ts, i;
76
77	[ \t]#.\n \|
78	[ \t]*\n {
79	current_file->lineno++;
80	return T_EOL;
81	}
82	[ \t]#.
83
84
85	[ \t]+ {
86	BEGIN(COMMAND);
87	}
88
89	. {
90	unput(yytext[0]);
91	BEGIN(COMMAND);
92	}
93
94
95	<COMMAND>{
96	{n}+ {
97	const struct kconf_id *id = kconf_id_lookup(yytext, yyleng);
98	BEGIN(PARAM);
99	current_pos.file = current_file;
100	current_pos.lineno = current_file->lineno;
101	if (id && id->flags & TF_COMMAND) {
102	zconflval.id = id;
103	return id->token;
104	}
105	alloc_string(yytext, yyleng);
106	zconflval.string = text;
107	return T_WORD;
108	}
109	.
110	\n {
111	BEGIN(INITIAL);
112	current_file->lineno++;
113	return T_EOL;
114	}
115	}
116
117	<PARAM>{
118	"&&" return T_AND;
119	"\|\|" return T_OR;
120	"(" return T_OPEN_PAREN;
121	")" return T_CLOSE_PAREN;
122	"!" return T_NOT;
123	"=" return T_EQUAL;
124	"!=" return T_UNEQUAL;
125	\"\|\' {
126	str = yytext[0];
127	new_string();
128	BEGIN(STRING);
129	}
130	\n BEGIN(INITIAL); current_file->lineno++; return T_EOL;
131	--- /* ignore */
132	({n}\|[-/.])+ {
133	const struct kconf_id *id = kconf_id_lookup(yytext, yyleng);
134	if (id && id->flags & TF_PARAM) {
135	zconflval.id = id;
136	return id->token;
137	}
138	alloc_string(yytext, yyleng);
139	zconflval.string = text;
140	return T_WORD;
141	}
142	#.* /* comment */
143	\\\n current_file->lineno++;
144	.
145	<<EOF>> {
146	BEGIN(INITIAL);
147	}
148	}
149
150	<STRING>{
151	[^'"\\\n]+/\n {
152	append_string(yytext, yyleng);
153	zconflval.string = text;
154	return T_WORD_QUOTE;
155	}
156	[^'"\\\n]+ {
157	append_string(yytext, yyleng);
158	}
159	\\.?/\n {
160	append_string(yytext + 1, yyleng - 1);
161	zconflval.string = text;
162	return T_WORD_QUOTE;
163	}
164	\\.? {
165	append_string(yytext + 1, yyleng - 1);
166	}
167	\'\|\" {
168	if (str == yytext[0]) {
169	BEGIN(PARAM);
170	zconflval.string = text;
171	return T_WORD_QUOTE;
172	} else
173	append_string(yytext, 1);
174	}
175	\n {
176	printf("%s:%d:warning: multi-line strings not supported\n", zconf_curname(), zconf_lineno());
177	current_file->lineno++;
178	BEGIN(INITIAL);
179	return T_EOL;
180	}
181	<<EOF>> {
182	BEGIN(INITIAL);
183	}
184	}
185
186	<HELP>{
187	[ \t]+ {
188	ts = 0;
189	for (i = 0; i < yyleng; i++) {
190	if (yytext[i] == '\t')
191	ts = (ts & ~7) + 8;
192	else
193	ts++;
194	}
195	last_ts = ts;
196	if (first_ts) {
197	if (ts < first_ts) {
198	zconf_endhelp();
199	return T_HELPTEXT;
200	}
201	ts -= first_ts;
202	while (ts > 8) {
203	append_string(" ", 8);
204	ts -= 8;
205	}
206	append_string(" ", ts);
207	}
208	}
209	[ \t]*\n/[^ \t\n] {
210	current_file->lineno++;
211	zconf_endhelp();
212	return T_HELPTEXT;
213	}
214	[ \t]*\n {
215	current_file->lineno++;
216	append_string("\n", 1);
217	}
218	[^ \t\n].* {
219	while (yyleng) {
220	if ((yytext[yyleng-1] != ' ') && (yytext[yyleng-1] != '\t'))
221	break;
222	yyleng--;
223	}
224	append_string(yytext, yyleng);
225	if (!first_ts)
226	first_ts = last_ts;
227	}
228	<<EOF>> {
229	zconf_endhelp();
230	return T_HELPTEXT;
231	}
232	}
233
234	<<EOF>> {
235	if (current_file) {
236	zconf_endfile();
237	return T_EOL;
238	}
239	fclose(yyin);
240	yyterminate();
241	}
242
243	%%
244	void zconf_starthelp(void)
245	{
246	new_string();
247	last_ts = first_ts = 0;
248	BEGIN(HELP);
249	}
250
251	static void zconf_endhelp(void)
252	{
253	zconflval.string = text;
254	BEGIN(INITIAL);
255	}
256
257
258	/*
259	* Try to open specified file with following names:
260	* ./name
261	* $(srctree)/name
262	* The latter is used when srctree is separate from objtree
263	* when compiling the kernel.
264	* Return NULL if file is not found.
265	*/
266	FILE zconf_fopen(const char name)
267	{
268	char *env, fullname[PATH_MAX+1];
269	FILE *f;
270
271	f = fopen(name, "r");
272	if (!f && name != NULL && name[0] != '/') {
273	env = getenv(SRCTREE);
274	if (env) {
275	sprintf(fullname, "%s/%s", env, name);
276	f = fopen(fullname, "r");
277	}
278	}
279	return f;
280	}
281
282	void zconf_initscan(const char *name)
283	{
284	yyin = zconf_fopen(name);
285	if (!yyin) {
286	printf("can't find file %s\n", name);
287	exit(1);
288	}
289
290	current_buf = xmalloc(sizeof(*current_buf));
291	memset(current_buf, 0, sizeof(*current_buf));
292
293	current_file = file_lookup(name);
294	current_file->lineno = 1;
295	}
296
297	void zconf_nextfile(const char *name)
298	{
299	struct file *iter;
300	struct file *file = file_lookup(name);
301	struct buffer buf = xmalloc(sizeof(buf));
302	memset(buf, 0, sizeof(*buf));
303
304	current_buf->state = YY_CURRENT_BUFFER;
305	yyin = zconf_fopen(file->name);
306	if (!yyin) {
307	printf("%s:%d: can't open file \"%s\"\n",
308	zconf_curname(), zconf_lineno(), file->name);
309	exit(1);
310	}
311	yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
312	buf->parent = current_buf;
313	current_buf = buf;
314
315	for (iter = current_file->parent; iter; iter = iter->parent ) {
316	if (!strcmp(current_file->name,iter->name) ) {
317	printf("%s:%d: recursive inclusion detected. "
318	"Inclusion path:\n current file : '%s'\n",
319	zconf_curname(), zconf_lineno(),
320	zconf_curname());
321	iter = current_file->parent;
322	while (iter && \
323	strcmp(iter->name,current_file->name)) {
324	printf(" included from: '%s:%d'\n",
325	iter->name, iter->lineno-1);
326	iter = iter->parent;
327	}
328	if (iter)
329	printf(" included from: '%s:%d'\n",
330	iter->name, iter->lineno+1);
331	exit(1);
332	}
333	}
334	file->lineno = 1;
335	file->parent = current_file;
336	current_file = file;
337	}
338
339	static void zconf_endfile(void)
340	{
341	struct buffer *parent;
342
343	current_file = current_file->parent;
344
345	parent = current_buf->parent;
346	if (parent) {
347	fclose(yyin);
348	yy_delete_buffer(YY_CURRENT_BUFFER);
349	yy_switch_to_buffer(parent->state);
350	}
351	free(current_buf);
352	current_buf = parent;
353	}
354
355	int zconf_lineno(void)
356	{
357	return current_pos.lineno;
358	}
359
360	const char *zconf_curname(void)
361	{
362	return current_pos.file ? current_pos.file->name : "<none>";
363	}