Module Icmp.Pdu

module Pdu: sig .. end

This module handle ICMP messages (un)packing.

type payload =

`\|`	`Ids of int * int * Tools.Payload.t`
`\|`	`Redirect of Ip.Addr.t * Tools.Payload.t`
`\|`	`Header of int * Tools.Payload.t`

val random_payload : Icmp.MsgType.t -> payload

type t = {

	`msg_type : Icmp.MsgType.t;`
	`payload : payload;`

}

Unpacked ICMP message.

val random : unit -> t

val make_echo_request : int -> int -> t

val make_echo_reply : int -> int -> t

val is_echo_request : t -> bool

val pack : t -> Bitstring.bitstring

val unpack : string * int * int -> t option