From 346a12c2109b99d907e7ebeb3560992e92a6c26b Mon Sep 17 00:00:00 2001
From: Pavel Machek <pavel@ucw.cz>
Date: Thu, 18 Nov 1999 13:21:52 +0000
Subject: You can now print enum.

---
 filter/config.Y  | 18 +++++++-----------
 filter/filter.c  |  1 +
 filter/test.conf |  5 ++---
 3 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/filter/config.Y b/filter/config.Y
index 5d84b92..540a85d 100644
--- a/filter/config.Y
+++ b/filter/config.Y
@@ -9,6 +9,8 @@
 	FIXME: whole system of paths, path ~ string, path.prepend(), path.originate
 	FIXME: create community lists
 	FIXME: write access to dynamic attributes.
+	FIXME: '! =' should not be permitted. Ze `!=' by nemelo byt totez jako `! =' Nadefinujes si pres %token novy token a do cf-lex.l pridas nove pravidlo, ktere jej rozpoznava. Napriklad !=      return NEQ;
+
  */
 
 CF_HDR
@@ -29,7 +31,7 @@ CF_KEYWORDS(FUNCTION, PRINT, PRINTN, CONST,
 	INT, BOOL, IP, PREFIX, PAIR, SET, STRING,
 	IF, THEN, ELSE, CASE,
 	TRUE, FALSE,
-	RTA, FROM, GW, NET, MASK, RIP_METRIC, RIP_TAG,
+	RTA, FROM, GW, NET, MASK, RIP_METRIC, RIP_TAG, SOURCE,
 	LEN,
 	DEFINED,
 	IMPOSSIBLE,
@@ -261,13 +263,6 @@ term:
  | SYM {
      $$ = f_new_inst();
      switch ($1->class) {
-	case 0:		/* This should better be an enum */
-	  $$->code = 'c';
-	  $$->a1.i = $1->aux;
-	  if (($$->a1.i < T_ENUM_LO) || ($$->a1.i > T_ENUM_HI))
-	    cf_error("You used symbol and it was not enum.\n");
-	  $$->a2.i = (int) $1->aux2;
-	  break;
        case SYM_VARIABLE | T_INT:
        case SYM_VARIABLE | T_PAIR:
        case SYM_VARIABLE | T_PREFIX:
@@ -280,10 +275,11 @@ term:
      }
    }
 
- | RTA '.' FROM { $$ = f_new_inst(); $$->code = 'a'; $$->a1.i = T_IP; $$->a2.i = OFFSETOF(struct rta, from); }
+ | 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; }
+ | 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; }
+ | RTA '.' SOURCE  { $$ = f_new_inst(); $$->code = 'a'; $$->a1.i = T_ENUM_RTS; $$->a2.i = OFFSETOF(struct rta, gw); }
 
  | RTA '.' any_dynamic { $$ = $3; $$->code = 'ea'; }
 
diff --git a/filter/filter.c b/filter/filter.c
index 0dc4b21..a26b9e6 100644
--- a/filter/filter.c
+++ b/filter/filter.c
@@ -152,6 +152,7 @@ val_print(struct f_val v)
   case T_PREFIX: PRINTF( "%I/%d", v.val.px.ip, v.val.px.len ); break;
   case T_PAIR: PRINTF( "(%d,%d)", v.val.i >> 16, v.val.i & 0xffff ); break;
   case T_SET: tree_print( v.val.t ); PRINTF( "\n" ); break;
+  case T_ENUM: PRINTF( "(enum %x)%d", v.type, v.val.i ); break;
   default: PRINTF( "[unknown type %x]", v.type );
   }
   printf( buf );
diff --git a/filter/test.conf b/filter/test.conf
index 6f102a8..97aaf8f 100644
--- a/filter/test.conf
+++ b/filter/test.conf
@@ -13,8 +13,7 @@ int local1;
 int local2;
 int i;
 {
-	print "Ok";
-	print "Function callme called arguments " arg1 " and " arg2;
+	printn "Function callme called arguments " arg1 " and " arg2 ":";
 	i = arg2;
 
 	case arg1 {
@@ -47,7 +46,7 @@ ip p;
 	p = 127.1.2.3;
 	print "Testing mask : 127.0.0.0 = " p.mask(8);
 	print "Testing pairs: (1,2) = " (1,2);
-#
+	print "Testing enums: " RTS_DUMMY " " RTS_STATIC;
 
 	print "What will this do? " [ 1, 2, 1, 1, 1, 3, 4, 1, 1, 1, 5 ];
 
-- 
cgit v1.2.3