sig
module Unpack_one :
sig
type ('value, 'partial_unpack) t =
?partial_unpack:'partial_unpack ->
?pos:int ->
?len:int ->
Bigstring.t ->
[ `Invalid_data of Error.t
| `Not_enough_data of 'partial_unpack * int
| `Ok of 'value * int ]
val map :
('a, 'partial_unpack) Unpack_buffer.Unpack_one.t ->
f:('a -> 'b) -> ('b, 'partial_unpack) Unpack_buffer.Unpack_one.t
val create_bin_prot :
'a Bin_prot.Type_class.reader ->
('a, unit) Unpack_buffer.Unpack_one.t
type partial_sexp
val sexp :
(Std_internal.Sexp.t, Unpack_buffer.Unpack_one.partial_sexp)
Unpack_buffer.Unpack_one.t
end
type ('value, 'partial_unpack) t
val invariant : ('a, 'b) Unpack_buffer.t -> unit
val create :
?partial_unpack:'partial_unpack ->
('value, 'partial_unpack) Unpack_buffer.Unpack_one.t ->
('value, 'partial_unpack) Unpack_buffer.t
val create_bin_prot :
'a Bin_prot.Type_class.reader -> ('a, unit) Unpack_buffer.t
val is_empty : ('a, 'b) Unpack_buffer.t -> bool Or_error.t
val feed :
?pos:int ->
?len:int -> ('a, 'b) Unpack_buffer.t -> Bigstring.t -> unit Or_error.t
val feed_string :
?pos:int ->
?len:int -> ('a, 'b) Unpack_buffer.t -> string -> unit Or_error.t
val unpack :
('value, 'a) Unpack_buffer.t -> 'value Std_internal.Queue.t Or_error.t
val debug : bool Pervasives.ref
val sexp_of_t :
('value -> Sexplib.Sexp.t) ->
('partial_unpack -> Sexplib.Sexp.t) ->
('value, 'partial_unpack) Unpack_buffer.t -> Sexplib.Sexp.t
end