(* Extract bits.
- * $Id: 05_bits.ml,v 1.2 2008-04-01 08:56:43 rjones Exp $
+ * $Id: 05_bits.ml,v 1.3 2008-04-25 11:08:43 rjones Exp $
*)
let bits = Bitmatch.make_bitstring 24 '\x5a' (* makes the string 0x5a5a5a *)
let () =
bitmatch bits with
- | b0 : 1; b1 : 1; b2 : 1; b3 : 1; b4 : 1; b5 : 1; b6 : 1; b7 : 1;
- b8 : 1; b9 : 1; b10 : 1; b11 : 1; b12 : 1; b13 : 1; b14 : 1; b15 : 1;
- b16 : 1; b17 : 1; b18 : 1; b19 : 1; b20 : 1; b21 : 1; b22 : 1; b23 : 1;
- rest : -1 : bitstring ->
+ | { b0 : 1; b1 : 1; b2 : 1; b3 : 1; b4 : 1; b5 : 1; b6 : 1; b7 : 1;
+ b8 : 1; b9 : 1; b10 : 1; b11 : 1; b12 : 1; b13 : 1; b14 : 1; b15 : 1;
+ b16 : 1; b17 : 1; b18 : 1; b19 : 1; b20 : 1; b21 : 1; b22 : 1; b23 : 1;
+ rest : -1 : bitstring } ->
assert (not b0 && b1 && not b2 && b3 && (* 0x5 *)
b4 && not b5 && b6 && not b7); (* 0xA *)
assert (not b8 && b9 && not b10 && b11 && (* 0x5 *)
let _, off, len = rest in
assert (off = 24 && len = 0) (* no further data *)
- | _ ->
+ | { _ } ->
failwith "error: did not match\n"