gateway, and who told us, so they can do usefull jobs from now on.
print " false = " 1.2.3.4 ~ [ 1.2.3.3, 1.2.3.5 ];
print "done";
- quitbird;
+# quitbird;
print "*** FAIL: this is unreachable";
}
filter testf
int j;
{
- j = const(4321);
- print j;
+ print "Heya, filtering route to " rta.net.ip " prefixlen " rta.net.len;
+ print "This route was from " rta.from;
+ accept;
}
protocol rip MyRIP_test {
period 5;
garbagetime 30;
interface "*";
+ export filter testf;
}
protocol device {
%type <i> expr bool pxlen
-%nonassoc '=' '<' '>' '~' ELSE IF
+%nonassoc '=' '<' '>' '~' ELSE IF '.'
%left '+' '-'
%left '*' '/' '%'
%left '!'
#protocol rip MyRIP_test {
# preference xyzzy;
# debug all;
+# import filter okay;
#}
protocol direct {
INT, BOOL, IP, PREFIX, PAIR, SET, STRING,
IF, THEN, ELSE,
TRUE, FALSE,
+ RTA, FROM, GW, NET,
+ LEN,
+ IMPOSSIBLE,
FILTER
)
}
}
| constant { $$ = $1; }
+ | RTA '.' FROM { $$ = f_new_inst(); $$->code = 'a'; $$->a1.i = T_IP; $$->a2.i = OFFSETOF(struct rta, from); }
+
+ | RTA '.' GW { $$ = f_new_inst(); $$->code = 'a'; $$->a1.i = T_IP; $$->a2.i = OFFSETOF(struct rta, gw); }
+ | RTA '.' NET { $$ = f_new_inst(); $$->code = 'a'; $$->a1.i = T_PREFIX; $$->a2.i = 0x12345678; }
+
+ | term '.' IP { $$ = f_new_inst(); $$->code = 'cp'; $$->a1.p = $1; $$->a2.i = T_IP; }
+ | term '.' LEN { $$ = f_new_inst(); $$->code = 'cp'; $$->a1.p = $1; $$->a2.i = T_INT; }
;
break_command:
printf( buf );
}
+static struct rte **f_rte;
+
static struct f_val
interpret(struct f_inst *what)
{
bug( "unknown return type: can not happen");
}
break;
+ case 'a': /* rta access */
+ {
+ struct rta *rta = (*f_rte)->attrs;
+ res.type = what->a1.i;
+ switch(res.type) {
+ case T_IP:
+ res.val.ip = * (ip_addr *) ((char *) rta + what->a2.i);
+ break;
+ case T_PREFIX: /* Warning: this works only for prefix of network */
+ {
+ res.val.px.ip = (*f_rte)->net->n.prefix;
+ res.val.px.len = (*f_rte)->net->n.pxlen;
+ break;
+ }
+ default:
+ bug( "Invalid type for rta access" );
+ }
+ }
+ break;
+ case 'cp': /* Convert prefix to ... */
+ ONEARG;
+ if (v1.type != T_PREFIX)
+ runtime( "Can not convert non-prefix this way" );
+ res.type = what->a2.i;
+ switch(res.type) {
+ case T_INT: res.val.i = v1.val.px.len; break;
+ case T_IP: res.val.ip = v1.val.px.ip; break;
+ default: bug( "Unknown prefix to conversion\n" );
+ }
+ break;
default:
bug( "Unknown instruction %d (%c)", what->code, what->code & 0xff);
}
struct f_val res;
debug( "Running filter `%s'...", filter->name );
+ f_rte = rte;
inst = filter->root;
res = interpret(inst);
if (res.type != T_RETURN)
return;
}
- if (c->done) {
- DBG( "looks like I'm done!\n" );
- return;
- }
-
DBG( "Preparing packet to send: " );
packet->heading.command = RIPCMD_RESPONSE;