Up

module Iobuf_debug

: sig
#
module Make : functor () -> sig
include module type of sig
#
type seek = Iobuf_intf.seek
#
type no_seek = Iobuf_intf.no_seek
#
type ('data_perm_read_write, 'seek_permission) t = ('data_perm_read_write, 'seek_permission) Iobuf.t

The first type parameter controls whether the iobuf can be written to. The second type parameter controls whether the window and limits can be changed.

See the Perms module for information on how the first type parameter is used.

To allow no_seek or seek access, a function's type uses _ rather than no_seek as the type argument to t. Using _ allows the function to be directly applied to either permission. Using a specific permission would require code to use coercion :>.

#
val invariant : 'a Core_kernel.Invariant_intf.inv -> 'b Core_kernel.Invariant_intf.inv -> ('a, 'b) t Core_kernel.Invariant_intf.inv
#
val create : len:int -> ('a, 'b) t

create ~len creates a new iobuf, backed by a bigstring of length len, with the limits and window set to the entire bigstring.

#
val of_bigstring : ?pos:int -> ?len:int -> Core_kernel.Std.Bigstring.t -> ([<
| Common.read_write
], 'a) t

of_bigstring bigstring ~pos ~len returns an iobuf backed by bigstring, with the window and limits specified starting at pos and of length len.

forbid immutable to prevent aliasing

#
val of_string : string -> ('a, 'b) t

of_string s returns a new iobuf whose contents are s.

#
val sub : ?pos:int -> ?len:int -> ('d, 'a) t -> ('d, 'b) t

sub t ~pos ~len returns a new iobuf with limits and window set to the subrange of t specified by pos and len. sub preserves data permissions, but allows arbitrary seek permissions on the resulting iobuf.

#
val set_bounds_and_buffer : src:(([>
| Common.write
] as 'a), 'b) t -> dst:('a, seek) t -> unit

set_bounds_and_buffer ~src ~dst copies bounds metadata (i.e., limits and window) and shallowly copies the buffer (data pointer) from src to dst. It does not access data, but does allow access through dst. This makes dst an alias of src.

Because set_bounds_and_buffer creates an alias, we disallow immutable src and dst using [> write]. Otherwise, one of src or dst could be read_write :> read and the other immutable :> read, which would allow to write the immutable alias's data through the read_write alias.

set_bounds_and_buffer is typically used to allocate a frame iobuf only once. This frame can be updated repeatedly and handed to users, without further allocation. Only the most allocation-sensitive applications need this.

#
val set_bounds_and_buffer_sub : ?pos:int -> ?len:int -> src:(([>
| Common.write
] as 'a), 'b) t -> dst:('a, seek) t -> unit -> unit

set_bounds_and_buffer_sub ?pos ?len ~src ~dst () is a more efficient version of: set_bounds_and_buffer ~src:(Iobuf.sub ?pos ?len src) ~dst.

set_bounds_and_buffer ~src ~dst is not the same as set_bounds_and_buffer_sub ~dst ~src () because the limits are narrowed in the latter case.

#
val read_only : ([>
| Common.read
], 's) t -> (Common.read, 's) t

Generalization

One may wonder why you'd want to call no_seek, given that a cast is already possible, e.g. t : (_, seek) t :> (_, no_seek) t. It turns out that if you want to define some f : (_, _) t -> unit of your own, which can be conveniently applied to seek iobufs without the user having to cast seek up, you need this no_seek function.

read_only is more of an historical convenience now that read_write is a polymorphic variant, as one can now explicitly specify the general type for an argument with something like t : (_ perms, _) t :> (read, _) t.

#
val no_seek : ('r, 'a) t -> ('r, no_seek) t
#
val capacity : ('a, 'b) t -> int

capacity t returns the size of t's limits subrange. The capacity of an iobuf can be reduced via narrow.

#
val length : ('a, 'b) t -> int

length t returns the size of t's window.

#
val is_empty : ('a, 'b) t -> bool

is_empty t is length t = 0.

#
val narrow : ('a, seek) t -> unit

narrow t sets t's limits to the current window.

#
module type Bound = sig
#
type t = private int
#
val window : ('a, 'b) t -> t
#
val limit : ('a, 'b) t -> t
#
val restore : t -> ('a, Iobuf_intf.seek) t -> unit
#
val sexp_of_t : t -> Sexplib.Sexp.t
end
#
module Lo_bound = Iobuf.Lo_bound
#
module Hi_bound = Iobuf.Hi_bound
#
val advance : ('a, seek) t -> int -> unit

advance t amount advances the lower bound of the window by amount. It is an error to advance past the upper bound of the window or the lower limit.

#
val unsafe_advance : ('a, seek) t -> int -> unit

unsafe_advance is like advance but with no bounds checking, so incorrect usage can easily cause segfaults.

#
val resize : ('a, seek) t -> len:int -> unit

resize t sets the length of t's window, provided it does not exceed limits.

#
val unsafe_resize : ('a, seek) t -> len:int -> unit

unsafe_resize is like resize but with no bounds checking, so incorrect usage can easily cause segfaults.

#
val rewind : ('a, seek) t -> unit

rewind t sets the lower bound of the window to the lower limit.

#
val reset : ('a, seek) t -> unit

reset t sets the window to the limits.

#
val flip_lo : ('a, seek) t -> unit

flip_lo t sets the window to range from the lower limit to the lower bound of the old window. This is typically called after a series of Fills, to reposition the window in preparation to Consume the newly written data.

The bounded version narrows the effective limit. This can preserve some data near the limit, such as an hypothetical packet header, in the case of bounded_flip_lo or unfilled suffix of a buffer, in bounded_flip_hi.

#
val bounded_flip_lo : ('a, seek) t -> Lo_bound.t -> unit
#
val compact : (Common.read_write, seek) t -> unit

compact t copies data from the window to the lower limit of the iobuf and sets the window to range from the end of the copied data to the upper limit. This is typically called after a series of Consumes to save unread data and prepare for the next series of Fills and flip_lo.

#
val bounded_compact : (Common.read_write, seek) t -> Lo_bound.t -> Hi_bound.t -> unit
#
val flip_hi : ('a, seek) t -> unit

flip_hi t sets the window to range from the the upper bound of the current window to the upper limit. This operation is dual to flip_lo and is typically called when the data in the current (narrowed) window has been processed and the window needs to be positioned over the remaining data in the buffer. For example:

      (* ... determine initial_data_len ... *)
      Iobuf.resize buf ~len:initial_data_len;
      (* ... and process initial data ... *)
      Iobuf.flip_hi buf;

Now the window of buf ranges over the remainder of the data.

#
val bounded_flip_hi : ('a, seek) t -> Hi_bound.t -> unit
#
val protect_window_and_bounds : ('rw, no_seek) t -> f:(('rw, seek) t -> 'a) -> 'a

protect_window_and_bounds t ~f applies f to t and restores t's bounds afterwards.

#
val to_string : ?len:int -> ([>
| Common.read
], 'a) t -> string

to_string t returns the bytes in t as a string. It does not alter the window.

#
val to_string_hum : ?bounds:[
| `Limits
| `Whole
| `Window
] -> ([>
| Common.read
], 'a) t -> string

to_string_hum t produces a readable, multi-line representation of an iobuf. bounds defaults to `Limits and determines how much of the contents are shown.

#
module Consume = Iobuf.Consume

Consume.string t ~len reads len characters (all, by default) from t into a new string and advances the lower bound of the window accordingly.

Consume.bin_prot X.bin_read_t t returns the initial X.t in t, advancing past the bytes read.

#
module Fill = Iobuf.Fill

Fill.bin_prot X.bin_write_t t x writes x to t in bin-prot form, advancing past the bytes written.

#
module Peek = Iobuf.Peek

Peek and Poke functions access a value at pos from the lower bound of the window and do not advance.

Peek.bin_prot X.bin_read_t t returns the initial X.t in t without advancing.

Following the bin_prot protocol, the representation of x is X.bin_size_t x bytes long. Peek., Poke., Consume., and Fill.bin_prot do not add any size prefix or other framing to the bin_prot representation.

#
module Poke = Iobuf.Poke

Poke.bin_prot X.bin_write_t t x writes x to the beginning of t in binary form without advancing. You can use X.bin_size_t to tell how long it was. X.bin_write_t is only allowed to write that portion of the buffer to which you have access.

#
module Unsafe = Iobuf.Unsafe

Unsafe has submodules that are like their corresponding module, except with no range checks. Hence, mistaken uses can cause segfaults. Be careful!

#
val fill_bin_prot : (Common.read_write, seek) t -> 'a Core_kernel.Std.Bin_prot.Type_class.writer -> 'a -> unit Core_kernel.Std.Or_error.t

fill_bin_prot writes a bin-prot value to the lower bound of the window, prefixed by its length, and advances by the amount written. fill_bin_prot returns an error if the window is too small to write the value.

consume_bin_prot t reader reads a bin-prot value from the lower bound of the window, which should have been written using fill_bin_prot, and advances the window by the amount read. consume_bin_prot returns an error if there is not a complete message in the window and in that case the window is left unchanged.

Don't use these without a good reason, as they are incompatible with similar functions in Reader and Writer. They use a 4-byte length rather than an 8-byte length.

#
val consume_bin_prot : ([>
| Common.read
], seek) t -> 'a Core_kernel.Std.Bin_prot.Type_class.reader -> 'a Core_kernel.Std.Or_error.t
#
val transfer : ?len:int -> src:([>
| Common.read
], seek) t -> dst:(Common.read_write, seek) t -> unit

transfer blits len bytes from src to dst, advancing the lower bounds of both windows. It is an error if len > length src || len > length dst || phys_equal src dst.

#
val memmove : (Common.read_write, 'a) t -> src_pos:int -> dst_pos:int -> len:int -> unit

memmove blits len bytes from src_pos to dst_pos in an iobuf, both relative to the lower bound of the window. The window is not advanced.

#
val read_assume_fd_is_nonblocking : (Common.read_write, seek) t -> Iobuf_intf.Unix.File_descr.t -> Syscall_result.Unit.t

Iobuf has analogs of various Bigstring functions. These analogs advance by the amount written/read.

#
val pread_assume_fd_is_nonblocking : (Common.read_write, seek) t -> Iobuf_intf.Unix.File_descr.t -> offset:int -> unit
#
val recvfrom_assume_fd_is_nonblocking : (Common.read_write, seek) t -> Iobuf_intf.Unix.File_descr.t -> Iobuf_intf.Unix.sockaddr
#
val recvmmsg_assume_fd_is_nonblocking : (Iobuf_intf.Unix.File_descr.t -> ?count:int -> ?srcs:Iobuf_intf.Unix.sockaddr array -> (Common.read_write, seek) t array -> Iobuf_intf.Unix.Syscall_result.Int.t) Core_kernel.Std.Or_error.t
#
val recvmmsg_assume_fd_is_nonblocking_no_options : (Iobuf_intf.Unix.File_descr.t -> count:int -> (Common.read_write, seek) t array -> Iobuf_intf.Unix.Syscall_result.Int.t) Core_kernel.Std.Or_error.t
#
val send_nonblocking_no_sigpipe : unit -> (([>
| Common.read
], seek) t -> Iobuf_intf.Unix.File_descr.t -> unit) Core_kernel.Std.Or_error.t
#
val sendto_nonblocking_no_sigpipe : unit -> (([>
| Common.read
], seek) t -> Iobuf_intf.Unix.File_descr.t -> Iobuf_intf.Unix.sockaddr -> unit) Core_kernel.Std.Or_error.t
#
val write_assume_fd_is_nonblocking : ([>
| Common.read
], seek) t -> Iobuf_intf.Unix.File_descr.t -> unit
#
val pwrite_assume_fd_is_nonblocking : ([>
| Common.read
], seek) t -> Iobuf_intf.Unix.File_descr.t -> offset:int -> unit
#
val sexp_of_seek : seek -> Sexplib.Sexp.t
#
val sexp_of_no_seek : no_seek -> Sexplib.Sexp.t
#
val sexp_of_t : ('data_perm_read_write -> Sexplib.Sexp.t) -> ('seek_permission -> Sexplib.Sexp.t) -> ('data_perm_read_write, 'seek_permission) t -> Sexplib.Sexp.t
end
#
val check_invariant : bool Pervasives.ref
#
val show_messages : bool Pervasives.ref
end
end