Module Bitv

module Bitv: sig  end

val length : t -> int

exception Notequal

val equal : t -> t -> bool

val bpi : int

val max_length : int

val bit_j : int array

val bit_not_j : int array

val low_mask : int array

val keep_lowest_bits : int -> int -> int

val high_mask : int array

val keep_highest_bits : int -> int -> int

val create : int -> bool -> t

val normalize : t -> unit

val copy : t -> t

val pos : int -> int * int

val unsafe_get : t -> int -> bool

val unsafe_set : t -> int -> bool -> unit

val get : t -> int -> bool

val set : t -> int -> bool -> unit

val init : int -> (int -> bool) -> t

val blit_bits : int -> int -> int -> int array -> int -> unit

val blit_int : int -> int array -> int -> unit

val unsafe_blit : int array -> int -> int array -> int -> int -> unit

val blit : t -> int -> t -> int -> int -> unit

val sub : t -> int -> int -> t

val append : t -> t -> t

val concat : t list -> t

val blit_zeros : int array -> int -> int -> unit

val blit_ones : int array -> int -> int -> unit

val fill : t -> int -> int -> bool -> unit

val iter : (bool -> 'a) -> t -> unit

val map : (bool -> bool) -> t -> t

val iteri : (int -> bool -> 'a) -> t -> unit

val mapi : (int -> bool -> bool) -> t -> t

val fold_left : ('a -> bool -> 'a) -> 'a -> t -> 'a

val fold_right : (bool -> 'a -> 'a) -> t -> 'a -> 'a

val bw_and : t -> t -> t

val bw_or : t -> t -> t

val bw_xor : t -> t -> t

val bw_not : t -> t

val shiftl : t -> int -> t

val shiftr : t -> int -> t

val all_zeros : t -> bool

val all_ones : t -> bool

val to_string : t -> string

val from_string : string -> t