`type t_sources````=` `{`

`source_id : Probe_id.t;`

`}```
`include sig ... end`
`val t_sources_of_sexp : Base.Sexp.t ‑> t_sources`
`val sexp_of_t_sources : t_sources ‑> Base.Sexp.t`
`type t````=` `{`

`message_length : int;`
`message_type : char;`
`group_id : Probe_id.t;`
`id : Probe_id.t;`
`name : string;`
`sources_grp : t_sources array;`

`}```
`include sig ... end`
`val t_of_sexp : Base.Sexp.t ‑> t`
`val sexp_of_t : t ‑> Base.Sexp.t`
`val num_bytes : t ‑> int`
`val write : t ‑> (Core.read_write, _) Core.Iobuf.t ‑> int`