Add a zones compiler

compile.ml

@@ -0,0 +1,22 @@
+open Config
+
+let rec deps_of_zone = function
+  | ZoneIpv4 _ | ZoneIpv6 _ -> []
+  | Zone z -> [z]
+  | ZoneList l -> List.flatten (List.map deps_of_zone l)
+  | ZoneExclude e -> deps_of_zone e
+
+let deps_of_zones zone =
+  List.map (fun (a, b) -> (a, deps_of_zone b)) zone
+
+let compile_zone _ _ = []
+
+let compile_zones zones =
+  let deps = deps_of_zones zones in
+  match Tsort.sort deps with
+  | Tsort.Sorted sorted ->
+    List.fold_right (fun name acc ->
+        let values = List.assoc name zones in
+        let compiled = compile_zone acc values in
+        (name, compiled) :: acc) sorted []
+  | _ -> assert false

dune

@@ -1,3 +1,3 @@
 (executable
  (name firewall)
- (libraries yojson ipaddr))
+ (libraries yojson ipaddr tsort))