Module Http.TRXtop

module TRXtop: sig .. end

Special kind of transceiver, useful when it's on top of a TRX stack, that receive and tx Pdu.t messages (instead of bitstring).

type result =

`\|`	`HttpError of string`
`\|`	`HttpMsg of Http.Pdu.t * bool`

type t = {

	`parzer : (Http.Pdu.t, char) Peg.parzer;`
	`mutable emit : Bitstring.bitstring -> unit;`
	`mutable recv : result -> unit;`

}

val set_emit : t -> (Bitstring.bitstring -> unit) -> unit

val set_recv : t -> (result -> unit) -> unit

val make : unit -> t

val tx : t -> Http.Pdu.t -> unit

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