2017-03-02 09:52:55 -05:00
|
|
|
(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
|
|
|
|
|
See the README file for details. *)
|
|
|
|
|
|
|
|
|
|
(* Abstract over NAT interface (todo: remove this) *)
|
|
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
|
|
|
|
|
type action = [
|
2017-03-10 11:09:36 -05:00
|
|
|
| `NAT
|
|
|
|
|
| `Redirect of Mirage_nat.endpoint
|
2017-03-02 09:52:55 -05:00
|
|
|
]
|
|
|
|
|
|
2017-03-15 04:56:24 -04:00
|
|
|
val create : get_time:(unit -> Mirage_nat.time) -> max_entries:int -> t Lwt.t
|
2017-03-02 09:52:55 -05:00
|
|
|
val reset : t -> unit Lwt.t
|
2017-03-05 11:31:04 -05:00
|
|
|
val translate : t -> Nat_packet.t -> Nat_packet.t option Lwt.t
|
2017-03-10 11:09:36 -05:00
|
|
|
val add_nat_rule_and_translate : t -> xl_host:Ipaddr.V4.t ->
|
2017-03-05 11:31:04 -05:00
|
|
|
action -> Nat_packet.t -> (Nat_packet.t, string) result Lwt.t
|
