From: Francis Dupont <fdupont@isc.org>
Date: Sun, 19 Nov 2017 10:25:09 +0000 (+0100)
Subject: [5425] Extended syntax
X-Git-Tag: trac5374_base~9
X-Git-Url: http://git.ipfire.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=9be04ee3973c1097a9d73dded7dedbfba9932812;p=thirdparty%2Fkea.git

[5425] Extended syntax
---

diff --git a/src/bin/dhcp4/dhcp4_lexer.ll b/src/bin/dhcp4/dhcp4_lexer.ll
index ba8f1f1944..1623ca910c 100644
--- a/src/bin/dhcp4/dhcp4_lexer.ll
+++ b/src/bin/dhcp4/dhcp4_lexer.ll
@@ -586,6 +586,31 @@ ControlCharacterFill            [^"\\]|\\{JSONEscapeSequence}
     }
 }
 
+\"known-clients\" {
+    switch(driver.ctx_) {
+    case isc::dhcp::Parser4Context::POOLS:
+        return isc::dhcp::Dhcp4Parser::make_KNOWN_CLIENTS(driver.loc_);
+    default:
+        return isc::dhcp::Dhcp4Parser::make_STRING("known-clients", driver.loc_);
+}
+
+\"only\" {
+    switch(driver.ctx_) {
+    case isc::dhcp::Parser4Context::KNOWN_CLIENTS:
+        return isc::dhcp::Dhcp4Parser::make_ONLY(driver.loc_);
+    default:
+        return isc::dhcp::Dhcp4Parser::make_STRING("only", driver.loc_);
+}
+
+\"never\" {
+    switch(driver.ctx_) {
+    case isc::dhcp::Parser4Context::KNOWN_CLIENTS:
+    case isc::dhcp::Parser4Context::REPLACE_CLIENT_NAME:
+        return isc::dhcp::Dhcp4Parser::make_NEVER(driver.loc_);
+    default:
+        return isc::dhcp::Dhcp4Parser::make_STRING("never", driver.loc_);
+}
+
 \"subnet\" {
     switch(driver.ctx_) {
     case isc::dhcp::Parser4Context::SUBNET4:
diff --git a/src/bin/dhcp4/dhcp4_parser.yy b/src/bin/dhcp4/dhcp4_parser.yy
index f72a5524c4..dc5fcbf4eb 100644
--- a/src/bin/dhcp4/dhcp4_parser.yy
+++ b/src/bin/dhcp4/dhcp4_parser.yy
@@ -109,6 +109,9 @@ using namespace std;
   POOLS "pools"
   POOL "pool"
   USER_CONTEXT "user-context"
+  KNOWN_CLIENTS "known-clients"
+  ONLY "only"
+  NEVER "never"
 
   SUBNET "subnet"
   INTERFACE "interface"
@@ -173,7 +176,6 @@ using namespace std;
   TCP "tcp"
   JSON "JSON"
   WHEN_PRESENT "when-present"
-  NEVER "never"
   ALWAYS "always"
   WHEN_NOT_PRESENT "when-not-present"
 
@@ -1331,6 +1333,7 @@ pool_param: pool_entry
           | option_data_list
           | client_class
           | user_context
+          | known_clients
           | unknown_map_entry
           ;
 
@@ -1349,6 +1352,18 @@ user_context: USER_CONTEXT {
     ctx.leave();
 };
 
+known_clients: KNOWN_CLIENTS {
+    ctx.enter(ctx.KNOWN_CLIENTS);
+} COLON known_clients_value {
+    ctx.stack_.back()->set("known-clients", $4);
+    ctx.leave();
+}
+
+known_clients_value:
+    ONLY { $$ = ElementPtr(new StringElement("only", ctx.loc2pos(@1))); }
+  | NEVER { $$ = ElementPtr(new StringElement("never", ctx.loc2pos(@1))); }
+;
+
 // --- end of pools definition -------------------------------
 
 // --- reservations ------------------------------------------
diff --git a/src/bin/dhcp4/parser_context.cc b/src/bin/dhcp4/parser_context.cc
index 17c268a929..bbafcc2f2e 100644
--- a/src/bin/dhcp4/parser_context.cc
+++ b/src/bin/dhcp4/parser_context.cc
@@ -174,6 +174,8 @@ Parser4Context::contextName()
         return ("control-socket");
     case POOLS:
         return ("pools");
+    case KNOWN_CLIENTS:
+        return ("known-clients");
     case RESERVATIONS:
         return ("reservations");
     case RELAY:
diff --git a/src/bin/dhcp4/parser_context.h b/src/bin/dhcp4/parser_context.h
index ee998e05f8..83e1f0a13a 100644
--- a/src/bin/dhcp4/parser_context.h
+++ b/src/bin/dhcp4/parser_context.h
@@ -264,6 +264,9 @@ public:
         /// Used while parsing Dhcp4/subnet4/pools structures.
         POOLS,
 
+        /// Used while parsing Dhcp4/subnet4/pools/known_client structures.
+        KNOWN_CLIENTS,
+
         /// Used while parsing Dhcp4/reservations structures.
         RESERVATIONS,
 
diff --git a/src/bin/dhcp6/dhcp6_lexer.ll b/src/bin/dhcp6/dhcp6_lexer.ll
index a31486b3fb..d29bdb376d 100644
--- a/src/bin/dhcp6/dhcp6_lexer.ll
+++ b/src/bin/dhcp6/dhcp6_lexer.ll
@@ -361,6 +361,15 @@ ControlCharacterFill            [^"\\]|\\{JSONEscapeSequence}
     return isc::dhcp::Dhcp6Parser::make_STRING(tmp, driver.loc_);
 }
 
+\"never\" {
+    switch(driver.ctx_) {
+    case isc::dhcp::Parser6Context::KNOWN_CLIENTS:
+    case isc::dhcp::Parser6Context::REPLACE_CLIENT_NAME:
+        return isc::dhcp::Dhcp6Parser::make_NEVER(driver.loc_);
+    default:
+        return isc::dhcp::Dhcp6Parser::make_STRING("never", driver.loc_);
+}
+
 (?i:\"never\") {
     /* dhcp-ddns value keywords are case insensitive */
     if (driver.ctx_ == isc::dhcp::Parser6Context::REPLACE_CLIENT_NAME) {
@@ -817,6 +826,22 @@ ControlCharacterFill            [^"\\]|\\{JSONEscapeSequence}
     }
 }
 
+\"known-clients\" {
+    switch(driver.ctx_) {
+    case isc::dhcp::Parser6Context::POOLS:
+        return isc::dhcp::Dhcp6Parser::make_KNOWN_CLIENTS(driver.loc_);
+    default:
+        return isc::dhcp::Dhcp6Parser::make_STRING("known-clients", driver.loc_);
+}
+
+\"only\" {
+    switch(driver.ctx_) {
+    case isc::dhcp::Parser6Context::KNOWN_CLIENTS:
+        return isc::dhcp::Dhcp6Parser::make_ONLY(driver.loc_);
+    default:
+        return isc::dhcp::Dhcp6Parser::make_STRING("only", driver.loc_);
+}
+
 \"subnet\" {
     switch(driver.ctx_) {
     case isc::dhcp::Parser6Context::SUBNET6:
diff --git a/src/bin/dhcp6/dhcp6_parser.yy b/src/bin/dhcp6/dhcp6_parser.yy
index 7ad030d55e..eaff6f36cf 100644
--- a/src/bin/dhcp6/dhcp6_parser.yy
+++ b/src/bin/dhcp6/dhcp6_parser.yy
@@ -99,6 +99,9 @@ using namespace std;
   EXCLUDED_PREFIX_LEN "excluded-prefix-len"
   DELEGATED_LEN "delegated-len"
   USER_CONTEXT "user-context"
+  KNOWN_CLIENTS "known-clients"
+  ONLY "only"
+  NEVER "never"
 
   SUBNET "subnet"
   INTERFACE "interface"
@@ -176,7 +179,6 @@ using namespace std;
   TCP "TCP"
   JSON "JSON"
   WHEN_PRESENT "when-present"
-  NEVER "never"
   ALWAYS "always"
   WHEN_NOT_PRESENT "when-not-present"
 
@@ -1294,6 +1296,7 @@ pool_param: pool_entry
           | option_data_list
           | client_class
           | user_context
+          | known_clients
           | unknown_map_entry
           ;
 
@@ -1312,6 +1315,18 @@ user_context: USER_CONTEXT {
     ctx.leave();
 };
 
+known_clients: KNOWN_CLIENTS {
+    ctx.enter(ctx.KNOWN_CLIENTS);
+} COLON known_clients_value {
+    ctx.stack_.back()->set("known-clients", $4);
+    ctx.leave();
+}
+
+known_clients_value:
+    ONLY { $$ = ElementPtr(new StringElement("only", ctx.loc2pos(@1))); }
+  | NEVER { $$ = ElementPtr(new StringElement("never", ctx.loc2pos(@1))); }
+;
+
 // --- end of pools definition -------------------------------
 
 // --- pd-pools ----------------------------------------------
@@ -1371,6 +1386,7 @@ pd_pool_param: pd_prefix
              | excluded_prefix
              | excluded_prefix_len
              | user_context
+             | known_clients
              | unknown_map_entry
              ;
 
diff --git a/src/bin/dhcp6/parser_context.cc b/src/bin/dhcp6/parser_context.cc
index abef30928e..1ff28141ea 100644
--- a/src/bin/dhcp6/parser_context.cc
+++ b/src/bin/dhcp6/parser_context.cc
@@ -176,6 +176,8 @@ Parser6Context::contextName()
         return ("pools");
     case PD_POOLS:
         return ("pd-pools");
+    case KNOWN_CLIENTS:
+        return ("known-clients");
     case RESERVATIONS:
         return ("reservations");
     case RELAY:
diff --git a/src/bin/dhcp6/parser_context.h b/src/bin/dhcp6/parser_context.h
index 63f4b882c4..568cd995b5 100644
--- a/src/bin/dhcp6/parser_context.h
+++ b/src/bin/dhcp6/parser_context.h
@@ -270,6 +270,9 @@ public:
         /// Used while parsing Dhcp6/subnet6/pd-pools structures.
         PD_POOLS,
 
+        /// Used while parsing Dhcp4/subnet6/pools/known_client structures.
+        KNOWN_CLIENTS,
+
         /// Used while parsing Dhcp6/reservations structures.
         RESERVATIONS,