(* Parse an ext3 superblock.
- * $Id: 70_ext3_sb.ml,v 1.3 2008-04-25 12:55:39 rjones Exp $
+ * $Id$
*)
open Printf
-(*let () = Bitmatch.debug := true*)
+(*let () = Bitstring.debug := true*)
-let bits = Bitmatch.bitstring_of_file "ext3_sb"
+let bits = Bitstring.bitstring_of_file "ext3_sb"
(* The structure is straight from /usr/include/linux/ext3_fs.h *)