diff --git a/doc/bird.sgml b/doc/bird.sgml
index 6622c1ad..3ccbd5e3 100644
--- a/doc/bird.sgml
+++ b/doc/bird.sgml
@@ -544,7 +544,8 @@ incompatible with each other (that is to prevent you from shooting in the foot).
The filter language supports common integer operators (+,-,*,/), parentheses defined( attribute ) operator.
Next hop packets routed using this route should be forwarded to.
+
+ The name of the protocol which the route has been imported from. Read-only.
+
what protocol has told me about this route. Possible values: aux = T_IP; $$->a2.i = OFFSETOF(struct rta, gw); $$->a1.i = 1; }
| NET { $$ = f_new_inst(); $$->aux = T_PREFIX; $$->a2.i = 0x12345678; /* This is actually ok - T_PREFIX is special-cased. */ }
+ | PROTO { $$ = f_new_inst(); $$->aux = T_STRING; $$->a2.i = 0x12345678; /* T_STRING is also special-cased. */ }
| SOURCE { $$ = f_new_inst(); $$->aux = T_ENUM_RTS; $$->a2.i = OFFSETOF(struct rta, source); }
| SCOPE { $$ = f_new_inst(); $$->aux = T_ENUM_SCOPE; $$->a2.i = OFFSETOF(struct rta, scope); $$->a1.i = 1; }
| CAST { $$ = f_new_inst(); $$->aux = T_ENUM_RTC; $$->a2.i = OFFSETOF(struct rta, cast); }
diff --git a/filter/filter.c b/filter/filter.c
index 6f85c064..bdc6f088 100644
--- a/filter/filter.c
+++ b/filter/filter.c
@@ -137,6 +137,8 @@ val_compare(struct f_val v1, struct f_val v2)
return 0;
case T_PATH_MASK:
return pm_path_compare(v1.val.path_mask, v2.val.path_mask);
+ case T_STRING:
+ return strcmp(v1.val.s, v2.val.s);
default:
debug( "Compare of unkown entities: %x\n", v1.type );
return CMP_ERROR;
@@ -153,6 +155,8 @@ val_simple_in_range(struct f_val v1, struct f_val v2)
return as_path_match(v1.val.ad, v2.val.path_mask);
if ((v1.type == T_PAIR) && (v2.type == T_CLIST))
return int_set_contains(v2.val.ad, v1.val.i);
+ if ((v1.type == T_STRING) && (v2.type == T_STRING))
+ return patmatch(v2.val.s, v1.val.s);
if ((v1.type == T_IP) && (v2.type == T_PREFIX))
return !(ipa_compare(ipa_and(v2.val.px.ip, ipa_mkmask(v2.val.px.len)), ipa_and(v1.val.px.ip, ipa_mkmask(v2.val.px.len))));
@@ -497,6 +501,9 @@ interpret(struct f_inst *what)
case T_ENUM:
res.val.i = * ((char *) rta + what->a2.i);
break;
+ case T_STRING: /* Warning: this is a special case for proto attribute */
+ res.val.s = rta->proto->name;
+ break;
case T_PREFIX: /* Warning: this works only for prefix of network */
{
res.val.px.ip = (*f_rte)->net->n.prefix;