diff options
Diffstat (limited to 'filter')
| -rw-r--r-- | filter/config.Y | 214 | ||||
| -rw-r--r-- | filter/test.conf | 12 |
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, |