(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
   See the README file for details. *)

(** Routing packets to the right network interface. *)

open Fw_utils

type t = private {
  config : Dao.network_config;
  clients : Client_eth.t;
  nat : My_nat.t;
  uplink : interface option;
}

val create :
  config : Dao.network_config ->
  clients : Client_eth.t ->
  nat : My_nat.t ->
  ?uplink : interface ->
  t
(** [create ~client_eth ~uplink ~nat] is a new routing table
    that routes packets outside of [client_eth] via [uplink]. *)

val target : t -> Ipv4_packet.t -> interface option
(** [target t packet] is the interface to which [packet] should be routed. *)

val add_client : t -> client_link -> unit Lwt.t
(** [add_client t iface] adds a rule for routing packets addressed to [iface]. *)

val remove_client : t -> client_link -> unit

val classify : t -> Ipaddr.t -> Packet.host
val resolve : t -> Packet.host -> Ipaddr.t