package tcpip
OCaml TCP/IP networking stack, used in MirageOS
Install
Dune Dependency
Authors
Maintainers
Sources
tcpip-8.2.0.tbz
sha256=916e688aba897676c444db8129f4963ad739f8d1be631d9e009c6228b4b7d6ed
sha512=a8f5fa8f7e96758075c93211132839950477b756fba490207a7d630f2766757bbb44bbdd02e2b1f2b4a7d83d4d8b10d34cb03903bbd516e7d7c1a9a987eb1915
doc/src/tcpip.stack-socket/ipv4_socket.ml.html
Source file ipv4_socket.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
(* * Copyright (c) 2014 Anil Madhavapeddy <anil@recoil.org> * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. *) type t = unit type error = Tcpip.Ip.error type ipaddr = Ipaddr.V4.t type callback = src:ipaddr -> dst:ipaddr -> Cstruct.t -> unit Lwt.t type prefix = Ipaddr.V4.Prefix.t let pp_error = Tcpip.Ip.pp_error let pp_ipaddr = Ipaddr.V4.pp let pp_prefix = Ipaddr.V4.Prefix.pp let mtu _ ~dst:_ = 1500 - Ipv4_wire.sizeof_ipv4 let disconnect _ = Lwt.return_unit let connect _ = Lwt.return_unit let input _ ~tcp:_ ~udp:_ ~default:_ _ = Lwt.return_unit let write _ ?fragment:_ ?ttl:_ ?src:_ _ _ ?size:_ _ _ = Lwt.fail (Failure "Not implemented") let get_ip _ = [Ipaddr.V4.any] let configured_ips _ = [Ipaddr.V4.Prefix.global] let src _ ~dst:_ = raise (Failure "Not implemented") let pseudoheader _ ?src:_ _ _ _ = raise (Failure "Not implemented")
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>