qubes-mirage-firewall/uplink.mli

20 lines
531 B
OCaml
Raw Normal View History

2015-12-30 13:59:13 +00:00
(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
See the README file for details. *)
(** The link from us to NetVM (and, through that, to the outside world). *)
2017-03-02 14:52:55 +00:00
open Fw_utils
2015-12-30 13:59:13 +00:00
module Make(Clock : Mirage_clock.MCLOCK) : sig
2015-12-30 13:59:13 +00:00
type t
val connect : Dao.network_config -> t Lwt.t
2015-12-30 13:59:13 +00:00
(** Connect to our NetVM (gateway). *)
val interface : t -> interface
(** The network interface to NetVM. *)
val listen : t -> (unit -> int64) -> Router.t -> unit Lwt.t
2015-12-30 13:59:13 +00:00
(** Handle incoming frames from NetVM. *)
end