57 lines
1.3 KiB
OCaml
57 lines
1.3 KiB
OCaml
|
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
|