Module Bytesections

module Name : sig ... end
type toc_writer
val init_record : out_channel -> toc_writer
val record : toc_writer -> Name.t -> unit
val write_toc_and_trailer : toc_writer -> unit
type section_entry = {
  1. name : Name.t;
  2. pos : int;
  3. len : int;
}
type section_table
exception Bad_magic_number
val read_toc : in_channel -> section_table
val seek_section : section_table -> in_channel -> Name.t -> int
val read_section_string : section_table -> in_channel -> Name.t -> string
val read_section_struct : section_table -> in_channel -> Name.t -> 'a
val all : section_table -> section_entry list
val pos_first_section : section_table -> int