configlexer.lex revision 295691 
1%{
2/*
3 * configlexer.lex - lexical analyzer for unbound config file
4 *
5 * Copyright (c) 2001-2006, NLnet Labs. All rights reserved
6 *
7 * See LICENSE for the license.
8 *
9 */
10#include "config.h"
11
12#include <ctype.h>
13#include <string.h>
14#include <strings.h>
15#ifdef HAVE_GLOB_H
16# include <glob.h>
17#endif
18
19#include "util/config_file.h"
20#include "configparser.h"
21void ub_c_error(const char *message);
22
23#if 0
24#define LEXOUT(s)  printf s /* used ONLY when debugging */
25#else
26#define LEXOUT(s)
27#endif
28
29/** avoid warning in about fwrite return value */
30#define ECHO ub_c_error_msg("syntax error at text: %s", ub_c_text)
31
32/** A parser variable, this is a statement in the config file which is
33 * of the form variable: value1 value2 ...  nargs is the number of values. */
34#define YDVAR(nargs, var) \
35	num_args=(nargs); \
36	LEXOUT(("v(%s%d) ", ub_c_text, num_args)); \
37	if(num_args > 0) { BEGIN(val); } \
38	return (var);
39
40struct inc_state {
41	char* filename;
42	int line;
43	YY_BUFFER_STATE buffer;
44	struct inc_state* next;
45};
46static struct inc_state* config_include_stack = NULL;
47static int inc_depth = 0;
48static int inc_prev = 0;
49static int num_args = 0;
50
51void init_cfg_parse(void)
52{
53	config_include_stack = NULL;
54	inc_depth = 0;
55	inc_prev = 0;
56	num_args = 0;
57}
58
59static void config_start_include(const char* filename)
60{
61	FILE *input;
62	struct inc_state* s;
63	char* nm;
64	if(inc_depth++ > 100000) {
65		ub_c_error_msg("too many include files");
66		return;
67	}
68	if(strlen(filename) == 0) {
69		ub_c_error_msg("empty include file name");
70		return;
71	}
72	s = (struct inc_state*)malloc(sizeof(*s));
73	if(!s) {
74		ub_c_error_msg("include %s: malloc failure", filename);
75		return;
76	}
77	if(cfg_parser->chroot && strncmp(filename, cfg_parser->chroot,
78		strlen(cfg_parser->chroot)) == 0) {
79		filename += strlen(cfg_parser->chroot);
80	}
81	nm = strdup(filename);
82	if(!nm) {
83		ub_c_error_msg("include %s: strdup failure", filename);
84		free(s);
85		return;
86	}
87	input = fopen(filename, "r");
88	if(!input) {
89		ub_c_error_msg("cannot open include file '%s': %s",
90			filename, strerror(errno));
91		free(s);
92		free(nm);
93		return;
94	}
95	LEXOUT(("switch_to_include_file(%s)\n", filename));
96	s->filename = cfg_parser->filename;
97	s->line = cfg_parser->line;
98	s->buffer = YY_CURRENT_BUFFER;
99	s->next = config_include_stack;
100	config_include_stack = s;
101	cfg_parser->filename = nm;
102	cfg_parser->line = 1;
103	yy_switch_to_buffer(yy_create_buffer(input, YY_BUF_SIZE));
104}
105
106static void config_start_include_glob(const char* filename)
107{
108
109	/* check for wildcards */
110#ifdef HAVE_GLOB
111	glob_t g;
112	size_t i;
113	int r, flags;
114	if(!(!strchr(filename, '*') && !strchr(filename, '?') && !strchr(filename, '[') &&
115		!strchr(filename, '{') && !strchr(filename, '~'))) {
116		flags = 0
117#ifdef GLOB_ERR
118			| GLOB_ERR
119#endif
120#ifdef GLOB_NOSORT
121			| GLOB_NOSORT
122#endif
123#ifdef GLOB_BRACE
124			| GLOB_BRACE
125#endif
126#ifdef GLOB_TILDE
127			| GLOB_TILDE
128#endif
129		;
130		memset(&g, 0, sizeof(g));
131		if(cfg_parser->chroot && strncmp(filename, cfg_parser->chroot,
132			strlen(cfg_parser->chroot)) == 0) {
133			filename += strlen(cfg_parser->chroot);
134		}
135		r = glob(filename, flags, NULL, &g);
136		if(r) {
137			/* some error */
138			globfree(&g);
139			if(r == GLOB_NOMATCH)
140				return; /* no matches for pattern */
141			config_start_include(filename); /* let original deal with it */
142			return;
143		}
144		/* process files found, if any */
145		for(i=0; i<(size_t)g.gl_pathc; i++) {
146			config_start_include(g.gl_pathv[i]);
147		}
148		globfree(&g);
149		return;
150	}
151#endif /* HAVE_GLOB */
152
153	config_start_include(filename);
154}
155
156static void config_end_include(void)
157{
158	struct inc_state* s = config_include_stack;
159	--inc_depth;
160	if(!s) return;
161	free(cfg_parser->filename);
162	cfg_parser->filename = s->filename;
163	cfg_parser->line = s->line;
164	yy_delete_buffer(YY_CURRENT_BUFFER);
165	yy_switch_to_buffer(s->buffer);
166	config_include_stack = s->next;
167	free(s);
168}
169
170#ifndef yy_set_bol /* compat definition, for flex 2.4.6 */
171#define yy_set_bol(at_bol) \
172        { \
173	        if ( ! yy_current_buffer ) \
174	                yy_current_buffer = yy_create_buffer( ub_c_in, YY_BUF_SIZE ); \
175	        yy_current_buffer->yy_ch_buf[0] = ((at_bol)?'\n':' '); \
176        }
177#endif
178
179%}
180%option noinput
181%option nounput
182%{
183#ifndef YY_NO_UNPUT
184#define YY_NO_UNPUT 1
185#endif
186#ifndef YY_NO_INPUT
187#define YY_NO_INPUT 1
188#endif
189%}
190
191SPACE   [ \t]
192LETTER  [a-zA-Z]
193UNQUOTEDLETTER [^\'\"\n\r \t\\]|\\.
194UNQUOTEDLETTER_NOCOLON [^\:\'\"\n\r \t\\]|\\.
195NEWLINE [\r\n]
196COMMENT \#
197COLON 	\:
198DQANY     [^\"\n\r\\]|\\.
199SQANY     [^\'\n\r\\]|\\.
200
201%x	quotedstring singlequotedstr include include_quoted val
202
203%%
204<INITIAL,val>{SPACE}*	{
205	LEXOUT(("SP ")); /* ignore */ }
206<INITIAL,val>{SPACE}*{COMMENT}.*	{
207	/* note that flex makes the longest match and '.' is any but not nl */
208	LEXOUT(("comment(%s) ", ub_c_text)); /* ignore */ }
209server{COLON}			{ YDVAR(0, VAR_SERVER) }
210qname-minimisation{COLON}	{ YDVAR(1, VAR_QNAME_MINIMISATION) }
211num-threads{COLON}		{ YDVAR(1, VAR_NUM_THREADS) }
212verbosity{COLON}		{ YDVAR(1, VAR_VERBOSITY) }
213port{COLON}			{ YDVAR(1, VAR_PORT) }
214outgoing-range{COLON}		{ YDVAR(1, VAR_OUTGOING_RANGE) }
215outgoing-port-permit{COLON}	{ YDVAR(1, VAR_OUTGOING_PORT_PERMIT) }
216outgoing-port-avoid{COLON}	{ YDVAR(1, VAR_OUTGOING_PORT_AVOID) }
217outgoing-num-tcp{COLON}		{ YDVAR(1, VAR_OUTGOING_NUM_TCP) }
218incoming-num-tcp{COLON}		{ YDVAR(1, VAR_INCOMING_NUM_TCP) }
219do-ip4{COLON}			{ YDVAR(1, VAR_DO_IP4) }
220do-ip6{COLON}			{ YDVAR(1, VAR_DO_IP6) }
221do-udp{COLON}			{ YDVAR(1, VAR_DO_UDP) }
222do-tcp{COLON}			{ YDVAR(1, VAR_DO_TCP) }
223tcp-upstream{COLON}		{ YDVAR(1, VAR_TCP_UPSTREAM) }
224ssl-upstream{COLON}		{ YDVAR(1, VAR_SSL_UPSTREAM) }
225ssl-service-key{COLON}		{ YDVAR(1, VAR_SSL_SERVICE_KEY) }
226ssl-service-pem{COLON}		{ YDVAR(1, VAR_SSL_SERVICE_PEM) }
227ssl-port{COLON}			{ YDVAR(1, VAR_SSL_PORT) }
228do-daemonize{COLON}		{ YDVAR(1, VAR_DO_DAEMONIZE) }
229interface{COLON}		{ YDVAR(1, VAR_INTERFACE) }
230ip-address{COLON}		{ YDVAR(1, VAR_INTERFACE) }
231outgoing-interface{COLON}	{ YDVAR(1, VAR_OUTGOING_INTERFACE) }
232interface-automatic{COLON}	{ YDVAR(1, VAR_INTERFACE_AUTOMATIC) }
233so-rcvbuf{COLON}		{ YDVAR(1, VAR_SO_RCVBUF) }
234so-sndbuf{COLON}		{ YDVAR(1, VAR_SO_SNDBUF) }
235so-reuseport{COLON}		{ YDVAR(1, VAR_SO_REUSEPORT) }
236ip-transparent{COLON}		{ YDVAR(1, VAR_IP_TRANSPARENT) }
237chroot{COLON}			{ YDVAR(1, VAR_CHROOT) }
238username{COLON}			{ YDVAR(1, VAR_USERNAME) }
239directory{COLON}		{ YDVAR(1, VAR_DIRECTORY) }
240logfile{COLON}			{ YDVAR(1, VAR_LOGFILE) }
241pidfile{COLON}			{ YDVAR(1, VAR_PIDFILE) }
242root-hints{COLON}		{ YDVAR(1, VAR_ROOT_HINTS) }
243edns-buffer-size{COLON}		{ YDVAR(1, VAR_EDNS_BUFFER_SIZE) }
244msg-buffer-size{COLON}		{ YDVAR(1, VAR_MSG_BUFFER_SIZE) }
245msg-cache-size{COLON}		{ YDVAR(1, VAR_MSG_CACHE_SIZE) }
246msg-cache-slabs{COLON}		{ YDVAR(1, VAR_MSG_CACHE_SLABS) }
247rrset-cache-size{COLON}		{ YDVAR(1, VAR_RRSET_CACHE_SIZE) }
248rrset-cache-slabs{COLON}	{ YDVAR(1, VAR_RRSET_CACHE_SLABS) }
249cache-max-ttl{COLON}     	{ YDVAR(1, VAR_CACHE_MAX_TTL) }
250cache-max-negative-ttl{COLON}   { YDVAR(1, VAR_CACHE_MAX_NEGATIVE_TTL) }
251cache-min-ttl{COLON}     	{ YDVAR(1, VAR_CACHE_MIN_TTL) }
252infra-host-ttl{COLON}		{ YDVAR(1, VAR_INFRA_HOST_TTL) }
253infra-lame-ttl{COLON}		{ YDVAR(1, VAR_INFRA_LAME_TTL) }
254infra-cache-slabs{COLON}	{ YDVAR(1, VAR_INFRA_CACHE_SLABS) }
255infra-cache-numhosts{COLON}	{ YDVAR(1, VAR_INFRA_CACHE_NUMHOSTS) }
256infra-cache-lame-size{COLON}	{ YDVAR(1, VAR_INFRA_CACHE_LAME_SIZE) }
257infra-cache-min-rtt{COLON}	{ YDVAR(1, VAR_INFRA_CACHE_MIN_RTT) }
258num-queries-per-thread{COLON}	{ YDVAR(1, VAR_NUM_QUERIES_PER_THREAD) }
259jostle-timeout{COLON}		{ YDVAR(1, VAR_JOSTLE_TIMEOUT) }
260delay-close{COLON}		{ YDVAR(1, VAR_DELAY_CLOSE) }
261target-fetch-policy{COLON}	{ YDVAR(1, VAR_TARGET_FETCH_POLICY) }
262harden-short-bufsize{COLON}	{ YDVAR(1, VAR_HARDEN_SHORT_BUFSIZE) }
263harden-large-queries{COLON}	{ YDVAR(1, VAR_HARDEN_LARGE_QUERIES) }
264harden-glue{COLON}		{ YDVAR(1, VAR_HARDEN_GLUE) }
265harden-dnssec-stripped{COLON}	{ YDVAR(1, VAR_HARDEN_DNSSEC_STRIPPED) }
266harden-below-nxdomain{COLON}	{ YDVAR(1, VAR_HARDEN_BELOW_NXDOMAIN) }
267harden-referral-path{COLON}	{ YDVAR(1, VAR_HARDEN_REFERRAL_PATH) }
268harden-algo-downgrade{COLON}	{ YDVAR(1, VAR_HARDEN_ALGO_DOWNGRADE) }
269use-caps-for-id{COLON}		{ YDVAR(1, VAR_USE_CAPS_FOR_ID) }
270caps-whitelist{COLON}		{ YDVAR(1, VAR_CAPS_WHITELIST) }
271unwanted-reply-threshold{COLON}	{ YDVAR(1, VAR_UNWANTED_REPLY_THRESHOLD) }
272private-address{COLON}		{ YDVAR(1, VAR_PRIVATE_ADDRESS) }
273private-domain{COLON}		{ YDVAR(1, VAR_PRIVATE_DOMAIN) }
274prefetch-key{COLON}		{ YDVAR(1, VAR_PREFETCH_KEY) }
275prefetch{COLON}			{ YDVAR(1, VAR_PREFETCH) }
276stub-zone{COLON}		{ YDVAR(0, VAR_STUB_ZONE) }
277name{COLON}			{ YDVAR(1, VAR_NAME) }
278stub-addr{COLON}		{ YDVAR(1, VAR_STUB_ADDR) }
279stub-host{COLON}		{ YDVAR(1, VAR_STUB_HOST) }
280stub-prime{COLON}		{ YDVAR(1, VAR_STUB_PRIME) }
281stub-first{COLON}		{ YDVAR(1, VAR_STUB_FIRST) }
282forward-zone{COLON}		{ YDVAR(0, VAR_FORWARD_ZONE) }
283forward-addr{COLON}		{ YDVAR(1, VAR_FORWARD_ADDR) }
284forward-host{COLON}		{ YDVAR(1, VAR_FORWARD_HOST) }
285forward-first{COLON}		{ YDVAR(1, VAR_FORWARD_FIRST) }
286do-not-query-address{COLON}	{ YDVAR(1, VAR_DO_NOT_QUERY_ADDRESS) }
287do-not-query-localhost{COLON}	{ YDVAR(1, VAR_DO_NOT_QUERY_LOCALHOST) }
288access-control{COLON}		{ YDVAR(2, VAR_ACCESS_CONTROL) }
289hide-identity{COLON}		{ YDVAR(1, VAR_HIDE_IDENTITY) }
290hide-version{COLON}		{ YDVAR(1, VAR_HIDE_VERSION) }
291identity{COLON}			{ YDVAR(1, VAR_IDENTITY) }
292version{COLON}			{ YDVAR(1, VAR_VERSION) }
293module-config{COLON}     	{ YDVAR(1, VAR_MODULE_CONF) }
294dlv-anchor{COLON}		{ YDVAR(1, VAR_DLV_ANCHOR) }
295dlv-anchor-file{COLON}		{ YDVAR(1, VAR_DLV_ANCHOR_FILE) }
296trust-anchor-file{COLON}	{ YDVAR(1, VAR_TRUST_ANCHOR_FILE) }
297auto-trust-anchor-file{COLON}	{ YDVAR(1, VAR_AUTO_TRUST_ANCHOR_FILE) }
298trusted-keys-file{COLON}	{ YDVAR(1, VAR_TRUSTED_KEYS_FILE) }
299trust-anchor{COLON}		{ YDVAR(1, VAR_TRUST_ANCHOR) }
300val-override-date{COLON}	{ YDVAR(1, VAR_VAL_OVERRIDE_DATE) }
301val-sig-skew-min{COLON}		{ YDVAR(1, VAR_VAL_SIG_SKEW_MIN) }
302val-sig-skew-max{COLON}		{ YDVAR(1, VAR_VAL_SIG_SKEW_MAX) }
303val-bogus-ttl{COLON}		{ YDVAR(1, VAR_BOGUS_TTL) }
304val-clean-additional{COLON}	{ YDVAR(1, VAR_VAL_CLEAN_ADDITIONAL) }
305val-permissive-mode{COLON}	{ YDVAR(1, VAR_VAL_PERMISSIVE_MODE) }
306ignore-cd-flag{COLON}		{ YDVAR(1, VAR_IGNORE_CD_FLAG) }
307val-log-level{COLON}		{ YDVAR(1, VAR_VAL_LOG_LEVEL) }
308key-cache-size{COLON}		{ YDVAR(1, VAR_KEY_CACHE_SIZE) }
309key-cache-slabs{COLON}		{ YDVAR(1, VAR_KEY_CACHE_SLABS) }
310neg-cache-size{COLON}		{ YDVAR(1, VAR_NEG_CACHE_SIZE) }
311val-nsec3-keysize-iterations{COLON}	{
312				  YDVAR(1, VAR_VAL_NSEC3_KEYSIZE_ITERATIONS) }
313add-holddown{COLON}		{ YDVAR(1, VAR_ADD_HOLDDOWN) }
314del-holddown{COLON}		{ YDVAR(1, VAR_DEL_HOLDDOWN) }
315keep-missing{COLON}		{ YDVAR(1, VAR_KEEP_MISSING) }
316permit-small-holddown{COLON}	{ YDVAR(1, VAR_PERMIT_SMALL_HOLDDOWN) }
317use-syslog{COLON}		{ YDVAR(1, VAR_USE_SYSLOG) }
318log-time-ascii{COLON}		{ YDVAR(1, VAR_LOG_TIME_ASCII) }
319log-queries{COLON}		{ YDVAR(1, VAR_LOG_QUERIES) }
320local-zone{COLON}		{ YDVAR(2, VAR_LOCAL_ZONE) }
321local-data{COLON}		{ YDVAR(1, VAR_LOCAL_DATA) }
322local-data-ptr{COLON}		{ YDVAR(1, VAR_LOCAL_DATA_PTR) }
323unblock-lan-zones{COLON}	{ YDVAR(1, VAR_UNBLOCK_LAN_ZONES) }
324insecure-lan-zones{COLON}	{ YDVAR(1, VAR_INSECURE_LAN_ZONES) }
325statistics-interval{COLON}	{ YDVAR(1, VAR_STATISTICS_INTERVAL) }
326statistics-cumulative{COLON}	{ YDVAR(1, VAR_STATISTICS_CUMULATIVE) }
327extended-statistics{COLON}	{ YDVAR(1, VAR_EXTENDED_STATISTICS) }
328remote-control{COLON}		{ YDVAR(0, VAR_REMOTE_CONTROL) }
329control-enable{COLON}		{ YDVAR(1, VAR_CONTROL_ENABLE) }
330control-interface{COLON}	{ YDVAR(1, VAR_CONTROL_INTERFACE) }
331control-port{COLON}		{ YDVAR(1, VAR_CONTROL_PORT) }
332control-use-cert{COLON}		{ YDVAR(1, VAR_CONTROL_USE_CERT) }
333server-key-file{COLON}		{ YDVAR(1, VAR_SERVER_KEY_FILE) }
334server-cert-file{COLON}		{ YDVAR(1, VAR_SERVER_CERT_FILE) }
335control-key-file{COLON}		{ YDVAR(1, VAR_CONTROL_KEY_FILE) }
336control-cert-file{COLON}	{ YDVAR(1, VAR_CONTROL_CERT_FILE) }
337python-script{COLON}		{ YDVAR(1, VAR_PYTHON_SCRIPT) }
338python{COLON}			{ YDVAR(0, VAR_PYTHON) }
339domain-insecure{COLON}		{ YDVAR(1, VAR_DOMAIN_INSECURE) }
340minimal-responses{COLON}	{ YDVAR(1, VAR_MINIMAL_RESPONSES) }
341rrset-roundrobin{COLON}		{ YDVAR(1, VAR_RRSET_ROUNDROBIN) }
342max-udp-size{COLON}		{ YDVAR(1, VAR_MAX_UDP_SIZE) }
343dns64-prefix{COLON}		{ YDVAR(1, VAR_DNS64_PREFIX) }
344dns64-synthall{COLON}		{ YDVAR(1, VAR_DNS64_SYNTHALL) }
345dnstap{COLON}			{ YDVAR(0, VAR_DNSTAP) }
346dnstap-enable{COLON}		{ YDVAR(1, VAR_DNSTAP_ENABLE) }
347dnstap-socket-path{COLON}	{ YDVAR(1, VAR_DNSTAP_SOCKET_PATH) }
348dnstap-send-identity{COLON}	{ YDVAR(1, VAR_DNSTAP_SEND_IDENTITY) }
349dnstap-send-version{COLON}	{ YDVAR(1, VAR_DNSTAP_SEND_VERSION) }
350dnstap-identity{COLON}		{ YDVAR(1, VAR_DNSTAP_IDENTITY) }
351dnstap-version{COLON}		{ YDVAR(1, VAR_DNSTAP_VERSION) }
352dnstap-log-resolver-query-messages{COLON}	{
353		YDVAR(1, VAR_DNSTAP_LOG_RESOLVER_QUERY_MESSAGES) }
354dnstap-log-resolver-response-messages{COLON}	{
355		YDVAR(1, VAR_DNSTAP_LOG_RESOLVER_RESPONSE_MESSAGES) }
356dnstap-log-client-query-messages{COLON}		{
357		YDVAR(1, VAR_DNSTAP_LOG_CLIENT_QUERY_MESSAGES) }
358dnstap-log-client-response-messages{COLON}	{
359		YDVAR(1, VAR_DNSTAP_LOG_CLIENT_RESPONSE_MESSAGES) }
360dnstap-log-forwarder-query-messages{COLON}	{
361		YDVAR(1, VAR_DNSTAP_LOG_FORWARDER_QUERY_MESSAGES) }
362dnstap-log-forwarder-response-messages{COLON}	{
363		YDVAR(1, VAR_DNSTAP_LOG_FORWARDER_RESPONSE_MESSAGES) }
364ratelimit{COLON}		{ YDVAR(1, VAR_RATELIMIT) }
365ratelimit-slabs{COLON}		{ YDVAR(1, VAR_RATELIMIT_SLABS) }
366ratelimit-size{COLON}		{ YDVAR(1, VAR_RATELIMIT_SIZE) }
367ratelimit-for-domain{COLON}	{ YDVAR(2, VAR_RATELIMIT_FOR_DOMAIN) }
368ratelimit-below-domain{COLON}	{ YDVAR(2, VAR_RATELIMIT_BELOW_DOMAIN) }
369ratelimit-factor{COLON}		{ YDVAR(1, VAR_RATELIMIT_FACTOR) }
370<INITIAL,val>{NEWLINE}		{ LEXOUT(("NL\n")); cfg_parser->line++; }
371
372	/* Quoted strings. Strip leading and ending quotes */
373<val>\"			{ BEGIN(quotedstring); LEXOUT(("QS ")); }
374<quotedstring><<EOF>>   {
375        ub_c_error("EOF inside quoted string");
376	if(--num_args == 0) { BEGIN(INITIAL); }
377	else		    { BEGIN(val); }
378}
379<quotedstring>{DQANY}*  { LEXOUT(("STR(%s) ", ub_c_text)); yymore(); }
380<quotedstring>{NEWLINE} { ub_c_error("newline inside quoted string, no end \"");
381			  cfg_parser->line++; BEGIN(INITIAL); }
382<quotedstring>\" {
383        LEXOUT(("QE "));
384	if(--num_args == 0) { BEGIN(INITIAL); }
385	else		    { BEGIN(val); }
386        ub_c_text[ub_c_leng - 1] = '\0';
387	ub_c_lval.str = strdup(ub_c_text);
388	if(!ub_c_lval.str)
389		ub_c_error("out of memory");
390        return STRING_ARG;
391}
392
393	/* Single Quoted strings. Strip leading and ending quotes */
394<val>\'			{ BEGIN(singlequotedstr); LEXOUT(("SQS ")); }
395<singlequotedstr><<EOF>>   {
396        ub_c_error("EOF inside quoted string");
397	if(--num_args == 0) { BEGIN(INITIAL); }
398	else		    { BEGIN(val); }
399}
400<singlequotedstr>{SQANY}*  { LEXOUT(("STR(%s) ", ub_c_text)); yymore(); }
401<singlequotedstr>{NEWLINE} { ub_c_error("newline inside quoted string, no end '");
402			     cfg_parser->line++; BEGIN(INITIAL); }
403<singlequotedstr>\' {
404        LEXOUT(("SQE "));
405	if(--num_args == 0) { BEGIN(INITIAL); }
406	else		    { BEGIN(val); }
407        ub_c_text[ub_c_leng - 1] = '\0';
408	ub_c_lval.str = strdup(ub_c_text);
409	if(!ub_c_lval.str)
410		ub_c_error("out of memory");
411        return STRING_ARG;
412}
413
414	/* include: directive */
415<INITIAL,val>include{COLON}	{
416	LEXOUT(("v(%s) ", ub_c_text)); inc_prev = YYSTATE; BEGIN(include); }
417<include><<EOF>>	{
418        ub_c_error("EOF inside include directive");
419        BEGIN(inc_prev);
420}
421<include>{SPACE}*	{ LEXOUT(("ISP ")); /* ignore */ }
422<include>{NEWLINE}	{ LEXOUT(("NL\n")); cfg_parser->line++;}
423<include>\"		{ LEXOUT(("IQS ")); BEGIN(include_quoted); }
424<include>{UNQUOTEDLETTER}*	{
425	LEXOUT(("Iunquotedstr(%s) ", ub_c_text));
426	config_start_include_glob(ub_c_text);
427	BEGIN(inc_prev);
428}
429<include_quoted><<EOF>>	{
430        ub_c_error("EOF inside quoted string");
431        BEGIN(inc_prev);
432}
433<include_quoted>{DQANY}*	{ LEXOUT(("ISTR(%s) ", ub_c_text)); yymore(); }
434<include_quoted>{NEWLINE}	{ ub_c_error("newline before \" in include name");
435				  cfg_parser->line++; BEGIN(inc_prev); }
436<include_quoted>\"	{
437	LEXOUT(("IQE "));
438	ub_c_text[ub_c_leng - 1] = '\0';
439	config_start_include_glob(ub_c_text);
440	BEGIN(inc_prev);
441}
442<INITIAL,val><<EOF>>	{
443	LEXOUT(("LEXEOF "));
444	yy_set_bol(1); /* Set beginning of line, so "^" rules match.  */
445	if (!config_include_stack) {
446		yyterminate();
447	} else {
448		fclose(ub_c_in);
449		config_end_include();
450	}
451}
452
453<val>{UNQUOTEDLETTER}*	{ LEXOUT(("unquotedstr(%s) ", ub_c_text));
454			if(--num_args == 0) { BEGIN(INITIAL); }
455			ub_c_lval.str = strdup(ub_c_text); return STRING_ARG; }
456
457{UNQUOTEDLETTER_NOCOLON}*	{
458	ub_c_error_msg("unknown keyword '%s'", ub_c_text);
459	}
460
461<*>.	{
462	ub_c_error_msg("stray '%s'", ub_c_text);
463	}
464
465%%
466