Parameters

module Uid : Carton.UID

Signature

type optint = Optint.t
type kind =
  1. | Base of [ `A | `B | `C | `D ]
  2. | Ofs of {
    1. sub : int;
    2. source : weight;
    3. target : weight;
    }
  3. | Ref of {
    1. ptr : Uid.t;
    2. source : weight;
    3. target : weight;
    }
type entry = {
  1. offset : int64;
  2. kind : kind;
  3. size : weight;
  4. consumed : int;
  5. crc : optint;
}
val check_header : 'fd read -> 'fd -> (int * string * int) Lwt.t
type decoder
type src = [
  1. | `Channel of in_channel
  2. | `String of string
  3. | `Manual
]
type decode = [
  1. | `Await of decoder
  2. | `Peek of decoder
  3. | `Entry of entry * decoder
  4. | `End of Uid.t
  5. | `Malformed of string
]
type header =
  1. | Consumed of Bigstringaf.t
  2. | None
val decoder : o:Bigstringaf.t -> allocate:(int -> De.window) -> src -> decoder
val decode : decoder -> decode
val number : decoder -> int
val version : decoder -> int
val count : decoder -> int
val src_rem : decoder -> int
val src : decoder -> Bigstringaf.t -> int -> int -> decoder