lang.l revision 201227 
1%{
2/*-
3 * Copyright (c) 1980, 1993
4 *	The Regents of the University of California.  All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 *    notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 *    notice, this list of conditions and the following disclaimer in the
13 *    documentation and/or other materials provided with the distribution.
14 * 4. Neither the name of the University nor the names of its contributors
15 *    may be used to endorse or promote products derived from this software
16 *    without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * SUCH DAMAGE.
29 *
30 *	@(#)lang.l	8.1 (Berkeley) 6/6/93
31 * $FreeBSD: head/usr.sbin/config/lang.l 201227 2009-12-29 22:53:27Z ed $
32 */
33
34#include <assert.h>
35#include <ctype.h>
36#include <string.h>
37#include "y.tab.h"
38#include "config.h"
39
40#define YY_NO_UNPUT
41
42/*
43 * Data for returning to previous files from include files.
44 */
45struct incl {
46	struct	incl *in_prev; 	/* previous includes in effect, if any */
47	YY_BUFFER_STATE in_buf;	/* previous lex state */
48	const	char *in_fname;	/* previous file name */
49	int	in_lineno;	/* previous line number */
50	int	in_ateof;	/* token to insert at EOF */
51};
52static struct	incl *inclp;
53static const	char *lastfile;
54
55/*
56 * Key word table
57 */
58
59struct kt {
60	const char *kt_name;
61	int kt_val;
62} key_words[] = {
63	{ "config",	CONFIG },
64	{ "cpu",	CPU },
65	{ "nocpu",	NOCPU },
66	{ "device",	DEVICE },
67	{ "devices",	DEVICE },
68	{ "nodevice",	NODEVICE },
69	{ "nodevices",	NODEVICE },
70	{ "env",	ENV },
71	{ "hints",	HINTS },
72	{ "ident",	IDENT },
73	{ "machine",	ARCH }, /* MACHINE is defined in /sys/param.h */
74	{ "makeoption",	MAKEOPTIONS },
75	{ "makeoptions", MAKEOPTIONS },
76	{ "nomakeoption", NOMAKEOPTION },
77	{ "nomakeoptions", NOMAKEOPTION },
78	{ "maxusers",	MAXUSERS },
79	{ "profile",	PROFILE },
80	{ "option",	OPTIONS },
81	{ "options",	OPTIONS },
82	{ "nooption",	NOOPTION },
83	{ "nooptions",	NOOPTION },
84	{ "include",	INCLUDE },
85	{ "files", 	FILES },
86	{ 0, 0 },
87};
88
89
90static int endinclude(void);
91int include(const char *, int);
92int kw_lookup(char *);
93unsigned int octal(const char *);
94unsigned int hex(const char *);
95int yyerror(const char *);
96
97%}
98ID	[A-Za-z_][-A-Za-z_0-9]*
99PATH	[./][-/.%^A-Za-z_0-9]+
100%START TOEOL
101%%
102{ID}		{
103			int i;
104
105			BEGIN 0;
106			if ((i = kw_lookup(yytext)) == -1)
107			{
108				yylval.str = strdup(yytext);
109				return ID;
110			}
111			return i;
112		}
113\\\"[^"]+\\\"	{
114			BEGIN 0;
115			yytext[yyleng-2] = '"';
116			yytext[yyleng-1] = '\0';
117			yylval.str = strdup(yytext + 1);
118			return ID;
119		}
120\"[^"]+\"	{
121			BEGIN 0;
122			yytext[yyleng-1] = '\0';
123			yylval.str = strdup(yytext + 1);
124			return ID;
125		}
126<TOEOL>[^# \t\n]*	{
127			BEGIN 0;
128			yylval.str = strdup(yytext);
129			return ID;
130		}
1310[0-7]*		{
132			yylval.val = octal(yytext);
133			return NUMBER;
134		}
1350x[0-9a-fA-F]+	{
136			yylval.val = hex(yytext);
137			return NUMBER;
138		}
139-?[1-9][0-9]*	{
140			yylval.val = atoi(yytext);
141			return NUMBER;
142		}
143"?"		{
144			yylval.val = -1;
145			return NUMBER;
146		}
147\n/[ \t]	{
148			yyline++;
149		}
150\n		{
151			yyline++;
152			return SEMICOLON;
153		}
154#.*		{	/* Ignored (comment) */;	}
155[ \t\f]*	{	/* Ignored (white space) */;	}
156";"		{	return SEMICOLON;		}
157","		{	return COMMA;			}
158"="		{	BEGIN TOEOL; return EQUALS;	}
159"+="		{	BEGIN TOEOL; return PLUSEQUALS;	}
160<<EOF>>		{
161			int tok;
162
163			if (inclp == NULL)
164				return YY_NULL;
165			tok = endinclude();
166			if (tok != 0)
167				return tok;
168			/* otherwise continue scanning */
169		}
170{PATH}		{
171			BEGIN 0;
172			yylval.str = strdup(yytext);
173			return PATH;
174		}
175.		{	return yytext[0];		}
176
177%%
178/*
179 * kw_lookup
180 *	Look up a string in the keyword table.  Returns a -1 if the
181 *	string is not a keyword otherwise it returns the keyword number
182 */
183
184int
185kw_lookup(char *word)
186{
187	struct kt *kp;
188
189	for (kp = key_words; kp->kt_name != 0; kp++)
190		if (eq(word, kp->kt_name))
191			return kp->kt_val;
192	return -1;
193}
194
195/*
196 * Number conversion routines
197 */
198
199unsigned int
200octal(const char *str)
201{
202	unsigned int num;
203
204	(void) sscanf(str, "%o", &num);
205	return num;
206}
207
208unsigned int
209hex(const char *str)
210{
211	unsigned int num;
212
213	(void) sscanf(str+2, "%x", &num);
214	return num;
215}
216
217void
218cfgfile_add(const char *fname)
219{
220	struct cfgfile *cf;
221
222	cf = calloc(1, sizeof(*cf));
223	assert(cf != NULL);
224	asprintf(&cf->cfg_path, "%s", fname);
225	STAILQ_INSERT_TAIL(&cfgfiles, cf, cfg_next);
226}
227
228void
229cfgfile_removeall(void)
230{
231	struct cfgfile *cf;
232
233	while (!STAILQ_EMPTY(&cfgfiles)) {
234		cf = STAILQ_FIRST(&cfgfiles);
235		STAILQ_REMOVE_HEAD(&cfgfiles, cfg_next);
236		if (cf->cfg_path != NULL)
237			free(cf->cfg_path);
238		free(cf);
239	}
240}
241
242/*
243 * Open the named file for inclusion at the current point.  Returns 0 on
244 * success (file opened and previous state pushed), nonzero on failure
245 * (fopen failed, complaint made).  The `ateof' parameter controls the
246 * token to be inserted at the end of the include file. If ateof == 0,
247 * then nothing is inserted.
248 */
249int
250include(const char *fname, int ateof)
251{
252	FILE *fp;
253	struct incl *in;
254	char *fnamebuf;
255
256	fnamebuf = NULL;
257	fp = fopen(fname, "r");
258	if (fp == NULL && fname[0] != '.' && fname[0] != '/') {
259		asprintf(&fnamebuf, "../../conf/%s", fname);
260		if (fnamebuf != NULL) {
261			fp = fopen(fnamebuf, "r");
262			free(fnamebuf);
263		}
264	}
265	if (fp == NULL) {
266		yyerror("cannot open included file");
267		return (-1);
268	}
269	cfgfile_add(fnamebuf == NULL ? fname : fnamebuf);
270	in = malloc(sizeof(*in));
271	assert(in != NULL);
272	in->in_prev = inclp;
273	in->in_buf = YY_CURRENT_BUFFER;
274	in->in_fname = yyfile;
275	in->in_lineno = yyline;
276	in->in_ateof = ateof;
277	inclp = in;
278	yy_switch_to_buffer(yy_create_buffer(fp, YY_BUF_SIZE));
279	yyfile = fname;
280	yyline = 0;
281	return (0);
282}
283
284/*
285 * Terminate the most recent inclusion.
286 */
287static int
288endinclude(void)
289{
290	struct incl *in;
291	int ateof;
292
293	in = inclp;
294	assert(in != NULL);
295	inclp = in->in_prev;
296	lastfile = yyfile;
297	yy_delete_buffer(YY_CURRENT_BUFFER);
298	(void)fclose(yyin);
299	yy_switch_to_buffer(in->in_buf);
300	yyfile = in->in_fname;
301	yyline = in->in_lineno;
302	ateof  = in->in_ateof;
303	free(in);
304
305	return (ateof);
306}
307