summaryrefslogtreecommitdiffstats
path: root/src/config.l
blob: b1e61e6a418770d831779f87caef95a16df1e170 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
%option prefix="fastd_config_yy"
%option noyywrap
%option bison-bridge
%option reentrant

%top {
	 #include <config.yy.h>
}

%s STRING
%s ADDR6
%s COMMENT

%%
<INITIAL>{
[0-9]+		{ yylval->num = atoi(yytext); return TOK_INTEGER; }

interface	{ return TOK_INTERFACE; }
bind		{ return TOK_BIND; }
mtu		{ return TOK_MTU; }
mode		{ return TOK_MODE; }
protocol	{ return TOK_PROTOCOL; }
peer		{ return TOK_PEER; }
address		{ return TOK_ADDRESS; }
secret		{ return TOK_SECRET; }
key		{ return TOK_KEY; }
include		{ return TOK_INCLUDE; }
as		{ return TOK_AS; }
any		{ return TOK_ANY; }
tap		{ return TOK_TAP; }
tun		{ return TOK_TUN; }

[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3} {
			if (!inet_pton(AF_INET, yytext, &yylval->addr)) {
				yylval->str = "invalid address";
				return -1;
			}

			return TOK_ADDR;
		}

[;:\{\}]	{ return yytext[0]; }

[ \t\n]	;
}

<INITIAL>\"	BEGIN(STRING);
<STRING>[^"\\]*	yymore();
<STRING>\\(.|\n) yymore();
<STRING>\" {
			int i, esc = 0;

			for (i = 0; i < yyleng; i++) {
				if (yytext[i] == '\\')
					esc++;
				else if(esc)
					yytext[i-esc] = yytext[i];
			}
			yytext[yyleng-esc-1] = 0;
			yylval->str = strdup(yytext);
			BEGIN(INITIAL);
			return TOK_STRING;

		}

<INITIAL>\[	BEGIN(ADDR6);
<ADDR6>[^\]]+	{
			if (!inet_pton(AF_INET6, yytext, &yylval->addr6)) {
				yylval->str = "invalid address";
				return -1;
			}

			return TOK_ADDR6;
		}
<ADDR6>\]	BEGIN(INITIAL);

<INITIAL>#.*	/* ignore */
<INITIAL>\/\/.*	/* ignore */

<INITIAL>\/\*	BEGIN(COMMENT);
<COMMENT>\*\/	BEGIN(INITIAL);
<COMMENT>.|\n	/* ignore everything */

.		{
			yylval->str = "invalid character";
			return -1;
		}

<INITIAL><<EOF>> { return 0; }
<COMMENT><<EOF>> { yylval->str = "unterminated block comment"; return -1; }
<STRING><<EOF>>	{ yylval->str = "unterminated string"; return -1; }
<ADDR6><<EOF>>	{ yylval->str = "unterminated address"; return -1; }
%%