2015-12-30 04:52:24 -05:00
|
|
|
(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
|
|
|
|
|
See the README file for details. *)
|
|
|
|
|
|
|
|
|
|
(** Configuration for the "mirage" tool. *)
|
|
|
|
|
|
|
|
|
|
open Mirage
|
|
|
|
|
|
|
|
|
|
let main =
|
|
|
|
|
foreign
|
2017-03-02 09:52:55 -05:00
|
|
|
~packages:[
|
|
|
|
|
package "vchan";
|
|
|
|
|
package "cstruct";
|
|
|
|
|
package "tcpip" ~sublibs:["stack-direct"; "xen"];
|
|
|
|
|
package "mirage-net-xen";
|
|
|
|
|
package "mirage-qubes";
|
|
|
|
|
package "mirage-nat" ~sublibs:["hashtable"];
|
|
|
|
|
package "mirage-logs";
|
|
|
|
|
]
|
|
|
|
|
"Unikernel.Main" (mclock @-> job)
|
2015-12-30 04:52:24 -05:00
|
|
|
|
|
|
|
|
let () =
|
2017-03-02 09:52:55 -05:00
|
|
|
register "qubes-firewall" [main $ default_monotonic_clock]
|
2016-04-30 08:35:24 -04:00
|
|
|
~argv:no_argv
|
