
(* BlockIO module *)

open Bigarray

type t = (int, int8_unsigned_elt, c_layout) Array1.t

type input = {
	mutable pos : int;
	data : t;
}

val make : t -> input

val block_read : input -> int -> t

val blit : input -> t -> unit

val blit_from_string : string -> input -> unit

val make_io : input -> IO.input

 BlockIO module 


open Bigarray

type t = (int, int8_unsigned_elt, c_layout) Array1.t

type input = {
	mutable pos : int;
	data : t;
}

val make : t -> input

val block_read : input -> int -> t

val blit : input -> t -> unit

val blit_from_string : string -> input -> unit

val make_io : input -> IO.input
