mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-07-03 09:31:22 +00:00
2d78d47591
Co-Authored-By: Mindy Preston <yomimono@users.noreply.github.com> Co-Authored-By: Olle Jonsson <olle.jonsson@gmail.com> Co-Authored-By: hannes <hannes@mehnert.org> Co-Authored-By: cfcs <cfcs@users.noreply.github.com>
23 lines
754 B
OCaml
23 lines
754 B
OCaml
(* 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). *)
|
|
|
|
open Fw_utils
|
|
|
|
[@@@ocaml.warning "-67"]
|
|
module Make (R: Mirage_random.S)(Clock : Mirage_clock.MCLOCK) : sig
|
|
type t
|
|
|
|
val connect : Dao.network_config -> t Lwt.t
|
|
(** Connect to our NetVM (gateway). *)
|
|
|
|
val interface : t -> interface
|
|
(** The network interface to NetVM. *)
|
|
|
|
val listen : t -> (unit -> int64) -> (Udp_packet.t * Cstruct.t) Lwt_mvar.t -> Router.t -> unit Lwt.t
|
|
(** Handle incoming frames from NetVM. *)
|
|
|
|
val send_dns_client_query: t -> src_port:int-> dst:Ipaddr.V4.t -> dst_port:int -> Cstruct.t -> (unit, [`Msg of string]) result Lwt.t
|
|
end
|