summaryrefslogtreecommitdiffstats
path: root/filter
diff options
context:
space:
mode:
Diffstat (limited to 'filter')
-rw-r--r--filter/config.Y214
-rw-r--r--filter/test.conf12
2 files changed, 138 insertions, 88 deletions
diff --git a/filter/config.Y b/filter/config.Y
index ebe6f49..e635f60 100644
--- a/filter/config.Y
+++ b/filter/config.Y
@@ -12,32 +12,67 @@ CF_HDR
CF_DEFINES
-#define P(a,b) ((a<<8) | b)
+#define P(a,b) ((a << 8) | b)
-static int make_pair(int i1, int i2)
+static inline u32 pair(u32 a, u32 b) { return (a << 16) | b; }
+static inline u32 pair_a(u32 p) { return p >> 16; }
+static inline u32 pair_b(u32 p) { return p & 0xFFFF; }
+
+
+/*
+ * Sets and their items are during parsing handled as lists, linked
+ * through left ptr. The first item in a list also contains a pointer
+ * to the last item in a list (right ptr). For convenience, even items
+ * are handled as one-item lists. Lists are merged by f_merge_items().
+ */
+
+static inline struct f_tree *
+f_new_item(struct f_val from, struct f_val to)
{
- unsigned u1 = i1;
- unsigned u2 = i2;
+ struct f_tree *t = f_new_tree();
+ t->right = t;
+ t->from = from;
+ t->to = to;
+ return t;
+}
- if ((u1 > 0xFFFF) || (u2 > 0xFFFF))
- cf_error( "Can't operate with value out of bounds in pair constructor");
+static inline struct f_tree *
+f_merge_items(struct f_tree *a, struct f_tree *b)
+{
+ if (!a) return b;
+ a->right->left = b;
+ a->right = b->right;
+ b->right = NULL;
+ return a;
+}
- return (u1 << 16) | u2;
+static inline struct f_tree *
+f_new_pair_item(int fa, int ta, int fb, int tb)
+{
+ struct f_tree *t = f_new_tree();
+ t->right = t;
+ t->from.type = t->to.type = T_PAIR;
+ t->from.val.i = pair(fa, fb);
+ t->to.val.i = pair(ta, tb);
+ return t;
}
-struct f_tree *f_generate_rev_wcard(int from, int to, int expr)
+static inline struct f_tree *
+f_new_pair_set(int fa, int ta, int fb, int tb)
{
- struct f_tree *ret = NULL, *last = NULL;
+ struct f_tree *lst = NULL;
+ int i;
- while (from <= to) {
- ret = f_new_tree();
- ret->from.type = ret->to.type = T_PAIR;
- ret->from.val.i = ret->to.val.i = make_pair(from, expr);
- ret->left = last;
+ if ((fa == ta) || ((fb == 0) && (tb == 0xFFFF)))
+ return f_new_pair_item(fa, ta, fb, tb);
+
+ if ((ta < fa) || (tb < fb))
+ cf_error( "From value cannot be higher that To value in pair sets");
- from++; last = ret;
- }
- return ret;
+ for (i = fa; i <= ta; i++)
+ lst = f_merge_items(lst, f_new_pair_item(i, i, fb, tb));
+
+ return lst;
}
CF_DECLS
@@ -60,10 +95,11 @@ CF_KEYWORDS(FUNCTION, PRINT, PRINTN, UNSET, RETURN,
%type <x> term block cmds cmds_int cmd function_body constant print_one print_list var_list var_listn dynamic_attr static_attr function_call symbol dpair bgp_path_expr
%type <f> filter filter_body where_filter
-%type <i> type break_command
-%type <e> set_item set_items switch_body
+%type <i> type break_command pair_expr
+%type <i32> pair_atom
+%type <e> pair_item set_item switch_item set_items switch_items switch_body
%type <trie> fprefix_set
-%type <v> set_atom fprefix fprefix_s fipa
+%type <v> set_atom switch_atom fprefix fprefix_s fipa
%type <s> decls declsn one_decl function_params
%type <h> bgp_path bgp_path_tail1 bgp_path_tail2
@@ -243,66 +279,71 @@ fipa:
IPA %prec PREFIX_DUMMY { $$.type = T_IP; $$.val.px.ip = $1; }
;
+
+
+/*
+ * Set constants. They are also used in switch cases. We use separate
+ * nonterminals for switch (set_atom/switch_atom, set_item/switch_item ...)
+ * to elude a collision between symbol (in expr) in set_atom and symbol
+ * as a function call in switch case cmds.
+ */
+
set_atom:
- expr { $$.type = T_INT; $$.val.i = $1; } /* 'SYM' included in 'expr' creates 3 reduce/shift conflicts */
+ expr { $$.type = T_INT; $$.val.i = $1; }
| RTRID { $$.type = T_QUAD; $$.val.i = $1; }
| fipa { $$ = $1; }
- | ENUM { $$.type = $1 >> 16; $$.val.i = $1 & 0xffff; }
- ;
+ | ENUM { $$.type = pair_a($1); $$.val.i = pair_b($1); }
+ ;
-set_item:
- '(' expr ',' expr ')' {
- $$ = f_new_tree();
- $$->from.type = $$->to.type = T_PAIR;
- $$->from.val.i = make_pair($2, $4);
- $$->to.val.i = make_pair($2, $4);
- }
- | '(' expr ',' expr '.' '.' expr ')' {
- $$ = f_new_tree();
- $$->from.type = $$->to.type = T_PAIR;
- $$->from.val.i = make_pair($2, $4);
- $$->to.val.i = make_pair($2, $7);
- }
- | '(' expr ',' expr ')' '.' '.' '(' expr ',' expr ')' {
- $$ = f_new_tree();
- $$->from.type = $$->to.type = T_PAIR;
- $$->from.val.i = make_pair($2, $4);
- $$->to.val.i = make_pair($9, $11);
- }
- | '(' '*' ',' '*' ')' { /* This is probably useless :-) */
- $$ = f_new_tree();
- $$->from.type = $$->to.type = T_PAIR;
- $$->from.val.i = 0;
- $$->to.val.i = 0xffffffff;
- }
- | '(' expr ',' '*' ')' {
- $$ = f_new_tree();
- $$->from.type = $$->to.type = T_PAIR;
- $$->from.val.i = make_pair($2, 0);
- $$->to.val.i = make_pair($2, 0xffff);
- }
- | '(' '*' ',' expr ')' {
- $$ = f_generate_rev_wcard(0, 0xffff, $4);
- }
- /* This causes 3 reduce/reduce conflicts
- | '(' expr '.' '.' expr ',' expr ')' {
- cf_error("Not implemented yet");
- }*/
- | set_atom {
- $$ = f_new_tree();
- $$->from = $1;
- $$->to = $1;
+switch_atom:
+ NUM { $$.type = T_INT; $$.val.i = $1; }
+ | '(' term ')' { $$.type = T_INT; $$.val.i = f_eval_int($2); }
+ | RTRID { $$.type = T_QUAD; $$.val.i = $1; }
+ | fipa { $$ = $1; }
+ | ENUM { $$.type = pair_a($1); $$.val.i = pair_b($1); }
+ ;
+
+pair_expr:
+ term { $$ = f_eval_int($1); check_u16($$); }
+
+pair_atom:
+ pair_expr { $$ = pair($1, $1); }
+ | pair_expr DDOT pair_expr { $$ = pair($1, $3); }
+ | '*' { $$ = 0xFFFF; }
+ ;
+
+pair_item:
+ '(' pair_atom ',' pair_atom ')' {
+ $$ = f_new_pair_set(pair_a($2), pair_b($2), pair_a($4), pair_b($4));
}
- | set_atom '.' '.' set_atom {
- $$ = f_new_tree();
- $$->from = $1;
- $$->to = $4;
+ | '(' pair_atom ',' pair_atom ')' DDOT '(' pair_expr ',' pair_expr ')' {
+ /* Hack: $2 and $4 should be pair_expr, but that would cause shift/reduce conflict */
+ if ((pair_a($2) != pair_b($2)) || (pair_a($4) != pair_b($4)))
+ cf_error("syntax error");
+ $$ = f_new_pair_item(pair_b($2), pair_b($4), $8, $10);
}
;
+set_item:
+ pair_item
+ | set_atom { $$ = f_new_item($1, $1); }
+ | set_atom DDOT set_atom { $$ = f_new_item($1, $3); }
+ ;
+
+switch_item:
+ pair_item
+ | switch_atom { $$ = f_new_item($1, $1); }
+ | switch_atom DDOT switch_atom { $$ = f_new_item($1, $3); }
+ ;
+
set_items:
- set_item { $$ = $1; }
- | set_items ',' set_item { $$ = $3; $$->left = $1; }
+ set_item
+ | set_items ',' set_item { $$ = f_merge_items($1, $3); }
+ ;
+
+switch_items:
+ switch_item
+ | switch_items ',' switch_item { $$ = f_merge_items($1, $3); }
;
fprefix_s:
@@ -328,18 +369,20 @@ fprefix_set:
;
switch_body: /* EMPTY */ { $$ = NULL; }
- | switch_body set_item ':' cmds {
- $$ = $2;
- $$->data = $4;
- $$->left = $1;
- }
- | switch_body ELSECOL cmds {
- $$ = f_new_tree();
- $$->from.type = T_VOID;
- $$->to.type = T_VOID;
- $$->data = $3;
- $$->left = $1;
- }
+ | switch_body switch_items ':' cmds {
+ /* Fill data fields */
+ struct f_tree *t;
+ for (t = $2; t; t = t->left)
+ t->data = $4;
+ $$ = f_merge_items($1, $2);
+ }
+ | switch_body ELSECOL cmds {
+ struct f_tree *t = f_new_tree();
+ t->from.type = t->to.type = T_VOID;
+ t->right = t;
+ t->data = $3;
+ $$ = f_merge_items($1, t);
+ }
;
/* CONST '(' expr ')' { $$ = f_new_inst(); $$->code = 'c'; $$->aux = T_INT; $$->a2.i = $3; } */
@@ -374,7 +417,8 @@ dpair:
{
if (($2->aux != T_INT) || ($4->aux != T_INT))
cf_error( "Can't operate with value of non-integer type in pair constructor" );
- $$ = f_new_inst(); $$->code = 'c'; $$->aux = T_PAIR; $$->a2.i = make_pair($2->a2.i, $4->a2.i);
+ check_u16($2->a2.i); check_u16($4->a2.i);
+ $$ = f_new_inst(); $$->code = 'c'; $$->aux = T_PAIR; $$->a2.i = pair($2->a2.i, $4->a2.i);
}
else
{ $$ = f_new_inst(); $$->code = P('m', 'p'); $$->a1.p = $2; $$->a2.p = $4; }
@@ -399,7 +443,7 @@ constant:
/*
* Maybe there are no dynamic attributes defined by protocols.
* For such cases, we force the dynamic_attr list to contain
- * at least an invalid token, so it's syntantically correct.
+ * at least an invalid token, so it is syntantically correct.
*/
CF_ADDTO(dynamic_attr, INVALID_TOKEN { $$ = NULL; })
diff --git a/filter/test.conf b/filter/test.conf
index b4d3400..dbb3a4e 100644
--- a/filter/test.conf
+++ b/filter/test.conf
@@ -1,3 +1,4 @@
+
/*
* This is an example configuration file.
* FIXME: add all examples from docs here.
@@ -36,7 +37,7 @@ int i;
i = arg2;
case arg1 {
- one: printn "jedna, "; printn "jedna";
+ 11, 1, 111: printn "jedna, "; printn "jedna";
(one+onef(2)): printn "dva, "; printn "jeste jednou dva";
(2+one) .. 5: if arg2 < 3 then printn "tri az pet";
else: printn "neco jineho";
@@ -236,8 +237,13 @@ string s;
ps = [(1,(one+one)), (3,4)..(4,8), (5,*), (6,3..6)];
print "Pair set: ", ps;
- print "Testing pair set, true: ", pp ~ ps, " ", (3,5) ~ ps, " ", (4,1) ~ ps, " ", (5,4) ~ ps, " ", (5,65535) ~ ps, " ", (6,4) ~ ps;
- print "Testing pair set, false: ", (3,3) ~ ps, " ", (4,9) ~ ps, " ", (4,65535) ~ ps, " ", (6,2) ~ ps, " ", (6,(6+one)) ~ ps, " ", ((one+6),2) ~ ps ;
+ print "Testing pair set, true: ", pp ~ ps, " ", (3,5) ~ ps, " ", (4,1) ~ ps, " ", (5,4) ~ ps, " ", (5,65535) ~ ps, " ", (6,4) ~ ps, " ", (3, 10000) ~ ps;
+ print "Testing pair set, false: ", (3,3) ~ ps, " ", (4,9) ~ ps, " ", (4,65535) ~ ps, " ", (6,2) ~ ps, " ", (6,6+one) ~ ps, " ", ((one+6),2) ~ ps, " ", (1,1) ~ ps;
+
+ ps = [(20..150, 200..300), (50100..50200, 1000..50000), (*, 5+5)];
+ print "Pair set: .. too long ..";
+ print "Testing pair set, true: ", (100,200) ~ ps, " ", (150,300) ~ ps, " ", (50180,1200) ~ ps, " ", (50110,49000) ~ ps, " ", (0,10) ~ ps, " ", (64000,10) ~ ps;
+ print "Testing pair set, false: ", (20,199) ~ ps, " ", (151,250) ~ ps, " ", (50050,2000) ~ ps, " ", (50150,50050) ~ ps, " ", (10,9) ~ ps, " ", (65535,11) ~ ps ;
qq = 1.2.3.4;
print "Testinq quad: 1.2.3.4 = ", qq,