bitmatch.mli

   1 (* Bitmatch library.
   2  * $Id: bitmatch.mli,v 1.1 2008-03-31 22:52:17 rjones Exp $
   3  *)
   4
   5 type bitstring = string * int * int
   6
   7 val empty_bitstring : bitstring
   8
   9 val create_bitstring : int -> bitstring
  10
  11 val make_bitstring : int -> char -> bitstring
  12
  13 val bitstring_of_chan : in_channel -> bitstring
  14
  15 val bitstring_of_file : string -> bitstring
  16
  17 (**/**)
  18
  19 val extract_bitstring : string -> int -> int -> int -> bitstring * int * int
  20
  21 val extract_remainder : string -> int -> int -> bitstring * int * int
  22
  23 val extract_bit : string -> int -> int -> int -> bool * int * int