3 * This program is free software; you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation; either version 2 of the License, or
6 * (at your option) any later version.
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program; if not, write to the Free Software
15 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
20 %option case-insensitive
25 #include <sys/types.h>
28 #include <netinet/in.h>
34 #define WE_ARE_MEMORY_C
37 #include "ircd_defs.h"
44 #include "ircd_parser.h"
48 #define MAX_INCLUDE_DEPTH 10
50 YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
51 int include_stack_ptr=0;
55 void hashcomment(void);
57 int lineno_stack[MAX_INCLUDE_DEPTH];
58 char conffile_stack[MAX_INCLUDE_DEPTH][IRCD_BUFSIZE];
59 char conffilebuf[IRCD_BUFSIZE+1];
60 char *current_file = conffilebuf;
62 FILE *inc_fbfile_in[MAX_INCLUDE_DEPTH];
68 #define YY_FATAL_ERROR(msg) conf_yy_fatal_error(msg)
70 #define YY_INPUT(buf,result,max_size) \
71 if (!(result = conf_fgets(buf, max_size, conf_fbfile_in))) \
72 YY_FATAL_ERROR("input in flex scanner failed");
78 qstring \"[^\"\n]*[\"\n]
79 string [a-zA-Z_\~\:][a-zA-Z0-9_\:]*
80 include \.include{ws}(\<.*\>|\".*\")
83 {include} { cinclude(); }
85 \n.* { strcpy(linebuf, yytext+1); lineno++; yyless(1); }
88 {comment} { hashcomment(); }
90 {digit}+ { yylval.number = atoi(yytext); return NUMBER; }
93 if(yytext[yyleng-2] == '\\')
95 yyless(yyleng-1); /* return last quote */
96 yymore(); /* append next string */
100 strcpy(yylval.string, yytext + 1);
101 if(yylval.string[yyleng-2] != '"')
102 ilog(L_MAIN, "Unterminated character string");
106 yylval.string[yyleng-2] = '\0'; /* remove close
110 for (j=i=0 ;yylval.string[i] != '\0'; i++,j++)
112 if (yylval.string[i] != '\\')
114 yylval.string[j] = yylval.string[i];
119 if (yylval.string[i] == '\0') /* XXX
125 "Unterminated character string");
128 yylval.string[j] = yylval.string[i];
131 yylval.string[j] = '\0';
138 loadmodule { return LOADMODULE; }
140 strcpy(yylval.string, yytext);
141 yylval.string[yyleng] = '\0';
145 \.\. { return TWODOTS; }
146 . { return yytext[0]; }
147 <<EOF>> { if (ieof()) yyterminate(); }
150 /* C-comment ignoring routine -kre*/
155 /* log(L_NOTICE, "got comment"); */
158 while ((c = input()) != '*' && c != EOF)
159 if (c == '\n') ++lineno;
162 while ((c = input()) == '*');
165 if (c == '\n') ++lineno;
169 YY_FATAL_ERROR("EOF in comment");
170 /* XXX hack alert this disables
171 * the stupid unused function warning
174 yy_fatal_error("EOF in comment");
183 if ((c = strchr(yytext, '<')) == NULL)
184 *strchr(c = strchr(yytext, '"') + 1, '"') = 0;
186 *strchr(++c, '>') = 0;
188 /* do stacking and co. */
189 if (include_stack_ptr >= MAX_INCLUDE_DEPTH)
190 conf_report_error("Includes nested too deep (max is %d)", MAX_INCLUDE_DEPTH);
195 tmp_fbfile_in = fopen(c, "r");
197 if (tmp_fbfile_in == NULL)
199 /* if its not found in PREFIX, look in ETCPATH */
200 char fnamebuf[IRCD_BUFSIZE];
202 snprintf(fnamebuf, sizeof(fnamebuf), "%s/%s", ETCPATH, c);
203 tmp_fbfile_in = fopen(fnamebuf, "r");
205 /* wasnt found there either.. error. */
206 if(tmp_fbfile_in == NULL)
208 conf_report_error("Include %s: %s.", c, strerror(errno));
212 lineno_stack[include_stack_ptr] = lineno;
214 inc_fbfile_in[include_stack_ptr] = conf_fbfile_in;
215 strcpy(conffile_stack[include_stack_ptr], c);
216 current_file = conffile_stack[include_stack_ptr];
217 include_stack[include_stack_ptr++] = YY_CURRENT_BUFFER;
218 conf_fbfile_in = tmp_fbfile_in;
219 yy_switch_to_buffer(yy_create_buffer(yyin, YY_BUF_SIZE));
225 if (include_stack_ptr)
226 fclose(conf_fbfile_in);
227 if (--include_stack_ptr < 0)
229 /* We will now exit the lexer - restore init values if we get /rehash
230 * later and reenter lexer -kre */
231 include_stack_ptr = 0;
236 yy_delete_buffer(YY_CURRENT_BUFFER);
237 lineno = lineno_stack[include_stack_ptr];
238 conf_fbfile_in = inc_fbfile_in[include_stack_ptr];
240 if(include_stack_ptr)
241 current_file = conffile_stack[include_stack_ptr];
243 current_file = conffilebuf;
245 yy_switch_to_buffer(include_stack[include_stack_ptr]);
249 /* #-comment style, look for #include */
250 #define INCLUDE "#include"
252 void hashcomment(void)
254 if (strlen(yytext) < sizeof(INCLUDE) - 1)
257 if (!strncasecmp(yytext, INCLUDE, sizeof(INCLUDE) - 1))
258 yyerror("You probably meant '.include', skipping");