feat: ✅ support 'any' address as source or destination

proof-ninja · Jun 26, 2024 · bfa6448 · bfa6448
1 parent 0de2f2c
commit bfa6448
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/bin/addressBook.ml b/bin/addressBook.ml
@@ -20,6 +20,9 @@ let of_string s =
   | Ok ip -> SingleHost ip
   | Error _ -> of_cidr s
 
+let mk_book assoc =
+  ("any", of_string "8.8.8.8") :: assoc
+
 let dump t =
   let item = function
     | SingleHost addr -> !%"Single '%s'" (Ip.to_string addr)

diff --git a/bin/reader.ml b/bin/reader.ml
@@ -32,6 +32,7 @@ let address_book_of_xmls address_entries address_grps =
   in
   List.map address_of_xml address_entries
   @ List.map group_of_xml address_grps
+  |> AddressBook.mk_book
 
 let read_rules xml =
   let rule_of_entry entry =