Add "add table" and "add chain" commands

2 years ago · 713fb018fc
parent ae9d67eb8a
commit 713fb018fc
1 changed files with 4 additions and 1 deletions
--- a/compile.ml
+++ b/compile.ml
@ -131,4 +131,7 @@ let compile config =
  let compiled =
    List.map (fun expr -> Command.AddRule { family; table; chain; expr }) exprs
  in
-  Command.FlushRuleset :: compiled
+  Command.FlushRuleset
+  :: Command.AddTable { family; name = table }
+  :: Command.AddChain { family; table; name = chain }
+  :: compiled