type 'a t
=
{
mutable components : 'a direct_stream_writer Core_kernel.Bag.t; |
components_by_id : 'a component Id.Table.t; |
buffer : Core_kernel.Bigstring.t Core_kernel.ref; |
}
type 'a component
=
{
writer_element_in_group : 'a direct_stream_writer Core_kernel.Bag.Elt.t; |
group_element_in_writer : 'a group_entry Core_kernel.Bag.Elt.t; |
}