2 * This file is part of secnet.
3 * See README for full list of copyright holders.
5 * secnet is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 3 of the License, or
8 * (at your option) any later version.
10 * secnet is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * version 3 along with secnet; if not, see
17 * https://www.gnu.org/licenses/gpl.html.
19 /* the "incl" state is used for picking up the name of an include file */
24 %option never-interactive
34 #include "conffile_internal.h"
35 #include "conffile.tab.h"
40 #define YY_INPUT(buf,result,max_size) \
42 (result)= fread((buf),1,(max_size),yyin); \
44 fatal_perror("Error reading configuration file (%s)", \
48 #define MAX_INCLUDE_DEPTH 10
49 struct include_stack_item {
54 struct include_stack_item include_stack[MAX_INCLUDE_DEPTH];
55 int include_stack_ptr=0;
58 cstring_t config_file="xxx";
60 static struct p_node *leafnode(uint32_t type)
66 r->loc.file=config_file;
67 r->loc.line=config_lineno;
72 static struct p_node *keynode(atom_t key)
76 r->data.key=intern(key);
80 static struct p_node *stringnode(string_t string)
85 string[strlen(string)-1]=0;
86 r->data.string=safe_strdup(string,"stringnode");
90 static struct p_node *numnode(string_t number)
96 n = strtoul(number, NULL, 10);
97 /* The caller is expected to only give us [0-9]+,
98 * so we skip some of the usual syntax checking. */
100 /* Give a consistent error message for any kind of
101 * out-of-range condition */
102 if(errno == ERANGE || n != r->data.number) {
103 Message(M_FATAL,"config file %s line %d: '%s' is too big\n",
104 config_file, config_lineno, number);
108 Message(M_FATAL,"config file %s line %d: '%s': %s\n",
109 config_file, config_lineno, number, strerror(errno));
119 <incl>[ \t]* /* eat the whitespace */
120 <incl>[^ \t\n]+ { /* got the include filename */
121 if (include_stack_ptr >= MAX_INCLUDE_DEPTH) {
122 fatal("Configuration file includes nested too deeply");
124 include_stack[include_stack_ptr].bst=YY_CURRENT_BUFFER;
125 include_stack[include_stack_ptr].lineno=config_lineno;
126 include_stack[include_stack_ptr].file=config_file;
128 yyin=fopen(yytext,"r");
130 fatal("Can't open included file %s",yytext);
133 config_file=safe_strdup(yytext,"conffile.fl/include");
134 yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
137 <incl>\n { /* include with no filename */
138 Message(M_FATAL,"config file %s line %d: %s\n",config_file,
139 config_lineno,"``include'' requires a filename");
141 assert(config_lineno < INT_MAX);
147 if (--include_stack_ptr < 0) {
152 yy_delete_buffer(YY_CURRENT_BUFFER);
153 yy_switch_to_buffer(include_stack[include_stack_ptr].bst);
154 config_lineno=include_stack[include_stack_ptr].lineno;
155 config_file=include_stack[include_stack_ptr].file;
158 \"[^\"]*\" yylval=stringnode(yytext); return TOK_STRING;
160 [[:alpha:]_][[:alnum:]\-_]* yylval=keynode(yytext); return TOK_KEY;
162 [[:digit:]]+ yylval=numnode(yytext); return TOK_NUMBER;
165 \#.*\n config_lineno++;
171 /* Return all unclaimed single characters to the parser */