2 * $Id: bitmatch.mli,v 1.1 2008-03-31 22:52:17 rjones Exp $
5 type bitstring = string * int * int
7 val empty_bitstring : bitstring
9 val create_bitstring : int -> bitstring
11 val make_bitstring : int -> char -> bitstring
13 val bitstring_of_chan : in_channel -> bitstring
15 val bitstring_of_file : string -> bitstring
19 val extract_bitstring : string -> int -> int -> int -> bitstring * int * int
21 val extract_remainder : string -> int -> int -> bitstring * int * int
23 val extract_bit : string -> int -> int -> int -> bool * int * int