17 lines
461 B
OCaml
17 lines
461 B
OCaml
open Functoria.DSL
|
|
|
|
type 'a icmp = ICMP
|
|
type icmpv4 = Ip.v4 icmp
|
|
|
|
let icmp = typ ICMP
|
|
let icmpv4 : icmpv4 typ = icmp
|
|
|
|
let icmpv4_direct () =
|
|
let packages_v = Ip.right_tcpip_library ~sublibs:[ "icmpv4" ] "tcpip" in
|
|
let connect _ modname = function
|
|
| [ ip ] -> code ~pos:__POS__ "%s.connect %s" modname ip
|
|
| _ -> Misc.connect_err "icmpv4" 1
|
|
in
|
|
impl ~packages_v ~connect "Icmpv4.Make" (Ip.ip @-> icmp)
|
|
|
|
let direct_icmpv4 ip = icmpv4_direct () $ ip
|