1 (* Extract some simple integers.
2 * $Id: 06_ints3.ml,v 1.2 2008-04-25 11:08:43 rjones Exp $
5 let bits = Bitmatch.make_bitstring 16 '\xcf' (* makes the string 0xcfcf *)
9 | { n0 : 3; n1 : 3; n2 : 3; n3 : 3; n4 : 3; n5 : 1;
10 rest : -1 : bitstring } ->
18 let _, off, len = rest in
19 assert (off = 16 && len = 0) (* no further data *)
22 failwith "error: did not match\n"