unikernel/duniverse/mirage/lib/devices/ip.mli

@@ -0,0 +1,56 @@
+open Functoria.DSL
+
+type v4
+type v6
+type v4v6
+type 'a ip
+type ipv4 = v4 ip
+type ipv6 = v6 ip
+type ipv4v6 = v4v6 ip
+
+val ip : 'a ip typ
+val ipv4 : ipv4 typ
+val ipv6 : ipv6 typ
+val ipv4v6 : ipv4v6 typ
+
+val create_ipv4 :
+  ?group:string -> Ethernet.ethernet impl -> Arp.arpv4 impl -> ipv4 impl
+
+val keyed_create_ipv4 :
+  ?group:string ->
+  ?network:Ipaddr.V4.Prefix.t ->
+  ?gateway:Ipaddr.V4.t ->
+  no_init:bool runtime_arg ->
+  Ethernet.ethernet impl ->
+  Arp.arpv4 impl ->
+  ipv4 impl
+
+val create_ipv6 :
+  ?group:string -> Network.network impl -> Ethernet.ethernet impl -> ipv6 impl
+
+val keyed_create_ipv6 :
+  ?group:string ->
+  ?network:Ipaddr.V6.Prefix.t ->
+  ?gateway:Ipaddr.V6.t ->
+  no_init:bool runtime_arg ->
+  Network.network impl ->
+  Ethernet.ethernet impl ->
+  ipv6 impl
+
+val ipv4_of_dhcp :
+  Network.network impl -> Ethernet.ethernet impl -> Arp.arpv4 impl -> ipv4 impl
+
+val ipv4_qubes :
+  Qubesdb.qubesdb impl -> Ethernet.ethernet impl -> Arp.arpv4 impl -> ipv4 impl
+
+val create_ipv4v6 : ?group:string -> ipv4 impl -> ipv6 impl -> ipv4v6 impl
+
+val keyed_ipv4v6 :
+  ipv4_only:bool runtime_arg ->
+  ipv6_only:bool runtime_arg ->
+  ipv4 impl ->
+  ipv6 impl ->
+  ipv4v6 impl
+
+val right_tcpip_library :
+  ?libs:string list -> sublibs:string list -> string -> package list value