Module Ip6.Pdu

module Pdu: sig .. end

type t = {

	`ttl : int;`
	`proto : Ip.Proto.t;`
	`diff_serv : int;`
	`ecn : int;`
	`flow_label : int;`
	`src : Ip.Addr.t;`
	`dst : Ip.Addr.t;`
	`payload : Tools.Payload.t;`

}

val make : ?ttl:int ->
       ?diff_serv:int ->
       ?ecn:int ->
       ?flow_label:int ->
       Ip.Proto.t -> Ip.Addr.t -> Ip.Addr.t -> Tools.Payload.outer_t -> t

val random : unit -> t

val pseudo_header : t -> unit -> Bitstring.bitstring

val pack : t -> Bitstring.bitstring

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