(* Bitmatch library.
- * $Id: bitmatch.mli,v 1.2 2008-04-01 08:56:43 rjones Exp $
+ * $Id: bitmatch.mli,v 1.3 2008-04-01 10:06:12 rjones Exp $
*)
type bitstring = string * int * int
val bitstring_of_file : string -> bitstring
+val hexdump_bitstring : out_channel -> bitstring -> unit
+
(**/**)
val extract_bitstring : string -> int -> int -> int -> bitstring * int * int