Module MessageWrapper.Message

type storage_t = Capnp.RPC.None(Capnp.BytesMessage).Message.storage_t
type storage_descr_t = Capnp.RPC.None(Capnp.BytesMessage).Message.storage_descr_t = {
segment : storage_t;
bytes_consumed : int;
}
type 'cap t = 'cap Capnp.RPC.None(Capnp.BytesMessage).Message.t
val create : int -> Capnp__MessageSig.rw t
val release : 'cap t -> unit
val num_segments : 'cap t -> int
val total_size : 'cap t -> int
val total_alloc_size : 'cap t -> int
val get_segment : 'cap t -> int -> 'cap Segment.t
val readonly : 'cap t -> Capnp__MessageSig.ro t
val of_storage : storage_t list -> Capnp__MessageSig.rw t
val to_storage : 'cap t -> storage_descr_t list
val with_message : 'cap t -> f:( 'cap t -> 'a ) -> 'a
val with_attachments : Capnp__MessageSig.attachments -> 'cap t -> 'cap t
val get_attachments : 'cap t -> Capnp__MessageSig.attachments