From 36bbfc704c7d2153537751e24413db9b9c97bc58 Mon Sep 17 00:00:00 2001
From: Pavel Machek <pavel@ucw.cz>
Date: Mon, 19 Apr 1999 18:41:56 +0000
Subject: Updated filters: they now actually see IP/pxlen of net being
 filtered, gateway, and who told us, so they can do usefull jobs from now on.

---
 filter/config.Y | 10 ++++++++++
 filter/filter.c | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)

(limited to 'filter')

diff --git a/filter/config.Y b/filter/config.Y
index 4f910c2..4fd1815 100644
--- a/filter/config.Y
+++ b/filter/config.Y
@@ -23,6 +23,9 @@ CF_KEYWORDS(FUNCTION, PRINT, CONST,
 	INT, BOOL, IP, PREFIX, PAIR, SET, STRING,
 	IF, THEN, ELSE,
 	TRUE, FALSE,
+	RTA, FROM, GW, NET,
+	LEN,
+	IMPOSSIBLE,
 	FILTER
 	)
 
@@ -179,6 +182,13 @@ term:
      }
    }
  | 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:
diff --git a/filter/filter.c b/filter/filter.c
index c6c5c5a..7afae43 100644
--- a/filter/filter.c
+++ b/filter/filter.c
@@ -93,6 +93,8 @@ val_print(struct f_val v)
   printf( buf );
 }
 
+static struct rte **f_rte;
+
 static struct f_val
 interpret(struct f_inst *what)
 {
@@ -218,6 +220,36 @@ 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);
   }
@@ -233,6 +265,7 @@ f_run(struct filter *filter, struct rte **rte, struct ea_list **tmp_attrs, struc
   struct f_val res;
   debug( "Running filter `%s'...", filter->name );
 
+  f_rte = rte;
   inst = filter->root;
   res = interpret(inst);
   if (res.type != T_RETURN)
-- 
cgit v1.2.3